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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
+ `: ~* Q9 a% K" [8 kdo
        current.eraselayer(1);
0 [( h  v7 _' ^& ~' l6 R       
1 f) p; \& X4 v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
6 K# \, k" @1 W& r1 {* H& }                        print"yes";
                when 32 then
( M/ |; B. [  f# F0 k/ p                        print"no";
/ H3 q) }6 K* Z( E! J: ?9 K                else
5 }3 @1 B$ u6 i0 N1 g                        print"cancel";
5 X% O0 q7 ], N3 e0 ^  t! F                end;
                eventcontroller.stop;
        end;
$ n! y2 `1 V6 x2 T  _8 l0 r       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
& A3 d$ a% F: @" ]* I                machine:=str_to_obj(machinename);
                machine.deleteobject;
" f; Y* p9 r8 E6 o( F5 G7 x9 n        end;
# S3 ?' \- A; l( d) D2 l- s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) @9 @9 d6 R8 A$ T1 A* X/ n1 y                buf.deleteobject;
        end;
$ N$ R$ T+ d8 q, ]2 v        next;
" `" X5 v$ a# k3 q, b9 b; x       
        dx:=0;
        dy:=0;
6 \( Z; J9 _6 d* C/ y% n        for i:=1 to number_of_machine loop
% f$ z, |$ N1 b# C: P2 p2 C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 q; ~4 S3 G: u7 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 ]+ @3 `) S' k+ H+ Q8 M5 S( G                then
/ u! j, M: g( k                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 [1 d" ^8 U& P' o) D                        and activityspace[1,rows]<(1.05*y_max) then
1 w$ ~) p8 f1 g" Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ r* B8 C8 G4 J3 M9 e  z" `                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. l0 V% ~; b1 H/ n+ y                        mark:=true;
# v8 K( G& I6 c8 V1 w0 _( S: f                        else*/
  ]' }" Y  e' L, E+ F. H. k                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
8 g8 z8 d: @- y4 |; d' b( f4 t                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, w' i: }9 b2 X" c  L: f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& w. Q0 R0 ^8 h  H4 ]" |4 q/ ?4 r! E( y            if activityspace[2,rows]>dy then
# Z- |. ^; b+ {7 P. p+ P5 {                        dy:=activityspace[2,rows];
# o$ D4 b' j& J7 i) y; F                end;
. o: l: V/ M5 }5 X2 X& R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 T0 |# V8 \# g% u! y7 l. e                ct:=activityspace[2,rows];
6 y; [* b( u  h! n                        activityspace[2,rows]:=activityspace[1,rows];
( p- y: _; f4 g! e& U* v                        activityspace[1,rows]:=ct;
                        end;*/
! V+ m. Q" t' X9 p$ }        next;
        y_max:=y_max+dy;
# G. @3 N& E4 ]: B4 ~" l) 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);
) s+ G" ]& I' {0 x- h7 [        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);
       
/ H8 S3 S9 Q4 d1 s+ _. p! {8 N& X        rows:=0;
% W/ L; d1 U% P        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
( L1 x1 Y5 e6 b6 R) U* ]+ v, Q1 t: r; F                                d_from_to_chart[j,i]:=0;
                        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;
% \$ m# b9 L& v) {                next;
        next;
3 O& U) X: A8 `, t  N7 X9 R( w       
# j1 L5 ?' z( V& Y  @7 d; `        lines:=0;
        partstable.delete;
5 O6 p) n3 M  H2 i: T2 f       
        for i:=1 to number_of_machine loop
& F1 r3 L$ M' G, f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 I4 o' |8 t9 B% g; F  l                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 h9 I. m# x1 P$ U+ |# R' M2 o4 M                        partstable[3,lines]:=sprint("parts");
. M8 h: T! }9 n& K% m, j                        partstable[5,lines]:=rows;
8 x, L. e8 s6 K5 u' w                        partstable[6,lines]:=j;
                end;
. g! T& [3 ^5 N$ Z8 p- ?( d7 I        next;
; F8 l# G& |6 L% 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]);
        machine.name:=machinename;标识符未知
0 z1 ~( c( I! a/ r; M        machine.proctime:=5;
1 Y  A; c" b- v) u1 [* {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
2 T9 ?3 \( Z' X9 _$ d        buf.name:=bufname;
: x. U1 S( t% ^; q        buf.capacity:=5000;
- R( \1 ~1 [* H6 F        buf.proctime:=0;
        .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);
next;
  D# W, ~& I% N4 B6 fend;
9 ^5 y' u# }6 {+ i6 K( ~1 N