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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
) l0 j1 w5 q# r7 F    machine,buf:object;
/ L& v/ U* ~3 |1 {# y1 A; qdo
        current.eraselayer(1);
0 i4 n8 l* s- n+ }( u( n4 r       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* ~) |  B5 c. {2 J                inspect messagebox("设施数目不对！请核查...,",50,13)
9 C  G7 e: p# d- F/ b                when 16 then
                        print"yes";
9 [6 f4 G9 t" i" Y4 X                when 32 then
                        print"no";
3 s3 ?3 ^0 V& i' d0 |                else
                        print"cancel";
                end;
- T+ p3 l7 P1 v8 y% [+ }1 L8 Y! h' O                eventcontroller.stop;
/ J* n; A. ?% u  ?        end;
       
  c$ L. y9 C0 h9 i+ X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, A# P7 d5 ^8 L        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ T4 Z$ C. @$ a0 Z3 B7 `+ W% s                machine.deleteobject;
1 B/ N9 W# }5 b5 W3 g1 f- D        end;
/ t+ D5 R: o3 T6 ]+ ?* z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 F+ G" }3 F- `0 M                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
# w6 {' ]# F0 Q: O3 b       
7 k, v. t; Z, x+ h$ `7 p        dx:=0;
" ?3 X0 a" O) \, f. ~        dy:=0;
9 N* \" [% d' z3 K5 R        for i:=1 to number_of_machine loop
$ m5 \$ ?+ H+ Z* v- V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) c# p$ L& X5 t8 `# h$ C( f                --mark:=false;
) Y+ t" W% w4 y. ?8 c/ w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ o. K& s9 F3 N3 t8 i- C8 _                then
$ R5 p' A  e: N6 T; y) e* n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. ?/ k$ Z5 L2 L6 p9 T: V                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
( L$ F% U1 F2 w                        else*/
( ]3 m- S. l0 H! m) [" l                        y_max:=y_max+dy;
% Y- I& W% l. g# T8 @5 r& e                        dx:=0;
                dy:=0;
                        --end;
                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;
) d" l5 T/ t0 P+ e: y9 N: _            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
& Z0 S5 n, x* X5 `- a5 k3 l8 K                /*if mark=true then
                ct:=activityspace[2,rows];
( w) o) Z5 p6 j# z3 G' v                        activityspace[2,rows]:=activityspace[1,rows];
/ T) h0 x3 R* q2 }; u                        activityspace[1,rows]:=ct;
: [; G8 C6 X3 s. @                        end;*/
4 R! k. a* Z5 n: S, R9 `        next;
4 G# I3 [! R5 k: Z) m7 x, n        y_max:=y_max+dy;
2 k! s/ K  `, \1 E- h0 ?6 c$ X( w        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);
  ^9 P9 g; G; Y* p2 ^9 R8 k        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);
       
        rows:=0;
        lines:=0;
1 T, ^+ h& {. _  c        for i:=1 to number_of_machine loop
+ j* v+ b; K7 t1 j& J2 f                for j:=1 to number_of_machine loop
                        if j=i then
3 z3 _3 m% v# d3 D5 [$ U& Z7 U' u: @                                d_from_to_chart[j,i]:=0;
. |( }( F% U6 q; m9 ]' w. e3 t& p                        else
1 u% {2 \% b8 ~0 I5 }                                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];
- W' K1 }& @+ r# H. ^; p$ `/ u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
/ H) R) Q& v1 J& D& Q7 t       
: L& T) M4 \% j) `        lines:=0;
4 U, `" k$ I4 [2 Z4 k  c        partstable.delete;
       
+ F' u0 g" A: j6 {/ |2 ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 ]7 v; A6 C5 [: j; Y6 ?) R  F  [7 z                        if w_from_to_chart[j,rows]>0 then
) {7 K+ m% R+ {, g8 B                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 M6 U, p' d# m. U: Z0 h. G                        partstable[5,lines]:=rows;
: y6 X; O- t) o1 ?) u5 ?7 Y7 X/ f' @                        partstable[6,lines]:=j;
8 P* R8 d1 r2 W, F; ~5 a2 y3 Q9 W                end;
        next;
5 _5 D; J  v. }, h/ Z        machinename:=sprint("M",rows);
# |, ?. [+ x4 Y) n1 }' ?' K- V% {1 R        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]);
: C0 u* G/ p2 V' L; {* r" C! r8 M. v        machine.name:=machinename;标识符未知
        machine.proctime:=5;
; Z6 Z! o1 j6 n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) f% {* }! P  f* x. M       
! F# O: ]+ |/ 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;
; Y3 ]$ {5 y" d        buf.proctime:=0;
$ r5 Q) H& k& R, [# o  o$ c2 e        .materialflow.connector.connect(buf,machine);
4 [6 k: A" d+ ~9 ]% L$ z& @       
9 J" M; K0 F; ~# J! {7 e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# u2 [7 m  ^9 G6 U& k6 D3 c1 Z$ 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);
/ W/ E* }- ], T; @9 Mnext;
! h/ G, M# t4 R, v- y# Fend;