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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
# v5 o- W- ~" Q    i,j,rows,lines:integer;
    machinename,bufname:string;
0 O, W- z2 X* Z. Y4 q2 l1 R, M    machine,buf:object;
do
        current.eraselayer(1);
7 h  H  N/ p% C# ]  w! V       
+ D" o8 C' o# x! ^8 W# q% h0 }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. c+ e6 O( Z7 x( V# o  t                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
8 E/ X" U1 R5 }2 _! g( b( v                        print"yes";
                when 32 then
                        print"no";
* v7 {' E" }! v0 L                else
                        print"cancel";
) y: O+ U2 V( G: b( N7 B" ]                end;
                eventcontroller.stop;
. P. Q/ O6 f! C" ]5 E. v% R9 l1 R        end;
       
        for i:=1 to number_of_machine loop
0 d) R3 U' a( ?: ?        machinename:=sprint("M",i);
6 j( z7 J* M, f8 \$ e. M        if existsobject(machinename) then
& ~) F5 m1 ]" Y% F4 y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
5 u0 i1 i3 N. N5 f) J- Z        bufname:=sprint("BF",i);
5 b' u% w7 e( R; {- Y' V0 j        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! q+ ]* M* Y$ A# \% Z- U$ W& n                buf.deleteobject;
3 v4 Q4 G# U! J        end;
        next;
% ]: U  q: n7 P       
        dx:=0;
        dy:=0;
3 t. [/ [1 T- @% C  |7 U. T        for i:=1 to number_of_machine loop
% u/ M% a3 A" }) ^4 p" P2 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; y) R9 G: r& E' F$ B                --mark:=false;
4 F0 A) @. z$ K! F6 B2 E( N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  V3 p; M4 y( ~8 s                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% o9 c* Z5 F$ j0 G) s* ]. k! X                        activityspace[2,rows]:=activityspace[1,rows];
, R* p' x& q1 \6 {8 P! v                        activityspace[1,rows]:=ct;
; w9 o% t, A$ C4 u; |* P, d' D                        mark:=true;
  M9 y0 z" z2 B# o" \) P. B                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
) |& }1 K$ m+ N7 x' P* M                end;
' B& S+ q/ r: c& \: I; U6 x                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
$ R1 X+ c+ |- x; S                        dy:=activityspace[2,rows];
1 ~! \' h3 H3 U: Q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
5 @0 M$ a2 r0 P7 b6 D) T                        activityspace[2,rows]:=activityspace[1,rows];
/ _8 ]! x2 {- f5 d                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 ]' O/ P* X9 t  R% P7 E8 H        y_max:=y_max+dy;
* T7 i1 W- K7 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);
1 A3 o) K7 T9 }3 d# ~* w) d        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);
       
6 r$ q8 P, u2 H( `( e/ D1 z% d3 {        rows:=0;
9 ^9 J% V5 W# p2 e$ k4 I        lines:=0;
$ K. E; R( Y% [        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
  p7 h  b: C) K5 J& D; R+ @                                d_from_to_chart[j,i]:=0;
                        else
2 f/ Q1 I8 b7 U                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, M2 J4 F* ?$ L3 x: z! t7 x! I                                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);
/ P2 O. j% W: L& j. d                        end;
                next;
        next;
( `7 S  v6 N. z, m9 M& Q" Y/ ~4 W       
( e, ^# h: b: ?4 f  }9 v        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& L- V7 z7 q; k5 u8 w5 `# |                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; z# D  M" e: G- B* [* E$ g8 j% ]                        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];
( P# Q- G& M3 u( f9 \1 G+ r                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 z9 u4 @) w4 i8 Y2 T                end;
        next;
9 B7 G% ?7 a$ k: B. V7 B        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]);
( n5 C+ J& t& j4 y- M2 _8 |        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% L2 `4 a8 e+ P7 P        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
7 b5 A' a) o7 W& G1 ~# `# s2 g0 ?        bufname:=sprint("BF",rows);
1 P" F* V9 Q* S' O; e* N        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;
; @9 F; a. x5 }  p. i" X0 \        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. x4 t% y" a, y! u3 [. ?       
        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);
next;
end;