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

zooey

is
        mark:boolean;
$ s9 X+ r. g# J; ?# Z        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 s; W* s- k5 k    machinename,bufname:string;
    machine,buf:object;
0 |0 U- E4 N/ D- mdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 v: u1 h( z6 X% d                inspect messagebox("设施数目不对！请核查...,",50,13)
* J7 [& D3 L* A  M# a9 S: \                when 16 then
                        print"yes";
) K( r7 R% D1 K3 }/ u  |* E                when 32 then
) ^; v# i4 l( S9 Z! L                        print"no";
1 p" z7 `3 ^: O0 R                else
                        print"cancel";
5 G- x& X. I, q  i8 }                end;
                eventcontroller.stop;
        end;
, A  h3 R7 i$ g- ^7 I       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- h- _. j: |% y/ d- S$ D                machine.deleteobject;
8 k+ L' N0 s% C* Q. f        end;
/ Q# z5 K6 E' n( I3 I. o        bufname:=sprint("BF",i);
, d7 X6 ^: w" e7 o/ [8 ^        if existsobject(bufname) then
8 q. a9 b/ U( `# u. x: [) O" E. A, @                buf:=str_to_obj(bufname);
% ?2 e, v" f3 z3 W( a9 u9 }                buf.deleteobject;
        end;
        next;
) M7 u- w- F2 \" m6 B       
, g. E5 J( V) k/ a1 `; l        dx:=0;
        dy:=0;
# X/ G4 ?6 Z: a* `+ l1 i' Y        for i:=1 to number_of_machine loop
6 W% ]& D6 x; W) q4 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 S4 J' b! }, G$ v                --mark:=false;
8 g: `2 T& L/ K" C  m! v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, d. T  F/ _2 `# \( I8 c% V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
6 a3 h: @# S5 p1 v" A  ?8 D4 p0 N                        else*/
0 U' D0 Q$ r# w& {! ~                        y_max:=y_max+dy;
                        dx:=0;
5 d' B' \( U6 R1 b+ I3 t4 Z# t                dy:=0;
$ P8 L, v& b# W                        --end;
! \5 M# J. A% e! O; L                end;
2 K+ M* D7 B1 g. q* U! z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 }. ?6 s* T; ^2 ~! x( {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
7 R$ e/ A0 e& k8 @                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
- K; W8 J$ f! t$ V- ~0 ]9 b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 F, r: e, Z) N6 {* f6 M, b                        activityspace[1,rows]:=ct;
- G3 p, M' ?0 Z$ i) p4 g: x) T                        end;*/
' S! k  D5 s. H  c6 C# n        next;
        y_max:=y_max+dy;
        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);
       
; J, y& i6 \% `1 _        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
                                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];
" u. J2 l1 {* Q) b& }3 ^2 L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' w" q/ p, Z# U0 @: H% f; n, p0 j: v; j                next;
) m. m' n  u/ J. B) r9 ~  n% ]        next;
0 `1 i8 Z9 h" k" [- j2 ?8 `, n       
        lines:=0;
        partstable.delete;
! R9 J; h  x9 _4 s* o       
        for i:=1 to number_of_machine loop
6 j* K; p0 K  c1 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  ~  R3 k1 v/ u3 f: Z+ |/ l+ N: r                        if w_from_to_chart[j,rows]>0 then
% _/ w5 K0 d1 L/ @                        lines:=lines+1;
- O0 ]( S$ d& F1 I+ u                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% Z" u( w% u4 B8 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 D8 d7 w9 r9 V" p5 b                        partstable[6,lines]:=j;
; l' R6 B: ]" q; K% u9 u  l                end;
1 N9 [, |) V% r( ^# c        next;
        machinename:=sprint("M",rows);
4 y% y6 ?9 |' m% w+ X3 b# k0 q  o        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]);
1 z  I5 S( s3 h0 I        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- U/ L' L: ]# [5 b9 j3 Y        machine.label:=activityspace[0,rows];
- f4 V, A) j8 }+ j        machine.exitctrl:=ref(leave);
4 _4 }2 l  s9 h* M( q       
        bufname:=sprint("BF",rows);
        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]);
/ ~; _/ M0 o) L2 g1 T* G1 C+ g# g        buf.name:=bufname;
7 H: r1 Q, \' ~. b& E' R+ j$ `, X. S        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 A- W( r  s( \/ e       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 a% I  w# J, [( A. E) ]# ^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;
$ N) j. I! a9 Y6 q+ Eend;
: M4 y5 t6 R: }* y