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

zooey

is
        mark:boolean;
" D& V1 }9 F! ?3 {* s3 S        dx,dy,ct:real;
2 F3 Z) m+ z; Y5 D    i,j,rows,lines:integer;
+ F! U1 A! o3 S9 r* ^/ c2 Y" ^! T    machinename,bufname:string;
; C- L# Y: p, B# \; u    machine,buf:object;
do
  q$ h+ [9 s# _- @/ @        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: z! m) z/ X" ^# K& R                inspect messagebox("设施数目不对！请核查...,",50,13)
) [3 E! F. h  E" T                when 16 then
5 z3 y7 D) ^5 J" Y                        print"yes";
4 R- [! d0 B+ ~/ B8 o# h4 K                when 32 then
- G0 r! F( E& B5 i                        print"no";
8 u8 V1 l9 m! O. d- K! I; g                else
! }9 J# e* o' C, B                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
1 Q6 i8 _# I5 i, G8 X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ F+ F( Q, [- J) E/ ^0 m        if existsobject(machinename) then
1 N. z6 V; ~5 ]                machine:=str_to_obj(machinename);
! I0 ]4 B: }2 {! l: V1 N# ]                machine.deleteobject;
        end;
" ]3 R. ]7 X! G) B. e' ]        bufname:=sprint("BF",i);
; A' l! D8 q* Z$ k7 Y& |" n! ~0 j        if existsobject(bufname) then
- ^/ g2 I  C5 k8 t3 L                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
1 h' V* p& a* }. Q        dx:=0;
$ b6 U8 N6 t: I8 ?( J        dy:=0;
        for i:=1 to number_of_machine loop
1 R5 F# n# m* `# U: [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( k$ p: J0 x' u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& ?/ v1 J) z( t% ?0 ?6 \' {                then
+ }0 r# M0 c2 Z2 l* W                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 ^5 ]) a- `- @9 E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 n' V% c, C$ _) {                        activityspace[2,rows]:=activityspace[1,rows];
, l8 C, C5 h* D! s, f$ x                        activityspace[1,rows]:=ct;
                        mark:=true;
9 I: S( b' B& K! k/ s$ n/ e                        else*/
9 l/ L4 Z8 Z! @8 V                        y_max:=y_max+dy;
                        dx:=0;
7 K1 o3 f% t9 D. w2 J/ P                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;
            if activityspace[2,rows]>dy then
8 Z4 k0 S/ r# d! }' {6 f                        dy:=activityspace[2,rows];
$ J8 L1 [% d- ~) X, E4 N* \                end;
                dx:=dx+activityspace[1,rows];
+ K, G$ L8 a+ B                /*if mark=true then
6 B: k6 r$ C! i9 ~" k* p2 T  T                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( U7 F, R( s  c                        end;*/
        next;
        y_max:=y_max+dy;
' j. p$ [; L: x  j        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);
       
7 X2 |6 m' p4 C8 L9 l6 K" z- g        rows:=0;
, h" b! z+ |9 Y        lines:=0;
        for i:=1 to number_of_machine loop
5 B( D4 f' R7 E5 v! A7 V                for j:=1 to number_of_machine loop
# d6 C9 l0 e5 G& N1 C3 v% u! u                        if j=i then
( I0 z8 R4 I9 l$ k: ^% m9 p( L                                d_from_to_chart[j,i]:=0;
/ w: f0 [* C$ p% q. y: D$ j                        else
" Y9 A+ @3 O: I1 I% N8 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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
9 m# L9 r: @# ?        lines:=0;
        partstable.delete;
5 g" G+ _- E: H7 t5 P8 G       
$ C! }+ Z" H1 r. a0 |        for i:=1 to number_of_machine loop
4 I( W4 m. H5 R% P; K3 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 b( D1 m5 T& ]! {) R# E8 v                machinesequence[2,i]:=rows;
7 C8 r: q9 ^1 j- K. }- O+ t1 G                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' @6 o! x! ~& w7 [% o8 k& ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- D" r: D9 `/ T# C7 R& u; \4 E                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* {" _' L( [8 W. N$ H( y+ \                end;
$ p8 U0 c; N% K  M- R. {        next;
) K& C7 z( F# ~# _" N* q) u        machinename:=sprint("M",rows);
+ t* u' V  E6 p8 N+ b8 @" X        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]);
0 V# ~" f3 a' y5 _        machine.name:=machinename;标识符未知
$ H7 S# ?4 u4 `; m% u/ w        machine.proctime:=5;
9 a8 v/ T3 J! z* z9 {        machine.label:=activityspace[0,rows];
+ l0 {% O& U3 i        machine.exitctrl:=ref(leave);
       
" Y! A+ o9 A1 Y) A! g) p3 M  {        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]);
% J0 N) w3 }9 T* R        buf.name:=bufname;
$ {8 G5 E* N# k6 c2 E        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 p8 _! u% t4 Z( ]7 Z8 P       
        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;
; K) ?) \+ y( Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
  n$ i4 Z6 W9 `8 X" r; qnext;
end;