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

zooey

is
& H( g9 u5 n/ n" l4 h        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
' A9 Z' Q. P, U. P1 N( h( h, K    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
8 Y. x/ b8 i6 z7 n2 ^5 W8 C2 \" L       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* W3 @. K! C' J* ]; {                inspect messagebox("设施数目不对！请核查...,",50,13)
# }/ `1 [- G1 k7 d& H1 i                when 16 then
                        print"yes";
8 Z$ M1 J+ {% [9 Y; @2 C                when 32 then
/ f6 o- U+ l: Z7 e# e& y                        print"no";
                else
- R8 {$ @" L# H  p                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. J1 w) t; s+ x8 I5 N( S# s        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 Z$ V2 o8 o/ B  ^- w- i- E/ x                machine:=str_to_obj(machinename);
% j+ H! l9 k1 ]. u) ?                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 C- Y/ l& i' r' A0 J( T        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) j9 I+ A0 y2 R                buf.deleteobject;
, w; i# o. c4 O7 G/ n8 t) R- p        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
$ k1 }, \7 a9 \5 Z' y6 u) x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 B$ u  Q* z/ U  Z' J- s$ q2 y0 t1 n6 Z                --mark:=false;
                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
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
. b6 K/ N0 K  X! \- ?                        else*/
                        y_max:=y_max+dy;
% F  |& V* |& C- n                        dx:=0;
                dy:=0;
/ f% u- t, r3 m9 H/ g2 J5 b                        --end;
; F! F$ y3 C$ r0 c: S8 y9 V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 Y) c% o. |6 |0 J3 z1 Z- P  X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* \% V8 B5 N, l$ ]# Q$ G3 o            if activityspace[2,rows]>dy then
+ t! H3 c- N9 E1 `1 y                        dy:=activityspace[2,rows];
' d, n$ i8 T% ~  J                end;
3 z! A7 ~9 s: S" Y- F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) d1 t: M$ J1 y( S0 k5 f6 d                        activityspace[1,rows]:=ct;
2 B3 L* `8 E/ c: Y' z2 x( w3 m$ t                        end;*/
' Z( I# z2 N3 f9 a2 |" h        next;
1 \# H5 L" |9 m( ]* l& x2 ]+ h  f        y_max:=y_max+dy;
1 Z- e6 h; t/ q+ D' X        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);
- w$ }) s. N5 e+ B( X7 l       
7 s& Y6 r3 d4 f: D( g0 B+ X8 ~        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
* ~) d" t' _8 s2 c                for j:=1 to number_of_machine loop
/ y* r* m* L$ d# m' Q6 a4 m2 g# r                        if j=i then
+ D/ F$ c" c. C& v9 U6 w; S. F) A                                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];
! E" M: |- R9 ^; p, ~: @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- j+ V0 K+ g9 V: c5 S                                d_from_to_chart[j,i]:=abs(dx-dy);
+ @4 C" v4 P, t; {" U- k9 R. L                        end;
& ?6 _5 ~: ?+ A8 p6 `$ y                next;
        next;
       
        lines:=0;
2 _# Y' e( a) n# }3 s        partstable.delete;
' n9 _( a  l7 V3 y/ ~, V# V3 T       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# a% p' b. A0 L9 v  a                        lines:=lines+1;
, T/ E5 ^! w( M% ]& ?- ]8 r& U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- L$ K" y' m# T- J! K: L% Z( H. I                        partstable[3,lines]:=sprint("parts");
3 ~+ I: I7 O1 A& [; d                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
! n1 L- O# i3 }        next;
        machinename:=sprint("M",rows);
3 S( M3 u: n# T0 i2 h        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;
" ^3 x' A. c- Y! e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* Q5 w8 v8 R# K: [, G& \       
        bufname:=sprint("BF",rows);
! }; R4 [8 B1 f0 \0 f9 v9 g) ?        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;
- }( ]* d  T* M; O        buf.capacity:=5000;
        buf.proctime:=0;
; T6 C$ ^1 |7 C: \. w        .materialflow.connector.connect(buf,machine);
. ~4 D$ h" C& w: {1 t       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* H6 [2 `/ I' w$ `# ]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;
9 v4 \( I8 D# tend;