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

zooey

is
        mark:boolean;
3 v/ ^* C0 j+ I3 W3 J        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
/ [/ y1 e, @- i! M% t6 n    machine,buf:object;
do
$ M$ Y/ |# B9 e+ o1 {- w        current.eraselayer(1);
       
1 z; f' a) s9 [, _* v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 O: S, p# g9 t0 }& z) L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
4 c2 k& v5 x1 R' n* p. A. V                when 32 then
5 h, |/ }5 \8 y! O8 t% W: P8 F                        print"no";
; O0 q' j9 v8 ]$ }+ X, |                else
- z. H( ]' }) A1 E2 Z. q                        print"cancel";
3 y- J7 t( R2 r  v: H/ U9 U                end;
* K6 y: l2 k. i% @3 h2 E                eventcontroller.stop;
* j" B* O* V7 N% Y/ e        end;
       
! K6 M7 A" w  K" x6 b! y4 @        for i:=1 to number_of_machine loop
2 U5 ]3 l; z7 ^+ A- d% C        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
  r  t3 q- ]$ m+ Q- U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; F- w1 ?' y7 L                buf:=str_to_obj(bufname);
  g7 J+ v1 g5 _; U; R. G                buf.deleteobject;
        end;
        next;
- c* C% ], v& [6 L$ ?2 c$ N- f       
! y; r4 `: P3 }0 x( e4 x3 t        dx:=0;
. _0 J7 Q) v* R        dy:=0;
; E+ ]6 i+ d2 \! [        for i:=1 to number_of_machine loop
/ G2 r4 B) v7 d. V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; N7 V! Q2 z, m" z% }% V  Q/ i                --mark:=false;
: f! y- l3 N3 w, x! T& S, p2 R- Y' H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 b3 ?& I9 [: k                        /*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];
/ n0 z; N' L3 ?8 Y- `                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. h2 k7 S3 i, t, C. C' M                        dx:=0;
                dy:=0;
# }2 _$ {4 }2 R                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. z& }) j: k% H; \4 J% S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" O) I. ?. `( w8 T! D/ R  E            if activityspace[2,rows]>dy then
( g: k1 O' Y$ `0 H8 Z; \6 @, A                        dy:=activityspace[2,rows];
                end;
& S/ z7 q# Z$ [0 J, t5 s                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
* H* Q/ E) q3 \% A7 `3 N4 D        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);
: d- d5 C# q0 }2 _  ^       
$ b" [& ^8 R/ o- F        rows:=0;
3 }' ?" ]" d4 C        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
1 N9 u! w( `2 I$ W5 y" p& 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];
8 Z6 a! o  `6 W; I3 q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
+ m5 r" N6 S+ n- A; o3 m        next;
" E& [; N9 i% Y+ [, t7 X! Y       
* D0 X1 R0 d: r( n- ]9 D        lines:=0;
        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
                        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;
9 ?9 m5 C' O4 A4 @/ @                        partstable[6,lines]:=j;
                end;
) e# s" l4 V. W: _9 P        next;
: D+ g( c0 n% H* a* N        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]);
* H( _  N1 ?2 r7 F$ h# h* e        machine.name:=machinename;标识符未知
  m, h. f# ]5 l. x. |        machine.proctime:=5;
- D' t( j0 a: i/ I+ ?; a: L( I; y        machine.label:=activityspace[0,rows];
3 T$ T( E" D, Z8 ]( I% y; h        machine.exitctrl:=ref(leave);
: S( s6 g( X% a/ ]( `4 b       
! ~/ ~! Y  K8 x3 N2 T2 ?! t# H        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]);
6 z! S( J/ l6 Y        buf.name:=bufname;
        buf.capacity:=5000;
" W: C$ x- N0 o3 C1 r; c        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( c! S) J' w7 v& L4 _; v7 h       
  r8 a$ T1 x$ r) f4 `4 O( m+ V6 i        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 f5 f& [4 I9 v+ H5 ]; Lnext;
end;
. \0 K: Q& @) `) F# ]2 l/ z- H