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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
3 ?3 ^2 r& W* C  Z8 r0 ~2 Odo
. _4 P4 S3 V) T( `3 ^9 M        current.eraselayer(1);
3 s7 Y4 u/ |: w  q* b       
        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";
) r4 F6 W7 q( d  J                when 32 then
! m5 B1 u9 K3 o( _4 p" \                        print"no";
                else
                        print"cancel";
) `7 Z1 S7 Q) E* R/ X# C2 |                end;
                eventcontroller.stop;
  y. i9 Z# U) _0 I$ [5 w        end;
8 S' l- I/ W. a  Y       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- T! _2 r0 C7 ~, a                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
" J6 n- M! G6 K( B; F        bufname:=sprint("BF",i);
# l) t4 U1 x9 j- e. [        if existsobject(bufname) then
3 k- z/ `. \' \' @9 E% b                buf:=str_to_obj(bufname);
& b% d) u9 s# p7 D# Q                buf.deleteobject;
        end;
        next;
       
5 ?/ x9 D1 j: ]/ L        dx:=0;
        dy:=0;
4 t: ~3 u( r% p& D' U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& N$ s' |; C# P' A0 z& G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 l; J/ j, Y8 a  t8 H                then
5 z" m- m, [5 @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ \1 t& E5 y" c1 E# y0 y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ P6 H1 H1 B# k# X3 L2 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* f6 R3 j- r* I$ G  E7 L                        mark:=true;
# T9 d- V/ R3 L1 b                        else*/
+ _* @% S& c5 {* w& m2 k! @                        y_max:=y_max+dy;
. n9 |1 k4 F. n2 A9 q                        dx:=0;
" P8 b& U. [! q% r                dy:=0;
                        --end;
                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
# ]4 }- ]: p, ~7 F  c                dx:=dx+activityspace[1,rows];
' s$ o6 O9 P! x                /*if mark=true then
  R- k+ _0 ?3 i6 X, H3 b/ r. k$ r                ct:=activityspace[2,rows];
0 {0 p$ O* r1 l& K: [2 a                        activityspace[2,rows]:=activityspace[1,rows];
' G, I" o; H% r' _1 ~& z# n                        activityspace[1,rows]:=ct;
$ H' p. a. d: B; }! W# P                        end;*/
3 J- u8 G8 [- n. {! h1 z        next;
        y_max:=y_max+dy;
" ~* A+ R5 i: D3 D* c- {$ n        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);
- D$ [( N+ p6 X5 F" Y6 s! s) O       
- U/ w$ z  l1 {- T1 R+ q6 V        rows:=0;
$ ~7 ~2 e; L9 c/ S3 r- X3 F- v        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, g, ?7 G! f5 ?" l4 @% i                        if j=i then
: g# V6 [  @! B- D: ~, T/ p                                d_from_to_chart[j,i]:=0;
( [5 T4 a% X! a                        else
$ m# ?, ]( a$ p; T1 P; K9 X                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 b0 o% S0 F& B9 h                                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);
& w5 ?2 K' T# |* U5 _" E                        end;
                next;
        next;
1 c7 Q- d! u" ?7 u- u       
        lines:=0;
, z' I! Z0 S8 x5 t        partstable.delete;
5 b, a; L9 [! ]6 d0 }9 `; N       
! I6 X  J4 s+ q        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
                        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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 o" q" E; I3 z% }! q                        partstable[6,lines]:=j;
                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]);
) Z$ ?* S3 Z  C" O4 ^) }        machine.name:=machinename;标识符未知
2 ]! D/ f; I& j9 |8 N: c6 M        machine.proctime:=5;
- T/ i2 ^$ h# C0 b; ?9 g        machine.label:=activityspace[0,rows];
* I' |9 `; @* Z2 p0 W: l        machine.exitctrl:=ref(leave);
6 g. l. z, H8 _8 V       
6 K. W$ f7 a: Z8 \8 D        bufname:=sprint("BF",rows);
  ]1 `8 T7 Y  y1 b6 z8 ~        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;
$ m, k% e( o$ |; i5 t! Q        buf.capacity:=5000;
        buf.proctime:=0;
$ ]6 `7 {! q, @0 R        .materialflow.connector.connect(buf,machine);
       
        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;
  L$ B  Q# b" g' Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 I  L: z0 ]  Y, Q& P: Hnext;
end;
9 k- q5 b8 ~2 R2 d/ v! ?