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

zooey

is
        mark:boolean;
) ~  R& v" N2 Z% W, V- u: \8 V; Z        dx,dy,ct:real;
    i,j,rows,lines:integer;
- X: m+ I5 C2 @& H4 H/ v) y    machinename,bufname:string;
9 ~* X: M4 A. g" z  W+ N1 |    machine,buf:object;
$ `7 ]4 z* n/ @) wdo
" D4 F& f! w) Z' K' ]: s) z% W        current.eraselayer(1);
* ]2 B. G+ x: R: E       
8 |9 ~: @+ D: C% r; W/ |        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  j" p; |# m6 Z. a/ s                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 W; v8 ^$ b) v5 o9 |3 u                        print"no";
6 B- M$ J5 M- s6 V- f1 n% \                else
                        print"cancel";
% H' q7 n2 B  g# y                end;
                eventcontroller.stop;
        end;
       
* q. K$ K7 x$ z5 r) }+ i' Q7 T        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 m; T9 [8 W* R) q; T' s8 G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! H5 h; `: F( n2 l7 @6 P8 ?                machine.deleteobject;
- R. H" d0 b# V$ T        end;
        bufname:=sprint("BF",i);
( Y( S3 X! a! C- y. b. \$ H        if existsobject(bufname) then
' Z, e. z. V& r: l/ K. _                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 G7 B: q4 W7 D7 c- Q, R        next;
       
; g! N, u$ Q+ w' I/ s4 S        dx:=0;
9 M+ L7 w9 J7 D- X8 T        dy:=0;
! N7 P9 S% G) x/ s5 M        for i:=1 to number_of_machine loop
! u+ j! S: }& j) g, C1 }4 I8 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* `* |1 J: F6 R# N0 p8 p- K" j                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* }' u: q3 B1 B, ~' ~0 D' y0 p. n                        and activityspace[1,rows]<(1.05*y_max) then
) X5 g# P: b* z4 |0 c                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% U" t; m" s6 S3 T  s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
3 P, ]; N# ^6 e/ x$ N                        else*/
& b: b4 z0 h# J* ^                        y_max:=y_max+dy;
                        dx:=0;
! M8 y. [4 g# _0 J( S, H0 p. I" P: ^                dy:=0;
' R( f6 E7 M# U) {6 G                        --end;
- c& r+ U3 w/ j3 H2 m" i: `                end;
6 i4 B6 r' J: G' o1 k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- a5 _1 p1 [: V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: C4 G- }% |- Q; c8 M( @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  D* P/ E' s# y                end;
                dx:=dx+activityspace[1,rows];
% \$ e. Q) f2 t! G) H& O                /*if mark=true then
                ct:=activityspace[2,rows];
5 l' l( S3 i) I7 U% r  J* j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
& b4 x, s( X& W0 _4 B        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);
/ P2 R, U* l. Z: W8 c7 F        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;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 T1 o0 m7 @: `) Y; k+ F& l6 p) ~                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 ?$ r; u. f# ^( c. q                        else
/ G( Q& Q! b7 m, B+ R  B9 {                                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);
& B! `0 T) }$ p5 z! T' A                        end;
6 J# j7 D3 O' O+ ^3 c2 x; l                next;
        next;
       
        lines:=0;
        partstable.delete;
       
9 k3 ^. A' w7 c1 \8 Q' D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' F& s3 @! n( b8 S1 y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ E$ b" y$ p8 B! x+ ~! g: P                        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;
% @# c% x: C* Y9 K& Q! G7 _                        partstable[6,lines]:=j;
& b. E* M5 t9 O9 n5 N) @3 M0 g, g                end;
$ d2 y5 T. ], j) E$ G5 W! t8 x4 D        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;标识符未知
7 r2 Z& H, R6 v6 Z        machine.proctime:=5;
/ T, \& {  R* W5 g: t2 ^- D" W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  n$ k" B/ Y; m# h" h$ a" l  \       
% x! Z2 P- `/ M- ^8 I4 t$ X        bufname:=sprint("BF",rows);
5 s  U* M9 M5 x  {! N        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;
8 E+ Q3 x3 v7 u# s) ~: s8 I        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
) q/ g# j/ H. @) y3 i7 P7 T        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 |( m9 ]- g/ z7 wdy:=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;
end;