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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
% ^: Q2 m* B' F. I% c  c' G) a    machine,buf:object;
. I$ ~% q  t& Q" d' R/ Vdo
, _/ q* \5 }& ~& p$ B        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 C# d$ Z, x; E8 J6 m6 r7 m+ m1 }                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
3 l! G! |+ W4 I                when 32 then
                        print"no";
% ^4 ?9 V$ k0 A                else
; r! U/ d& F3 y8 X: k4 j, h                        print"cancel";
                end;
                eventcontroller.stop;
        end;
/ \* u3 Q" c' v       
# v" c+ F( f* d( T* |/ {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ k# e8 A, m1 F, t        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% W$ t. I" f& O0 G                machine.deleteobject;
        end;
+ M2 [* F- J# z* W" Y        bufname:=sprint("BF",i);
8 ?* l, G/ N- `: @4 J( k& Q# V+ F        if existsobject(bufname) then
1 w. @2 Y9 e1 g9 H0 |( T+ _' J                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
  d$ h5 a- o3 u+ T. b        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ Z6 z4 ^( U8 Y# l  N# K9 X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) x) w8 ?! W4 n0 u3 _                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( x! c( j3 N2 ~7 ^/ g! A                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  L" s4 Q9 _% Q+ O# V1 e$ m                        else*/
) e8 `' N+ J. K9 {4 F# V$ c# R                        y_max:=y_max+dy;
/ J+ j: U, Z( S8 N: E8 G: N                        dx:=0;
* U1 a; ]3 Z( r1 s% N/ j                dy:=0;
$ V" u) J' X% p. Q6 J. o                        --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;
9 y# ]( R9 H- ?# B3 F, w0 Z            if activityspace[2,rows]>dy then
% N- M( M- g. t0 a4 b: K                        dy:=activityspace[2,rows];
                end;
' R# s( @7 ~3 z9 R  y                dx:=dx+activityspace[1,rows];
4 D& ~- [% g4 }3 N& l                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 C0 j8 B" U( {4 _0 q0 I& b                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 S! X5 z) ?( n/ A$ H3 J+ ~0 S        y_max:=y_max+dy;
4 C6 u& W; g7 p6 S        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);
       
" y  V; h. h1 p* Z0 B5 W        rows:=0;
( e# I3 B6 C( S( h  ]. X) P% K        lines:=0;
        for i:=1 to number_of_machine loop
# h) {- Q/ E; f. @1 \                for j:=1 to number_of_machine loop
2 u& i+ \* J) ?! q                        if j=i then
, _( n; |- P  z. }& }                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 r, s7 C2 F7 a  v$ D# q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
, a: [9 T4 E7 e% |6 k/ T6 z0 G        lines:=0;
        partstable.delete;
3 C1 Z) y& U# i# s: g       
4 q! r% R- m" J& a4 L& e# i8 m; x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 ?0 R; U2 k, E, G) W                machinesequence[2,i]:=rows;
4 h) v. v2 e0 n7 d% U6 K                for j:=1 to number_of_machine loop
  v) ?, v  g3 ~) Z: E                        if w_from_to_chart[j,rows]>0 then
# D. e8 {/ D2 u, R                        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;
                        partstable[6,lines]:=j;
* R- P* ?; O/ p4 T  g, Y0 \                end;
        next;
        machinename:=sprint("M",rows);
5 y& h% B2 K  S4 I6 D' P        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;标识符未知
2 s+ e0 n2 F6 k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ n; G& k3 k- }* {0 V! j9 g0 d        machine.exitctrl:=ref(leave);
1 f2 H2 A- @7 a! W  U2 }# G: u       
        bufname:=sprint("BF",rows);
' M) M1 R1 F7 }  V! a- A        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]);
. `1 T5 z# q6 s3 q" e        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( \* d" ?9 c# E2 U1 N/ W. g- `       
        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;
end;