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

zooey

is
        mark:boolean;
; {0 g) W- f5 E8 d& e: H        dx,dy,ct:real;
+ l) S$ a1 \: N    i,j,rows,lines:integer;
* f/ N! B5 h* F* ]0 h: R, d. ~    machinename,bufname:string;
    machine,buf:object;
% q/ s: G4 u- @# Y% K/ r6 Edo
        current.eraselayer(1);
# F' n/ x. m. T6 a       
  U) C3 t0 q, S8 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* s. K. [9 P8 `- r                inspect messagebox("设施数目不对！请核查...,",50,13)
3 F  s! }, i! ?                when 16 then
                        print"yes";
                when 32 then
$ j0 \8 h  z+ A- X                        print"no";
                else
                        print"cancel";
( G6 h+ ]& W1 j- _- V  K' C  r& y7 ?4 T                end;
                eventcontroller.stop;
        end;
: k5 V3 C  }9 Q       
0 M# O" X( G$ }& z& c2 g        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ a2 I$ N' e1 m3 {% q) p* W  R                machine.deleteobject;
2 ~! A1 t) B$ P/ _2 m0 U        end;
        bufname:=sprint("BF",i);
& m) r# s& ?# Z% @' X8 Y        if existsobject(bufname) then
3 e# o  r& U7 O+ Z* c1 W3 F0 ~+ P                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 R' L  l4 L1 R* B7 N  r/ Z        end;
        next;
       
3 i! T  u! m/ M- A* v        dx:=0;
5 i* T1 Q- ?5 U4 q7 b4 h" a        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ [* \; e# q# p+ t! h( Y* n# u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 T2 s5 U5 C6 ~! d: b( O- z                then
! F- ~5 _' g, n* S1 T" r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" p; x/ [+ [9 h9 C+ p- C8 b                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  I! p2 N0 e& Y: l- [5 d                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ }( J3 Q# @  t1 |8 Z6 Y* H                        activityspace[1,rows]:=ct;
                        mark:=true;
8 Z. `# {' H, U8 c& C/ J+ @7 G                        else*/
; H! v% ?* V! w4 {! d                        y_max:=y_max+dy;
9 P+ y% a+ x$ w" c2 o6 m                        dx:=0;
/ i0 n& m" C; @2 F3 M& z  I, ?3 U                dy:=0;
                        --end;
                end;
* N0 H8 E8 N' P, L5 D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ j5 F8 |3 u% n0 C, H                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];
                end;
  `; k& Y& o  I6 n                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; t4 K9 ~. i4 w7 s' ^3 d3 M, G                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: q( W6 X, |5 w                        end;*/
        next;
( X2 v1 Y, G1 {        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);
       
% p8 S2 Q. j/ m9 Z5 B        rows:=0;
2 i- S% ?7 U+ n2 b4 j+ r        lines:=0;
        for i:=1 to number_of_machine loop
1 m6 h" O: }" O                for j:=1 to number_of_machine loop
9 S2 e" c7 u% c$ o* _                        if j=i then
. q6 K) V0 T: z0 r                                d_from_to_chart[j,i]:=0;
7 V$ j( x; H! V/ r/ W                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 o/ \0 T, v- V                next;
2 E" x& z: u+ x        next;
0 W7 E( Z8 J% }" C8 F" p       
        lines:=0;
' q; u1 k& e& ~. S3 u* r, l        partstable.delete;
4 A4 B2 D& l6 I, Q$ R       
        for i:=1 to number_of_machine loop
4 W0 i" A7 M3 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ v9 s' c8 f, O' U6 V                        if w_from_to_chart[j,rows]>0 then
) G% I5 w3 X/ H. Y" x( s* u  \                        lines:=lines+1;
& |8 [+ U' W8 P4 E5 E4 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 T4 G  Q, r0 V% I) {% @( b                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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;
0 F  A  c8 M5 a1 \2 H- ^) {        machine.label:=activityspace[0,rows];
! o4 Z4 \8 [& a( T        machine.exitctrl:=ref(leave);
) F4 ?6 a& g( k+ S5 `; \       
3 W1 [) q( b/ i! F" [& K: H- }! F; U        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
1 w' N# c: |* g" M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
5 f- e2 F0 B9 H* Y7 N/ c       
9 d+ ~+ V: s! n8 R) l        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);
$ z- u! G$ C3 x" y3 A5 jnext;
end;
) g  R+ D: S5 V5 g