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

zooey

is
        mark:boolean;
# c: g1 k+ X; |+ F2 m) h        dx,dy,ct:real;
+ |  c2 E! m. c2 O; ^) n* e# S' c9 C    i,j,rows,lines:integer;
0 \1 ]  C( J5 `    machinename,bufname:string;
( I; i2 O- r4 M  @  J7 o( ~/ R: L& M    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! u) s! S7 Q" L( O                inspect messagebox("设施数目不对！请核查...,",50,13)
0 `  Q$ ~+ D% S, d, u% }                when 16 then
                        print"yes";
1 @6 @4 }6 d7 `. t" I                when 32 then
, i, y! o" Q; R2 y5 \                        print"no";
2 e  s+ C; T2 h3 W: x1 n1 F, {" d                else
                        print"cancel";
8 ]) l5 N3 c' D/ i                end;
1 [5 }- ]5 e# |0 x                eventcontroller.stop;
        end;
/ K! o5 c, r% D! Q       
2 S# P2 r& y0 |        for i:=1 to number_of_machine loop
1 N) e. j6 `. |9 K        machinename:=sprint("M",i);
  W5 \" D9 A! B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
+ }1 s/ n/ q' y/ w1 g+ P9 }" @* J* ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
7 ^6 H8 ]  K3 y4 D        dx:=0;
9 O/ O' Z' U+ R2 s1 Q# T4 C        dy:=0;
        for i:=1 to number_of_machine loop
  D$ m1 M' H% E+ M0 i  s, [4 v1 n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 B: M% W9 C" ?+ F2 ^3 l* n* H                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 r9 Z$ y: i6 R/ U$ q                        and activityspace[1,rows]<(1.05*y_max) then
1 ~0 w5 M4 [/ h* ^$ F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" P0 j3 n) D* k6 i- r2 @8 a3 `                        activityspace[1,rows]:=ct;
' X/ i, W" i2 Y                        mark:=true;
9 i0 C0 U6 U6 r& E) }& ~                        else*/
7 D3 f$ l# C; n                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ k& x9 |6 N! O- F                        --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;
) U2 s0 Q; }2 i* B            if activityspace[2,rows]>dy then
& R4 W4 l* |, n4 C6 _, |                        dy:=activityspace[2,rows];
! o/ v$ g4 H# b  Q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
- T# @8 S9 d8 a' [/ T$ N6 C                ct:=activityspace[2,rows];
( W! ]3 g8 r* k! ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
* Y9 o1 O1 a4 P        next;
        y_max:=y_max+dy;
. f9 ~, d9 k2 d' S2 @/ K        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);
0 J' N5 w( y) d1 q" l% L) x; Y& q: t        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;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" s3 d0 \0 \5 r                                d_from_to_chart[j,i]:=0;
3 U! g$ p) S  _/ H& j# M  @                        else
  R' u$ n1 Z$ M  h& I6 [! m% C9 |% W                                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);
                        end;
                next;
! s+ X' ?' ]5 r7 x6 `1 H        next;
- }- X! n4 n2 k6 _. W$ u       
        lines:=0;
4 u' q. b5 l, D6 e6 D8 c+ q& p7 m        partstable.delete;
" ?9 E0 C7 u6 d       
        for i:=1 to number_of_machine loop
  d- S6 Z6 Z; T! C7 m2 P: R, S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 N, x) Z0 K5 ]0 |( R( x1 {: `                machinesequence[2,i]:=rows;
2 q5 `% h5 C) A                for j:=1 to number_of_machine loop
* |' {3 _( @$ U1 ]6 K4 f: A& r" ^                        if w_from_to_chart[j,rows]>0 then
7 R  F; B$ @; u* v                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, N; F2 i9 F4 T                        partstable[3,lines]:=sprint("parts");
# c9 D& t2 r- X, e8 s. d                        partstable[5,lines]:=rows;
9 r) z2 S+ T; _- i/ L3 H7 J8 y                        partstable[6,lines]:=j;
; F& ]& a8 O* R- f- o4 s" ?                end;
        next;
9 W. F7 K5 T2 `) F6 X: ]8 S- Z        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;
( O( r; i6 h( G4 t/ U* V" @        machine.label:=activityspace[0,rows];
2 Q+ \. ~- J8 u2 P5 c  R        machine.exitctrl:=ref(leave);
4 i  b. o! u" m9 Y: a+ E       
+ M6 k( ~: t0 D- ?8 d        bufname:=sprint("BF",rows);
7 @+ o5 l, W: n+ K        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]);
# z, z! h1 b  i! S        buf.name:=bufname;
7 m2 K$ m6 J. @" K; |3 t0 N: {9 N% x9 R        buf.capacity:=5000;
        buf.proctime:=0;
- `7 Z6 G& h' J+ ]! ~1 Y        .materialflow.connector.connect(buf,machine);
       
% ~4 g) q+ I4 K0 i" U' q, A0 }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 c# X' H) q2 l& `5 P6 G  i5 O* Fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 X5 G/ J, K! i& t- {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;