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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 \# c% `5 B  L6 g) N8 M    machine,buf:object;
: V- V3 Y4 L7 V- I, g( sdo
1 d5 T# B$ [& V8 p0 W& v' {$ g        current.eraselayer(1);
1 R8 }/ {- x" l4 Z, \1 d* f7 G       
) @( O( i5 x1 ~& @+ \+ z- f        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";
                when 32 then
                        print"no";
: x2 q' O8 U% t+ d' k                else
; W6 i# e' C* ]' ?1 }                        print"cancel";
                end;
+ d. \, A* r' o                eventcontroller.stop;
        end;
0 Q" j. N. |9 i. e9 A2 N% ^2 r       
( O5 {6 B, D, m) x+ C        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 V" u" J/ q  @0 f% Y. ^" @" w( g        if existsobject(machinename) then
+ Q7 k( Z  ~+ E$ L$ t( Q                machine:=str_to_obj(machinename);
4 V; A7 ]- r4 X! h% Y% M* m% Z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
+ f$ [$ o, u7 @* Z7 R8 G' h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 L/ Y2 N2 F$ o, m                buf.deleteobject;
        end;
' N- B1 z/ M& G$ o) n6 O  Y6 ?2 C        next;
3 R9 M+ m3 E9 }, n3 ^, c       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
) t1 x+ F: P+ ]2 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 [8 w5 h4 i5 y5 X; u% y, _5 @                --mark:=false;
! b4 n$ w' g$ R' w5 k; x& q% y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- j1 O" _' V2 l2 t3 T/ O                then
5 w& K  M) Q  @& \: X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        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;
/ R; X) u) W, D$ O1 \& i% e# q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
! J" r- b- A6 y. m( O' ?                dy:=0;
% u$ M3 A; D; s3 v                        --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;
8 u* `, R- l9 N( w9 \' c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 h. A2 u; E9 S) R, X" a                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 S* o& L& }3 T0 Y) I2 P1 G# L3 B4 L                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 ^& f) O' Q- _) `9 `; M+ L                        activityspace[1,rows]:=ct;
8 {$ V2 J- Y3 C) _+ l                        end;*/
0 v* R+ c7 M  g  _) l- a1 O+ _        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);
- w8 ~6 R$ l7 y+ h$ X3 y0 d0 C        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);
! O0 q5 L" h. ^! ^' c0 ?' s       
        rows:=0;
4 G% y! R, W3 N5 s' _        lines:=0;
) b5 Q4 B# w4 f8 ~5 s4 E        for i:=1 to number_of_machine loop
# ?, w) ~: n% b& O0 z- z                for j:=1 to number_of_machine loop
2 _6 ?9 ?  r. E! L                        if j=i then
+ v3 |8 X: Q- k0 ?+ q                                d_from_to_chart[j,i]:=0;
3 y. h7 x! W* U# e                        else
5 H$ L* q0 n% e' g                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
- n0 N/ f5 s" L$ c/ g        next;
8 F9 U2 D2 Q; J5 K       
! ]  x7 g5 D# x; `( a; R        lines:=0;
- i/ ]2 I! P! A( T# [        partstable.delete;
: f- p$ `9 F$ W. Z( S# F- N1 F, a% o       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 Q+ ^- Z; h/ D! O( u. M7 n9 j                machinesequence[2,i]:=rows;
4 ^1 E3 d4 @$ u1 ~                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"));
' Z! O! b8 H' w# B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! Y4 B8 ]7 C/ P9 l" f0 o                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
' D+ c" B, {" F6 e        next;
, C9 x4 L" `; _1 y        machinename:=sprint("M",rows);
% N' _  S( q9 q2 i        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]);
1 {" l- L0 e" _        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 E2 N9 c4 G- y5 u+ L        machine.label:=activityspace[0,rows];
/ R- i3 \  O% D        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]);
+ G5 ^# m+ H$ Z2 ^) M        buf.name:=bufname;
8 R' y3 v: |$ Z4 H! O, F  e        buf.capacity:=5000;
        buf.proctime:=0;
) B  V) _# n6 [1 o0 {# h8 u3 D        .materialflow.connector.connect(buf,machine);
. K- p( E3 o* q) v. a% i) p! c       
) z: H6 h& ~7 u0 Q0 ~: S4 j        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);
5 w: d6 e4 x* H' _# b+ _: Xnext;
8 N& `5 f# U7 @# fend;