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

zooey

is
3 y. [8 m5 x3 j( Q! W        mark:boolean;
( B. r  w% u7 ~0 \8 g        dx,dy,ct:real;
" Y* {  W. S  k* `    i,j,rows,lines:integer;
! b, q( {1 g* S/ u; b$ B: K) x; ^    machinename,bufname:string;
    machine,buf:object;
- ]3 d0 G9 R. Hdo
: F8 l) r' \8 `% a5 i" R  M2 h7 M        current.eraselayer(1);
& W  M$ h; g2 v9 E       
3 f; M: V1 d; k4 A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
: n. i7 f2 G; C                when 16 then
                        print"yes";
                when 32 then
/ M) b5 J: x4 _( Z) C2 k                        print"no";
9 i9 X9 {6 K5 i+ I' ^1 v' f                else
                        print"cancel";
6 u- H( D- m4 |4 U0 c& Z                end;
                eventcontroller.stop;
        end;
       
3 l6 y- N+ J$ l* w8 n/ J        for i:=1 to number_of_machine loop
$ H& e' D) ~/ o5 `        machinename:=sprint("M",i);
6 l2 I* @* ~" s9 q! U        if existsobject(machinename) then
0 b" M% q; a2 G; d$ j% ]9 q                machine:=str_to_obj(machinename);
' c7 C4 N5 J& O                machine.deleteobject;
) B0 q$ ~5 R; g- p+ W        end;
5 G  i* J$ a9 w: f0 {        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 B, E- H4 h* M1 f5 Q                buf.deleteobject;
        end;
" D; s% ^1 v2 u, e1 S        next;
# K3 u# H0 a7 V0 A       
        dx:=0;
6 X! p, Y/ v" Q  {+ f        dy:=0;
, `4 Q; a" a7 X3 c& E8 Z        for i:=1 to number_of_machine loop
1 `4 Y1 I( Z3 o, S/ F  N3 D: `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( L% ?, G/ J& N9 M/ O                then
1 r  F4 F6 T; v$ A( J$ w% X# ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" L, [) |% y7 c8 W9 l4 `: Q+ o                        print activityspace[1,rows],",",activityspace[2,rows];
  A# V/ z! ~4 s4 e5 v6 \# z1 n                        ct:=activityspace[2,rows];
+ e4 ^$ }: E$ x+ i$ y                        activityspace[2,rows]:=activityspace[1,rows];
2 \: P) `9 d) u; j2 _+ ]6 [+ H) m                        activityspace[1,rows]:=ct;
6 v( [* Z' t, T; {# @% l- u$ p9 f                        mark:=true;
                        else*/
) F3 Y, i& l& ]* r$ x: v9 y                        y_max:=y_max+dy;
                        dx:=0;
9 ~4 v2 c+ Y# _1 S                dy:=0;
' p& r6 ^8 G0 D( a3 @4 s# i                        --end;
                end;
3 v/ h# G) j4 w' \( F' \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- l0 E) a) e. W# I9 Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" A0 a: I/ V$ Y9 p                        dy:=activityspace[2,rows];
2 D5 h+ b* Q5 |! t, J                end;
/ h/ O" T# \+ ?* D5 s                dx:=dx+activityspace[1,rows];
! t* e7 ~& C& x& I                /*if mark=true then
, `1 I4 C. }3 x                ct:=activityspace[2,rows];
  O/ A! |8 n3 u+ b! F                        activityspace[2,rows]:=activityspace[1,rows];
! C2 ]2 T+ M. o+ E" ~( D( p( G                        activityspace[1,rows]:=ct;
3 z) r5 m; c# ?% J- `) ?                        end;*/
        next;
5 {- U/ f2 w. Q: x# h        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 ]* N/ v, Q6 q) T/ l& \        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 X' D: W0 |1 N& d& G2 R# }                for j:=1 to number_of_machine loop
  `' j  J* n( F6 l. O                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
2 A( F8 s3 F3 V7 s* g' V                                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];
0 Y2 _; T& ~* B" p                                d_from_to_chart[j,i]:=abs(dx-dy);
/ {6 J( u2 W; z4 f3 a                        end;
                next;
        next;
. Y& w. F& `( _       
8 u6 y, S  J1 c/ y/ o0 g        lines:=0;
: _; r- o7 M1 H  N  C        partstable.delete;
       
% z, x* O; L  D# G        for i:=1 to number_of_machine loop
* X! J9 |+ t0 n* L; z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' _. Q9 [% A8 h4 c9 i: b0 O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 C8 `( j# t- M: p! ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: h# c+ S# d3 m% q! J7 C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 [. L; z  n# C' w! ~% U                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' D2 d( P4 _2 X$ [/ Z! B9 x! Z                        partstable[6,lines]:=j;
/ V8 N0 Y' w( Z$ ?! S" ~$ s8 h                end;
( e5 f* j; D  M% \* s: l7 L        next;
' G+ T; u/ B3 `2 K, S3 x8 j/ \  l/ `        machinename:=sprint("M",rows);
        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];
        machine.exitctrl:=ref(leave);
' f3 D/ Z' A1 _& m+ \       
        bufname:=sprint("BF",rows);
6 {+ ~/ C+ h- P8 H7 V; \" `        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]);
" g- Z2 _$ c5 O3 k2 z' U        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
+ [. k0 h" {% C        .materialflow.connector.connect(buf,machine);
+ b' o. K& r4 I7 n- V) v4 W       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- V. f) d. E. D% Cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: s0 _2 j, S! _% zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
9 A! @4 Q4 U) Iend;
) G8 B0 U) J! L