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

zooey

is
        mark:boolean;
/ \. Z: \1 y+ F, m( u- L. `+ ?        dx,dy,ct:real;
% H! q2 U2 k( j    i,j,rows,lines:integer;
" {8 v( [7 Q! g- b% ^' u    machinename,bufname:string;
    machine,buf:object;
do
2 L: x0 A2 d- m. P        current.eraselayer(1);
       
6 V5 `. ~0 t' W' \4 x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 J6 \/ m8 Q8 l                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 \# T' v5 h* A9 u) a5 [                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
+ {- t( f: T' R$ E. B# Z- U                eventcontroller.stop;
        end;
       
) I  @+ S! N0 j* n- u0 g5 V& H( F        for i:=1 to number_of_machine loop
, T6 ?6 p6 e# ~0 U/ k        machinename:=sprint("M",i);
4 V0 ?5 T: N4 Z4 V) @        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ S. F/ M; r; S3 _! z: {                buf.deleteobject;
+ s7 k& g  |0 I/ a8 F3 R+ ?- H        end;
) k) D/ S7 p9 [        next;
; M- K8 W, G5 i( m       
5 f4 g; D9 m0 e        dx:=0;
        dy:=0;
! h1 c7 [0 Y( ~4 ?, i- d        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
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 q6 S& u2 ?6 F2 I" @3 n8 G9 f7 a                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
- a- Q  f  Z; |5 D" ?/ U; o                        ct:=activityspace[2,rows];
9 T5 p4 ^1 ^: K$ O7 o                        activityspace[2,rows]:=activityspace[1,rows];
* i7 U( u0 R8 I. ^# n" g                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- q9 H+ V4 l1 W6 B$ ^# `8 i                        y_max:=y_max+dy;
2 u1 u  U$ Q; Q3 I5 t' S                        dx:=0;
% z- p/ ~: Q- J8 \+ Z1 F                dy:=0;
: C4 d4 d" h+ l/ |# I; \6 X; p                        --end;
% b! Z% {) N$ i7 M                end;
2 y( ~' T) a9 y/ a# g8 c                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! N9 t' E2 `4 F) g. P( z( ]$ l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
! p7 y- Q9 c8 W5 L0 j                dx:=dx+activityspace[1,rows];
4 [7 Q  A+ ^; F$ c                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 K+ b. Q" h( g! e, s        next;
& V( K1 t0 }' `8 L: j9 R        y_max:=y_max+dy;
0 C2 M' D$ ]4 W3 e$ Q+ t+ ?        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);
' f, q4 A* r/ h2 h& x- R        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);
+ H, L# |0 k! A5 ]       
7 S6 o$ k9 ?; C1 A8 R        rows:=0;
' W! Y' \% G( h+ U; v- v6 ^* g        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ C# u+ i8 o3 c7 h3 b                        if j=i then
, ^' ~3 R' {" i                                d_from_to_chart[j,i]:=0;
                        else
! {/ x6 n5 d! w( h  t                                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);
# F( Q" ?: P8 d3 `                        end;
: h, `) K8 z4 e6 x                next;
        next;
& f. T& {) w+ k       
        lines:=0;
$ C7 Q' D! b& F4 _( q; ^' e        partstable.delete;
( C( `( x9 J7 f8 q1 S" T+ i       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% d, t. b  v/ a1 V  L: }1 s                machinesequence[2,i]:=rows;
% s4 w: u; c" K- I9 ^$ V                for j:=1 to number_of_machine loop
; V2 x3 ?4 E! s7 s2 [                        if w_from_to_chart[j,rows]>0 then
6 G- R8 h' D( y1 k                        lines:=lines+1;
( k+ h, C; h8 \7 g( J                        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;
/ H( B" m$ @6 m& R                end;
        next;
        machinename:=sprint("M",rows);
# |' u* }) u8 U/ {  z# y5 ~, q        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]);
% z3 ]4 |% I1 B% u        machine.name:=machinename;标识符未知
6 ^8 A- @. K8 a  N& C        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& m' D, K( i" d8 z7 M        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 ^$ q: |7 U4 ^& H' k6 g3 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]);
        buf.name:=bufname;
$ |3 i" n* p6 ], Z0 {2 v6 {( y7 K        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 M3 S% `; t( E& D       
% q" s# _" \, ~8 H( i        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& U4 @: L8 L- s) j. q6 vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* `2 {0 `% g9 X2 q0 {' O% icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
; `  G* L, y6 b& x$ g