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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. B" {  q7 B/ [& S6 C8 X    i,j,rows,lines:integer;
  u2 i- F, c/ C4 [" g7 n  g: t! f- Y    machinename,bufname:string;
9 O1 ]5 M/ [' Y    machine,buf:object;
0 z5 J0 ^1 M/ Z. Hdo
: \8 `2 q7 z3 ]" Z* \: p        current.eraselayer(1);
       
# A! U3 M% S' N& R5 c- l: K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 Y( |5 T0 g  P- f& @                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 `2 K: Z9 f2 }$ c                        print"no";
                else
                        print"cancel";
                end;
) Z- o9 g% A8 {0 N) f& U/ n" p0 L                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
  s7 l: K+ R9 M        machinename:=sprint("M",i);
$ U% g, G4 S! T; {0 @        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 ?! C4 M0 K+ `( ^; |0 r. x                machine.deleteobject;
. B, Y" Y& N  U/ y        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  `) Z3 H1 O# p0 h        next;
       
        dx:=0;
7 C3 t! H3 l( W+ L        dy:=0;
5 o8 ~; }- S' p( t7 D8 F" a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# J+ J  \5 ]4 n+ E! R: z                --mark:=false;
1 k5 Q. X( p, O, F! d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; F0 |) N! }; ?" `2 w$ Y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. {/ x) f( A# Z* e9 \$ M0 @                        and activityspace[1,rows]<(1.05*y_max) then
) c8 S7 `& a$ u! p- _* q( h                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( k9 }: N3 d! R* L$ O                        activityspace[2,rows]:=activityspace[1,rows];
: ^# D. D) g: ^  a- J8 \2 d" K                        activityspace[1,rows]:=ct;
                        mark:=true;
" ]3 L! y( B, n                        else*/
0 v1 w, t3 X8 `1 G/ B" O- r4 ?                        y_max:=y_max+dy;
) Y' H9 t# Q# f% S' C% K% B. ?                        dx:=0;
                dy:=0;
                        --end;
/ t3 U5 Z1 O3 G                end;
+ }8 J3 A; N$ t  [; n1 v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ Q9 l( K# A) W: K1 y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 x/ z! ^9 n/ a/ p4 \1 c: P            if activityspace[2,rows]>dy then
# z1 C5 g1 v6 V/ L5 I$ o                        dy:=activityspace[2,rows];
3 T4 z( @* E/ |0 F1 O* l0 R2 c                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
5 s8 W3 Z" p! t                        activityspace[2,rows]:=activityspace[1,rows];
4 O6 A% O4 G& S% l/ w                        activityspace[1,rows]:=ct;
                        end;*/
0 b5 {5 ]- @8 i0 R# C, T        next;
. @+ M0 L+ e2 ]5 V* Q- H; J. G        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);
       
& |: Z5 p$ H! ?9 p; c7 R" P+ C        rows:=0;
5 m8 w) Z  d. R6 j1 A0 {        lines:=0;
8 `4 @' Y4 B. s6 ^        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 G, _( \* q: c0 `3 J: v8 G4 p* z                                d_from_to_chart[j,i]:=0;
  e, M" U2 s5 |$ x                        else
, R! w/ c# Y* c( o9 V' I; ?6 M                                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];
1 {! ]3 i+ ~0 }5 c8 R                                d_from_to_chart[j,i]:=abs(dx-dy);
" \. d; O! n! g0 M                        end;
. q' v7 `% g- g# D                next;
& M- v+ Q% |( @) x6 U        next;
! D* S! r$ Y" L! e6 T6 u       
1 m+ E! V! b; L" Y        lines:=0;
        partstable.delete;
! B/ D" D* Q' ~. @( V       
! |7 K# d% d) I        for i:=1 to number_of_machine loop
' D& K' l7 i* b( q5 S: X2 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 T4 c  G- t+ }) [$ }9 g& b& v                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, R4 Y0 ^" m! G                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 X5 ]: R6 R; Y. e1 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 v' [9 q5 x% S. U$ S. e1 b                        partstable[5,lines]:=rows;
" |2 w/ `0 H; ^                        partstable[6,lines]:=j;
! {' b* s  ~4 E% y; a                end;
6 g0 s& x2 ?9 h        next;
        machinename:=sprint("M",rows);
1 o" \& @! X$ J; Q: _2 L0 j        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];
5 `* M' @+ S7 M' m$ u        machine.exitctrl:=ref(leave);
       
3 e, d; a" I  h2 x$ A        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;
        .materialflow.connector.connect(buf,machine);
( ~/ g6 P7 A' P! }- v; s. K       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 a- \6 K7 C! Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- w. h9 y9 y, K0 n& ~2 {; a  d  `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
6 V$ Q1 z! h1 m* P0 D( k# B. `end;