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

zooey

is
$ V7 Z, I, C) Y( G- ?9 ~. T* B        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
, b2 v$ D" x' |% J7 p3 ~" y0 v: q- z7 Rdo
        current.eraselayer(1);
( n1 V6 ?+ a, t* m0 v- ]1 b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ o" e4 I4 ~8 g- s! E                inspect messagebox("设施数目不对！请核查...,",50,13)
! |1 J9 [' \6 M  ]  c                when 16 then
' F9 ]; _9 L# u4 v+ g# f                        print"yes";
                when 32 then
                        print"no";
                else
" C4 X; f" u1 S; Q0 w5 Z                        print"cancel";
8 s0 A0 c) X; K1 c                end;
                eventcontroller.stop;
6 Y3 r* X% l6 N6 n7 l        end;
' @: Z2 ?# p0 t       
9 D: A) I, D( Z; {% E. H        for i:=1 to number_of_machine loop
' r  Y, I7 r! B  ^% L        machinename:=sprint("M",i);
' f* N% z- O# R( p' ?8 W! K( S        if existsobject(machinename) then
* P2 F, W$ O$ O5 P! f1 U                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ z9 T3 J" C: r! g, @/ y, z        end;
/ i# u9 b9 l6 N  w! ?: F2 G: L        bufname:=sprint("BF",i);
' u9 {# K+ d7 u0 @        if existsobject(bufname) then
/ _. e. W4 {, B                buf:=str_to_obj(bufname);
- n# f2 j5 v  ~4 }7 z2 P! a9 U                buf.deleteobject;
/ Z' C) X/ g) ?9 U6 d        end;
5 x$ w5 y2 x2 }, A) A! w7 m        next;
       
( `) C1 a; @* }# \        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: a) g9 t2 o$ s                --mark:=false;
/ o4 P. c, U4 i1 ?9 S; C6 c& R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 D( S/ V7 e/ W4 J2 s; @                then
4 e2 s+ G$ |- v+ V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 }6 a( t$ a- p6 C6 v0 [7 S                        and activityspace[1,rows]<(1.05*y_max) then
" I2 A/ a9 `1 S" Z# f                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ |' d; i* f$ D5 u! J" a9 q                        activityspace[1,rows]:=ct;
                        mark:=true;
* V. M4 Y+ t3 R% r; r                        else*/
! {! F! e1 m1 }                        y_max:=y_max+dy;
" J. I" e" F8 _( \+ ?                        dx:=0;
                dy:=0;
( c. y' J$ [5 b( m4 o9 k3 v- R8 |                        --end;
: N4 _/ O& Z: d; H2 c- k" b" x$ l                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;
+ w2 c9 C8 S/ y8 a9 |4 T1 i( V# L            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; A7 t) Y+ ?+ t; j8 \- U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& X% ], O/ j8 ^/ X4 r6 X                        end;*/
; d( b1 O/ |4 p6 X, h4 k) |        next;
        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);
        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);
; @5 _! Z/ k% Y" l       
  Z: G. ]7 |/ i( v- v; y- J        rows:=0;
        lines:=0;
- P; _2 _' }5 s" T* I2 W        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 o- n  @' `+ D6 Z( a; N% ~                                d_from_to_chart[j,i]:=0;
                        else
7 ^1 ?2 ?/ l& W/ r! @( A" ]                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  t( a4 @* Z: r7 A8 ]0 o1 _" Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ S% T: R( k( T  m1 q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
$ l! [) q) o* X0 |, l2 W       
% c7 O/ H% |) `# c        lines:=0;
1 C# p' M7 Z) ]        partstable.delete;
% y, l5 ^* {  X       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 i  W0 ~9 M  J0 m# j9 j                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 J* v" z9 g+ P$ I4 E/ V                        if w_from_to_chart[j,rows]>0 then
                        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;
                        partstable[6,lines]:=j;
                end;
' L5 {" P8 X2 d1 u! a# Y; `        next;
2 H  [8 h: J$ Y+ y. ~        machinename:=sprint("M",rows);
' Y( A1 u3 I5 c5 W: Z5 n        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]);
# M! L5 o5 ^+ H        machine.name:=machinename;标识符未知
5 M! v, G4 g/ t" Z5 M        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ t0 J! m$ u0 A& u% m2 z       
( p, T! _& T4 X& R, q  K8 f& }        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;
# E5 ~1 G) V* d% w4 ?        buf.capacity:=5000;
        buf.proctime:=0;
) C) v: j4 B9 M; Z        .materialflow.connector.connect(buf,machine);
       
8 X8 |. I4 ^8 M' D/ j' ~* t0 x        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  a% k+ m( O8 qdy:=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);
: ]( @9 g. @' P' P8 X4 ~% ^next;
end;