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

zooey

is
        mark:boolean;
! ~( y) s' u9 @! Q& }) b4 Y" L        dx,dy,ct:real;
" e% j9 [9 u6 w, D" a: ~4 F2 P- g4 N    i,j,rows,lines:integer;
8 M& D0 D* R( b0 N    machinename,bufname:string;
7 ?% A! |1 F0 m    machine,buf:object;
% H& `+ }% O) ~, W+ N, Ddo
+ I4 ^& R* U" {        current.eraselayer(1);
3 S4 r  d, [" q2 j, j* A; b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, `1 q6 b5 J0 d" _8 }7 x                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( n2 @. J% l8 M. a- o' g                        print"yes";
( H* E8 Y4 X, X                when 32 then
1 F$ l( q( m) m1 F& R. g, ]                        print"no";
5 ]7 B2 X2 N/ N* w+ n8 o1 `, v, z# ]/ Z                else
. x2 [' Y) s' i  n9 \5 Q3 i- @                        print"cancel";
                end;
: X/ s$ ^4 R" o4 e, P$ C* `                eventcontroller.stop;
# A2 e- ?$ A! K        end;
/ N+ O8 X( M8 }* T$ K6 k6 B       
' X0 S% V7 g: t        for i:=1 to number_of_machine loop
# X) j  P6 X+ d7 Z0 q. s        machinename:=sprint("M",i);
, c5 _' i0 S6 O: j        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; }  j8 M: n8 q7 Y                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! [8 U8 ]3 K6 q, D) n& L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
: d  [4 A/ y# k( {5 B: h7 R        end;
        next;
( a4 Z- C7 K7 G1 g0 {       
' A; l* Y) l' t  `  E4 \        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) T6 t4 Z+ d( f  ~$ p$ a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. ]2 q0 `: P& l3 V                then
9 Z, o2 K; l% s7 U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 G( M; T9 `8 g, r' c                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 C9 e# |2 [9 ~! f4 X: P* I$ l  c( s                        activityspace[2,rows]:=activityspace[1,rows];
6 x. `1 F( D, O; ^                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
! J& T: P6 T+ Y                        y_max:=y_max+dy;
6 _  y8 g& q4 S) T                        dx:=0;
                dy:=0;
7 P% ?2 G% U3 N1 b                        --end;
) @5 U/ c8 X0 C- \% B- a                end;
                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
- I: }( O2 `# V% g1 Q: L1 z4 B                        dy:=activityspace[2,rows];
% {8 N: ]+ L7 ^2 C                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 x+ T+ t& ^7 x" v1 J( A; c                ct:=activityspace[2,rows];
2 [9 C, A7 s8 a, W                        activityspace[2,rows]:=activityspace[1,rows];
- C/ C' K( L" r/ R" m7 `  a" u& D                        activityspace[1,rows]:=ct;
                        end;*/
8 `( ]% Y' G2 i+ p        next;
        y_max:=y_max+dy;
) p  ^2 q. g4 I        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);
- q0 R$ a7 Q  f* H2 B$ o, x" \% o        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);
+ v2 H- Q0 k; `+ T! z       
        rows:=0;
( Y6 [; o% R9 f4 A2 E. \  G1 L        lines:=0;
' w% V: q& D' D' h$ T  ~& Z" ?- \        for i:=1 to number_of_machine loop
+ r9 [2 d4 }% D1 }                for j:=1 to number_of_machine loop
+ B8 D- c4 ]0 B% `- S. w/ v                        if j=i then
6 N. Z6 c4 Y0 P& z/ N1 Z; ]- X                                d_from_to_chart[j,i]:=0;
                        else
4 K3 `  O; ]2 F7 M2 a9 ^                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 D8 f. a. F/ \/ V                                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 K9 j+ v7 g: r* S        next;
       
        lines:=0;
        partstable.delete;
5 n! K" x) y; v% I& F  m2 @; b5 G       
5 t4 N5 r1 T9 E2 }1 t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ c/ a/ L2 F* y4 U" @* H                machinesequence[2,i]:=rows;
2 ?0 ~: h" |! T                for j:=1 to number_of_machine loop
1 E7 A1 f& e; p- h$ p0 l( k0 i                        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];
, B+ g# H* J: M1 w8 _0 n1 ~( v5 Y                        partstable[3,lines]:=sprint("parts");
2 c. Q- j" `1 {% `' H3 ~                        partstable[5,lines]:=rows;
) V2 h7 Q) j+ I" C+ P                        partstable[6,lines]:=j;
4 n+ C/ [. f$ m' x+ y1 i! N# Q7 d5 i                end;
6 Y6 S$ y" `% L* K) i  s        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];
* _6 T: j0 ~5 w8 I        machine.exitctrl:=ref(leave);
* u9 a9 H5 W- G0 f8 h" ~       
        bufname:=sprint("BF",rows);
/ G1 X4 M$ X. @5 I/ }* ~+ n        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]);
% G0 w9 T* e' P+ P2 y$ M2 h! K        buf.name:=bufname;
) v/ r, m9 G, S* ^        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
+ U1 M$ J: C# v0 X/ \- Dnext;
$ e; _+ N' ^5 R$ o* m& J1 Xend;