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

zooey

is
* k/ o8 b! ~2 {8 j$ n) w        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" E4 J! {2 R! n, K( f( A8 E' _    machine,buf:object;
do
- l$ ]) z1 ~5 ~0 a9 p* @9 G        current.eraselayer(1);
5 I4 J# o: }3 y8 E2 L* s7 v       
7 _2 N1 n) m9 n* ?2 x! C0 n: A1 W        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";
, ~6 S9 F. A9 B* x0 k                when 32 then
                        print"no";
  T& `& M: N% n" R% P                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
9 t- F2 h) X9 d       
& N: A, D7 d2 Y  `        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, d2 f3 s6 E9 ~) q: q  O$ j        end;
1 r5 Q4 s) M: b5 U# |$ ^+ ^8 ?        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
+ t. ]) Z* i% ], p, T4 Y                buf.deleteobject;
        end;
        next;
8 [' w9 p6 U4 @# I       
        dx:=0;
* i) `* L7 J4 m$ p$ O, u        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; F% C5 q4 @+ y0 Q, n: c( g7 \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 u! G" Q3 K7 s8 U6 n: l7 A4 I                        print activityspace[1,rows],",",activityspace[2,rows];
, x# I3 _- R/ a                        ct:=activityspace[2,rows];
6 X& I  W% S: Q' k                        activityspace[2,rows]:=activityspace[1,rows];
4 o$ m" V& t* [                        activityspace[1,rows]:=ct;
                        mark:=true;
' U/ M: i8 B, m1 i# S/ Z0 g- s                        else*/
                        y_max:=y_max+dy;
: X: @& X% c2 s: D                        dx:=0;
" S+ V: B' C" Q7 W* J                dy:=0;
  g6 L" ]- a- x                        --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;
  a; [9 l. j+ e) x2 U0 d            if activityspace[2,rows]>dy then
  d+ G, J  l9 t% Y                        dy:=activityspace[2,rows];
0 z0 m3 m  n# {0 }% D                end;
. ?& l2 \# X6 b2 |& E, M" e' w                dx:=dx+activityspace[1,rows];
3 `0 Q4 n; g- d4 f& l6 D                /*if mark=true then
/ F  T2 F1 R  Z, X' a, s) {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; z' a4 d) {( n# F                        end;*/
        next;
2 Q' d8 _0 O4 p- g3 H3 |" ~        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);
       
        rows:=0;
* ^  b+ B9 ^9 i1 O9 [; S4 p        lines:=0;
7 f, S& o- V. b, Z0 V' Q( b6 _" t) N        for i:=1 to number_of_machine loop
  l( t* p+ h0 r' F& [                for j:=1 to number_of_machine loop
# M8 s  y" ]* p& P; }' h* F                        if j=i then
                                d_from_to_chart[j,i]:=0;
- Y' r4 F% w6 w1 H1 Z                        else
5 z& `& }4 {, C; y& K3 L4 }3 M                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; [& ^1 i% S' q$ n' A                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: R9 h' _1 W2 H0 _                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
6 v4 @! P& h0 u. i) y                next;
* R6 y5 {8 v$ v8 y/ X        next;
       
        lines:=0;
9 G0 W2 x% Z- n! k6 w* ?7 M        partstable.delete;
5 B2 X* ?, R2 h% \  U, X       
        for i:=1 to number_of_machine loop
8 t+ ~+ S1 _* [2 X9 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) m3 c$ {. v0 [8 W9 p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: B+ y1 a( [  @2 w7 x5 m& K5 F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# ?/ e4 S% P; g1 j6 x( `: A0 v* k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: i( O$ z! \7 j  g                        partstable[6,lines]:=j;
                end;
" E  P/ W, }+ O7 f" R        next;
1 W2 ]0 X: ?1 m, W3 G, p' 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 M9 p  [: q- w6 r4 b9 S& b; g& x       
* ^0 N+ R1 B# k0 M) m8 m        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]);
8 F" A1 W" X# H        buf.name:=bufname;
; Z) S' ?" O$ ], O2 \) B, k        buf.capacity:=5000;
' g/ o$ y9 N$ c( K* }6 z3 J5 U% \        buf.proctime:=0;
: {8 Q; l7 Q7 ^6 G        .materialflow.connector.connect(buf,machine);
* x; y* R% W0 r' _5 N7 ~       
        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);
$ x; x+ }8 o  \; }+ _: z4 mnext;
1 _; d( y' ]+ h$ Q2 V6 }% I- u+ i- X* kend;