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

zooey

is
        mark:boolean;
5 J) J. j; g/ {' K& {, q; F7 {8 N        dx,dy,ct:real;
0 H' V- ~9 \& \+ A6 g" b    i,j,rows,lines:integer;
    machinename,bufname:string;
4 W' V6 ^- H) v% r0 s0 a    machine,buf:object;
- w$ `  Y. v8 V) t$ ~do
        current.eraselayer(1);
       
1 g" B* j! t9 w2 ?& n- N' G        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ t) z+ ]1 z6 j3 I5 l                inspect messagebox("设施数目不对！请核查...,",50,13)
1 ?+ ?* e0 u: u; x4 N                when 16 then
                        print"yes";
                when 32 then
0 i8 a2 @, y8 S1 x/ I3 a+ T                        print"no";
                else
                        print"cancel";
                end;
/ M/ C; @2 J( x) s( E) V% q9 s                eventcontroller.stop;
        end;
2 Z2 i/ c, t7 Z3 U& o8 t2 K       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 m$ H# \* h, U# J2 |/ J        if existsobject(machinename) then
% L: N  ]) A. Q  X3 G                machine:=str_to_obj(machinename);
. Z0 ~' s6 N+ A. v                machine.deleteobject;
        end;
3 c; O; Z! d6 N8 M& l        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 E" z9 Q( ?, r  `% Y: r                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
, k0 t4 P  w- d        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]类型不匹配
                then
! r1 ^( c# C: k" ]( C5 g                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; g& }& K6 E) v/ ?                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 w* e% b( n' ^, i. k" {8 E                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: L, |$ x! ?. a$ \3 D                        else*/
) T: |$ H7 }) E( ^8 D                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. w0 ]' l1 R9 ^1 r5 D0 L                        --end;
6 `* L6 a, v1 w/ q0 v/ a                end;
3 j' J$ P9 Q5 Y7 v4 b/ t+ f                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;
0 M' F+ Z: B  H6 d4 @4 m( N  M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; @7 \, l5 u$ a                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 b; D9 L9 h. v, V- }, G3 X0 l                        activityspace[1,rows]:=ct;
* h: Z7 p1 ]2 K. F3 I9 f2 T' g* x$ F                        end;*/
        next;
. O8 S. F' v( H; b' m0 e$ p        y_max:=y_max+dy;
( I- n/ a/ V% W8 v2 M% Z' |$ k        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);
$ P; x( h/ _" o- X4 B1 ^: C2 V2 e        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);
9 {4 ^& R3 |# }7 A9 o7 t4 E/ Q5 c       
9 H" a6 {. a$ h0 H        rows:=0;
        lines:=0;
' C) n& }& d( u: z3 H+ i" z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
9 U) `. E1 a% v, X7 ^9 K- w                                d_from_to_chart[j,i]:=0;
1 f# B' }' I/ S& b0 J5 l2 z                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ @; U& Z' a; E& `; E& P; ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 A- i0 T& e" e6 _$ G  r2 W. J                                d_from_to_chart[j,i]:=abs(dx-dy);
: p  a0 z% x- T$ Y                        end;
  m2 _( R. D# I  }" l1 p                next;
% M* P2 W  p1 v        next;
       
        lines:=0;
" M) j2 @8 K5 [& W# e3 k6 B        partstable.delete;
! F0 ~* [* d2 c% r4 E       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, B4 p- w, M, T% G/ g0 T3 E                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 d' t- D5 X' [3 n. i2 q$ _. p                        if w_from_to_chart[j,rows]>0 then
                        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;
: z& C! I+ b1 w" n3 z  l                end;
, C$ |5 n1 V8 M        next;
: q# V% z; m4 v' o- K) x& s        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
! o8 M) z8 m$ ^. ]       
        bufname:=sprint("BF",rows);
  j, `! l2 K" e6 F3 c        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]);
4 c1 ~! N1 g5 ]6 p5 o3 z        buf.name:=bufname;
        buf.capacity:=5000;
5 q' B2 z* o$ y8 a7 b" x: m) h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
+ B( j7 e0 B' H# n       
+ y9 d) i$ S" D2 e/ O0 t        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;
9 e- N& D( h* K7 \0 {; yend;