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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
! U6 B. ^6 T# y5 u0 N1 E$ w    i,j,rows,lines:integer;
    machinename,bufname:string;
2 V3 {2 p1 r5 w' K7 O    machine,buf:object;
do
        current.eraselayer(1);
7 \: j2 a& B( O  Q* m8 N2 P6 [       
# p9 e. U9 K" V5 o$ k4 d5 {8 `        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";
2 P' S8 C3 x) g( O& T                when 32 then
                        print"no";
                else
! f$ F! h0 x4 A                        print"cancel";
                end;
' W2 ^) {" M4 E                eventcontroller.stop;
        end;
       
  N$ W( m6 @7 [) b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. h' T& z7 J; \1 E) b                machine.deleteobject;
        end;
5 i1 ^  E' ?4 Q! y) ]        bufname:=sprint("BF",i);
% s% l3 X; g' g0 S3 d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& h" R. Z9 \* x) u1 }0 O/ `. _                buf.deleteobject;
+ q0 E2 _3 m# S: g9 m5 x5 ?* _* d        end;
        next;
       
0 z) D8 W; x# O, V4 F        dx:=0;
  B% L) ~7 }( [; Y2 @) z; F        dy:=0;
        for i:=1 to number_of_machine loop
9 T2 L0 D, j1 H0 d2 m" V) P( u  M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 [- U9 ?7 V* _8 \3 A7 @                --mark:=false;
9 P1 s( y" e0 [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 v7 Z, V8 \. L  \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 u7 K; d) x' j                        and activityspace[1,rows]<(1.05*y_max) then
+ {" [% w7 g8 I* ~                        print activityspace[1,rows],",",activityspace[2,rows];
) I% w2 F  }. A) x: v3 z: O$ Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
" b& o7 G# O+ F5 n$ E- p                        dx:=0;
- @& K4 G' W3 B; i                dy:=0;
6 v' B& [0 a: F7 |- F                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- K. u2 |; Z8 |) |$ `- r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) h$ T! V3 D. w, t5 O                        dy:=activityspace[2,rows];
; a) E" B* c/ U  n) R                end;
+ h. r& @9 z  F6 j* F$ c7 y5 u$ n                dx:=dx+activityspace[1,rows];
0 J6 B" _4 u) }' J3 t  \8 M                /*if mark=true then
8 R) \0 ~& B( p$ k) C7 f: M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 `( U) E1 Q/ w! t5 u; m/ j                        end;*/
        next;
. z0 a1 o2 n( X0 u* d' X! n/ N        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);
7 S, j) D, u( {% u% M; H        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);
8 I, X! v. T/ |% B! \       
# V: G% @7 m/ ^3 c3 q        rows:=0;
        lines:=0;
, G1 i+ z3 K# Z! i        for i:=1 to number_of_machine loop
$ T& v  E: b* n3 ?3 M: }                for j:=1 to number_of_machine loop
* a* U. N% n' B2 e3 I                        if j=i then
! f+ G- _. S7 F; G                                d_from_to_chart[j,i]:=0;
* m  G3 c% f& W- u7 b# b                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, k. q9 [, \1 s- t) r! ?, e. C4 Y2 Y& y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' Y. b% x( O) P& c4 ~% r                                d_from_to_chart[j,i]:=abs(dx-dy);
; X; k+ B1 d7 L' N                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
8 z% _& B. k; B       
. f1 u( P4 B$ t4 \% J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) h7 N9 E$ o7 _: w' J9 B                for j:=1 to number_of_machine loop
3 R) H4 S1 e+ o0 x& A                        if w_from_to_chart[j,rows]>0 then
6 a1 _1 `1 K$ V9 s% ?- _                        lines:=lines+1;
& Q0 e& h) d3 e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 b# a/ R- G: Z- M: H1 {! ^( p: g                        partstable[6,lines]:=j;
& w$ B# K  U6 K- q) l# ^                end;
        next;
6 r6 S' J- X2 A# G" D# c; s        machinename:=sprint("M",rows);
9 ]  ?' q/ f" l        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;
, o% N& ~, ]# o; j        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 S0 c9 \1 x# \* W5 |, B3 D       
2 R6 t  @2 A+ ^! F# o5 @/ A3 M        bufname:=sprint("BF",rows);
( x; q$ s& e1 q% h! M) _        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]);
3 T- `; E& x: c2 T2 l/ Q        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
1 }0 r( L' V; s/ T9 C- H6 w7 D        .materialflow.connector.connect(buf,machine);
# ?- _+ Y5 X1 P) @9 K* b       
: B  ]/ f' Q& e7 v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, q6 R5 t  w6 gdy:=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);
next;
: L% E/ o+ n1 T# X9 s9 B9 Kend;
9 o! u, g+ e+ e/ Q( ]