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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* A4 M6 t' ~+ S) l    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
, H# q2 s% y$ o3 S, Y, c( R& f        current.eraselayer(1);
       
* y$ E6 D* \) ~1 K; u$ p/ b& ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- P: g# h1 U( E% _" X8 O  ?+ [                inspect messagebox("设施数目不对！请核查...,",50,13)
2 p( G: o0 P& K                when 16 then
                        print"yes";
                when 32 then
3 K1 }3 U: D( h                        print"no";
                else
                        print"cancel";
+ ^! {0 f8 L/ T                end;
                eventcontroller.stop;
0 G1 l& V5 Q6 c% p1 p7 _        end;
& t4 n7 D! T* M       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 A2 d. R; y$ [        if existsobject(machinename) then
' Q9 L8 s3 Y( V( K                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) c/ y/ U+ t/ W0 _  N+ A* l2 O: F                buf:=str_to_obj(bufname);
* m7 k; l. }4 a* P5 L  x! u                buf.deleteobject;
        end;
1 d4 E& x# d: J8 n! z. R5 C/ Z+ X        next;
       
        dx:=0;
9 A8 o2 c* ]* f( [        dy:=0;
        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
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  l5 Q- P' f& S/ N# G                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: M! R; w" w1 x" u1 i8 D                        activityspace[2,rows]:=activityspace[1,rows];
$ e8 u! t9 q) i; Q2 ?5 o# V9 J                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. \$ I* U  c0 C" @                        dx:=0;
                dy:=0;
0 F  E- P* d9 ?  {: g, ]+ L0 j                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- e% @/ a6 J6 B5 }4 T                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 z: v# d7 s: J7 h& \                        dy:=activityspace[2,rows];
                end;
: F. i8 W) `  k% _- d                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 k  O# \! J  W& @9 P                ct:=activityspace[2,rows];
: y7 m1 ]: n! w- S5 r4 k3 k3 ^" \                        activityspace[2,rows]:=activityspace[1,rows];
% q# |- K4 O6 o# V4 ~                        activityspace[1,rows]:=ct;
                        end;*/
4 a* y5 s$ o; L" z" }  O. z: H5 J        next;
. p4 R) s4 P4 f: Y) f: x        y_max:=y_max+dy;
& r+ J# V+ s) @8 l% p7 |" 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);
2 @4 r. K% o. c# c7 |        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);
! M5 B) s! R6 E& F# ]! h, W) K* D) Q: @       
5 V% o1 j% k3 E, e" x        rows:=0;
7 ?8 \( s8 a$ o. Q        lines:=0;
        for i:=1 to number_of_machine loop
7 Z: R0 }) e& @9 h! j$ s0 {( h) p# w                for j:=1 to number_of_machine loop
                        if j=i then
/ @4 I1 ^9 V8 I& g- Q" ]# G' ~; G0 i5 k                                d_from_to_chart[j,i]:=0;
                        else
/ h; R: C+ k# v5 m5 J                                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];
- Q% ~) V, E% J% \* @' P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 f; X1 F( W$ V* G) _5 g3 @- o                next;
        next;
$ i4 e6 C5 z6 V5 B6 `" O& h       
4 B% |/ [& k# E1 C, |        lines:=0;
        partstable.delete;
       
8 P+ ?: X5 c2 _5 J/ E1 ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 R# s% q1 R2 ^* X3 F  U                for j:=1 to number_of_machine loop
6 h6 S6 `( k# S7 c$ M4 {                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ b/ d: x; s! S                        partstable[2,lines]:=w_from_to_chart[j,rows];
: p% q  `2 W. \                        partstable[3,lines]:=sprint("parts");
9 O- M; h4 U; o! L. D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 J/ J$ z- X% N2 j0 _4 _4 F                end;
& C( Z& k& [7 |- a$ c        next;
/ G9 s! h7 H- w: G2 S% d        machinename:=sprint("M",rows);
% \! n3 z; m3 F8 b; G  y& p        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;标识符未知
& I* @$ W; X% {1 s        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ y% D/ Q, b+ }2 L  h8 S: e        bufname:=sprint("BF",rows);
2 A& F! N% `) {3 B" Z7 \) t        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;
: I8 s0 A% v6 E8 c        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
7 _" I0 D3 j" O0 b- A        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);
! u& g' U1 c, ^2 e6 Tnext;
end;