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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 e& e2 S1 m# {" N' ^    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& c4 o3 |0 T# d9 U4 r        current.eraselayer(1);
       
) V, Q: y* r- E7 P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 K$ \0 H/ Q  k  B: @                inspect messagebox("设施数目不对！请核查...,",50,13)
0 q, S, E  j$ G                when 16 then
                        print"yes";
                when 32 then
' E- f1 g+ k- [) z                        print"no";
% v9 H. |: G* Z0 V. o6 S% p$ P+ C                else
6 ?8 O% D* \) J* |2 W                        print"cancel";
- v+ g5 D0 ^' H                end;
2 e, o) M' m! T6 N0 K                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
! \' I- |& ^5 ?" @6 q        machinename:=sprint("M",i);
: Q0 B' T; e8 x& }9 S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
% X* \1 o5 M2 l* a8 y3 M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) @! n* y' U, t* {; u                buf.deleteobject;
  [  Q, ]: M( s0 I9 u. Z! g" M        end;
* N* }2 J  l1 ~* i1 ]. o        next;
       
        dx:=0;
* I6 d! O% u  N* A( L7 l/ v; B* D        dy:=0;
        for i:=1 to number_of_machine loop
  L/ ^4 c. E1 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 p, P' t4 ]4 j: a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 e% j' h; F5 K' ?                then
4 Z6 R' r3 F; J$ ~! g( Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 Y- |! W6 S5 Z% w8 }                        print activityspace[1,rows],",",activityspace[2,rows];
# L  t& y9 ]" Q' T& j( p% C+ {                        ct:=activityspace[2,rows];
1 j% r" \0 {8 K- D. Q4 F- I. A                        activityspace[2,rows]:=activityspace[1,rows];
# A$ w9 _8 [; [. y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 c& x( s. u* V+ S                        dx:=0;
6 u$ p- ^9 w# M! S, _                dy:=0;
3 f; p5 ?% z' ]                        --end;
                end;
* n$ }: h+ |* }4 q: P7 ?$ |6 K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 O0 }/ }; N3 A! X2 q$ s, e8 x! L                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];
# v: B* T# P* V4 y8 D                end;
. g3 _! I% A3 T% j0 {: d3 X+ b* X                dx:=dx+activityspace[1,rows];
' D; s; `7 Z* t% B/ G# ?# T                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 c' l; Y* J1 L                        activityspace[1,rows]:=ct;
                        end;*/
* f# }& o" Q6 c" `# i9 x% L        next;
: j  X- a  }, ?2 g        y_max:=y_max+dy;
9 ~: b( i8 |; J' Q        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);
( b$ h4 |4 _' G$ C3 |        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);
" T" L$ V9 Q% G2 D       
        rows:=0;
2 g* U3 g) u8 B, g2 ~5 u; t        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* E2 Z: {0 i6 ^$ [0 }- a                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
0 n2 Y$ I4 f* E* F, ~                                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;
) d7 k9 M) J/ b6 P6 U        next;
7 t' H; f7 b7 U  Z& F       
        lines:=0;
6 K/ E: ?/ H  u, f1 o        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 ?* H+ f' P6 R3 }- l9 }4 V                for j:=1 to number_of_machine loop
1 o4 q- S/ w7 L% @; |7 v0 f                        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");
! G* ?( {7 b+ i7 j$ \- I                        partstable[5,lines]:=rows;
7 O  t& h. D% q$ G! I# o                        partstable[6,lines]:=j;
" @5 M( S( [3 D9 g* o$ u                end;
) `( G% _6 c  V  n" T0 `6 e        next;
0 X6 e4 s9 K2 ~/ c/ D- R( o1 r1 H1 |        machinename:=sprint("M",rows);
1 T9 [  I4 X  L. V        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]);
& A( ~  a: ?: _        machine.name:=machinename;标识符未知
7 x- J2 X% G& [4 l( I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* i) j+ y0 h, K2 q8 X; V        machine.exitctrl:=ref(leave);
- H; P9 n" j" Q" X, v5 }: U3 x7 c       
        bufname:=sprint("BF",rows);
% o' f4 n. m, e2 o        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 M: b/ o7 P6 m7 J& q4 i$ X        buf.name:=bufname;
3 r9 c: j2 [) ^        buf.capacity:=5000;
% w! t, y& C4 U8 J) w* h; h$ _% G* z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ s+ S; U1 t% o2 H3 Z) I8 q1 b       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ _3 [$ p6 L% B2 Z* C# ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, Z. J, j: I( G  ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) y4 `% ^  K; Pend;
  ^1 y3 g  k1 G