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

zooey

is
        mark:boolean;
- G+ [' v/ ^! }+ p# T2 x) X( d        dx,dy,ct:real;
' Z! `" |, S/ T  w# l! [    i,j,rows,lines:integer;
" f/ i2 a8 A% p- D; m1 r- X    machinename,bufname:string;
    machine,buf:object;
do
" o- N4 w- a% \        current.eraselayer(1);
, u1 q5 \0 B5 j3 r& t1 t/ h( @       
+ v3 E2 \+ C; p/ E        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
0 k0 u; V& e0 p& ?# _1 u* R                        print"cancel";
                end;
& g% l; a7 K2 e) J/ W' h  R+ z! @                eventcontroller.stop;
) B4 t& V2 r4 |0 N        end;
7 k2 F$ J/ ~7 W5 n8 k  k       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, J5 b. q0 m) ^        if existsobject(machinename) then
3 S2 m; V( z6 [' }% q: ~! {                machine:=str_to_obj(machinename);
, n- S4 P8 ^5 `0 N' H6 e                machine.deleteobject;
        end;
* \7 X- q7 C5 Q  c( y  I        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& O$ f, F' N9 E; k                buf:=str_to_obj(bufname);
. z3 n/ x& t0 M: W# [. H6 G9 P                buf.deleteobject;
        end;
, F5 F) O4 z* o$ I+ D) I* K  ?$ W4 O        next;
: Y- T2 w2 V- X$ z. h0 i       
7 m4 T" v+ @  V& N$ d' _* `  ?        dx:=0;
4 s9 P& ]# B- P5 v/ {& R        dy:=0;
7 l7 P0 d8 f2 [) W6 ]  r, f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 n( F/ O+ I; B# j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) K/ t5 b& _0 O2 t3 S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) }$ u& e- j% {4 @& k- Z1 n( e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 C4 r5 f! z9 ]! @  O+ u1 q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 }) J, y# A! ~7 H8 t+ y                        dx:=0;
& q/ V4 c7 K* L$ g0 V( J% ?% O                dy:=0;
                        --end;
) h; y2 z+ b2 H3 V* h* j                end;
" U% A) ]9 Q  G4 q                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
+ l2 a! x# F7 Z+ |: c& V                        dy:=activityspace[2,rows];
                end;
8 U% f! [) g- {4 M2 ^                dx:=dx+activityspace[1,rows];
/ I7 E* Z, [0 g* v& n4 f                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% q+ {' @" u& Y& t: \                        end;*/
# ~1 u1 Z: d& W  |        next;
: G+ |: i+ F6 Q+ s        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);
. _2 m7 t3 V$ ?( w  ^  f8 O2 `        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 E9 E7 p3 I$ g9 B. ^9 @       
# e: v# ^5 B5 D* Z/ t/ A" u# m  q        rows:=0;
        lines:=0;
9 h- j/ f! `' E* x* R) X        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 i- H$ L, P7 S! d                        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];
$ u  A. C' i% ^7 H7 j                                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;
; A* f/ ?1 f& d* D5 r        next;
" {& z. y0 n6 L9 v& ~# J: E) n. a       
        lines:=0;
! |" r- Y+ w$ g8 F+ D        partstable.delete;
       
. j( P. |6 T' t6 M3 @1 [3 g        for i:=1 to number_of_machine loop
1 t* [  E. a$ T1 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- B- }/ q$ D; q9 O1 `' k  t                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; F1 b; e( B( @0 e& G$ L  U( m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  E: o$ l# j$ P+ x5 X                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;标识符未知
; D  Y. J/ A& F9 S1 O% j2 E        machine.proctime:=5;
$ L9 L! d0 v* f5 T        machine.label:=activityspace[0,rows];
4 j1 s4 O6 h5 _: ^        machine.exitctrl:=ref(leave);
       
" V9 Z% t, H6 m0 l* y        bufname:=sprint("BF",rows);
  J! f  d4 Q  `+ }( u* 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
& C/ o2 E3 F4 u9 Y( Z- N        .materialflow.connector.connect(buf,machine);
' Z) h2 M# `- V5 x1 c       
        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;
2 m0 ~4 B7 V9 e4 s0 `. X4 t+ Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, J/ m9 s3 m7 P3 mnext;
) O( O  i" `+ }9 O. {: j- [' ]end;
4 W. {4 n. Q2 Q