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

zooey

is
- c1 m% t4 P2 A) P: q( c* f        mark:boolean;
        dx,dy,ct:real;
0 L- m4 X2 c, q. U$ `6 v4 N    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
8 T7 i( U4 O( [5 Ado
        current.eraselayer(1);
       
/ {5 S4 S9 Y! d9 p3 v& ]- \7 L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ i0 U, v4 N4 b) d; T# q                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
3 C0 [2 l; ?5 b0 f/ {' U                        print"cancel";
6 Z5 I) ?7 P3 \9 O' [; |/ P9 l                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
: V8 V4 x" F% E2 E# W5 D  F        machinename:=sprint("M",i);
5 }6 f) V/ w1 U% [        if existsobject(machinename) then
- n& F8 _; f3 `" ~. s, V                machine:=str_to_obj(machinename);
1 }3 m" j" g8 H/ V1 W                machine.deleteobject;
        end;
6 M2 L/ Q. m& A+ M. V3 k$ Y        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, Q: v1 S$ [3 Q  k                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
1 T- ^' W: F7 C/ @        dy:=0;
        for i:=1 to number_of_machine loop
) l! \- o) N( \' ]( J; i' Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; A, i. U5 J7 e9 b# ~                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; _% |* ?; ]1 d$ Y6 ~/ k! S+ R3 {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# b$ X; c/ {3 @$ ?8 t& H$ p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" C( \- X8 H$ o! @% F! h0 S7 w( M                        mark:=true;
                        else*/
  D2 J7 B3 e+ `! `                        y_max:=y_max+dy;
                        dx:=0;
, Z9 ]' R: f+ T3 Y' ?                dy:=0;
                        --end;
2 f1 P/ y7 s& z0 v' b" Y" J- K6 ?# z                end;
2 R. n7 i# v7 i0 m" |. @" g                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
# e# k. G# ~: V( S& j- Z* |$ }                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
3 r. j8 F: I$ w& o. U: |9 n% p                /*if mark=true then
# q& D6 h9 `  Y+ o                ct:=activityspace[2,rows];
1 T$ {5 h5 m( T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 W+ u6 M5 ^, ?( n$ a3 a                        end;*/
        next;
        y_max:=y_max+dy;
  z# v: I6 X' q2 j        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);
# D" d$ [8 d* I. U$ N  J        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);
5 g3 y+ X0 M7 @# n6 r, b/ w8 `       
! n$ E# F- \0 X9 h$ N: N        rows:=0;
& ~: A, l) m; O: d. h! f        lines:=0;
        for i:=1 to number_of_machine loop
. C$ ^4 B2 p/ f$ m7 {, D                for j:=1 to number_of_machine loop
  T0 R1 b+ t8 Y                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 c. N3 \" R# ?- W% N3 a/ q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 M3 Y9 d7 M3 C0 D; H                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ E# C) k& Y$ v  k' a* H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
  L9 B- t, e' R8 K0 h        lines:=0;
7 x$ f& x' ?% W0 [' {! v3 {        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 O# @# i; \6 t" t5 ]                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 q: S8 e+ ]& m( {7 W# g                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. p/ S7 W* J# l! c/ l                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 g: W* v, F# r) e4 u. l5 C                        partstable[3,lines]:=sprint("parts");
" ~* Z) t/ Y! N: b# X4 i3 L% Q                        partstable[5,lines]:=rows;
( j. l; K" s+ Y2 I0 p! }( ~4 q                        partstable[6,lines]:=j;
% [' x- n4 G, L                end;
' A6 |* E9 ~4 O8 U- i) b  A8 l        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]);
1 m0 u( L! w9 C" x  q0 |        machine.name:=machinename;标识符未知
3 X, L* N6 ~2 w+ K0 f9 b/ k: u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# v! J7 B* T7 ^9 Y, K& {        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 M7 H' }$ O/ m- R        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' S3 U  r6 w. x/ |1 M, _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);
3 H0 d! u0 ?' r  ?  Z0 g# b1 y* Fnext;
end;