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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; d6 [3 k3 e% m. \* J& S+ j+ b% `    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
6 d6 e" p" z  E# [9 e+ @* J1 G" C       
3 h1 U) }! ]) e: f5 l% u        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
3 P/ j4 Q: b- x1 ?8 H                        print"yes";
                when 32 then
4 T5 ?4 z! k0 n& H! t( v                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
9 M' Y. b2 K9 w: X4 {        end;
       
        for i:=1 to number_of_machine loop
- Q1 ?9 j" L' {5 B6 N2 Z        machinename:=sprint("M",i);
. @$ n% y. e: q; ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; g: N  K% m& @; X        bufname:=sprint("BF",i);
7 W0 g6 ?, r8 \# D0 b: }0 ]7 `1 R8 _        if existsobject(bufname) then
: C# r. U$ i2 q/ M* w7 P5 T                buf:=str_to_obj(bufname);
9 A- c" h( x" f                buf.deleteobject;
0 m2 S& u$ y& f- S        end;
. N# k0 v7 h! X& [        next;
* d6 s, n6 S5 q$ z5 y* I       
5 d$ X; M: o+ Z+ K        dx:=0;
        dy:=0;
& I% ~+ Z+ s! j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) K8 `) J+ U  |9 R3 |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 G  {/ R6 ~, r5 s: J                        and activityspace[1,rows]<(1.05*y_max) then
2 g( M9 l# E: d( Q( M% }' f                        print activityspace[1,rows],",",activityspace[2,rows];
; P' E. J" r) k/ ~% p                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
+ R: w% J4 y# B% n                end;
7 Y+ }+ S5 S9 }3 p% ^& Z) }                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;
4 C9 [" K, x( F, U) T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
" _6 `1 h- X& \                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 F: ?7 ?0 p: \( X7 D                ct:=activityspace[2,rows];
8 c2 J5 J; }$ G3 H$ f7 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 z. H4 T* Q; i3 C, z$ P                        end;*/
9 U' |8 @) `& t: E# ~. ?$ Y        next;
        y_max:=y_max+dy;
9 b3 a9 C/ r# w' P1 o        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);
: F7 w, o8 i7 b5 K" ^$ N$ Z        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);
       
* j( L, O" d. c0 [' H        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
$ J& E. i' w* A! ?                for j:=1 to number_of_machine loop
                        if j=i then
& _9 O* p5 A! t  @, ?( ~) h4 _                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 k& l; z: Z9 @) H! R' U: p; Q                                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);
$ p% V# R" \; Y2 r% r                        end;
                next;
- I+ m% [# T) f% x        next;
9 D" S# Y0 u3 O; |2 H/ w2 }       
  O- p; t% X3 B9 s        lines:=0;
( o& v, U. V; L. r; x6 S9 H7 v1 l        partstable.delete;
       
        for i:=1 to number_of_machine loop
4 t3 `* n" \$ ^) P3 u5 i4 n0 q/ x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 N) w3 b0 Q! R1 z4 g4 H1 `8 C                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! L0 ?7 c- z# M& o                        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");
                        partstable[5,lines]:=rows;
; ^( B6 n' w( H. w4 E                        partstable[6,lines]:=j;
- ?; G! I9 W8 ~* U                end;
9 j9 g: y- V2 S        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]);
3 h- \8 m0 T! |! Q' D) T        machine.name:=machinename;标识符未知
6 d  b' k4 I# x, Y        machine.proctime:=5;
  h/ B9 O2 u8 S3 f  ^        machine.label:=activityspace[0,rows];
0 s2 m2 a! }2 J6 M1 u        machine.exitctrl:=ref(leave);
$ h/ H4 \; ]# f) X) m. L       
" r  ?1 K8 `# d" L) l  ^% ]        bufname:=sprint("BF",rows);
9 T& B; m: m6 }0 z( ?$ s        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]);
* \! z5 r- p: v5 g0 e" ~% ~4 r1 G        buf.name:=bufname;
        buf.capacity:=5000;
$ _3 z/ m, O) N5 m7 b        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;
+ @3 d4 D) I7 y3 Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& S* K' k# f8 B5 n! A& U- Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
. a& r/ z, N$ v* D0 }' r. Z