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

zooey

is
        mark:boolean;
& w3 u2 z) G2 S& b/ F        dx,dy,ct:real;
    i,j,rows,lines:integer;
* i" N1 k4 B! `; ]' J  @    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
- A; n4 V2 o$ X9 m5 H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ l2 i; E* W; |1 Q! c9 q) b  ?, T. ]                when 16 then
                        print"yes";
                when 32 then
% G9 b0 m" M- [! C  h                        print"no";
                else
, u: I! p9 Z$ l- |0 Q% n                        print"cancel";
8 e5 W* \# N( |, p6 A% \/ P  j                end;
; v+ o. J" w3 @                eventcontroller.stop;
: x6 e7 J' y, J, b; R' K6 [& Y        end;
4 K7 H2 D- J2 r4 i       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: m! ]7 V: [6 S                machine.deleteobject;
9 T6 i( X& i* K$ k$ Q        end;
, S" d" F; K- M& i- ]5 p        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# D& d2 m& G. H! x$ A/ A. w5 Y                buf:=str_to_obj(bufname);
6 I1 Z  I1 u/ D; n                buf.deleteobject;
        end;
        next;
       
3 L* K  s) ~% N9 E" p        dx:=0;
        dy:=0;
# P# ?. ~! }/ F2 ]3 [3 {: }' \5 A  n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 i- D6 }" V' Z, w7 P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& T( u! b7 R2 U  O4 A0 Z- T4 o7 [                then
+ e. O0 v* U+ p  C8 D; V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: W% t& P2 U- c7 F0 a! y' v+ R                        and activityspace[1,rows]<(1.05*y_max) then
- @! w, m: o8 F                        print activityspace[1,rows],",",activityspace[2,rows];
: O/ A- {! W4 X                        ct:=activityspace[2,rows];
) b: }. E, b# C* X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) X  }6 N- P. c% l$ S: X                        else*/
1 G2 N' o) |1 r1 R9 X                        y_max:=y_max+dy;
6 G( b( h9 n; Q7 T                        dx:=0;
                dy:=0;
) y( n, j2 K: Z6 F! a' Z                        --end;
  e0 `, B/ K* {5 p; z* m2 R2 j) j7 r                end;
* j' F  Z* ~# B1 }. V  K% N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& H3 W8 p8 l3 R4 g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 W8 d2 i3 B$ d            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 I% a# h4 f9 b9 u! O9 ^; X                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* n' B  c6 n  f* @/ b9 }                        activityspace[1,rows]:=ct;
" ]4 S& G1 x' k                        end;*/
& k$ j  {5 a- Z+ a% r        next;
& O4 p$ x- G* I. S# h- g- J) r        y_max:=y_max+dy;
7 Z2 @5 t  M8 u* G3 o$ n        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);
) N0 m( j1 w6 ?) j- |% i       
; Q0 V3 B1 R+ L0 \1 x% Z        rows:=0;
8 X/ s# O  M1 j7 A/ @% q1 v1 J        lines:=0;
        for i:=1 to number_of_machine loop
$ z! |$ \5 w9 O                for j:=1 to number_of_machine loop
7 i) @/ [5 \+ i& b0 q0 J' h2 n                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. c4 W7 G" l$ |6 x) b. t1 p                                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;
                next;
        next;
& k" H) a3 s1 v1 }& w1 `* G6 ~       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) S' i( U4 [+ R1 ]- n7 L                for j:=1 to number_of_machine loop
. a+ c' W# X4 N5 f4 j                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 i1 U$ h+ c5 u' u! S$ ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
) l) V. Y8 d+ ^& k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  n2 x8 b# x9 U                end;
        next;
( \, C5 y0 `: ?& _4 D4 H        machinename:=sprint("M",rows);
1 l% u7 B3 s5 \0 Z, k' i, u, l! V. M        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]);
6 A0 H( B# e6 x: @9 f7 a; E        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 B9 o! R# C8 X: {( e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ |6 Q2 ~* V4 o& w" S       
        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]);
0 W$ X& ?4 L, b( m+ p7 e        buf.name:=bufname;
        buf.capacity:=5000;
- L/ V3 t% B! ]5 U5 C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 S. C7 b( ^* L0 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);
% [+ d; p9 j) I5 e8 P3 cnext;
end;