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

zooey

is
% i' v/ k1 e/ f, u2 F2 Q9 g        mark:boolean;
        dx,dy,ct:real;
: w/ z# E* d( j2 u    i,j,rows,lines:integer;
    machinename,bufname:string;
5 N( s) ]1 I3 Q  w4 N    machine,buf:object;
do
6 j9 p: V9 L; i6 Y3 O5 {) h! D        current.eraselayer(1);
       
4 l9 U- {; N& C9 a- }7 l  Z! k7 w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ }+ E- i" b! e0 I, N: O- j                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
9 `" l# q9 ]9 Z; O" u. @                        print"yes";
4 k) N3 E+ B2 V' `, C& G                when 32 then
/ h3 b6 P4 ~& [. T* ?                        print"no";
" B; [. n" j6 }7 ]5 h" `0 T9 A                else
* p! }' s  s. {) u$ I& {$ R& w                        print"cancel";
0 F  ^1 v- {$ i! [                end;
                eventcontroller.stop;
$ M  l& T9 U* A6 j        end;
) V" [9 s  x0 b( ?       
        for i:=1 to number_of_machine loop
/ i: v- w' N2 P6 e' E+ ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: F  ?  D3 Y4 B( m6 L                machine.deleteobject;
) _) n! ~3 {, t3 y$ F, G        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 R! q6 ?: |( ?) ?% b) ~        end;
  c2 }* I1 z) Z* A$ J        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
2 v8 F6 j7 `. i; b$ ]# n# y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: A# i# W5 g9 T                        and activityspace[1,rows]<(1.05*y_max) then
0 |7 R% j3 F5 f- p3 K: B" D                        print activityspace[1,rows],",",activityspace[2,rows];
: w; I# i) \" d8 @: j                        ct:=activityspace[2,rows];
1 |! j6 J8 p! b" V5 a/ S% E                        activityspace[2,rows]:=activityspace[1,rows];
. a$ F1 E# s3 C                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
  c( V: @( u7 o! K                        dx:=0;
                dy:=0;
3 V8 ~' \" ^) r, E4 L                        --end;
9 k' x' d2 P* I5 i6 \                end;
/ A0 D6 E' C6 I" B( e0 _% ]                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 A6 E& K! S2 i: N* E4 [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- L" A3 n) F5 l  N0 q; d                        dy:=activityspace[2,rows];
+ @) x& P: T, z                end;
, |- p9 n2 `3 F$ }7 n4 W                dx:=dx+activityspace[1,rows];
$ P% c9 m. C& n, f( p. |                /*if mark=true then
                ct:=activityspace[2,rows];
. i4 o  o6 ]9 k6 G3 v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ k6 j2 S  \$ A                        end;*/
        next;
  m7 u; S4 |" I6 `5 Z        y_max:=y_max+dy;
9 d. L  S, o" Z        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);
2 ~5 K. i/ }& p2 z1 H  p! I+ P4 v        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);
       
- A% P4 C2 G. B: Y+ H+ L" u        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
8 h0 [8 ]" W5 X& c4 H' |" H7 ~                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
                        end;
5 _$ r) E1 `8 I- o4 p                next;
        next;
       
        lines:=0;
9 O1 z1 c. Q2 }- V; i$ r( b        partstable.delete;
4 U  \* D' N3 x$ ]- N+ `2 j9 v       
5 b* R1 ]3 {  K% x0 O        for i:=1 to number_of_machine loop
1 N4 c3 A. z" h7 f+ m1 f( c6 ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) v# U7 R: m3 |! n+ ?- \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 o. m" F, B/ l7 f( R+ j$ D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& X* Y" o  g' m0 D* `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: z2 k8 ?6 F$ H3 p+ D2 x: Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
8 h0 \3 s( {5 c2 J" ?6 B4 l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ i% u. W9 s3 M2 G2 G$ @        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]);
, _" n7 {0 Y$ B& M! a& H        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
% l0 D' @5 S8 B7 L, I% _3 r        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;
9 q% ~' b/ l# ?7 R) f3 t        buf.capacity:=5000;
        buf.proctime:=0;
8 }0 c% B4 G4 n' ^+ \$ D        .materialflow.connector.connect(buf,machine);
       
( y/ C' o8 ^" |* E+ W4 ?. }9 H1 D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. w7 ^* i) c& L" C, k9 ]5 E& H8 [dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# J) h* r+ z1 A# n, qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% Q6 t( ~/ h* Dnext;
6 K  W( U  g* u. h% F) \% K+ a' W: rend;