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

zooey

is
6 s; d$ ~0 a& I2 M% }        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 b7 _2 E& N, L2 V& W    machine,buf:object;
; {& M- j1 p+ W% |do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# [) h6 F( T  G8 x! H                inspect messagebox("设施数目不对！请核查...,",50,13)
: `5 }/ x6 u" v0 b- b                when 16 then
                        print"yes";
# c+ H7 D" ?9 {  ^/ d" U/ k                when 32 then
/ d- e4 r0 D/ Z8 ?% [8 ?/ w" D' n3 p                        print"no";
$ q, M- j% U% {/ k# |; r                else
                        print"cancel";
                end;
2 |* R5 `# ~/ W8 p2 a# h# H                eventcontroller.stop;
        end;
9 ~! g& I" R! g       
        for i:=1 to number_of_machine loop
+ x: ?# r- o% t7 Z        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 l" o3 v3 d2 }                machine:=str_to_obj(machinename);
1 h' k; j  ?+ ~3 x4 i8 V                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# H. @8 S) q, M% x: c                buf:=str_to_obj(bufname);
                buf.deleteobject;
! {6 [% e0 J/ ?8 ~% U1 E        end;
        next;
       
        dx:=0;
        dy:=0;
# ?$ U; Z8 t9 B- U% _, q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  I0 p; v/ r3 f+ Y+ g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ ~6 [) J8 A% y6 O/ t- ~2 B4 o2 n& s                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& Q% W  P7 ?$ [$ P" Y) M& M+ _8 Q6 a                        and activityspace[1,rows]<(1.05*y_max) then
) J  M  ?1 |2 K7 L' I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' D9 d, s' R1 w% \- B8 W                        else*/
                        y_max:=y_max+dy;
3 G  r# m0 r7 E- e' R; Y                        dx:=0;
% O3 m( p. g( J. M3 `( Z; L" |) \                dy:=0;
                        --end;
* h! ]7 f8 N/ L5 }, d8 R- A                end;
/ n* Z  x' |5 {; y) d8 a8 K& E" M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# R, K! H' ?" p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 Z7 n1 t) @+ `2 ]: P            if activityspace[2,rows]>dy then
  d% [1 A+ C" c9 p0 a6 V- E                        dy:=activityspace[2,rows];
2 m# `8 H. p; a- `( w- I                end;
                dx:=dx+activityspace[1,rows];
5 _1 E6 m- u3 a& ^                /*if mark=true then
; A2 T. g& P2 w                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! K' c9 x6 n+ L' u                        activityspace[1,rows]:=ct;
( \9 _# t) k/ `# ?                        end;*/
        next;
3 T6 L1 _# a8 }% A5 B, f; }# \        y_max:=y_max+dy;
/ c! }8 d; @3 a: p) _/ m( H0 r% r0 `        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 f2 ~' c5 y! |; I( g! [        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;
  t1 i1 `! W1 l; p; I2 {        lines:=0;
$ s/ F- Y+ F+ R& l        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
3 F# T; N" G% K% s                        end;
" \! k7 u" r- M4 l+ J0 q                next;
        next;
' p# C# Z' Q, o! [& ?  I       
        lines:=0;
        partstable.delete;
' a* I9 B1 n$ X! }$ C' l5 E; D) |       
        for i:=1 to number_of_machine loop
, ~0 I3 O7 A. K2 o! {* {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% X+ x7 e8 m: v" n( p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ q: x2 E5 x; L: J                        if w_from_to_chart[j,rows]>0 then
                        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");
                        partstable[5,lines]:=rows;
1 X( Q/ G" z% g8 s3 h$ e                        partstable[6,lines]:=j;
4 g* @7 N4 s( Q, o                end;
1 f1 p) {) W* B: p. k  t* s# H! T        next;
$ c7 }1 v) N( ^5 ]' G        machinename:=sprint("M",rows);
4 L4 I: a" {8 r/ f( }' U4 x. ^        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];
6 o& W9 b+ \/ v        machine.exitctrl:=ref(leave);
, K: s/ H$ M* I* z* F       
7 a; \1 m/ }  K- y. j) j. `        bufname:=sprint("BF",rows);
: i* b. ^  Q5 Y& j* }        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]);
2 h  ~7 v/ r# o8 M, C: B; f        buf.name:=bufname;
$ K7 D% Z. o2 U        buf.capacity:=5000;
        buf.proctime:=0;
( o3 e2 C9 ]7 f& S0 \! ~/ ?        .materialflow.connector.connect(buf,machine);
       
" E, y# E( U5 A. V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 s! k, L- N9 d: Q: j9 Jdy:=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);
# p3 U; p+ b5 z- X, b/ p* wnext;
( L8 D2 ^+ S! i8 jend;