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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 k  V* u4 C) l% w    machinename,bufname:string;
    machine,buf:object;
do
# `) S( ?6 e2 |) D( c        current.eraselayer(1);
7 q1 W( c% K; |9 ^" s. S- J. e8 ^       
  c9 `, D" _* L% [4 W0 f' \0 P* g0 r        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" z' O+ Z/ Y( E! M# T. ?, {- _- E                when 16 then
) H1 V" k! G0 l; B) l, _                        print"yes";
9 l# q. B- i4 A0 l1 \* J0 R                when 32 then
) T- {/ a; ~1 T2 n+ |& G6 _! j                        print"no";
, B$ H4 c) Q# D9 f8 b8 k# L) O. K                else
                        print"cancel";
                end;
                eventcontroller.stop;
( ]. Q3 X7 M2 q* f  Q& H        end;
       
# w/ s6 m+ p% H) S        for i:=1 to number_of_machine loop
/ O5 k" w5 {, H. J4 U) w. s        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
3 s9 [5 p8 G7 S) y6 J  {        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, Z+ `9 e/ A: k5 R: h' X                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 n# e: A: T" R, f4 g        end;
        next;
( [  U( T# x5 d7 q4 I  o       
        dx:=0;
  u5 l6 U8 w  i! A  h: K        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ a7 j0 `) R8 U' F8 X/ r# g1 V                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# B2 H& |& m3 F+ ]# H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. r/ U" R2 e  y! z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 B8 C( Z$ M8 x( G8 O! |" t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' r* y4 d9 m  J& r3 b                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
" ^$ F1 W% `4 }0 H                end;
8 ?7 i6 B' G5 [/ T1 k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% R- I8 z1 p0 k4 ]5 z  @+ H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ C: e1 H6 h$ p& l; M6 i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
1 G" a. P% {3 \/ F! Q3 w                dx:=dx+activityspace[1,rows];
$ h% y5 \0 [& d                /*if mark=true then
6 t  S3 [, L- W! G# D  u                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 E" j# Z# j- x0 l                        end;*/
# {- y' _- t: y        next;
+ u8 u. W8 n& d( m( W- V        y_max:=y_max+dy;
7 a& U/ K: o" i) P, W5 L        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);
- w( ?) _8 ]! p- _% G! n( s9 Z, J  A       
9 T  G8 d' N% n  l7 g% x/ G  J        rows:=0;
( O3 |, L" j: B1 V- U- R        lines:=0;
- M* C3 g0 H8 e# j        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; j; C; W; [1 ~2 V/ [6 u& g% X4 u                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 Z4 j* T4 J8 G" Y0 c* r                        else
                                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;
! k4 H5 d0 G) [; G* E, `+ q4 S( K                next;
        next;
       
        lines:=0;
8 k2 @" g- q$ @$ ?' x$ E+ n: u        partstable.delete;
       
6 o0 _; H/ H7 N& G# f8 d6 m3 A! g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 W( o! m% G3 m  B/ ]- l: A; F0 @5 d                machinesequence[2,i]:=rows;
2 l# m1 C9 [* ^3 l                for j:=1 to number_of_machine loop
: O% ~+ ~/ t- |: J( W                        if w_from_to_chart[j,rows]>0 then
0 \+ c, |0 d2 ]. W                        lines:=lines+1;
) x/ w, N( R" Z0 M, W! J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! d) }$ K4 H& u6 H. }- @                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' [3 `) K7 T! d5 K; v. ^                        partstable[6,lines]:=j;
3 q' l: I5 W/ L; x/ p                end;
        next;
        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;标识符未知
% j5 h1 V( Y; M        machine.proctime:=5;
! e6 n8 V: m, D$ N        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 P8 ~7 a/ x( Y! U       
) V. b  k# y5 M5 W. W3 P        bufname:=sprint("BF",rows);
+ L/ ^' e3 V0 X7 V4 Q. P6 H2 B        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]);
% P+ @7 ~9 t7 I! M        buf.name:=bufname;
5 K$ d  v- a/ G5 I6 B        buf.capacity:=5000;
/ G4 F1 u/ i/ I5 }- B1 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ J: D" @& x7 Q- N* B5 V: G       
: j# f2 X  s3 ]3 I. @$ d        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  e% g5 M( g3 R6 g7 vdy:=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);
. _: c5 q) f$ b% k: R& Gnext;
end;