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

zooey

is
  s7 I: L/ b# x: T+ j( p        mark:boolean;
        dx,dy,ct:real;
; W- I3 |% O% {9 k' B# _, p1 T  R    i,j,rows,lines:integer;
' f" u# E7 P/ P7 J    machinename,bufname:string;
: o/ t& x/ J7 N    machine,buf:object;
- d8 B' t8 ^( Sdo
  W! A6 k9 k  H' Q- G4 M2 X  R        current.eraselayer(1);
! [4 |' v; p! _; Z; n" Z) R- D       
% ~( o/ }0 Q; q/ _  n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% M5 c+ o& |* [; j( g! O( d& P                inspect messagebox("设施数目不对！请核查...,",50,13)
0 g* |. U6 u. E* N& c                when 16 then
3 o1 Z7 }4 [0 ^, h8 G# H                        print"yes";
                when 32 then
8 G1 [% h# d  T, k# T4 s                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
3 U* F! O* b* v! p! a' [' b( i, b       
        for i:=1 to number_of_machine loop
0 {& b8 f' k. a4 x! y        machinename:=sprint("M",i);
: F5 N# e: a0 W/ ]- z        if existsobject(machinename) then
# g$ n1 G4 J, x" q1 r0 A& T7 w7 }                machine:=str_to_obj(machinename);
" I, H* U' @) }                machine.deleteobject;
( l2 G! H5 R7 b( l: |3 @        end;
+ v+ \, Q$ h1 i0 _        bufname:=sprint("BF",i);
& V: t. z4 R9 l$ n/ r2 a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 @, `% @  u8 k  T                buf.deleteobject;
  _$ [$ J. A8 k) h$ ]# x        end;
        next;
       
- W1 y3 K; `: t7 M0 Z        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
. l; f2 p6 ~$ C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 i! P8 Z, G7 p: T9 z; x                --mark:=false;
7 [  V# Z  J" u3 J# m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  t( W  \# @3 y7 d  ?3 z+ |9 x                        print activityspace[1,rows],",",activityspace[2,rows];
. g; R  J4 ^) T6 M6 l9 W                        ct:=activityspace[2,rows];
2 i7 b- ^, M% C) @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
% Q! _1 H& T; v' K1 V9 w                        y_max:=y_max+dy;
" i) F2 G/ S, ^' I/ ?2 x4 {6 s                        dx:=0;
                dy:=0;
% E- B1 C' k  Y- }1 I4 v( O6 D                        --end;
& o  A  W' ?) ?+ |; T5 s4 T                end;
2 B% v, ]/ s" g  [) 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 J/ @6 p! A" _: O, L+ g% |                        dy:=activityspace[2,rows];
4 N+ i! r% _5 X- z4 O                end;
8 T* k% A0 S0 S  c  w                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
3 i/ |) a, a. w5 x0 O. V3 E                        activityspace[2,rows]:=activityspace[1,rows];
7 H7 _, {0 d1 m" O& [                        activityspace[1,rows]:=ct;
                        end;*/
+ K  d! _* o* u0 Y        next;
6 |4 _, m& x- T! s. J- a7 F, @        y_max:=y_max+dy;
1 o3 {# Z  @7 P. \& g1 o6 F        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);
. S& U6 X- X$ d        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);
       
1 W! l" w9 S/ l2 Q- |* u) p& {7 r3 I7 L        rows:=0;
9 N! o( X, m# o* |& w& t: u        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- H% f/ q% J5 ^. H! l                        if j=i then
/ C3 _, c  X6 n; Y                                d_from_to_chart[j,i]:=0;
# J+ D& k% @! P' L                        else
3 z. [; n+ J- M" b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ n& g. C0 G  g* t                                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);
% r# a' m. V4 E4 r% B                        end;
4 j2 e& ^; x5 |6 j' {( @                next;
        next;
+ l3 e* b$ ]3 ~2 T) m$ J1 @       
        lines:=0;
9 h1 {0 _4 O2 E        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 y  H5 y5 F: x* d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: N9 f4 m5 p2 l: \8 M3 A% \* a                machinesequence[2,i]:=rows;
+ ]& _! o4 h3 x% e$ W* h7 \                for j:=1 to number_of_machine loop
4 W5 @4 g  h: R: `                        if w_from_to_chart[j,rows]>0 then
% ^/ V! [$ U$ o( c- J; |                        lines:=lines+1;
/ b+ _( l+ [* }8 \) W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ r5 b  |9 ~& l  w                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; p4 R/ o9 q8 n0 N' v* J' T7 v. u                end;
( i: S8 M: }7 s& b4 [" X, l1 M& ^        next;
' _/ v2 [. h& l1 h' w- ]. N) J        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]);
5 [9 |! S3 Y2 N" U" F5 f: J8 \        machine.name:=machinename;标识符未知
# n# H: E. z, x. X* V& }6 x3 o        machine.proctime:=5;
0 x' e. G3 c; ~/ L' {' P/ N7 r        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
; `' @. x& g7 |0 F5 V       
        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]);
        buf.name:=bufname;
. p) ^6 U. }, I) Q) d+ q( c        buf.capacity:=5000;
6 u3 `" p) [9 s        buf.proctime:=0;
, D. V, E9 E, ?' j( L8 O, f5 z        .materialflow.connector.connect(buf,machine);
       
7 j/ u, @2 T  `( S, @        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;
( ^$ c* P4 L  I/ |1 B  q* O6 Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 h" c' K* W9 q- B  {" Tend;
% f0 p2 E; }: O. [8 R5 Z