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

zooey

is
: [4 z& R+ T1 y' s( E$ h' b        mark:boolean;
: L% S! ^/ `4 [8 I        dx,dy,ct:real;
2 P+ W# \' d" q# q+ i0 e/ g1 R9 q    i,j,rows,lines:integer;
    machinename,bufname:string;
5 q* o+ E9 M, G# g$ z& ?    machine,buf:object;
! P. c5 C: |3 d& G. ^& Kdo
; D; K4 d4 u: O5 [$ J+ ^        current.eraselayer(1);
5 i5 K* D1 b9 A3 [, m. j* ~/ Y       
+ F3 c1 [* x( |" `4 ^( {8 ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  s) o& \: M6 Z0 V7 I+ u" e                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
1 B$ q- ?* i% R0 e6 j; M% Q                when 32 then
                        print"no";
                else
* z- d7 s) M0 ^& X                        print"cancel";
( S+ u- @1 T$ z                end;
                eventcontroller.stop;
6 `+ }* w3 T" n        end;
9 D: k- p  Y1 Y" R. u       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# K$ B" w4 ^* H9 t6 u5 N" E6 a( W        if existsobject(machinename) then
$ G* [0 D1 x6 T/ T; J0 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; i0 C% n/ s8 g3 ~8 P( s: G                buf.deleteobject;
  E5 U& Q, f9 r0 `2 o. y1 u        end;
- V: m) O9 F8 K' [+ E6 h        next;
       
        dx:=0;
; U3 o" X, m& ~- B4 C$ _. t* [: l        dy:=0;
# Z! k1 w: U$ n+ Z  [$ [1 x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% K+ n5 H3 p5 m, D/ E0 X: m. c                then
  O+ D6 o& u! y5 U6 K. S8 e7 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 x! `7 s. _' g* s# d% \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. M/ O+ e# D) I7 V$ l9 V; ]                        activityspace[1,rows]:=ct;
7 ~" |& T' E0 B  o* L% ~# \- J0 T                        mark:=true;
4 B# }6 L. w8 a9 L2 d3 [" O                        else*/
  E* H% \% [/ ?                        y_max:=y_max+dy;
                        dx:=0;
( q8 x, x7 ~" H9 x5 N8 ?; D                dy:=0;
) f( B7 b+ k3 X* ~2 f                        --end;
) ]# l: X4 Y. I% q( Q9 @                end;
; S0 L$ P( v# Y* f0 G                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
( x4 q- X3 F+ [                        dy:=activityspace[2,rows];
                end;
6 x* M5 X5 q) g! ~1 Y7 b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 k5 i" [) k+ s: h" Q( N                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# b4 U8 M& G! @) d                        activityspace[1,rows]:=ct;
/ k/ z5 ]' `% Z3 Y, U+ X! V                        end;*/
. J! b: r, T3 X9 [' m        next;
) r9 J& X+ D& w: y        y_max:=y_max+dy;
- [, `; ~1 r( B+ Z$ R( d( K        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 T4 p- B1 x' D* x6 i, k        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);
2 `' R" @. j7 X- c' K: I% F       
        rows:=0;
0 H; l/ q8 E! x- @        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( E. F9 N" S. M, B                        if j=i then
* Y( Z- q2 d4 r1 a- @                                d_from_to_chart[j,i]:=0;
! o( ~4 _1 x1 i7 P0 N7 Z                        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];
" M: I6 l. U9 y1 |1 a  N6 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
7 }! ?1 L$ Q% u# w% @* g7 m/ G$ Z                        end;
                next;
) w$ d( E  G! P+ W        next;
       
        lines:=0;
        partstable.delete;
) }* ^5 R7 b  G1 B' k       
        for i:=1 to number_of_machine loop
0 f. V7 I: j( i% T) r- }+ ?7 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ j4 U% Q  ^% m5 }% }& v0 P                for j:=1 to number_of_machine loop
1 l2 t- H4 S2 d9 _; @* i                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* Z: ]+ b+ U; V  u0 v4 M                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 a. a3 q( o( z& [  Z% ^( L0 e                        partstable[3,lines]:=sprint("parts");
/ G" Z1 U! f3 j7 L9 _& r2 H- ?, t+ g                        partstable[5,lines]:=rows;
1 _1 B) y( c' e2 e" Y                        partstable[6,lines]:=j;
  r8 Y8 o1 O0 o- f0 W9 B. U, u& F                end;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 c4 h4 {' M& o8 {       
9 C+ Y  X% _- q1 J& i! o0 E        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]);
        buf.name:=bufname;
9 N& q0 ?. Q, a        buf.capacity:=5000;
) p6 i5 {9 J! J8 q, b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- f* y# V& p4 e       
# |# P) q+ e( i; ^, M% }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& j  a# k+ y, C0 ]2 Pdy:=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;
+ u  U# t, ?3 w  O7 Hend;
6 f; _/ ~/ l+ u- g. p6 L0 j