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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! I$ u# j% f3 A( e/ E. L    machine,buf:object;
do
        current.eraselayer(1);
& H$ D  r3 c* Y& _- `6 k       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 u3 r1 g8 U& u8 h* A3 R! E& W                when 16 then
6 T$ f* k  j% M9 U% c                        print"yes";
                when 32 then
                        print"no";
                else
8 J: T0 t! L0 z                        print"cancel";
                end;
: q* n: m9 U4 e  p  v1 L                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
' S. V/ A  f' m+ b        machinename:=sprint("M",i);
+ b5 d- y3 n" ]4 J        if existsobject(machinename) then
3 ^7 R$ h& z1 v: G                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 X; {/ E# C  a1 V8 p        if existsobject(bufname) then
9 V& W6 ]1 N( h* |2 ^                buf:=str_to_obj(bufname);
6 N+ R* B& T6 q7 Q/ p! s: m                buf.deleteobject;
/ Y3 \$ R' K: u/ m3 j% ~& b        end;
        next;
       
        dx:=0;
+ K2 O9 v. R5 k2 ?: E        dy:=0;
        for i:=1 to number_of_machine loop
: L; s! D  R6 c9 ~, q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 R1 q& o- V5 ]" g* x' W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% u  Q( B9 S* L% W+ H) z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 c) {, U, O5 c1 y3 G  ?6 b                        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;
1 H2 p& d, I0 E- W" q  F7 ^- N% U) Z$ [                        mark:=true;
                        else*/
1 V5 _) X0 T1 \+ i, |; X                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
4 a4 S& j1 D( W) i3 A                        --end;
- \$ X2 m' K$ |( Y                end;
                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
! p6 x. C% S* U+ t8 V8 k, |                        dy:=activityspace[2,rows];
, a; M! K0 X* U2 k7 V4 H" A                end;
1 k( _- m7 S' q# g/ c                dx:=dx+activityspace[1,rows];
; v/ c; N1 y: E4 W( s+ a                /*if mark=true then
, N! k0 X( i5 |' _$ q- l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( W( z3 [: g+ U+ _: y                        activityspace[1,rows]:=ct;
                        end;*/
# z( z9 q2 G% U1 j6 ]        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);
% q- L! q$ c( W% q6 M! o        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);
% c6 d; [# o$ v0 b, h0 C+ I       
. `1 j0 F& g) t' L$ ]( J        rows:=0;
$ O! E: H& D; {4 H        lines:=0;
        for i:=1 to number_of_machine loop
  A7 G* c: g6 s9 v2 h# y                for j:=1 to number_of_machine loop
                        if j=i then
/ u; B- q: G1 U                                d_from_to_chart[j,i]:=0;
                        else
  X- }" p& s9 ]& D; h+ `- ?4 A                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 {! j* T8 i3 }7 ?# Z; g                                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);
  k8 p  S8 y# B4 K/ Q% ^1 O+ ?4 j                        end;
( w4 A, p8 }/ c( p3 B& r3 s                next;
! B: j5 a5 S1 Q' o3 n7 }        next;
       
        lines:=0;
        partstable.delete;
0 n& w5 U: j6 d/ P2 I  b4 `" E       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 y  e" P4 D3 j( U% a                machinesequence[2,i]:=rows;
3 q8 G3 P* I% _7 Y) v                for j:=1 to number_of_machine loop
$ a5 S( B1 R, H                        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];
0 p/ l. G9 P7 w$ U% `' p                        partstable[3,lines]:=sprint("parts");
* s4 t, P2 U7 q) K' y2 Z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
1 O7 a% U/ d  F2 K# W5 G7 {        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 B( |! ?/ {: ~, v* J, r$ X! d        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% r, }2 V* {+ b" }) `       
        bufname:=sprint("BF",rows);
/ S+ N/ y% l. i8 o) O' k% W0 ]) s        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]);
& t3 m9 L/ t& x        buf.name:=bufname;
6 {% ]4 k9 H2 e  ~5 l  i        buf.capacity:=5000;
) d: x1 X5 ?3 ^1 D+ j: k        buf.proctime:=0;
) ^6 [4 T, O7 G/ g3 ~0 j5 P- Y        .materialflow.connector.connect(buf,machine);
9 L* ?+ a# U* T) V# A       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# n( E: q- j* tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# H1 Q4 T6 k+ }: Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 A( [$ H/ B3 L8 i: G% M7 jnext;
# C+ }& R. w( Wend;
9 Z2 B/ W' i) W" ]/ r