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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" J; l$ L0 N& b( M/ S' O# C    i,j,rows,lines:integer;
( l$ @3 W' {8 |. g' F* `    machinename,bufname:string;
    machine,buf:object;
. e( x+ B* ^: l3 Ddo
        current.eraselayer(1);
; m0 H0 s6 e; d3 @$ ]) q       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) V3 D: {  b- t# x                inspect messagebox("设施数目不对！请核查...,",50,13)
8 Y! M" _- D; w6 F* L) ~                when 16 then
8 [0 p7 i" l: }/ h; X                        print"yes";
                when 32 then
4 x' x7 n, e8 P: G8 U+ x- W                        print"no";
+ y% B3 y. y6 F                else
                        print"cancel";
$ t4 c: c7 m5 y0 F# `$ _) `; h* z                end;
                eventcontroller.stop;
        end;
       
# g  \* B: u! J        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 @! w7 x! g* u/ C0 G6 _8 n5 l        if existsobject(machinename) then
$ I/ ?% W" Q" d: e/ e( \                machine:=str_to_obj(machinename);
                machine.deleteobject;
! i- R6 z: v6 w: ^        end;
+ b9 }9 x$ b: _- D/ Y        bufname:=sprint("BF",i);
  v; c0 n' s8 p) w( i        if existsobject(bufname) then
/ O" N) r- d7 e& Q6 X                buf:=str_to_obj(bufname);
                buf.deleteobject;
6 R" d* e: v- c        end;
* ]& q5 p1 R& @/ z( J$ `+ A" }$ W        next;
       
        dx:=0;
        dy:=0;
/ ]1 u+ w+ C* L8 c/ i8 T+ ^6 X- u2 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- v1 B2 b9 ?1 V0 A! v' t4 q, T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 _0 H/ H) n6 ]& L+ u                then
' |  p1 \1 }; O' C" j0 {) h3 [! h! Q& [1 K5 K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 }9 D) f% m7 n                        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;
+ a9 M% S4 s+ r# N$ j8 `                        mark:=true;
' ^+ @# ?3 g( K; v                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% _" a8 w0 l2 B* X+ L0 D                dy:=0;
3 t/ n' S' D. Y& \4 |  S( a# N                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, |) H' }. O- t; @" z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. P1 C, U- G, K; v+ ?+ {9 Y                ct:=activityspace[2,rows];
; J, l  J3 p# D! @                        activityspace[2,rows]:=activityspace[1,rows];
: y* n+ l0 p2 W3 y' A( q# J                        activityspace[1,rows]:=ct;
- Y* q8 m* H& L) j. P+ E, p                        end;*/
1 [1 z, u7 ^! b+ L        next;
# S' B6 Q, F4 R- t7 h) E, m        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);
9 C3 @! e& r& a        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;
+ p0 z) d6 W# a- a' G. ~' i        lines:=0;
; D9 B0 a0 w! d! {  l; j. H        for i:=1 to number_of_machine loop
+ a" G% O5 W1 H, Q; T5 n$ {; k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) w7 }" M$ H$ H9 c' o                        else
1 P& t3 u) v3 V                                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];
3 {  S# I) v5 B/ S5 j1 A# k' d3 Q( T                                d_from_to_chart[j,i]:=abs(dx-dy);
, d5 Y/ U4 o" M- }! N8 M                        end;
9 I. U" Q, \0 E. t                next;
9 |6 s% J& r5 X* I8 ?        next;
- A5 L& ?, i. c( ^. j3 w       
        lines:=0;
* S, N/ k+ L  o% k. Y& L        partstable.delete;
7 S9 t7 }" u' _0 p       
        for i:=1 to number_of_machine loop
) M0 E) D+ }1 F3 B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 ?0 D* r4 C1 L! ~. C                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  B3 o7 ?- ^, x0 E& H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 H" i0 [' ^+ |! L# r1 ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 N- N1 }* s3 L7 e                        partstable[3,lines]:=sprint("parts");
* l5 a/ v) u; Z; L) J9 R                        partstable[5,lines]:=rows;
: j* M- a, L1 E6 @* r4 v7 M" \                        partstable[6,lines]:=j;
                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]);
! D; @2 l: ?$ N8 H4 B        machine.name:=machinename;标识符未知
        machine.proctime:=5;
& y( C  d3 B! q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
( Z0 I, X+ x! K5 }  ^, ?7 v2 _        buf.capacity:=5000;
- L% ^4 ~* i7 Q, L3 ?        buf.proctime:=0;
, |# ~3 E1 g) n* R. X$ L! b7 y        .materialflow.connector.connect(buf,machine);
       
& f' X) ^/ n+ W( x        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;
6 t: c. N; O+ d8 y5 H& ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" q: Z7 R+ Y! V( G; Q4 B( j8 K+ }next;
end;