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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 Z4 R- l" C! L    machinename,bufname:string;
    machine,buf:object;
9 ]# a* ]) p5 g1 `$ P- |do
        current.eraselayer(1);
       
5 h- D" h9 `9 F3 T- i1 D8 ?: H/ e1 O0 K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 C& c8 q+ T+ t: ~3 x7 ~2 v                when 16 then
( ]6 l( r. r* P                        print"yes";
6 U  O5 O+ y. @' U                when 32 then
  ^4 ~: V7 n' z% w+ F% t. X6 R                        print"no";
                else
& ?0 W7 G, m. h8 J- W" W7 V/ @                        print"cancel";
- M  Y; ]6 [9 {4 F6 A  ~$ |                end;
4 I" c* \9 x: v$ i/ ?$ r1 j                eventcontroller.stop;
( d" F/ w+ ]7 _% H5 ?, C9 k4 D+ n        end;
  w7 a; y- t# S       
/ B: T" t2 f7 @. i' s3 ~, X# g1 }* B        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' |3 z+ k+ r6 A! j        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 U8 Y9 k8 e% O2 X7 e% ~                machine.deleteobject;
        end;
* `9 r& |, R5 q% q  ]        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 P1 S2 y, J" \$ x                buf:=str_to_obj(bufname);
                buf.deleteobject;
; m2 C' J9 A/ L8 U+ T) u+ l        end;
        next;
( s, x  s% q& l* P2 c8 j4 i; i( \       
        dx:=0;
! n) Y% b! @8 a! u2 y9 A: o        dy:=0;
: j3 E0 p8 [) m) C1 S3 x        for i:=1 to number_of_machine loop
' p7 Q, W$ ]/ S0 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 H1 |- Y3 s* ^8 |/ E* u$ o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( w4 \/ G& R6 ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' S+ y! Q) g1 {. {* ]4 d# {                        and activityspace[1,rows]<(1.05*y_max) then
2 F1 \* S* w7 V4 Y  l3 v! h                        print activityspace[1,rows],",",activityspace[2,rows];
6 M3 b0 d( l: x: \8 C                        ct:=activityspace[2,rows];
. B$ K! t: J+ i                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' L3 A6 o( z4 X* `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
& }2 B- f5 U+ e" f                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' ?# G$ P* f2 j1 b+ s$ U6 t! k                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];
; A& h0 }/ K' V( F8 V' Q( Y                end;
                dx:=dx+activityspace[1,rows];
1 F" t5 X! T, h6 p! c0 y7 _! b4 Y2 L8 G                /*if mark=true then
1 `; D% ]- A" n! S  h6 m                ct:=activityspace[2,rows];
% _/ |# j4 L8 e5 ~; T                        activityspace[2,rows]:=activityspace[1,rows];
& L" N8 S7 ^# d                        activityspace[1,rows]:=ct;
6 C0 N, }2 H) N2 h7 A                        end;*/
        next;
' }. x/ l0 g6 T1 t& h# ^1 e3 n# c        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);
       
- \" P4 K& w) O. S4 M' A' r/ d        rows:=0;
4 t$ y  |7 ]1 L" R, @. z' o" f        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 Q( M, ?  q1 z" _" \0 ]                        if j=i then
- [/ i6 m" A+ I2 W  S; T                                d_from_to_chart[j,i]:=0;
$ n' a; Y4 k+ J" |2 A$ ], D                        else
/ \, _- E/ t8 M9 W3 [$ [* M) i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' r  o/ J: z4 N/ ~  ]' T& s" u6 h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 Z8 P6 L, O+ V- K0 e6 S                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 O* i& {( o+ ~. ~4 g. C( k% A3 P  C  x% Q                next;
        next;
       
$ n7 _- S5 s$ Q( o) N$ ]4 Z        lines:=0;
( A, n: q- |: D) N3 A        partstable.delete;
9 W5 h. k8 f. l/ W       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# S) M9 c8 W* R; n                machinesequence[2,i]:=rows;
4 q, H, }' O3 o+ m" c# B  r                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) N7 v& t2 N8 ?" }4 Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. P7 q& d1 X/ T) E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ b$ ]8 l1 k0 s# y                        partstable[6,lines]:=j;
                end;
" Z6 [0 i) w6 n# T- J" @0 p. r% o        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
% e( ]8 ]8 H6 i8 l% `+ p. 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;
/ x, S8 o/ O& K        buf.capacity:=5000;
; c) Q% [0 p9 p+ y" P$ c8 ~        buf.proctime:=0;
. x# F' K" r6 s4 a. Y9 [        .materialflow.connector.connect(buf,machine);
       
) D& K8 E4 f5 l6 B        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;
6 R- A2 |( f* Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, u, }* s2 }* r0 s& I  Lnext;
end;