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

zooey

is
        mark:boolean;
- b* T: P5 Y$ c% V: _        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 w$ G) s: p4 m. K2 S" Y" @5 G) z# ^9 U    machinename,bufname:string;
4 U" j1 w2 K) s$ S: \) M/ T    machine,buf:object;
8 ^  C4 Y9 ]# d3 o. j0 f. h. S+ Ido
        current.eraselayer(1);
  p% E' p7 F2 B6 R4 o, ]       
9 p3 q5 z( q2 {; @9 h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% v7 j+ A( j2 `& O8 X0 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
" Q5 `8 d: z1 d" w; w                end;
! h0 D' H% ~+ i0 Y! B$ m4 H' w2 L1 q2 @                eventcontroller.stop;
        end;
3 ~% c( A! Y3 x; L3 \       
. @2 v$ \6 d; G5 \        for i:=1 to number_of_machine loop
% n) A$ K! t' t# y+ b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. ~9 V5 o5 _0 t                machine.deleteobject;
        end;
' q( C5 t& p9 o7 }7 {- i4 L8 j        bufname:=sprint("BF",i);
) {2 c6 N/ g, S6 R. I+ \* \        if existsobject(bufname) then
& w1 f/ {! W4 E2 o8 `                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ y/ n5 N- v; ]        end;
* }4 P, B( `/ M, J& S# [        next;
) O7 W. j9 z( ^/ c# H* J       
        dx:=0;
        dy:=0;
+ c$ R/ q( y. `  E/ x/ _        for i:=1 to number_of_machine loop
( J9 ^' P4 U3 Q  R8 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: i; C- H$ y% W+ L3 f- K% s                --mark:=false;
  l" q2 M2 F/ A: E1 H) x. Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& }5 n- L2 b! K+ J2 w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' D6 w2 u% J) A" I3 I: P( p6 }4 ~                        print activityspace[1,rows],",",activityspace[2,rows];
% g! M# u4 z: b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 T1 f+ Y( B* w* p. v                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- a' U4 A' Y* B# Q: g; d% v& x2 ~                        dx:=0;
                dy:=0;
) i+ d9 g! m4 g1 `" b                        --end;
                end;
0 l1 D7 e" D% Y/ \8 [                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 U+ ]: O- R0 O1 W, G                        end;*/
        next;
2 V; u; \6 j  u" ?7 x        y_max:=y_max+dy;
' Y, i- X; n/ a. F! j9 P( S  Z        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);
* f7 t) y) r# H5 l5 T6 p! T5 n, l       
        rows:=0;
7 |' V0 g$ E0 [        lines:=0;
4 e' j6 i, S9 L9 i2 i& u4 n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( p0 X5 `& p6 G  y                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
$ E2 h. H. R; Q  Q, c: \1 o) l                        end;
2 P( H9 m" W9 m: M6 _& I/ v                next;
        next;
       
        lines:=0;
5 _5 y  K5 T8 B9 [        partstable.delete;
       
9 ^, z* w& L$ u+ w2 k        for i:=1 to number_of_machine loop
+ {+ M& s5 a$ l7 X7 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. E) y! X5 Z' D) `: I5 K9 [+ M5 k! }                machinesequence[2,i]:=rows;
. w+ o" n3 V% S, x4 L( c- f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 ~& N9 ]3 d! U& [                        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;
                        partstable[6,lines]:=j;
6 B  k# R+ @. E6 N                end;
        next;
# H3 j1 h0 L3 L, q+ H        machinename:=sprint("M",rows);
2 C- N, i* Z7 b3 t' l        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]);
0 _0 S( @: Q/ P) B        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
" w  U% s% ]& I3 b1 R+ J        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 ~: g; r" t' j- p        buf.name:=bufname;
: f+ M2 c6 w. f; j, S        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 n" `7 J+ x/ B, c( R# V% n/ ]+ F$ |       
        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;
- `$ s: p, H! a, N: b9 xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' r+ A7 n' ]. p1 Lnext;
end;
. |+ A- |2 [, ?2 G. T