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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
+ t8 b6 a. F$ p! @: I        current.eraselayer(1);
6 X1 s; c6 F/ k0 W$ ^       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, g# z/ A  \( J/ [7 R- j! w3 g% A                when 16 then
                        print"yes";
                when 32 then
4 f* g- M, ^3 T# y- g4 w6 Z! K                        print"no";
                else
1 R0 j+ i( V1 J0 g                        print"cancel";
                end;
                eventcontroller.stop;
! [  l$ T; B' i! g        end;
       
        for i:=1 to number_of_machine loop
+ Y* a; N( e0 J* ~% F/ v        machinename:=sprint("M",i);
1 o7 ]4 |4 y* ~$ _: I        if existsobject(machinename) then
- W  K: c- d: ?/ y3 ^5 `; i                machine:=str_to_obj(machinename);
" D. a9 P  M" v! U2 y                machine.deleteobject;
8 o, u( e0 ~9 f0 c! V        end;
) R8 Q) k6 k% I0 C$ L        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) W: b' E' u9 d7 G8 q0 [8 r                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ ]. u, E/ Q! h- A9 J4 W- H        end;
' M1 |1 J9 z7 }5 j8 D, s        next;
8 {3 h2 \- P3 Q% M       
9 G0 m! P/ b* L5 \        dx:=0;
8 E# j; @! z1 d; ?8 s        dy:=0;
        for i:=1 to number_of_machine loop
$ E+ l& W  R2 ], v: B2 p- I7 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 p- R: H) h' @7 A0 q8 b                then
7 ~: G7 ~& f% Z/ o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ p- \( I) d; G0 x' P" ~* u0 p                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& A0 [, z1 u* g7 [) j0 {                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 {- j- x* ?2 P                        activityspace[1,rows]:=ct;
4 R$ s# G7 ?, U( g- j5 E5 z" n( V                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                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
  n1 q1 u! `2 F: \7 J* K3 ?# {5 t                        dy:=activityspace[2,rows];
& t1 k, l. C2 W' P                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 @- t8 Y* o7 O: k( c                ct:=activityspace[2,rows];
+ L, @* ^) @& T" g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 M& w9 z0 w0 c8 f3 S  T2 w                        end;*/
( n) n  K% w+ R" r# d% o- N        next;
        y_max:=y_max+dy;
' R3 D, S! L5 v/ V        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);
1 L# }! {7 w7 }2 Z# y* i2 r1 z8 Z       
8 Z+ y2 ^! F; ^. G2 j6 y. f        rows:=0;
        lines:=0;
7 }3 Y  O* O2 E+ S: Z4 f( [! G4 L- p        for i:=1 to number_of_machine loop
( [- W, O/ F& b! @% U5 O7 I; W                for j:=1 to number_of_machine loop
9 O( J& D2 x1 z; M                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 M5 ?6 I. o# l: i                        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];
. O% k8 ?) h6 X3 J* O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
6 Q0 X. h" c. `1 ?* |( [, g        next;
0 s2 I; n0 d0 F5 i( h       
        lines:=0;
. V1 H; M6 s4 ]2 a" o+ `        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
$ T1 i6 s: g: `* [5 C4 c3 \/ c                        if w_from_to_chart[j,rows]>0 then
8 p: i% w0 I! m* C                        lines:=lines+1;
2 _! T, f( W* d/ P' p+ T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 o  F- W  C9 @& L8 v/ m+ B) h                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 O+ x# o  R6 K7 e" H                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( C  O6 N' {! D4 j7 O                end;
        next;
+ y, N  p5 Y$ B  \8 Y- b        machinename:=sprint("M",rows);
6 l' j$ \7 h/ 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;标识符未知
" G1 y0 ]3 e( i. c: ?: E4 l1 t        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# Y) w- t7 G2 r  {& t       
: w: x- q" e( t! G2 \        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]);
$ H5 `2 v4 O9 F7 H" ?  e" J        buf.name:=bufname;
; U1 a4 L5 J1 }2 b        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# P% `8 l' t5 X5 _7 \  W: d       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 ^* b5 U! W- sdy:=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;