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

zooey

is
        mark:boolean;
6 H0 E/ @, e1 ^( ]        dx,dy,ct:real;
1 J/ z. v% B, `/ Q# T' D" R    i,j,rows,lines:integer;
  G, q# e; A* M! k3 r' v/ J    machinename,bufname:string;
  f' k( c4 o" D+ o    machine,buf:object;
do
5 l6 h! u( ]) _# ?+ z* W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 [; |+ F6 f; ]5 W( V                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
- I7 W, Q! G$ k# Y        end;
5 {0 |8 C6 S) ]3 I& }. j       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: g) R/ o, b" U        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 n  p& b; h9 b                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
0 V( J  z0 ^6 P# M0 m" s+ w        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  U. p) f. R1 P4 [! O                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
* M. ~+ b$ ?/ L8 |4 n; z' s) [$ ]                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* Q" b9 Q$ u  t% x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 ~' B% Z* `  G0 E3 y9 `' i                        else*/
( U2 H8 O/ M! q5 A5 n$ r$ M0 |                        y_max:=y_max+dy;
                        dx:=0;
9 T( d/ t# U+ y# c! E4 ~, E  P( [6 E. L                dy:=0;
: i+ K# ~+ i" h, H  Z9 N                        --end;
: }, c+ h: \9 L7 K( J% F& [                end;
# _% Y2 I6 s' p  E+ a* |; C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% c7 o1 o( V. r7 k4 b                        dy:=activityspace[2,rows];
                end;
" U8 f* E; p  E4 i1 n0 m                dx:=dx+activityspace[1,rows];
; A! _/ z9 V$ e7 ?8 B, i                /*if mark=true then
+ F; e2 @' R) N) X$ t                ct:=activityspace[2,rows];
) u: l: N" x2 h: `1 p* O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ x4 x/ N( ~+ P( C% |3 f                        end;*/
        next;
        y_max:=y_max+dy;
        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);
4 {8 K0 f: l% R' }$ F) R        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;
& S3 r+ Y0 p5 D& E# r" J' ^4 n        for i:=1 to number_of_machine loop
$ R  L( a2 X: V1 w% z5 H6 Q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 _- \1 k$ p( w' A5 ~) V                        else
+ X* A. f& A' P; U/ {' q                                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];
* R9 r# z, I5 f8 M: C                                d_from_to_chart[j,i]:=abs(dx-dy);
6 d3 W- [! k+ J6 l                        end;
! i! _% ?7 D1 S8 t6 K0 p- v; [                next;
        next;
; I3 ^3 a# |; z8 J       
        lines:=0;
$ i" {( E" m. Z$ t        partstable.delete;
       
        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
* d& b5 `# T6 p$ B) y% s( t                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. J$ w8 U7 B9 N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  d2 [* ?. U- P1 X9 r+ h% s4 ^                        partstable[5,lines]:=rows;
  n/ T) T2 {3 |0 f0 G" s                        partstable[6,lines]:=j;
$ F7 b2 X# y* ~  A2 x                end;
7 p) X9 j+ O% E$ q1 W2 p1 e        next;
        machinename:=sprint("M",rows);
# q9 E8 \, Y: m; |/ b        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;
8 ?8 i% J1 N7 `. P% @7 |% k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" u3 d1 W: P( i8 s$ E       
        bufname:=sprint("BF",rows);
! \# t7 T+ H7 W$ w7 T4 A/ P        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;
( h  N4 y' {/ x, D4 p        buf.capacity:=5000;
# t; d1 b& d( n( X# S        buf.proctime:=0;
( P) }+ o3 l- m. B& w& j0 G        .materialflow.connector.connect(buf,machine);
       
        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);
6 R# C  R5 J, V8 j& {' Enext;
end;