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

zooey

is
        mark:boolean;
) `; l4 g& ?- ]        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 \! n9 i' j) p8 X    machinename,bufname:string;
    machine,buf:object;
& `5 Z; U! Z7 ~7 X  t1 T, _6 ]do
% W2 y* I9 \6 C. ?0 f) X        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 z, O% f$ t, R* _8 I% F3 I                inspect messagebox("设施数目不对！请核查...,",50,13)
! m/ A8 ~7 a2 J* S                when 16 then
% u) W( G) {9 u% O3 j                        print"yes";
1 O2 w# l- Z2 W. `: X/ `% ^                when 32 then
9 {7 ]- O5 m& [/ z                        print"no";
3 Z! k; p, D9 f: ?" h$ A9 _                else
  D' ^9 `3 @+ b0 D" q                        print"cancel";
                end;
                eventcontroller.stop;
; Z( z6 Z' g3 ~3 C" V9 }        end;
3 w# U& h" z% a; F: N5 B0 F. N       
/ s, T  K$ H: m. _7 s3 `4 \1 y        for i:=1 to number_of_machine loop
2 F; e8 N4 ~7 O        machinename:=sprint("M",i);
2 f: |1 ]* k+ z6 t7 _  [        if existsobject(machinename) then
) d, s9 B! D1 O' b; E                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
! E' c: U2 G8 i6 @0 I  w        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 _+ B* y, O: B                buf.deleteobject;
        end;
0 d+ O7 `" I* ]5 t$ M$ ?        next;
       
8 z) J) F9 r9 @        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; G: [; N2 @) H2 Z/ J7 J                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: F" Q7 x  j) [% M& M                        and activityspace[1,rows]<(1.05*y_max) then
3 }  r3 H4 Q6 K1 b; ]" p4 J2 {+ G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 R( [$ l0 f4 d! c; r, ?+ C3 n$ n3 B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" N4 {% n  R& m& w2 n# P! a                        y_max:=y_max+dy;
5 `4 u6 V: \* F3 l                        dx:=0;
5 i8 J1 f$ D" t' t! d7 B                dy:=0;
                        --end;
, f/ H& _/ S/ K$ Y. ]; _# C                end;
: l$ u; M* ]! |+ X& c                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
                        dy:=activityspace[2,rows];
1 f8 X- h) E& A) @6 v                end;
                dx:=dx+activityspace[1,rows];
* d/ g9 h2 [& T9 ?- s/ a                /*if mark=true then
                ct:=activityspace[2,rows];
& L8 R" y: H( `7 ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
3 E* z2 S4 z" j0 q7 I( C        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);
* L- F# k( y  x/ s3 r        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);
       
0 Y: F+ `- w* z' x; i9 U8 e3 q8 Z        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 v( ^" Z6 _* _& j9 e- G                for j:=1 to number_of_machine loop
                        if j=i then
9 _! l9 E) b( |, V! ~                                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];
6 m$ z- O  ]+ `" T! o8 B% N                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 j& Z% I$ x, E# h; j* r  [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 l2 K; @: P( ]                next;
        next;
       
        lines:=0;
        partstable.delete;
# m, M2 a2 c* W' @       
# {: u2 L: @4 a4 ^# I1 f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; |8 M* l5 ?! L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, U8 V. O. `6 X                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  R8 H; T$ q* I/ h: \7 p+ {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 k) z8 P1 l: P8 ^7 x" z. i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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;标识符未知
; Y* }; n  R; U' N$ b/ F, s        machine.proctime:=5;
- C, x+ }( Y7 H/ H( B        machine.label:=activityspace[0,rows];
. i7 m* F' C8 a/ Q9 K; o        machine.exitctrl:=ref(leave);
1 O" ~$ u' x3 Q# f8 n       
        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]);
        buf.name:=bufname;
! ^3 |2 _( n# F! G9 E6 m        buf.capacity:=5000;
        buf.proctime:=0;
( J& P$ d! X$ o. P* h$ O, ~        .materialflow.connector.connect(buf,machine);
       
" O" J, @' z7 x& H% B- Y        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;
end;
* T. u* @0 |6 C% g6 t