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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 `3 ]% S# _7 v; d0 V3 [    machinename,bufname:string;
    machine,buf:object;
- k7 u" }* G9 |do
4 D$ E; D6 Z* p: Z' Z        current.eraselayer(1);
% _( m9 s1 P: j- }0 c( W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 R4 h: `( t0 p6 V0 k4 W  y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
. w; ^2 @* D6 x% F8 V7 B                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
/ q: B* p) p" e  a9 C0 e& s, s7 d        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 u7 A: ~/ X9 f9 ?% B2 s5 W3 B        if existsobject(machinename) then
1 n6 G6 v$ X' A( _3 T( M; D; m                machine:=str_to_obj(machinename);
4 i, u6 O* c  K2 m                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% z9 p( L( j$ {# F$ u1 U6 B0 N9 ?                buf:=str_to_obj(bufname);
                buf.deleteobject;
# c3 j8 D; `4 R  F: ]& H# i        end;
        next;
       
        dx:=0;
        dy:=0;
: ]1 w) G, `9 `6 R        for i:=1 to number_of_machine loop
7 z/ y3 {5 C$ D4 d4 p+ O$ F' p- L2 l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) D+ w% a- j( {4 S, h: }" O; u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. S  j) h9 D: t$ `$ J; U                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% g# }+ _& ~" ^' F1 @  H                        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];
& s, w. `3 V% {7 j                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 M: [& y3 ^% X7 H' R% B+ _                        dx:=0;
2 w/ s7 t: A  R1 A  ]5 S* M                dy:=0;
                        --end;
) n# H( [: l, D8 n' Z                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 h# m, O4 [* ]( i" m0 j                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) n0 \* _2 {3 \0 J& N            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 U' m) C) w3 p                end;
# U. w/ H9 }5 l2 s" f                dx:=dx+activityspace[1,rows];
2 I7 @( c" u2 Z3 q                /*if mark=true then
* x9 l- @+ q3 `: M* n                ct:=activityspace[2,rows];
! k6 y+ H* }+ h, V! Q                        activityspace[2,rows]:=activityspace[1,rows];
+ W$ o; l# b& I, w; H/ a5 z# i                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% c7 `8 v% g5 X- v        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);
& z- Z( F( J) Q        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);
       
        rows:=0;
        lines:=0;
, h4 A9 T2 n& r- M, W# ]6 |        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 s4 e2 i! y  H! l                        if j=i then
/ e, a/ z8 x# l5 Q9 \                                d_from_to_chart[j,i]:=0;
                        else
( K( i3 ]7 O8 l& h                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; k1 I0 _3 `3 x8 X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  g. \6 U8 d0 E# y( Q5 e3 a1 @                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# `7 l1 X8 R8 v, P! B# z* g! ?                next;
        next;
' g$ C6 F2 n0 v. k  y       
        lines:=0;
3 Z2 J- E2 l" n8 H+ q; f& m6 K        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: |" k1 F4 e( q0 q( b                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. o/ j0 ~: i9 |                        lines:=lines+1;
0 }. V0 a6 Z6 D* A6 T0 X2 A% {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ c" u7 s9 p, b, ^) e  W1 n+ m0 {                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 I1 e. O% D& ]! e. r                        partstable[3,lines]:=sprint("parts");
# Z6 O; e/ z  I/ c' r                        partstable[5,lines]:=rows;
! I! q+ n% p. h3 u1 J                        partstable[6,lines]:=j;
$ f* d3 g5 r* O8 u* @9 ^$ w4 L% H9 h                end;
* ^$ T4 {. @& O5 k! S        next;
        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]);
. [' J  A8 f  P# ~        machine.name:=machinename;标识符未知
& z: p: S" z3 o; I" j        machine.proctime:=5;
9 B" T) a4 u* F5 J! M- p: F& h        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
1 e4 }) }( g& {% A" j7 @( J0 M        buf.name:=bufname;
5 I  _; T; J' |% f. j2 q; P( ]3 m        buf.capacity:=5000;
        buf.proctime:=0;
- w- x5 r( I1 i7 o' t  g1 E$ U) S        .materialflow.connector.connect(buf,machine);
' X$ O1 B  H7 c* T. q! `* Z       
        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);
7 N4 D8 o; a1 |next;
end;