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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
4 z& ]5 S: M8 G. B0 R    i,j,rows,lines:integer;
    machinename,bufname:string;
$ a! H7 P( I! I3 i1 _    machine,buf:object;
- K7 q5 K2 h) v- E. l: @do
        current.eraselayer(1);
       
/ A0 v" W% i% v  z/ Z; c, [; @        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
                        print"yes";
                when 32 then
                        print"no";
                else
% f1 E6 r8 ]* p8 `$ q( W2 |                        print"cancel";
                end;
                eventcontroller.stop;
        end;
* S4 u; i# n7 K8 G0 R9 h       
        for i:=1 to number_of_machine loop
! g$ \5 W5 ?% f- o/ y& \        machinename:=sprint("M",i);
2 U% i6 X& }0 T$ x2 [' r        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 _1 N$ ]/ C7 Q! d) p! V        end;
        bufname:=sprint("BF",i);
" q" m8 l. w& g! ]        if existsobject(bufname) then
( {( ^2 p/ T2 u. D                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ Y7 f& n6 A0 W2 X" ]        end;
        next;
  g& d5 k* u6 w0 M% B       
; e% x% q" c0 b) M! [6 v: @        dx:=0;
        dy:=0;
( b" `( _  A, P# `& d        for i:=1 to number_of_machine loop
+ ~2 Y" j4 B) x! F; j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, R6 L0 q' P1 k. S: Y6 J                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% g7 c! ^" M' v8 V4 b$ _+ d; H                then
5 i6 Y6 C5 C* O. h4 H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ o* {# I+ O/ V' s, m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ q( H+ a3 ~# n1 H/ f2 P& U8 f5 z                        activityspace[1,rows]:=ct;
; z5 y4 z3 w6 u, O( U; G' D1 K                        mark:=true;
2 `/ r2 t- w- G7 I: @! I1 }                        else*/
                        y_max:=y_max+dy;
9 s0 C; _' R+ ]" N$ l3 T                        dx:=0;
                dy:=0;
                        --end;
                end;
% Z* z; N* G8 M" t- a( c/ _                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
                        dy:=activityspace[2,rows];
                end;
5 n8 f. Z$ l- I" L0 g" E( F                dx:=dx+activityspace[1,rows];
: e8 u/ `% |: ~/ F2 t. Z' W" R, S                /*if mark=true then
8 g+ _$ b/ s! M" v, t2 o3 h                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  g, O, h7 H$ t6 u; A6 }  Y        y_max:=y_max+dy;
, T, C! q( w+ R, j9 x        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);
       
$ L: H% R) l0 B' D        rows:=0;
) X& C  }6 c; Z9 K' ]0 |        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
+ y: ]& a3 Q) q, O4 r' W( B                                d_from_to_chart[j,i]:=0;
                        else
2 K& x; H$ k/ T) A6 n  ^7 ]                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 D0 d  j4 W: m! q0 J, |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: }) J; b, `/ J7 X, _: h5 ~7 b                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
/ n$ y9 l- f4 S  C$ ?7 K        next;
       
        lines:=0;
- ?/ {% v* F% \6 j! ]5 C8 A        partstable.delete;
6 L' a' [/ k# N" ^( q/ |0 H, _       
% J* W3 u9 e8 ]        for i:=1 to number_of_machine loop
) i- t/ I2 Z- y% ~7 o. N& V2 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& ?6 x8 O6 f( U: Z                machinesequence[2,i]:=rows;
! a6 a. C, p( B/ s, L                for j:=1 to number_of_machine loop
0 @9 B" M  Y+ Y* R1 S# U                        if w_from_to_chart[j,rows]>0 then
( @0 |+ @0 T$ }) V3 I! K: u                        lines:=lines+1;
$ a4 N( p% b% W+ n$ J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, b2 |9 V* B4 d                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 T$ h; d8 ?+ g+ r' h                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 a9 H- w( l4 o3 C' `" W8 r                end;
        next;
" a0 M3 N# c2 B4 R, q2 a0 ?8 A        machinename:=sprint("M",rows);
4 ?1 k3 l5 b. l. b        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]);
        machine.name:=machinename;标识符未知
  c5 _& F# B* j- Y        machine.proctime:=5;
" Q# R, J' q% P$ [$ }0 r8 I        machine.label:=activityspace[0,rows];
' T+ x6 m3 E$ y; I        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 y8 V( D( p: e, O# z3 W  m; f        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;
        buf.capacity:=5000;
9 ]8 s0 {* K8 l' N3 o3 S+ x        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;