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

zooey

is
1 S1 u4 j& L- H( `1 `8 Y        mark:boolean;
        dx,dy,ct:real;
( d1 j. m, D' e' f    i,j,rows,lines:integer;
7 B4 y5 |- K4 f4 k( ~- T; d    machinename,bufname:string;
  {$ o! c* [& J! V" y( t- n% [    machine,buf:object;
$ l$ F5 j7 ~: c3 ]do
' D8 j! g" p7 R. A" y2 m        current.eraselayer(1);
- j$ B; b$ ]  @$ f: |1 z4 F; G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& e" J' b& q* f/ V' V                inspect messagebox("设施数目不对！请核查...,",50,13)
& n" ]8 R$ d8 X  j                when 16 then
, p! v  n  R0 q/ ]' W( @8 J) r( I9 ?1 G                        print"yes";
  I4 f7 j2 W) J, x8 ~! }) ~                when 32 then
                        print"no";
( r; U1 Q" q; ^# G( L                else
                        print"cancel";
  C( O) q8 w( [                end;
                eventcontroller.stop;
        end;
+ {6 p. X9 ]: D8 N# F       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 B- T3 ^/ C& k: N! j: v        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 H6 D  ^+ z( D                buf:=str_to_obj(bufname);
" X0 m- C' B: M* d) v5 ~; N                buf.deleteobject;
9 e! t  B( ]% H1 F2 w        end;
        next;
       
        dx:=0;
        dy:=0;
  t* `4 U! k$ W, X2 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) l' D- ~5 t+ E$ [- S                --mark:=false;
, O1 k% H& W8 z& {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% x  |# _, `# X% a                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 C: l* i! p4 p, n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 L, S( ?$ ~, a                        ct:=activityspace[2,rows];
: s4 U8 v3 Y3 J& J6 D' _                        activityspace[2,rows]:=activityspace[1,rows];
5 d8 b5 ?0 K' }' b' \/ T                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" y+ T" J4 q  r/ j% X- }/ U                        y_max:=y_max+dy;
/ \- N7 z  G9 H) X- X) O8 ^2 z                        dx:=0;
                dy:=0;
3 P+ C& n; x7 q' T: T4 m                        --end;
* l" B2 b- o/ k, \0 L5 Z                end;
' [. q' P& `9 \. J8 \: A                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, _5 T) e5 M5 X, F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( s& x& \' R1 \& W% P                        dy:=activityspace[2,rows];
                end;
( A/ L8 s# q. Y# G8 C* j                dx:=dx+activityspace[1,rows];
6 W6 J5 q7 R4 _& I" z                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( C' x! W' |! a% l$ w, W                        end;*/
        next;
. M, L% K* t  M  `3 _' j* g2 I        y_max:=y_max+dy;
9 Z. Q" W( R5 z/ u) Q: W" n4 w        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);
1 y- I1 q  H$ G  o        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;
8 H; n; u% h( _8 o* R; T        lines:=0;
5 v9 T, f6 ?5 `7 m; Q% {; ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 t, t; j. z7 s+ K                        if j=i then
8 d8 _- I9 Q0 q. g& {9 u3 w: ^                                d_from_to_chart[j,i]:=0;
                        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];
) q$ X1 U1 b2 L" Q                                d_from_to_chart[j,i]:=abs(dx-dy);
  q) T( ~$ e4 k; h1 }3 V' K) h! C                        end;
' q4 L5 T; l" D+ c3 }- q4 n                next;
3 W% \; `! c; G8 R8 u# W        next;
/ K8 w; C& i) F" ]8 H0 e" N# G. C       
        lines:=0;
8 P' z/ Q: n; n' R( ~+ g        partstable.delete;
% e% \; T$ w. A- b/ i* ]- [' E- _. M( S       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( o8 L. h& @5 H                for j:=1 to number_of_machine loop
6 \8 \9 n, l3 q# t; q- q                        if w_from_to_chart[j,rows]>0 then
0 }; L, i% k7 ^. H1 ^1 T# c, a0 G, {                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 |4 N- C; H8 n4 W- z& U                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" {8 M- D# r; @$ n4 L6 j                end;
        next;
7 Y% `( V8 P4 _+ `8 W- Z; b8 p        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;
" x3 }  {5 q* s0 o3 p8 s+ ?4 z2 _        machine.label:=activityspace[0,rows];
8 Z: p/ {0 P0 F        machine.exitctrl:=ref(leave);
( T: t5 I* q, w* _7 u! W: D. h" P5 ^( |       
        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;
! U5 j- _+ b5 c4 \        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ k$ u+ l$ ^& Y' _# Q4 d       
- L( P8 V) z7 G4 K. B        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;