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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, j6 y, [5 }' ?0 \& ~2 `! c    i,j,rows,lines:integer;
3 V( v4 d: p2 A    machinename,bufname:string;
3 |& ?: E3 V8 A. h  i% n. |/ b    machine,buf:object;
8 x. n. [2 l7 {- `. Ddo
        current.eraselayer(1);
! D2 R2 x5 W) b- ]' v       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ L* }8 H4 _# p. ?  ^% ?                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
5 |8 V  I( c! a' f6 a                        print"yes";
& d0 S9 k" O, I8 ~- `                when 32 then
' s/ c: a5 S& R& Z" M" A0 }0 F3 i                        print"no";
4 E# I, r& ^  W' U8 a5 v                else
0 l! W" l% m9 n- `; h) l: [                        print"cancel";
! f* G5 I4 ^9 m( @                end;
# c6 G4 W2 P3 q                eventcontroller.stop;
        end;
( _; O4 R8 p4 c# C) T       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 x: X6 `3 L& X' i) L+ m7 P. |                machine:=str_to_obj(machinename);
7 s% l2 ^* K8 ^2 w/ R                machine.deleteobject;
        end;
- G8 x' c9 J/ I* Q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) d8 y3 o+ Q0 F- o                buf:=str_to_obj(bufname);
                buf.deleteobject;
( {4 l2 }" v) {8 b( }* Z        end;
* y/ L$ e) U; p0 C2 b        next;
       
; x+ K  `6 d( f6 h. a' Y# ^9 J        dx:=0;
        dy:=0;
; o, F9 N9 f& @8 t& f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% Y# G- O- m) @2 m                --mark:=false;
, }: z! J- Y/ [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 |( M" x3 N2 h1 E" D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 E0 r# b7 E4 v& u* g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 w( A9 Z1 q2 A! d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, R( a8 d, K* z, R  R                dy:=0;
. ^8 \7 c  o5 {8 |8 N                        --end;
% b, ^, b, w/ T: t1 t0 O6 n                end;
" v  X5 M2 p1 d/ d& ]                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
: f. Q: t, i5 x( W2 m                        dy:=activityspace[2,rows];
                end;
) D6 o; j2 j; ^8 t* S                dx:=dx+activityspace[1,rows];
9 `- _  U5 j4 X% s: R8 j; F, I+ X6 N                /*if mark=true then
+ I% @4 p! E' M                ct:=activityspace[2,rows];
& A5 L) {( e1 O2 U) n0 t4 Q4 |- Z9 N7 g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
9 R+ ^2 r+ ^% m- X+ ]9 t/ c        next;
        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);
0 A) j' x2 U+ d& S$ }2 k        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);
       
# `. P4 U2 J+ j: l# Z9 y        rows:=0;
/ n1 {/ k  n/ c  y# P! M" F4 ?, @        lines:=0;
0 k" B4 w: F$ V; q" I% |1 u        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; t( U( J2 j$ g" X% G                        if j=i then
                                d_from_to_chart[j,i]:=0;
& }/ B3 H! A% i- Y( v9 z' ^                        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];
( \9 d" e. q$ G$ S                                d_from_to_chart[j,i]:=abs(dx-dy);
8 Z1 \! \+ ?4 U, H. a# p2 d1 p                        end;
5 U7 W- {# t4 ^' t2 k* w2 Q* q                next;
; \2 |# l1 F3 ]        next;
       
        lines:=0;
" D' s/ {/ ]3 v* b0 ?' \        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; U8 j* w8 K  q6 @+ P                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 Q) n! P9 |8 z, q, l1 n& C                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" w4 |- Y# \- o6 q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% T% I- I; \* n+ b4 l( Q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 D- p) {1 l; U( R0 N                end;
' z7 x& q8 U4 y$ r8 `        next;
' i! y+ M+ r1 d9 n, u        machinename:=sprint("M",rows);
( _# T- {4 y% X, T) I: L5 g        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);
* j& V+ ~1 M2 ^) T  U! J" L       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
  |- S7 x: i+ G0 _  {7 H        buf.proctime:=0;
* n: w! q6 Z4 k6 b: T& _        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 l' H5 o: J" E) d: Ldy:=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);
- B: b" U& y3 n: @" Gnext;
end;
( v  ~; Q% u  \# {