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

zooey

is
3 [+ y! Q0 q3 `        mark:boolean;
- N- B7 N8 a* v3 l8 T, T' K! J        dx,dy,ct:real;
. {9 v9 ^# b5 p$ {7 H% U2 J4 l- F    i,j,rows,lines:integer;
+ U9 p; p* {& \& y# y& s    machinename,bufname:string;
6 {; R' [* D4 G3 Y' ^+ t    machine,buf:object;
5 c, Y) D0 U+ I' J) s* ]9 ndo
        current.eraselayer(1);
& p) P# Z1 M9 z- W       
        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
4 ^' O3 X0 P- p+ \) ~" |/ P; {                        print"yes";
                when 32 then
+ g. t8 l5 [( u* ^7 r# d9 ^                        print"no";
                else
3 k+ A- d' e5 }6 F7 n                        print"cancel";
3 P9 T) W: M( U0 c' ?; r# S                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. J, ?  ?1 L5 v) q/ s- k# W: [        machinename:=sprint("M",i);
        if existsobject(machinename) then
' F. I, ]) J2 z1 P$ S7 s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
2 c+ c8 K  t, j( s% ]) o! C' h        bufname:=sprint("BF",i);
2 l/ P" Q% m4 X* u( ]4 U        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, ^! s. T5 q# P. V/ P% s2 c                buf.deleteobject;
% [9 Y1 |9 g) }; P        end;
        next;
       
        dx:=0;
! m+ ~% p* B5 ]+ O$ u8 O        dy:=0;
7 e: u5 B0 W1 |1 I' P+ t% @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 R$ {! \" t4 e0 W" A# |7 g6 H5 E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# i- l/ `2 x1 d& j0 r8 ?                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 f# g. ~+ l+ E& s: M# q  f1 E                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. H- G- a: V8 s0 Y3 F0 P                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, g  ]2 W5 U- ^" j7 `( C  b. d                        y_max:=y_max+dy;
* _: s- ]: T# C                        dx:=0;
, n5 ^8 G8 p" ^: `% ?* F+ N                dy:=0;
$ C2 O% g6 \& ~! p                        --end;
( ~# A; Z' n4 ?                end;
# U! h" C+ x! m" W                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;
9 J1 I6 E  c1 O4 B: Z5 S            if activityspace[2,rows]>dy then
9 A( A9 t6 B( W6 C/ l2 [                        dy:=activityspace[2,rows];
                end;
3 L4 j/ z; t1 k; D" W                dx:=dx+activityspace[1,rows];
6 j/ I! O0 Q' E# L! x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% w( i/ u! h8 D                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
" x7 ^4 \  C, P! `5 h8 @$ L        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);
# o) f; P! i0 {* a       
4 _* i, g- q( l7 H+ _! S& K& W# G        rows:=0;
& L2 O+ |) U" Z& r6 u, z0 ]1 |1 f        lines:=0;
1 |+ o5 Q! R; F) y6 z( x9 \' X8 b        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* |" b0 v9 S5 T3 H5 {/ c! Q                                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];
5 N. [0 D3 M4 Q3 h2 ^                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  C6 `! B. m6 x: g                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
+ S) ]' z# u  h                next;
5 [6 C* M1 }3 o3 I' |        next;
8 f. R1 \& Z* I$ j* \4 ~, g3 i! W       
        lines:=0;
8 e  q; |  x; b/ L4 \        partstable.delete;
       
, d- p6 B. C- x# ~) D6 K        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  A: I: I8 ?% l: t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 |. @/ u( ]; J" w1 ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 i" L- G8 N1 k+ t  _6 ^2 H  _                        partstable[3,lines]:=sprint("parts");
( J. O  X" A( F6 ?9 U( ~                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 ]0 k% g; a0 J: j+ N% y' |; h        next;
% ]4 B4 E5 D( l* G7 X; n9 w        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]);
( @: b" Y( @/ s* o  z7 h  I        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" i6 H. D6 y- _- d/ C0 v" T4 `  C        machine.exitctrl:=ref(leave);
  s9 Y% ~7 l8 U& l/ B$ K+ @4 x1 ]& d       
, w* W$ {4 ?( S2 E0 p        bufname:=sprint("BF",rows);
, Z/ Q0 V- _  s# X* C! Q6 @        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]);
9 O; ]. ~+ [" y/ k        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
1 F% X' y. W6 U  b; R* a5 L        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 ^8 N: }1 i! c% j3 h; ~' Bdy:=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;
0 _! p: u3 ]$ w/ ?, @/ b8 Uend;