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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 S& R8 D# S+ _7 N    i,j,rows,lines:integer;
% V8 ^, X1 X4 Q5 \    machinename,bufname:string;
    machine,buf:object;
4 D) B+ I1 p, z  m2 }; a: v1 Y: hdo
        current.eraselayer(1);
0 s% @( p+ i! {5 F7 m* q6 P       
4 x( W$ L( f4 k# e8 p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% j! ?2 `# y5 g( O                inspect messagebox("设施数目不对！请核查...,",50,13)
, |& X6 w2 ?8 h% ^( W; l                when 16 then
- ?0 Z7 f$ j% B* O1 M                        print"yes";
. r' l, q- _: i6 H# ^                when 32 then
" ]% A( g6 v; ^9 m( F* t! a                        print"no";
                else
                        print"cancel";
                end;
( O; i8 R- Z8 i$ u: G                eventcontroller.stop;
        end;
       
% b! \, x0 U2 }+ h        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 j' d/ y1 u& \) j6 a* x                machine:=str_to_obj(machinename);
( e  K7 z8 M; k                machine.deleteobject;
        end;
! P" D# d: X7 N& e0 c        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 H! H) J, b- I  N                buf:=str_to_obj(bufname);
2 S; R0 k" N2 R# @                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
0 C+ \& m( j4 Q* R" A; S5 ]3 F  |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 f, [- e4 C: W0 {! G5 Q                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 [1 I8 e! A  M- j5 Q4 v% g                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) K; _0 l# m% d  |5 A7 P( Q9 @                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! M) J7 z$ E2 L' D; w% n$ Y                        activityspace[2,rows]:=activityspace[1,rows];
- S) t. {+ V6 y0 j2 M                        activityspace[1,rows]:=ct;
; e' N( K1 K( @2 v  c0 M                        mark:=true;
                        else*/
9 Y+ ~  V9 o8 l& [6 }) z5 u7 Q                        y_max:=y_max+dy;
                        dx:=0;
' D" L4 Q% z9 E$ b                dy:=0;
6 W% c; Q+ a8 a( P' v                        --end;
9 Y$ l% n* G1 X- V3 s                end;
8 J1 Z0 P  u, a. N* l" e                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;
0 X0 @& G& ?* U6 c% \5 A; P2 K            if activityspace[2,rows]>dy then
$ A' k3 H6 l8 `, d( z                        dy:=activityspace[2,rows];
                end;
( \) O8 `8 v1 g+ _2 k; g4 K, q& q" h- M                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& S' e1 i+ T9 y* o                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
8 y& G+ }! \6 q- L% `' l/ L        next;
" C7 A! J1 J, i5 l; f9 g4 E7 r        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);
4 z4 n  d5 @% l; R* i- j       
6 v9 P& w" M5 T. q% ~! j- m        rows:=0;
        lines:=0;
# c/ n( ~+ W( I0 `1 o: b* }        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 S6 P1 i% R& `# a- z* P$ V                                d_from_to_chart[j,i]:=0;
4 D# J/ x9 }8 T: S( o                        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];
, l) P% W6 g( a6 u! p) o0 J0 @                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
. J* x! z* z/ o; X$ U) A                next;
" N! U0 o4 o! I" V1 p$ `4 n- E* D        next;
5 K5 d! l- M6 L9 V7 X       
7 h. n' E3 ^8 R! o) s4 J        lines:=0;
0 v/ o) {- N0 F! v        partstable.delete;
       
7 L! K. K1 N: a/ ]7 z: j4 |0 l        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
: i9 b/ ]$ M: X; [; W+ G                        if w_from_to_chart[j,rows]>0 then
6 e$ l) T- _' J5 p7 |; N0 l% D" G                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ q$ f; |. p6 _. B$ f- j1 h$ L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' g* Z( B; ]; E0 E9 _8 V                        partstable[6,lines]:=j;
6 H7 M& X  `' D1 Z                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;
. g; i1 u7 M& X$ s% T        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( f1 i% s9 H& l; x) M2 s$ X       
% K# ^5 y! ?! B. u1 W        bufname:=sprint("BF",rows);
! `% }& A8 e1 y# G+ `        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]);
( K9 P7 M8 L3 s. u. O        buf.name:=bufname;
4 m) ^  B0 y+ x; l        buf.capacity:=5000;
1 ~7 L( j$ L) X* {% j5 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
8 ]1 B1 A* i! F5 X$ g; Jnext;
+ f. _( r% {, @  b6 bend;
; W- E8 M' h/ X8 X2 U