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

zooey

is
        mark:boolean;
' b4 \6 u; D+ n) n, R% T4 p        dx,dy,ct:real;
' b8 k& o( Z+ o1 X+ N9 @    i,j,rows,lines:integer;
2 I3 J1 N7 B) C3 j" C    machinename,bufname:string;
8 B, m( o8 R1 m! L& B) [/ T    machine,buf:object;
do
3 w0 \$ Z* A4 o1 }, Q; L+ r: Y        current.eraselayer(1);
4 d7 }) r, ]7 n       
) ~& F+ P* r0 f: m5 a+ N, M4 ]* t' r        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
4 i9 y4 b; f) O0 [+ W( e                        print"no";
5 j+ |* x8 [0 P+ M3 d                else
                        print"cancel";
2 W" k$ y4 w# u# A4 A5 r0 k) r                end;
4 e, |* y* k& g7 r                eventcontroller.stop;
        end;
) v5 x3 r! ^( e) k7 O! G) H3 t4 F       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) G0 |3 \& E+ |9 Y& ^8 t        end;
& ]# i: `( [4 E7 B        bufname:=sprint("BF",i);
  Q7 S' Y; `! n6 G        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
& `! _' O2 S7 m3 e        end;
        next;
       
        dx:=0;
, ?6 [+ _/ t- O* u) }" y0 U  t  C        dy:=0;
        for i:=1 to number_of_machine loop
  \- h8 ?2 H/ M8 a$ t4 b& j& a+ m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ]- d( \: b% n8 n                then
# m! k' V6 A7 R) O                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# e8 p% f$ r. r2 V$ v                        and activityspace[1,rows]<(1.05*y_max) then
% q: t6 k8 G+ ^' z                        print activityspace[1,rows],",",activityspace[2,rows];
0 X- _) X3 G& i! F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 V6 t4 B. y# Q4 X2 D9 ~  a                        activityspace[1,rows]:=ct;
8 `5 G4 a) y. H6 }3 s                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* z. {) H4 v- H                        dx:=0;
5 A: s% I! D& R2 a& r7 J' b: u                dy:=0;
0 V( v4 _$ b# \* d1 P4 E- V3 F                        --end;
" n6 g/ W3 s' L) Y8 i0 T# l! h                end;
/ a( x9 @8 f) p0 ~- B7 l! y1 l; J                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;
' p( c1 U- n) X& K4 [9 l            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; t  b) [/ \# m' K                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 w8 B. c  N' }. {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
3 m6 F4 p9 y2 K6 L6 s       
        rows:=0;
        lines:=0;
: q. {' ~' M# Z) n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- O$ V# c! a- [/ c5 J- m$ G                        if j=i then
                                d_from_to_chart[j,i]:=0;
# M7 \7 ?& I. W" W8 {! Y5 R                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ T8 U7 T3 r/ ]" E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
7 m: ~) l4 k/ U        next;
4 q( U1 V( S3 ~# p       
        lines:=0;
        partstable.delete;
% w" G, l* L' q" E+ ?       
, }# N& q- W$ F$ B/ J0 m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 h9 {' @0 r' }/ l8 _. \                machinesequence[2,i]:=rows;
) S" f. f* g% ^; G- v' T) g                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- ^' f* _% M; m( X+ b; D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& M9 z9 `5 |; y. c                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) \1 ~' S; m! H. @6 k3 F                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
, t) }. I6 R! j7 z$ p" \  r        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]);
/ ], e+ C% T6 r        machine.name:=machinename;标识符未知
- t2 ?! {! e) ]$ T  J- u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
5 x9 N7 J2 ?7 p4 W        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 L# W$ d3 o* b) M, [       
: E8 d: a9 }" _& V' A        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: U: y! q* }2 A6 _5 m" [dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) y7 h* ]/ x' F! R0 v2 u5 m) J) Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;