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

zooey

is
0 U9 Z' F9 H1 S3 O+ B  L        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
) E5 V. o) c' z+ \! Y        current.eraselayer(1);
, z! w# u* J& U. N7 P       
        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
/ {9 B" O8 j4 Y) Q                        print"yes";
8 j+ U( d, A3 `: ]$ T! |                when 32 then
6 I7 C* h& ?5 F9 F' [% K                        print"no";
& N& H  V1 ?8 u+ I! {& l% p                else
, K% M4 a8 h/ ?8 @; l3 G/ L                        print"cancel";
0 _0 E1 a; ^. c2 _8 ~                end;
                eventcontroller.stop;
! \! R1 T5 U7 Q* C3 n7 {( G2 ]        end;
% l9 {& x$ c* j4 B       
# x0 y1 {1 N1 `5 D6 v) c2 g, N        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ \6 x7 f4 B$ i- L2 @0 `& C7 t! J        if existsobject(machinename) then
' R6 r: G7 r6 C! \                machine:=str_to_obj(machinename);
' Y8 R1 \  X$ Y5 u                machine.deleteobject;
0 l; c6 b* w0 f1 L& c        end;
) V" Q" {0 D/ k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 @6 o: e+ V, B. S7 ^6 o                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 k/ n: p* j. e8 |2 [1 A% v1 ^+ \        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 {9 z$ ?/ |* _% [                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 p  _2 i/ c5 t- Z: d6 C* J                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 h! F/ M* Y8 q, R8 U( q( m                        and activityspace[1,rows]<(1.05*y_max) then
& W/ g1 l& q+ S1 E                        print activityspace[1,rows],",",activityspace[2,rows];
3 u4 Y& V2 Q! w" p6 y5 W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 S7 I' [) e7 M1 S3 o: k                        activityspace[1,rows]:=ct;
                        mark:=true;
1 @% l8 `$ L6 D7 r6 D( t                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
2 R6 ?, r  L* h# }8 b+ m( a, @                dy:=0;
3 p6 u7 D5 u7 _& i  v7 m# l                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 \6 j4 P: }9 a( j2 ?; W7 U, I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& y2 t; U2 x% |                        dy:=activityspace[2,rows];
8 w$ q9 d# W$ S* s, U. v                end;
( g7 U7 g, g8 R' X3 g                dx:=dx+activityspace[1,rows];
$ e: w# Y/ C! P6 ^7 |4 [                /*if mark=true then
+ z0 k+ V' e" k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# r9 t! ?$ p! Z% w. g" p                        end;*/
/ Y# U- m* j% m& @        next;
' v# Q* L. {* ~8 l% i        y_max:=y_max+dy;
6 V: m5 o9 O3 I- z& i0 ^, _        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);
       
9 G7 F+ T9 q, [, o  V$ P7 y, v        rows:=0;
        lines:=0;
) _( r3 p% l/ Z! w        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
9 c' E2 S! h8 K                                d_from_to_chart[j,i]:=0;
                        else
/ n% i6 g$ D/ T( o  m+ ?# Y/ W1 A                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  V' A3 H: F! \8 F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ w  G4 u) \) Q3 Y- P' v                                d_from_to_chart[j,i]:=abs(dx-dy);
  E( t% L+ i1 w) K+ O& N# t                        end;
- L1 P5 {$ B$ v: c: K  |% a4 K$ G                next;
6 ~/ P6 f1 e- o) B        next;
       
5 r( n$ g, N2 E5 M        lines:=0;
3 ~  c7 i' k( n        partstable.delete;
$ B' V3 u7 p* _1 _       
7 v5 ^. ?+ u1 q1 r: e. h$ E! ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' K  ?5 s8 r2 Q% k9 M( ~/ P  n                machinesequence[2,i]:=rows;
" N3 H- p( l$ Y4 }& }" \                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 h6 a) c; Y1 s7 H4 c& G                        lines:=lines+1;
4 W0 W: {; j. d1 ^( C& l  J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 j; W$ e- M( z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
5 f  R9 \5 J0 W9 a1 r        machinename:=sprint("M",rows);
* D+ k, N4 Q+ y5 B; U0 v        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]);
; S, `2 Q; ?( U, e6 c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* k# O& X1 M  B1 w       
        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]);
/ \% o( n; a  j5 E% |        buf.name:=bufname;
        buf.capacity:=5000;
5 B6 }' |2 P; n2 F0 G        buf.proctime:=0;
, p3 t" \! j2 B  z% J( P        .materialflow.connector.connect(buf,machine);
       
* l2 ^* N: Y1 {9 G8 O        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;
  `6 T: V$ c$ k; B# e  g% v. acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;