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

zooey

is
        mark:boolean;
$ U. N+ c2 E; k( U8 a; n* Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: U- {- f& U# j/ X, ~9 k    machine,buf:object;
" y0 X) w$ k; W0 R5 Sdo
, R( v3 v) o& d: I/ \* J; y        current.eraselayer(1);
       
        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
                        print"cancel";
  ?) Z( ?: M$ w' D$ r. Q6 f                end;
! X' `, i* j) ?                eventcontroller.stop;
        end;
9 U9 z6 u1 s. _! `+ C$ A! M       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* k- l  P5 R2 c0 @        if existsobject(machinename) then
) e" g" H. U8 }) T3 E; m                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
: p1 o/ q) @$ S" g2 C5 }7 U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) q1 m* _0 W7 A' Y/ o  f                buf.deleteobject;
& z: d7 c% s7 Y4 E- c        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( y8 Z+ e8 o! X8 J' V" X+ y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 [% r4 s: r8 w, K0 |; y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 E8 ]; V  \4 H" P5 C+ q. p1 g                        ct:=activityspace[2,rows];
; P+ K5 P3 v# E3 C+ \3 g  u3 V1 s' v                        activityspace[2,rows]:=activityspace[1,rows];
1 K, h$ f4 ~+ C* R                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& G5 Y  Q( o* c$ j0 C$ `' a                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
  K% r0 p  n: f, p1 J  q2 F                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
+ G% t1 Y' B" U3 m6 q                        dy:=activityspace[2,rows];
! t& k0 d- @) J( e                end;
                dx:=dx+activityspace[1,rows];
+ |' c# C1 l- T3 Z                /*if mark=true then
  V% s7 ]! `) J! x                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- `0 ^/ Q+ ^4 W  D* c; R  M+ |                        end;*/
% O( U' L- Q6 o/ A) R        next;
) |* [) t0 t/ w9 b5 Q        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);
. O9 `4 Q  U3 T# }* r6 `7 c& m       
/ m7 w- c( h) T+ Z* r5 _% ?! ?        rows:=0;
8 d) |8 }' h: k7 k% R/ {        lines:=0;
0 Q+ b6 @/ C- _        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 }5 Z/ e' z% t: i2 G                        if j=i then
0 J7 B5 T, {5 N- \7 M                                d_from_to_chart[j,i]:=0;
( ~4 \( J& l4 ?1 X/ }1 T                        else
                                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;
        next;
) H1 V' I: d; u# ?" l       
! b& @0 W, J: ?+ C  E        lines:=0;
        partstable.delete;
( V3 E. s7 [2 I. B' J  a0 W       
        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
! ^: v7 f# h/ O6 w) {7 [  n                        if w_from_to_chart[j,rows]>0 then
$ D& P# v% H7 W) z* z( l0 q                        lines:=lines+1;
$ n% U2 Z) P& F9 T: r1 @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 U! p: A: ]# o6 A8 n+ J                        partstable[2,lines]:=w_from_to_chart[j,rows];
: A" T) }9 Z. |  [/ s2 ]* X8 ^- ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 f3 X% m9 h- Q                        partstable[6,lines]:=j;
                end;
        next;
9 N0 F; u' N, s- I( d& g/ X6 W" y        machinename:=sprint("M",rows);
" N9 y6 c7 l, n6 _        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]);
( {( w' P% J; U9 Q- u, i$ b        machine.name:=machinename;标识符未知
, d1 J9 a% s3 \% }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 y$ ^, H7 J0 X( k9 _        machine.exitctrl:=ref(leave);
+ q) X, P" O! P4 I3 _) O" @4 D       
% Y/ t) W0 E0 J) t( G) [! ^- O, ]+ M! X        bufname:=sprint("BF",rows);
2 Z4 L* ~$ H$ ^; _% z" \6 ?        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;
2 q3 _1 r2 s* w8 Z0 F1 l        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, g* s; P' _# v/ x       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, e  Q6 e& |& \3 Z8 r" u/ A! _- z4 }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! c6 u/ R& m$ v  Qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- v5 u* A- U$ b% V, d7 mnext;
4 {2 }3 O. O. A  ~* S' a2 a) \end;
9 I1 l8 h2 U, j$ ?9 K' I" A