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

zooey

is
        mark:boolean;
! q3 B1 g$ C& M        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
( t2 N6 I) Q+ X& G; [4 @6 Udo
        current.eraselayer(1);
* ^! O4 K0 F; R. {' A/ T6 o, V9 O       
% s* O' s0 o$ `+ b7 D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% o6 c' Z( A( T. |* w6 D                when 16 then
/ t; e1 @' m+ V, s0 q7 i5 s& M                        print"yes";
                when 32 then
: L9 M* i9 ^" d; n) N& x                        print"no";
5 s" D$ R8 w- I! O                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
8 S: K% {! y/ x1 h. |        for i:=1 to number_of_machine loop
5 p, x6 s" V( }. R9 g  v# Q        machinename:=sprint("M",i);
- K& H8 F2 z' V( j) ~1 M# l        if existsobject(machinename) then
# a+ z) y$ `8 t4 d( @                machine:=str_to_obj(machinename);
+ j" N; L$ F5 C- ^                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: e4 f' ~. J, z+ o% a% C6 g) W        if existsobject(bufname) then
) s0 B. E' c7 X- n. d( ?                buf:=str_to_obj(bufname);
                buf.deleteobject;
" u- m9 T8 l* w. u8 b# ~' J        end;
        next;
3 ?  ?0 A" B9 p' T3 J. m       
        dx:=0;
, w3 ?$ `9 n& }4 k" i        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" y8 V* l& D7 R, u% r( U. D                --mark:=false;
) U' ?" |4 a, W! v  r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 @% B% }' W& r" ~8 f: E8 s                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
) `# q/ m) B$ ?  h                        dx:=0;
                dy:=0;
                        --end;
                end;
2 E  W: i; C7 R8 _                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ B6 B. w7 F* ^2 I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
, ^" K* x2 [" p                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 V+ `7 F* d- V. M1 O                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 w# o: P* S" u2 O$ r* }9 x) Y7 U                        activityspace[1,rows]:=ct;
1 H: O7 q; X% ]) X9 J9 O+ c6 Y                        end;*/
, {% o5 {' R* F6 u2 M+ B        next;
  s- V$ c" P. N( J1 F* l' T% p        y_max:=y_max+dy;
* F% Z8 ?/ W4 L' J7 m# F6 h; E* c        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);
       
        rows:=0;
        lines:=0;
$ [# i7 }3 p/ ]4 c1 z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 [8 G9 Q' o+ V+ X                                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];
0 _1 u5 t! R. H- e                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& b! U) U  J; d                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
+ s* c1 z! w: \. }        next;
       
: D2 ^/ a. L$ N/ `4 ?        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# i4 C+ ^) V+ M* z) g) {                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 z; I" a7 ^+ ^' ]                        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;
                        partstable[6,lines]:=j;
                end;
1 r) Z, m" |9 @  h& T# Y        next;
# |7 n2 R6 y4 Y- ?  |; Y! d        machinename:=sprint("M",rows);
! r  w% I& P+ E( M$ V4 {        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]);
7 h7 v9 J6 p2 i, \        machine.name:=machinename;标识符未知
8 }  y1 x/ Y2 W+ W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 e7 [4 y6 c3 t        machine.exitctrl:=ref(leave);
( C- q. A$ \& {" j2 F2 p       
        bufname:=sprint("BF",rows);
/ u/ R$ W# ]/ |        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]);
% V& s# @( B7 _  T" [6 i        buf.name:=bufname;
5 s  W1 t3 R0 l9 K8 x) }8 m5 ]  I, w        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 N% J* [7 B- I" e( [- n       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' M$ h5 d. D; Z, \dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 ]8 W* k& m3 M3 Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. Z& v0 t$ t7 f$ Inext;
( T+ F& m  k6 _$ U% n" hend;