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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
. y/ Z" C  O2 `3 M5 }& W/ Fdo
8 X/ }* w# M1 l4 `# y        current.eraselayer(1);
- V9 w0 b. V! M% E  p3 }2 X; ]       
9 Q: i! I8 [. g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. K) x, ^5 Q$ y4 d, E                inspect messagebox("设施数目不对！请核查...,",50,13)
- h- S' x$ n! O  A                when 16 then
                        print"yes";
$ C( p  x' N1 [2 F" |                when 32 then
                        print"no";
1 G7 g5 }- O% S& n: E  g                else
7 w$ m8 o: v3 S1 t2 |9 {                        print"cancel";
( ]4 t8 D2 b) p8 P/ d                end;
                eventcontroller.stop;
$ V0 S1 H1 c5 @. d2 f# T% @/ m0 x8 y        end;
       
. h+ N6 f" ~9 W3 p        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 f% |! q% {$ P. _8 n0 r        if existsobject(machinename) then
/ ]9 p8 R; `: e                machine:=str_to_obj(machinename);
* G/ a) _. {: C                machine.deleteobject;
# r& [$ ]$ v8 ?" z; q        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) \0 {, @" h9 f; _                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ k1 F2 Z* I  j- T3 a        end;
        next;
, [8 X2 \  i, Q$ w- {       
' e' T# A2 {4 c5 T        dx:=0;
        dy:=0;
: S5 l$ _! Q5 J2 N        for i:=1 to number_of_machine loop
* A6 g+ b8 G. i9 J) y& {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( @3 q* S7 a" L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 i, U- |: V' E: R) v& ~& J( G6 T7 k                        and activityspace[1,rows]<(1.05*y_max) then
$ {, V6 k/ R4 b  B% m* x8 V                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 B0 q7 o! [/ \. l- n. @0 L* \5 [                        activityspace[1,rows]:=ct;
5 H. Q; W7 b0 `8 n, r                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
8 }* e3 _- I/ T                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 P' @1 ]' P- s& I! ~- g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
- N0 X! ^9 q! I- S( ^                dx:=dx+activityspace[1,rows];
! B- l; K4 i8 L  B, ?% X# o5 i                /*if mark=true then
                ct:=activityspace[2,rows];
( u' Z7 L  _, c/ R) i9 R3 Y$ Q' M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 Y5 C! U! N4 _' T1 P8 _                        end;*/
" D7 h' X3 ?/ p" G, Z" S- x* Y; ^+ Q: [        next;
* O/ m9 r: ?3 }7 l. \        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 T2 X2 Z: z+ P; K- A        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);
4 s) a$ M! J: R2 h       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
( b4 i* f9 o% A+ w- t, f: N4 b                for j:=1 to number_of_machine loop
: Y2 g( u) j  w1 N                        if j=i then
2 [, d  O, T$ i                                d_from_to_chart[j,i]:=0;
: o7 B% H, r2 W                        else
8 W; j+ R6 j( D4 K1 U                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
5 V0 }: D# b1 m, `        next;
       
# M% `# X; M1 k* ^, E. h        lines:=0;
: k3 U8 n4 s% @5 e( @( l        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 i) G; [, B9 H% k                for j:=1 to number_of_machine loop
: [% q" z* s& c! y+ u, N( L1 y                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 I* v' A$ W# n7 ~2 `# K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 t) \7 n, C5 X# J) |  ?, z                        partstable[2,lines]:=w_from_to_chart[j,rows];
. p1 i% N! J( t                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
4 b" p/ R+ q# T! J! C  g$ x        next;
        machinename:=sprint("M",rows);
, X9 k( G: h$ D* u* X+ ?! ~& B9 ^        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;
7 e0 a& k( s1 i) G' {" Q, \! `7 \# G        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
; [, _9 x; B; a, l* Z: F$ R) ^' ^5 h        bufname:=sprint("BF",rows);
5 I1 x) f' ]  m  U1 O* }2 `/ D6 w4 C        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;
        buf.capacity:=5000;
" N+ |' j( Z3 B. f" b7 ~7 I        buf.proctime:=0;
7 u) j( s  r" t. l) L# W        .materialflow.connector.connect(buf,machine);
1 p1 V- d. F" X, P0 d       
        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;
- }0 q# f" k* t9 v5 B4 F2 _& _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 o0 m+ u' d$ e" b( Cend;