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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
5 V2 S5 E; N3 Q; _    machine,buf:object;
do
5 G# N) v! Y' m; Y0 p        current.eraselayer(1);
/ ]) h" d. p% N# u7 {       
2 {6 f$ q5 f3 c$ ~# v2 F" \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 K3 F8 q" C2 E; C4 \  Y* U                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) I. L* {  N1 d* T. t        machinename:=sprint("M",i);
' T4 \5 F7 N9 |9 A        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& q* a2 i4 Q; @0 n  M' n& F1 t  ^        end;
- Y. h6 q- o& v1 a& {1 o' Q3 S        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. O4 N0 e3 e6 @- c  G" t                buf.deleteobject;
- \5 `( Q  S+ I# j* y        end;
, q0 [5 _3 o: j8 n6 y* G8 s/ z4 O        next;
7 ?* t, @, U9 B6 S" o1 U4 z& v- d& y       
        dx:=0;
        dy:=0;
( x; X# C4 J8 d7 w" X& p        for i:=1 to number_of_machine loop
% z# X1 ]1 `2 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- I" Y) B3 [0 w: b  ]5 y$ M- m+ n4 x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( K+ u% O5 K; J0 K. e0 t                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ X$ J2 j6 R9 O: a& G                        activityspace[1,rows]:=ct;
                        mark:=true;
" _, x9 `/ p# C/ U                        else*/
" K& r, k9 a3 [/ a; ^                        y_max:=y_max+dy;
# e& G: f; w" M8 p- L                        dx:=0;
5 ]4 u/ Q3 x! G/ T                dy:=0;
" M3 p$ {4 j& D1 [% r+ \                        --end;
/ H- J& x# Y4 Q5 B                end;
6 W  N: d' h7 a7 K  I                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;
7 H: {: u) y1 w/ B5 `4 J1 @8 N            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
3 a2 ?! \/ l& z) r$ r# V                /*if mark=true then
                ct:=activityspace[2,rows];
/ {7 f7 b, u7 H% N/ n6 n5 u; @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& q. K  O7 C2 c$ ]7 v  @! g        y_max:=y_max+dy;
8 N, O- B8 S. }+ ]; |        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);
( M/ l- {( l1 L3 v4 y        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);
       
        rows:=0;
. D% W- i; K+ C1 R5 d8 j        lines:=0;
* H) Z9 `, m5 S# u, ^        for i:=1 to number_of_machine loop
" G3 D* Q: S& Q: ]" I/ J- }                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
; C1 a' C# B  `/ Z+ M/ K1 s                                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);
% U+ k$ f3 N# D9 U6 W                        end;
                next;
' B/ Y' Q, G* M/ J/ r+ q        next;
4 `- J& E8 E9 x9 |6 O. A' Y: z       
        lines:=0;
        partstable.delete;
. ]) G2 L! j- `6 x( d       
" W9 y( h  h% \) S. C        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 o- ]* N7 G4 R/ m, y4 Q                machinesequence[2,i]:=rows;
7 O) }. Y, S" s9 f  ?                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 j, s+ n& @+ E# {- x. [+ h. }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; H3 P* Z, ~5 K9 z# B, s( S                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" Z; i0 l# e8 l, W( b) Q! z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ Z3 h5 g+ p" M) }) |0 ?                end;
1 ^/ Y3 y2 u; O3 j        next;
        machinename:=sprint("M",rows);
, }9 H5 H. C3 x+ \: i        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# ~0 _' [6 o6 i6 y        machine.exitctrl:=ref(leave);
       
, U1 x8 V8 Q- A" U0 l6 I* q6 J        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]);
, t+ ]4 _% l+ a, y8 p        buf.name:=bufname;
& a9 n1 r! S) ^( A4 Q5 S! z        buf.capacity:=5000;
        buf.proctime:=0;
6 M! A- w. S( B$ t2 D$ A/ ^% k0 |        .materialflow.connector.connect(buf,machine);
       
+ W5 \5 e- m2 `1 K        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;
/ s8 [: g! F/ P; p+ p7 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;