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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
$ s( b( D* r$ q( R    i,j,rows,lines:integer;
3 `2 ~' J& J5 O, b    machinename,bufname:string;
4 \$ J. D  @" F# Q- S, R; {    machine,buf:object;
! O4 e6 ?9 a: Y! E: x( Sdo
        current.eraselayer(1);
* y2 M# h: K; [' o2 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
8 N  c' w$ O6 [$ b6 Q  z) I                        print"yes";
                when 32 then
                        print"no";
1 z$ u8 z% y6 L                else
- m5 [8 x" z; N2 |! G                        print"cancel";
! o- d% u- e. w                end;
- Z* [% V# V- j+ K# t! e6 i                eventcontroller.stop;
9 w- w, {9 d, Z" |& f4 h5 ?        end;
, G7 [' T$ J8 e' e" I       
        for i:=1 to number_of_machine loop
/ Q0 B6 ^0 b0 T+ X, J1 ?- X, E        machinename:=sprint("M",i);
        if existsobject(machinename) then
, j+ b1 L; ^! H' I. H9 U& m                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 A  n+ n5 L" U; A1 H        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 k; C+ F8 B; y- V) a                buf.deleteobject;
, d, P8 l8 g, o) F+ b6 r/ s! C        end;
1 `, s) }% A- S4 b/ B+ L        next;
0 y; C$ u6 h  |" }) S; I) d       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" o& C- r1 A1 G6 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 x3 U: r4 h6 K) P2 Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% K: b( h% T2 Y8 w* v  F                then
, ]4 N5 F5 [" i& i                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: ~9 y# {  r$ U: o                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 ]( }* k& V& c1 C1 X' Q8 n                        mark:=true;
                        else*/
: [6 Y2 V, i+ F& u$ X                        y_max:=y_max+dy;
: I. o: t1 e( K% e( D3 Q+ f) \                        dx:=0;
                dy:=0;
; S( T8 s5 D7 i                        --end;
                end;
# Q* J* v' t( C                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
7 v. n# j- f4 u) g  E, a                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; \6 G2 t/ `, j" R" q2 E2 M+ {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
        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);
' L- N, }; _: {' R0 }" G, w, q+ j       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! g$ ?4 h8 K, G* R7 v: ]                for j:=1 to number_of_machine loop
( S; R+ C  u( O- c6 ?: f, h                        if j=i then
1 m; P& {0 @/ t' G3 C, e                                d_from_to_chart[j,i]:=0;
' e7 k7 ]* R6 w, S8 \! ?$ U                        else
# c4 {- _% L4 H% [3 W" P1 W/ S                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! F7 D$ e3 w* b- L) I                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 a, m8 p" [6 a4 V                                d_from_to_chart[j,i]:=abs(dx-dy);
: S% Q( Z0 n. q( C9 M; k                        end;
: d+ @8 ?/ x$ Y* }5 P                next;
        next;
2 ?5 V6 S; J7 t5 l4 E) V' Z' G* @       
3 ?: i# z; l4 G* ~3 w5 ~        lines:=0;
& Q- v4 Y/ d+ @        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 C0 y/ q0 X5 t) y/ l2 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- f6 A* j2 ~: a& V  v( V& g% |( e5 p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  E! [" T" }& ^* _/ |5 `1 w/ E0 w. V# m                        if w_from_to_chart[j,rows]>0 then
, H- G) V9 K* @" L                        lines:=lines+1;
0 K- q/ L7 g. V4 p- G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 i  X0 `2 x! |' l! ^8 B                        partstable[3,lines]:=sprint("parts");
  j8 j. {9 }3 S, u, N; i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ p& ^* N3 A6 v+ p4 [7 Q  D8 e) t                end;
" E3 h- {' }. W- Z' r, O/ ]        next;
; _/ N% ]4 u* N4 d# \        machinename:=sprint("M",rows);
: G& I* R8 V' d5 r        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]);
$ W& p2 ]+ S1 N: D        machine.name:=machinename;标识符未知
: X- c; C8 W- p' P/ S5 S, G! u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' F- N# c$ h3 D3 d0 C        machine.exitctrl:=ref(leave);
. A5 W) }* k& m6 X       
        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;
1 U& {- I3 B0 u# Q. o+ p        buf.capacity:=5000;
2 ]1 R1 b, u6 T. q% Z6 E9 Q        buf.proctime:=0;
( V1 b3 r) L& g        .materialflow.connector.connect(buf,machine);
. c6 [) F* @* J4 z  [  p$ k1 U       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' I1 j2 ^" J  @3 Ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 U- O! e7 ^3 m6 b1 @4 ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* d2 }  }) o6 G$ o- k7 e$ B/ g  Snext;
end;