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

zooey

is
; ~9 ~1 p$ o8 [8 I        mark:boolean;
% c  i" O" p$ A. V  v        dx,dy,ct:real;
6 s4 k" N3 u6 m) [    i,j,rows,lines:integer;
    machinename,bufname:string;
9 r3 [% i( p" F4 R    machine,buf:object;
: A7 m8 Y7 X4 Hdo
  G7 p* l( m0 x( V3 K' x$ S+ u        current.eraselayer(1);
5 G6 o1 X% E7 b# K" [7 _! M& i       
  C9 Z+ v, r2 p0 e8 f4 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- Y$ E! V) y5 H5 ~0 E                when 16 then
                        print"yes";
* i' D6 J, o4 N                when 32 then
                        print"no";
                else
" t# ]" w7 A" V$ G( m% h! S/ h                        print"cancel";
                end;
                eventcontroller.stop;
        end;
, I5 A' v7 l5 ~( K       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ {( i# Z1 T9 L$ {1 Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% n. s& ~4 W( _; d! k                machine.deleteobject;
! e8 x- c3 \+ F% {5 r6 o% v        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
; g0 T! B; _- t/ I+ v4 E        end;
        next;
       
        dx:=0;
        dy:=0;
8 w) i* B8 w0 n+ j) b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! G& ~$ |9 Y0 ^/ z0 _3 x                --mark:=false;
% Y2 ^$ ]1 r, j4 Q% j% t2 C' D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! m8 R' n, M2 ?                then
# F* Z( X& n% i0 Y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. \) h8 |4 Z& f; ~4 W+ ^                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
% f( Z0 N* [( B' d. T2 q                        ct:=activityspace[2,rows];
- V6 C* v2 E. e8 h% M" U2 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 n, f1 [- \& i6 U2 a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
, ?' g2 e1 {# ^$ D8 f                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;
) S$ h- v! \, S8 q            if activityspace[2,rows]>dy then
/ x. C5 W/ F& G! n9 Z6 S( g$ ~0 R3 L                        dy:=activityspace[2,rows];
! _# Z7 \" j0 ]- N! A                end;
                dx:=dx+activityspace[1,rows];
/ n1 J- H( i" A/ B0 [( N                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# ^' i9 y1 X4 x5 J        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);
        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 B8 p2 t1 e) y& Y4 L# s! w8 J% }. L       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
$ s1 P) m( N# o3 @# P$ a                for j:=1 to number_of_machine loop
: T3 R# W% b. b! a: Y% ?9 u                        if j=i then
; q1 y( M! a5 I# b& N8 Q* e* _                                d_from_to_chart[j,i]:=0;
                        else
) O3 u5 X: E& `" @- @, n/ {2 Q( n                                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);
# j1 p- e1 l5 K  h8 Z                        end;
  B" F( Q* n- b" A) F7 p; V                next;
        next;
' o8 }) ?1 P! O: s       
; q- K3 r& m, B  h' v% B8 D4 ?* l. G        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
  t% t2 Q; G. k+ n' R$ z4 p! \5 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. T; c/ _, u8 l$ J9 L4 V( @                        if w_from_to_chart[j,rows]>0 then
4 L& x4 |0 Y2 K9 u; e                        lines:=lines+1;
8 D$ M. C7 e% p- a0 q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; A* K  b; |& J' x' z  r6 L  B, H. N' L                        partstable[2,lines]:=w_from_to_chart[j,rows];
! l9 z4 e% {( W5 `                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 k4 ~0 o+ X% \" v( f) n0 M                        partstable[6,lines]:=j;
  S7 P+ Z$ J! a* J- L                end;
6 I' n- o5 n' l- B! X- \1 _        next;
' I8 H  q, }* }8 W) t7 D) d) r        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]);
2 j/ X+ T7 D7 r4 V6 _        machine.name:=machinename;标识符未知
/ w0 p% ~8 X8 @- r        machine.proctime:=5;
5 b* ^# H1 ?9 D! n        machine.label:=activityspace[0,rows];
6 p  r$ s- j# F, c5 a% K        machine.exitctrl:=ref(leave);
3 r2 A5 i! S; q3 e2 \7 ^) W8 _       
        bufname:=sprint("BF",rows);
% A8 k; y3 }# J% Z2 `        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]);
0 x) p3 e7 a  s3 _+ |' ?5 [) _        buf.name:=bufname;
4 f& ?0 }/ I7 y7 r; E9 Q  _+ V: v        buf.capacity:=5000;
+ |/ H+ }+ X# ?+ }        buf.proctime:=0;
3 l3 m  D! L' S        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( |+ h  [. U8 o- I3 H; }- wdy:=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;
. M! x0 A6 V, `) R2 Hend;
' d0 L1 ?. w+ ~+ p/ M1 t% J" z