simtalk程序调试不出来，帮忙看一下

zooey

is
  ^. T2 [$ L! C  s8 e        mark:boolean;
" k% m, ?9 {, [2 a8 E        dx,dy,ct:real;
" O, @+ B$ B) d" L3 [$ Y    i,j,rows,lines:integer;
$ Y- X+ A2 m; n# K    machinename,bufname:string;
    machine,buf:object;
$ ^" s2 |8 [* P7 \+ ]' b% edo
$ A/ d# n% F9 K2 P        current.eraselayer(1);
       
  C* ~+ v0 m6 l5 v# r8 |7 P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# w0 y3 ?* q; s5 H5 C8 S2 B                when 16 then
                        print"yes";
/ R" a0 D- ^+ {) K- \7 I% V6 N+ @2 c                when 32 then
                        print"no";
                else
( a- s2 H3 m, V% T. E, b4 q( Y, |! W( @3 h                        print"cancel";
                end;
                eventcontroller.stop;
* W" f: ]* u3 c# T. x9 D        end;
) W# f6 U- D7 l' z8 c9 K       
4 }2 s" W: W8 m        for i:=1 to number_of_machine loop
$ N% U% ?9 x8 o! M- G! p        machinename:=sprint("M",i);
        if existsobject(machinename) then
& A& Z5 I4 h; \' q8 E                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. e  s1 w! F. }6 u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  k. O! b( R8 Y2 n7 R) W                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 K! b$ ^9 U& Z2 J3 E# K! q; w        next;
       
! a% w; m5 f3 E: w9 w        dx:=0;
3 f/ ^8 H2 I8 ?6 J& i- Q" O3 G        dy:=0;
        for i:=1 to number_of_machine loop
  E+ S; s9 T4 i# J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 D9 f$ |  B' a- k! v. ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ y' n( T& O9 O  I! I) e2 k                        and activityspace[1,rows]<(1.05*y_max) then
3 t7 x2 z. `% ?7 g                        print activityspace[1,rows],",",activityspace[2,rows];
3 H4 B5 D5 J' f6 U                        ct:=activityspace[2,rows];
. z" ?7 h* w* G( Z4 ]7 l) k                        activityspace[2,rows]:=activityspace[1,rows];
7 q) ?* }8 t% E" V& ?                        activityspace[1,rows]:=ct;
+ l" M  X; ]$ d) h                        mark:=true;
3 ~, C- F  \3 J3 {, }                        else*/
$ ]$ A" x7 R% F- |8 O( u# d; s                        y_max:=y_max+dy;
( O6 U/ y) }# d' n$ V- e- s                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; B- V5 f: a6 q4 i                        dy:=activityspace[2,rows];
                end;
4 O3 a- y' T- O8 u                dx:=dx+activityspace[1,rows];
                /*if mark=true then
- U2 X$ M  @* L$ Z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% R7 m4 f; x" g3 u                        activityspace[1,rows]:=ct;
" p- \% U3 S; Q+ [                        end;*/
        next;
        y_max:=y_max+dy;
" v# M7 {% u4 l3 J8 c' A- c# E( y        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
7 [. H8 @/ E; H/ w6 d: o       
        rows:=0;
4 o, z1 p" l- h, n        lines:=0;
5 {/ b# k8 ^/ Q( d        for i:=1 to number_of_machine loop
  A8 Z9 o! Y( n& g; a. a9 f                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; Z+ J: A( O* p3 r/ p                        else
3 s6 s( m$ f! C' x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 z1 M0 x& p6 Q/ u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
$ g. z; C" \; W+ U% H                        end;
                next;
9 U: G" V0 E* v8 J! D; ~        next;
       
        lines:=0;
) L* P- h/ ~7 R        partstable.delete;
       
        for i:=1 to number_of_machine loop
# a4 K4 B* q$ C9 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! j1 U& F# K# {* b7 @                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* c% O9 n0 ], K, k. Y  v  _8 v        next;
9 B* I8 P8 O( s* P9 W0 n6 x        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        machine.name:=machinename;标识符未知
( r& K/ M# T0 u0 O* G        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( P7 N$ z  {- q+ e1 j       
0 Z. i6 O* Z0 ?# a        bufname:=sprint("BF",rows);
9 f9 p: i, z8 z( Y" y        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        buf.name:=bufname;
        buf.capacity:=5000;
8 @3 n! A, W4 B1 d7 J! C        buf.proctime:=0;
* t7 |# n8 G  A        .materialflow.connector.connect(buf,machine);
" K# I$ f6 d5 g: R       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
* d4 C. R* M2 c+ A/ V  V- E0 [end;