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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 G) h! M, F3 @    machinename,bufname:string;
    machine,buf:object;
9 O, b$ p0 V2 U$ Z8 [. i) x# sdo
        current.eraselayer(1);
2 @" }' k8 G. Q! Q& Y! h       
* K! n! f2 }9 U5 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% T1 x4 |1 \2 L6 D; X! I% W; P5 ^: D                inspect messagebox("设施数目不对！请核查...,",50,13)
7 E  m7 A7 L/ O* f                when 16 then
# c6 c7 C* e2 z/ R$ f( O  J' |3 |                        print"yes";
3 ]7 K: H2 R$ w8 }. n                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
( q3 H3 H- E/ S  ?                eventcontroller.stop;
  c: [; \4 q8 j* r* o        end;
       
2 _( }2 W( ]6 l5 v4 i$ t5 f        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- G/ b0 ]3 ~8 B* h# E1 z: L& h        end;
; w+ A! K  K3 R2 Y$ |$ S' V/ @        bufname:=sprint("BF",i);
" }' N( f) U$ d        if existsobject(bufname) then
$ V( h, B) ~4 c, ^+ g: X                buf:=str_to_obj(bufname);
" ^" l$ {5 p* [4 _; K' @                buf.deleteobject;
- f; i3 q" \8 T/ S& n+ c" u& ~        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
, i& Z0 U$ Q* E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- b) I* W4 @. w2 \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
8 A0 @/ @5 a2 H: u6 y; t7 V4 Q                        /*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];
& A' @# r% ~2 R' n5 o0 S# w2 F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
/ x0 C+ K6 E" }                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
- \) t. U. b" O$ t* m  e. w; j                        --end;
                end;
5 u+ p$ |# Y3 B* ~7 |. R$ l9 W5 Z! n                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 z. s/ G) C1 f  x  G& A% O& c8 {1 [                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ {! G8 A  ]5 |2 n' j( \                        activityspace[1,rows]:=ct;
                        end;*/
% e# {" M. h8 M7 D! B        next;
6 [7 R# u  N  v        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);
        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);
       
4 u+ y6 h4 l1 m' p; H+ y4 f  ~; R        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 W1 m0 }) v% i                for j:=1 to number_of_machine loop
                        if j=i then
+ b& v( x% p: M                                d_from_to_chart[j,i]:=0;
                        else
% }; {8 g! J: _8 A$ V. d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  o. J' N) [4 M: R. d                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! A" A. d) {& v& z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
" J8 b5 {9 j7 T6 A2 ^: h        next;
8 U3 m  m/ p2 W       
        lines:=0;
% G" a/ m' b  Q% z8 S6 P- N        partstable.delete;
       
6 |1 e" x! |2 r        for i:=1 to number_of_machine loop
1 w3 `- v/ n- a3 R% h. n1 {- ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. k& Q, l: W0 a( b+ t' l4 b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 ^5 N+ d0 f4 o( C; j4 a$ c                        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;
  }; \# ~0 P- C, v6 R  [                        partstable[6,lines]:=j;
                end;
" r* l1 Q5 h+ e9 f6 X# L- L3 a/ `        next;
: I3 H+ w9 s5 ^# X4 y        machinename:=sprint("M",rows);
% o0 f9 ~+ ~$ u        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]);
* l& U; w  h  M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
, ]" @* e# P3 T3 v8 E2 J8 ?3 k        machine.label:=activityspace[0,rows];
* \# \! p6 h) }" w6 A        machine.exitctrl:=ref(leave);
+ @. `+ p. y' z       
, @. H" K4 C8 r" k3 Q        bufname:=sprint("BF",rows);
; B) `: u! B/ E        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]);
4 ~6 x$ `$ @. _+ n( u" U        buf.name:=bufname;
' C; |. Y* H* v/ }  D% u8 m        buf.capacity:=5000;
" ?9 G) |# O: h2 P% ?7 S( k        buf.proctime:=0;
: a# z+ F- S2 d2 T. {! v' r        .materialflow.connector.connect(buf,machine);
2 A0 A( z+ Z$ Z) z( S) a. ]* _5 d       
" n# P8 A( @! P/ ~* o9 [  p        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;