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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
  {1 q4 `, N& \1 |. h' w  i+ l    machine,buf:object;
do
        current.eraselayer(1);
       
/ }& s* X6 ^8 V  p+ O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" d4 G, |/ j1 ]- b                inspect messagebox("设施数目不对！请核查...,",50,13)
/ B8 B2 Q' a" S" d; r                when 16 then
) K/ I2 q/ I+ ^3 J                        print"yes";
                when 32 then
                        print"no";
                else
9 L5 j. i1 R: U( T" m                        print"cancel";
                end;
                eventcontroller.stop;
        end;
' Y6 b* y/ j# l' t- W       
. X4 M% V/ q; F/ {/ G        for i:=1 to number_of_machine loop
, f8 N4 e; k# Y$ S) J. u4 }( z        machinename:=sprint("M",i);
+ }, K9 f% `) A, d8 r7 U3 S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& A8 v1 S6 m4 r; S4 Z1 u7 z2 W0 L        bufname:=sprint("BF",i);
# N, A2 H2 t  f9 T0 a        if existsobject(bufname) then
  D$ b1 K0 f8 \/ `" R7 {* k+ n, D                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 i: ]5 C7 C$ o6 }" c; S$ u        end;
9 J' G, @7 H( [0 @        next;
       
2 U4 W* h' I, P7 _$ Q9 v% F        dx:=0;
4 W7 U' V$ z" _! t        dy:=0;
4 x3 }4 w: n0 K7 a( t  m# {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" S( O! j$ v* G6 @  x1 U" d  W1 ]0 V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 b/ d0 ^/ ~3 {- Z4 i& a: f                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  F$ Z/ n6 R( Z  @                        ct:=activityspace[2,rows];
$ g4 W1 i2 u+ _; _. k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
2 X: B8 j5 q4 y3 i( n9 J                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
" D9 F" d3 _" N9 p! y& L4 d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& D  w5 r9 x7 o0 g8 b# ~' l) Z9 \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' I  V: V3 A& F2 \$ }6 \6 G                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 @) ?! }7 `/ F4 \5 }; Q* J4 j5 C$ J                ct:=activityspace[2,rows];
: C9 T) H# D6 F9 n" S: N6 L                        activityspace[2,rows]:=activityspace[1,rows];
+ B6 w( @- G" p- L8 g* z: _                        activityspace[1,rows]:=ct;
% a. ^) J9 D8 R' [+ R/ A8 r                        end;*/
& P. i9 ~( `3 R" R2 w& A9 r        next;
& l9 h% O( t" c8 f9 s; M        y_max:=y_max+dy;
" j; {8 \  r: f! f6 O9 e- Y' l        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);
; m8 ^0 l" S& x7 Q/ k: B' S" a       
        rows:=0;
, g1 w4 D3 s9 c7 r        lines:=0;
; D' X7 ^4 @5 O' ?: [; Q+ A/ h        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 @9 N7 R7 ~5 X$ ^) R) i) t                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& F! N7 w  p/ l, @7 q) P                                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);
; K5 U% W  s8 X& ?: t                        end;
' ^3 M+ d1 z# b2 h                next;
  p8 H% V; k1 \        next;
       
3 @- v; M  J1 f        lines:=0;
: q+ E9 _- ^2 b" O        partstable.delete;
- v. Z+ X# I3 c) \* _9 `       
3 [# r! n4 f* ^+ H& h        for i:=1 to number_of_machine loop
5 Z: N% H. J0 P* K9 T6 N! g& F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* ?4 _1 y; L# ?% g5 @                        if w_from_to_chart[j,rows]>0 then
3 A6 J6 o# x+ y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) d7 m4 n- X% V( J# A                        partstable[3,lines]:=sprint("parts");
( K) S; j5 W2 ~  x; x1 M( a                        partstable[5,lines]:=rows;
7 V, K- |$ b+ r$ ?                        partstable[6,lines]:=j;
                end;
9 F  @9 \3 E3 L        next;
        machinename:=sprint("M",rows);
5 O, Z! c$ y" Y9 A        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;
* k* B; r8 ]  |8 D5 a" W6 z; Y        machine.label:=activityspace[0,rows];
  i3 U' ~* z- n$ \* P        machine.exitctrl:=ref(leave);
4 `% v2 J) c: R  B# J  X9 @2 N       
7 N8 q& r8 V1 c5 {& Q, P        bufname:=sprint("BF",rows);
+ j, ?4 R7 P2 v/ z! V& \9 V* O        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]);
/ A  M6 p6 [- t. p$ O        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
; Y  r0 e* O# y, V; _        .materialflow.connector.connect(buf,machine);
       
3 O( H  x/ _$ m- O' w* ?5 w        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;
' K) h0 S/ `# A. R. A; scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ n0 i) D) }8 B0 x- fnext;
9 E& u5 m% A3 J( K  ?, kend;