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

zooey

is
        mark:boolean;
! ~* U( d  E( _! I5 q3 R        dx,dy,ct:real;
/ P4 S; L' K& {9 |, Z6 _7 ]1 M    i,j,rows,lines:integer;
' x9 e+ }/ Q% {6 _- j, L    machinename,bufname:string;
5 r2 R  G( m% t* u, K7 U: A& \    machine,buf:object;
# @# Y- Q2 S' p6 q$ |, K  f+ s6 Hdo
( D. K4 d* l* a# s9 D1 X        current.eraselayer(1);
  t  w! t$ M  M0 }4 ~* `       
: ]/ W/ P! _; |, A7 ]6 N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& I( [0 v' ~7 Q0 r1 t. z9 q! w                when 16 then
                        print"yes";
  j7 v) X; m1 ^; {, k6 p: j' p% X                when 32 then
                        print"no";
) B, v1 Q2 y, `                else
                        print"cancel";
                end;
) ?8 Z3 H& Y- C9 x* K                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
/ x( k1 v$ w& b3 w: n8 }3 p        machinename:=sprint("M",i);
        if existsobject(machinename) then
' x! t" B( `  O" |3 H  E                machine:=str_to_obj(machinename);
+ M5 j& k+ S9 }2 T- z4 N                machine.deleteobject;
; w( N' G1 _% `/ B' Y8 z2 k  p* L; g        end;
' X' M3 q" M* x  f        bufname:=sprint("BF",i);
  k4 S- q# G9 V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 }/ {" G9 X5 z0 ?6 U/ z; D; M                buf.deleteobject;
        end;
        next;
( g2 K. o4 z/ z2 j: S$ y, F       
8 Y0 Z$ H+ I* ~0 K! M! \1 `( c# `        dx:=0;
        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
, U- {: i. y4 Y; o* ~, j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& P" d1 b; ?# J/ K6 Y                        print activityspace[1,rows],",",activityspace[2,rows];
1 g# _( ~) m1 ?5 k6 z* F* V                        ct:=activityspace[2,rows];
) Q8 k9 S  ~. I5 |+ S! b3 x, a                        activityspace[2,rows]:=activityspace[1,rows];
7 _6 H/ N; _' H$ \                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* U1 j2 R. q+ ]- ~1 O5 K% a                        --end;
% g8 t4 V+ B- u                end;
9 p5 v5 ?2 ?, S! E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; R2 P! ?/ W7 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ c- \: T. _  H+ t7 ~) {! }            if activityspace[2,rows]>dy then
9 ^. ^& A, }  Z6 T9 h( p/ y                        dy:=activityspace[2,rows];
# r8 d2 u. M" _- n                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 d" X, {0 Y' L                        activityspace[2,rows]:=activityspace[1,rows];
- v0 Q5 }( A2 S. G7 ?& `/ d                        activityspace[1,rows]:=ct;
- b. H7 w3 L' ]                        end;*/
: k0 I) c$ l: J" S$ P8 P, \2 I. i4 e        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);
- \' l  }8 z! j( e% p6 K& x! m        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;
. A# B- R2 X$ B        lines:=0;
. j* `- b% C7 [7 Z: R        for i:=1 to number_of_machine loop
( s* s) W7 f% ]* f4 E6 E) J  _( D                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
& \* N2 d4 W. Q  y                        else
! H2 G1 _: d6 J% W. L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; U( w7 k0 W5 `/ v; i                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' ^* C" d" o2 @9 u% z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
, o. B' }8 f! A8 {  x2 a       
7 P1 d- D( [' F* V# O7 ?6 u9 h        lines:=0;
        partstable.delete;
1 T/ U: E) H$ F) H* E0 t0 N/ R& b       
1 `' v6 ]# Y% }  T, v) q) {        for i:=1 to number_of_machine loop
# t( w8 k+ W; H0 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' k' [: h" r, S+ j                        lines:=lines+1;
3 V7 Z4 j/ G. J2 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 z7 o! u" ^/ T8 F2 N/ d0 @7 W% |                end;
        next;
        machinename:=sprint("M",rows);
  n  ?4 E8 R6 G$ B        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];
4 u# d/ I: @8 N        machine.exitctrl:=ref(leave);
       
- Z8 K. P5 R  t* V  Y6 r7 h. q        bufname:=sprint("BF",rows);
; {+ V; {$ f  W. L        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;
9 v" i* q, W7 R+ D9 Q. l        .materialflow.connector.connect(buf,machine);
+ ~2 v! r+ X+ I5 |# z       
# n3 O$ y1 m1 q1 {8 S# x, ^        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);
+ u6 v( S7 d9 M, I3 Y  s5 Znext;
- U* u$ u& I5 J+ B/ X) w) Fend;