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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* ]# J" Q( W  S3 d    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) u" l) e& G$ Z- Y: ~( [. ^2 i' E5 Bdo
% a" E+ A# z  Z        current.eraselayer(1);
! B( i8 @5 E! k2 }       
& `8 {$ y2 ]2 G; E  M) b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 w% N3 W, v' B* w. L6 z0 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
. n3 i3 a( @5 |# H' {; D' E                        print"yes";
                when 32 then
# v/ \3 U9 o8 w* b' H2 p) Y                        print"no";
                else
                        print"cancel";
/ o* Z2 U8 x( D: J9 l& E& _                end;
7 v% [8 o4 M1 R1 `5 P                eventcontroller.stop;
        end;
- l# l+ i4 }* Y5 u7 H       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
% m1 h: r8 v& S1 T2 L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
6 J5 V  Q( X- O- M% j; P2 |        dx:=0;
5 Z: s' G. Y! h6 `7 \3 f3 m        dy:=0;
) _' G' V$ f- y5 A( r        for i:=1 to number_of_machine loop
- l/ X1 k( a/ b$ c" p: U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 e: r5 [' \* |5 `+ S/ R8 w                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, g' \" a# _/ [/ K- Q0 ^                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
+ Y, Q: j2 V( j3 W1 Q+ q: z6 L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; ?& b9 Y9 y( T5 n0 P" y, b6 j                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) [+ g5 ]# N+ B4 Q$ h                        y_max:=y_max+dy;
5 B2 V2 ]5 e8 |2 n( x                        dx:=0;
( g2 d# T8 M* a5 `) a% k& `5 b                dy:=0;
6 J% K3 o. C2 u) ?6 J; T                        --end;
# `/ F. O, o7 Q                end;
3 m! Z2 f# m* N" `7 T# d                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 k( i7 o0 j& Z8 p& T1 P                        dy:=activityspace[2,rows];
                end;
& M$ [* u# J/ ~8 O5 O+ }                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 u! B- l( y! L( n" j$ n. D+ q0 [% i                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 ~/ k2 n* x4 Y+ j        next;
        y_max:=y_max+dy;
, K4 R) L& t" A$ |        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);
0 O/ h) u4 J/ t$ G        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);
% C( E: l, m  T/ x! F% i7 d7 A       
        rows:=0;
- B7 W, }' L+ d5 V* p  v" s        lines:=0;
" H9 ?8 B% x# G& n4 [% F! S( U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- q' y9 U1 K, q6 q                        if j=i then
" M" p" w6 ^7 e8 }: }+ M                                d_from_to_chart[j,i]:=0;
                        else
$ M" }$ w. I) t3 |/ Y                                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];
  ?  r1 b7 |0 X* ]4 m" n7 h7 S                                d_from_to_chart[j,i]:=abs(dx-dy);
. X" u5 q, H$ w5 C, }                        end;
                next;
        next;
" M+ h$ B0 a% b; w! j, q; E       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 I  e  s" U# ~$ {$ A/ _6 `( V/ I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' s% J9 l, R/ U8 @' I                machinesequence[2,i]:=rows;
8 D7 ]* f$ i4 K. ?* d9 Q( V                for j:=1 to number_of_machine loop
+ \6 T  `; X0 L. X/ l) K3 S                        if w_from_to_chart[j,rows]>0 then
7 g5 R& I5 B* Z  h/ n) r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# `& g- L0 Z3 F6 W# E                        partstable[2,lines]:=w_from_to_chart[j,rows];
! R# u3 ]' V( G  }* A$ o1 q                        partstable[3,lines]:=sprint("parts");
' _0 W" a* p) m: u# a                        partstable[5,lines]:=rows;
$ k) W# W$ \) y/ V: }                        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]);
* N( g5 p3 S0 c0 [. ~        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
1 t# S" V4 U8 D# B. a        buf.name:=bufname;
( r& s0 C; X$ u7 q$ b/ d        buf.capacity:=5000;
) R" ^/ }$ L( `* F        buf.proctime:=0;
; e  d) N5 p8 v$ T6 i/ H7 b        .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;
! @# v* ^7 d5 T" b9 @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ X7 C  j: M/ J( a" `next;
end;
) i8 j# l8 t, |* p8 M