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

zooey

is
9 B$ b) n$ k& j2 r        mark:boolean;
% [1 a" [; k: {        dx,dy,ct:real;
. v  Y; F3 [- N' I    i,j,rows,lines:integer;
- h+ T9 b8 n3 K: P* |    machinename,bufname:string;
    machine,buf:object;
; T6 s; ]& w& zdo
        current.eraselayer(1);
8 `+ E2 K. H/ T8 i4 \- r       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& W7 j4 B/ H* h) {2 H# s7 v& ~& b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 g, n! e2 `3 u1 ]! A                        print"yes";
, i. h$ \) W9 _) p                when 32 then
' G4 J$ N" ^; d; X" z. S3 l                        print"no";
# S8 D  }2 S% c/ [- P) H                else
                        print"cancel";
                end;
4 z9 t* W  i, {8 ?  W7 k                eventcontroller.stop;
        end;
3 `* m- Q9 |8 L6 \8 V/ p. |       
+ D0 r2 {  z6 G# f1 C  ?+ b1 a        for i:=1 to number_of_machine loop
" ~* i! }1 ]  z4 G- V        machinename:=sprint("M",i);
        if existsobject(machinename) then
) |$ I' H+ ~2 l. u% j) }& b' M5 C                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- V& W" U( c& E& r                buf:=str_to_obj(bufname);
+ s7 S9 r1 O8 j9 E! W7 F                buf.deleteobject;
        end;
. H& Q3 h6 W: ]0 a, S  I4 F0 c1 i' Y        next;
& V6 y5 T: B! G' V3 h6 j       
        dx:=0;
( Y! x2 J+ Z; A5 @; A3 s( a        dy:=0;
5 k9 Q+ T4 G/ E$ ?/ H7 s- k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, i, `/ W' g  U2 {7 n                --mark:=false;
3 i+ j! Y+ @- L# x! n0 Q' P& I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 d4 g2 f. K$ A1 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" `% b( K: o2 X- h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& ]/ \+ g% U: J. f- e! {                        ct:=activityspace[2,rows];
: F* I0 w& j. ]: K! S                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) T; ^$ D0 X+ w+ }                        mark:=true;
' \  C7 v+ X9 }" p% e- c: B  R; N                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
( f4 P" T& ?4 ^8 Z4 L3 g. O                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];
. ], Z) R7 R6 O  u                end;
2 ^3 y, ]/ H, [6 F& N  I6 ^                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 d3 _9 o1 E% d# q9 ^2 p" I+ ?                        end;*/
0 L$ D; C% a, g( o5 b( ~0 ~) V        next;
/ U) v3 r& h$ u  p        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);
. t% ^# L) n& [  q" p5 }3 ]4 ^$ Z        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);
4 b4 c$ T' L5 \  ]: Q       
* W" N+ H% _/ G4 n3 \, }! n        rows:=0;
" V$ g( m0 R8 A0 y        lines:=0;
) F3 k: X* E8 W+ M2 r+ t        for i:=1 to number_of_machine loop
% y" e: s6 |5 u. V( m: O                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 A" i, J- W. w                        else
; o5 h, `) D. y/ z  g2 _0 L                                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];
1 E0 e8 z9 I% i0 i                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
3 }$ M7 G* l4 C0 H  e       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; O0 s1 ?: _# U2 d: l                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ ~$ b0 t1 m5 H' e  w                        if w_from_to_chart[j,rows]>0 then
) B) x! c5 s- U3 d" H; L                        lines:=lines+1;
9 Q" x* _+ Q1 Z# ^6 p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 Y1 R" |- n( o& n6 `2 ]7 p                        partstable[2,lines]:=w_from_to_chart[j,rows];
. g' E9 @3 g/ [& Z8 f) I8 I% x                        partstable[3,lines]:=sprint("parts");
: Q0 ]7 B, B5 {+ t6 C                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
. ~: j* R# |$ U8 C% N        next;
  q& l5 s8 `+ r( C, j! A        machinename:=sprint("M",rows);
; e& k9 d  t% V8 d8 i9 d        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* e5 s7 V1 Q9 I       
9 F3 B" ?2 E, s$ B; F        bufname:=sprint("BF",rows);
, b1 M- `$ k& s9 R* }4 H4 U        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;
        buf.proctime:=0;
& o  U  L1 g- \        .materialflow.connector.connect(buf,machine);
       
# U3 @5 [- {  T( X2 r8 `; z9 M2 g        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;
0 l& x9 x; P3 z: I  ?$ Pend;