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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
7 {+ f% `1 B) o9 k, C9 S8 D3 g; Q        current.eraselayer(1);
, `1 M1 l2 c1 d% ^       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 X4 t( Y6 T6 ~0 T3 M2 v- r9 m                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
9 N) D, ]  D" ?                when 32 then
                        print"no";
1 ?" j$ r/ i+ ]                else
) T. [$ ^' n1 y  [4 [. r7 H3 u                        print"cancel";
                end;
: C; V: J0 Z0 g7 u1 J$ N                eventcontroller.stop;
1 ]0 U% G* ?8 n. f- O  ^        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ U3 ~% e% A0 z; r9 p5 \4 |        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 o7 i- r4 }7 z' C        end;
; @& Y0 H4 e* ^: K+ |/ Y6 v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( f6 o: I+ M8 B0 y                buf:=str_to_obj(bufname);
5 S; `# Z* o. F, i: Z+ Q: v                buf.deleteobject;
        end;
( N7 F. z: A3 Y: [+ r6 e        next;
       
        dx:=0;
        dy:=0;
- O  Z6 _1 K8 x0 D        for i:=1 to number_of_machine loop
, J0 _. S7 r; f" T+ K1 O' b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# U' F; [2 E- L5 r, P# i2 g) Z  y                --mark:=false;
: i$ [% S7 A) n) H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* f! ^+ m& \1 F& S( q                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' X: t5 h  i! y, s% a; j                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* ?8 |$ r) R4 m4 g5 q                        activityspace[1,rows]:=ct;
                        mark:=true;
2 c2 e& h0 Y& \% @1 c5 M. q                        else*/
1 e/ s% ~- b3 z9 |                        y_max:=y_max+dy;
# G6 p$ _# x, b0 {, S- p, e/ ]                        dx:=0;
4 N6 N, C' ?/ z$ B9 y                dy:=0;
                        --end;
                end;
! u+ y% ?8 D1 B7 W) g. w$ q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& {& T# D' s- l* B8 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  T3 ]4 x0 Q# V( M8 Y            if activityspace[2,rows]>dy then
* w! R( s; w& i9 t$ d                        dy:=activityspace[2,rows];
6 y: Y( @- Y# k/ D7 }5 r3 f% D                end;
1 t, k9 z% m" A* Q% z$ a                dx:=dx+activityspace[1,rows];
' o" k, z" Q# M9 v& Y                /*if mark=true then
5 I5 y1 \" R1 P, o; s                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 s. V9 I2 x7 b1 G% P" w                        activityspace[1,rows]:=ct;
                        end;*/
        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);
) k8 t* ]9 A4 s% h2 ?        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);
' L8 o0 }  R0 A& p" N       
        rows:=0;
& N  d  L9 I8 \0 q3 m3 X        lines:=0;
1 O' s# ?$ K2 l1 p8 d        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& f: h. ]% h# E2 L                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" l" j% \% L; C. d3 M' l                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ t5 ?7 f# `' E9 ^. T/ I, [! c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 W% R, W) V6 ^* a5 e& j                                d_from_to_chart[j,i]:=abs(dx-dy);
, z1 D+ I. X: v8 s0 B6 i                        end;
                next;
        next;
5 x% a7 L# n! n  q       
. w7 v% N' ?% n3 `3 l        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" r( j+ L! g. I' f                machinesequence[2,i]:=rows;
: h+ s, O* [* E* I9 T                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! n; Q- N2 ^+ e0 x6 C                        lines:=lines+1;
- N7 V) B5 Y/ ?/ E$ _8 v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' ^2 s0 W( e' J+ G) _0 [, _                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ h: g0 y1 }7 _$ Q1 \6 n                        partstable[3,lines]:=sprint("parts");
+ j& B, g! u' o# K! N3 k! @* M/ S1 e                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 _+ r0 k+ A: f+ C                end;
! E# m+ }7 P4 z  D        next;
9 W+ k+ d( I3 r) l        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]);
* C  O# E* m* ^, E' e        machine.name:=machinename;标识符未知
+ I3 U& ]* e" Q+ `5 U9 `$ Y  P        machine.proctime:=5;
- U, W3 d2 ]; I        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ y9 K  h2 K* E2 R       
        bufname:=sprint("BF",rows);
3 B  p) @7 d3 ~+ B1 ^        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;
  z, S2 K, C% N( v4 M        buf.capacity:=5000;
        buf.proctime:=0;
# l9 s) v8 c+ T, r1 r% k        .materialflow.connector.connect(buf,machine);
       
        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);
5 O3 p9 e9 P3 b8 @next;
end;
  T5 w  h& I: t  \" X1 p" c3 W: Y