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

zooey

is
        mark:boolean;
5 v6 D- `: `( g5 s1 n        dx,dy,ct:real;
& ~: j  p- ?7 n( m$ s    i,j,rows,lines:integer;
    machinename,bufname:string;
, u, _$ l2 B1 E4 \" Z4 Y    machine,buf:object;
do
# L$ k: ~& w5 J        current.eraselayer(1);
! C- L( I4 n  B' t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  S4 L' |2 Q% k8 _2 A/ ]                when 16 then
                        print"yes";
2 k- X4 p5 `$ N7 d# w! Z                when 32 then
# u8 d* o$ L9 m/ R9 Z7 z) G                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
$ I; M  L& Z5 Z' F6 _3 @0 S7 A6 Z3 `        end;
/ P, d6 f' Z. c2 n4 ^7 m$ o* ~       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 ~7 I9 S" c" h9 E        if existsobject(machinename) then
' J. }9 m8 _7 v3 j                machine:=str_to_obj(machinename);
. f3 }& |: b/ H7 w9 R0 h                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 U7 r. Y# [) S' |5 @" L- s        if existsobject(bufname) then
9 x* r( _  H. V- P                buf:=str_to_obj(bufname);
& d- M2 `0 N0 v! _2 z0 _% y! Q% a. Y                buf.deleteobject;
8 Q4 o1 Z6 H( I* H        end;
        next;
2 w" ?7 E9 S% y( L) N) x! W       
( @  Q0 j6 H: j- ~        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" s0 h, p; ?. m+ p9 O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' J3 b7 ?' [1 q& T7 ?' A                then
: h" @$ L$ w6 Y                        /*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];
( I( L/ u9 q2 f+ S* \                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) H: m6 {; \, _: f                        activityspace[1,rows]:=ct;
# v: {& r5 m# n$ N                        mark:=true;
: X! i  g5 l/ W; ]; s% N7 k$ \                        else*/
                        y_max:=y_max+dy;
7 E8 Q8 R9 d# Y                        dx:=0;
                dy:=0;
                        --end;
$ Y  O# a! r7 ]! N/ U                end;
                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;
2 t( I- R3 u' w7 \            if activityspace[2,rows]>dy then
' M7 E( ]; ~+ D; N/ B                        dy:=activityspace[2,rows];
1 `! A: t! ]( H. d$ R' k5 W: w                end;
. T. R- i4 `. W4 Z5 S. T                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 w; Z3 v, y' D# D1 n4 S/ t* w! g                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 F& h- v/ ]! ?8 x                        activityspace[1,rows]:=ct;
                        end;*/
3 k' k# B9 P1 e        next;
        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);
6 `' ^4 O  w! r1 S' l9 J! H/ i        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);
# c5 n! v/ Q+ v4 F! |       
        rows:=0;
, _# A- {+ c9 G        lines:=0;
6 H9 F7 k$ G' s7 l9 _        for i:=1 to number_of_machine loop
  x5 }' \' E0 \4 W3 m8 B                for j:=1 to number_of_machine loop
' o! F( v3 N+ ?4 J1 `) T                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 D/ N+ g* A9 x& h. A                        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);
                        end;
                next;
  U. u, I$ X. N9 T' G# _        next;
0 Y, B& ?- M$ [9 X. i/ [7 I       
# F/ B; `7 A9 G        lines:=0;
        partstable.delete;
  v; Y' i9 `$ O. @       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, w6 D* j* x/ H                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# A+ t- w: k& E7 u( A# Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- ?3 @8 i5 a5 P. f' [6 x. x7 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ G4 w4 N' X. v) `2 m. r4 w                        partstable[5,lines]:=rows;
0 [0 F$ R8 d8 U* n                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
2 u! u) _7 L8 @, r  o/ o        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]);
( f( d+ W* @" R# \% T        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
8 W8 \- m) V1 Y) N+ }/ h( w- W        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- Y$ _/ P1 e* x' H2 F# ?9 o- a1 k        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 {9 A" {/ K+ Q8 _& G* ]- n4 T# D  D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
1 D1 O* @/ L* B% R0 K) s        .materialflow.connector.connect(buf,machine);
       
9 `# P  x) A+ Q$ M2 L& r" a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% N' k9 B- {7 @+ l8 cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- E3 P2 ^" Q& c% vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
. @# j: W4 I: B7 lend;
; P8 R$ e, T4 J, q1 |, m! e+ s