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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
( @% s# E( D2 f  x3 U    i,j,rows,lines:integer;
  q! m: m& G4 Q6 V% r    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 S7 w8 x8 J9 [$ y; q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
  |+ p9 O$ I$ E3 u& u+ U/ {8 B, }                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
8 r& p% A$ }0 D0 V  z        end;
       
; o% g- v; M* ]        for i:=1 to number_of_machine loop
" w. c, J, x- F0 @! B0 Y1 M        machinename:=sprint("M",i);
        if existsobject(machinename) then
) C, T2 F+ F( Y! `- Y3 G! E                machine:=str_to_obj(machinename);
- A) L% ~+ H" G# x% p                machine.deleteobject;
* d; ~- o# S5 p9 }        end;
        bufname:=sprint("BF",i);
' \7 a; i6 w3 H" E, t7 X        if existsobject(bufname) then
+ {" A: E5 y. B/ I- x                buf:=str_to_obj(bufname);
0 B. ^) b5 b# }% ~5 G# Y                buf.deleteobject;
2 l& n9 L1 j& o/ Z/ b" q7 R        end;
        next;
       
        dx:=0;
2 M) {2 T1 h. Y! q1 a* _        dy:=0;
        for i:=1 to number_of_machine loop
3 ~* E* u+ b& Q: U9 y1 J$ c& H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: n( H' Q$ l0 u+ e                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                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];
7 D1 [+ t" o5 @! R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ @& D( h. `1 Z0 ?& ^9 _% N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
: I* ~2 L: R, a6 h# D: j/ P9 W3 i) A                        dx:=0;
                dy:=0;
                        --end;
9 P' z6 f9 O; f0 e  T; U* z' E                end;
) y- ?% r2 l- G6 [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* v+ ^* }: i! T7 m8 y7 {  V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ Z  w/ K4 F* h' i5 Y- c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' s( {0 X0 J0 A. M                end;
                dx:=dx+activityspace[1,rows];
. I2 c2 L8 w. {3 Z1 V8 j8 h6 n                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# \/ m! K4 w7 l                        activityspace[1,rows]:=ct;
$ e9 s# q* B0 \                        end;*/
        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);
' ?- u/ m0 q$ Q# [" e6 e        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);
8 W, o% j& k1 `: W% M: ?' p6 F       
        rows:=0;
        lines:=0;
$ w+ N8 O% o+ t" `% c! T8 _        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        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];
, w% j$ j* t* Z* L* X; c5 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 B6 x+ ?0 C- t  j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
. i, m! @8 ]% o2 _. W2 ]        next;
       
1 P$ v9 N* H- {9 q7 s. v# ?) w+ Y        lines:=0;
        partstable.delete;
# p* k  h, A  l! _, h       
: i4 I0 ]% R' ]" k* V1 ], [+ P        for i:=1 to number_of_machine loop
2 i1 d$ j( ~2 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                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"));
' ~; v  U2 T, X# w3 G- D# p4 c+ x& b. F                        partstable[2,lines]:=w_from_to_chart[j,rows];
* w" ~8 f; v( p: @  V3 N! H                        partstable[3,lines]:=sprint("parts");
' g, t$ W! k3 D5 R) z5 \8 @' K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 Z# h% W+ X& [/ P                end;
' X% x9 e( p% H- e        next;
" [0 L$ m) v6 g/ V        machinename:=sprint("M",rows);
- Q$ M' {& g% H( u" K& d        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]);
3 V: g3 H7 Q  @        machine.name:=machinename;标识符未知
5 _" l. b0 N: `7 q  L4 H        machine.proctime:=5;
, F6 f" i/ K% I! F7 J) y        machine.label:=activityspace[0,rows];
' @1 T% {. h7 a1 L- h        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]);
' Q( C# Y  T# V! _4 H+ k: q' x        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* E5 P1 C2 [' _6 O, m       
        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);
next;
( U6 L- z3 b$ d3 _% d* `( z8 |# ^9 H; `end;
7 t! ]$ m5 Q- T& t( E( y) u& Q