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

zooey

is
        mark:boolean;
5 i# f' K" n# }+ \% J        dx,dy,ct:real;
4 Y9 m4 R, ?7 v4 e. X1 p, f    i,j,rows,lines:integer;
    machinename,bufname:string;
1 K" S7 ?  f$ Z. ]' V& ~2 Y. F    machine,buf:object;
do
        current.eraselayer(1);
) j/ y, p, B0 b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. G* h3 k4 R( |$ ~8 `0 G                inspect messagebox("设施数目不对！请核查...,",50,13)
4 a1 A- g# k1 |& R$ Q! x9 Y; I2 u                when 16 then
                        print"yes";
, g+ p& N. H+ W% w7 `                when 32 then
$ @3 U. m/ f# s- P                        print"no";
                else
# L/ R  d! z/ H3 ~3 B  `8 F8 t6 Y6 U                        print"cancel";
                end;
$ ?/ r/ d2 H1 H" y                eventcontroller.stop;
6 ^1 F$ T" c7 s8 Z  ]* k        end;
. U9 Q7 D" T. i: K+ M) n7 o* C       
) _9 G9 x7 Q0 B( J$ \        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 O# A/ n2 f/ A2 U4 M/ B/ T        if existsobject(machinename) then
& _: F7 R8 U( X  c# G                machine:=str_to_obj(machinename);
8 q5 J, G7 j' D3 g! V                machine.deleteobject;
        end;
4 D" Y1 w/ G0 ~1 S, Q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 H  }' m* a( `1 P/ E        next;
- V' U; @8 n. U$ [% Z+ C       
        dx:=0;
        dy:=0;
9 x  h* q$ ^& r( r        for i:=1 to number_of_machine loop
% O8 Y3 d: t! A# }, \- R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ ~) N; }- P# `7 g  a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 r+ s  ~! B- L( ~9 A! B9 _0 M                then
+ Q" \" P$ [5 f) b2 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% X3 ]& o8 |: }; G7 W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 a" X! f8 P& \5 A( d  H1 K                        dx:=0;
6 b3 V- ?" p. a1 K                dy:=0;
- c! Q) @' o% x( D& v5 {5 H9 {- F0 I8 Q                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  C9 E! }6 r8 c: [/ l- s            if activityspace[2,rows]>dy then
* B2 G. ?: M3 m6 q                        dy:=activityspace[2,rows];
5 a0 ~! @5 E' T& Z( m% s                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( R5 }% _0 ?, b2 r5 ]5 U% I                ct:=activityspace[2,rows];
$ l, `6 S* f+ P* e" B                        activityspace[2,rows]:=activityspace[1,rows];
3 r& M; P2 o1 \" b0 a2 z+ p( d                        activityspace[1,rows]:=ct;
$ {. ?& W) S7 W# V                        end;*/
        next;
- T: i+ X3 l9 @' `& m        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);
2 J. q# [6 d9 f1 F& Y# I4 f" i        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);
* g( |  V# K7 V  h. a) r       
        rows:=0;
0 ?/ ^2 r7 T7 H. E        lines:=0;
7 z5 Q9 p+ U& R2 b        for i:=1 to number_of_machine loop
- K/ B3 `- Y1 _8 z  q                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
) w; ^5 g0 L9 i! u' X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ j. E! x+ Q4 l. M) W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: e4 O+ _. s8 D' g, Q# c1 P  j                next;
        next;
& C- H: I; Y2 \; \( I       
: P. \( M7 t/ k, ?. r" C- p        lines:=0;
: a% K6 m% }% |* J! k. e        partstable.delete;
       
9 _/ x  Y& Q* `# G$ |/ }5 o$ ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ A& Y! d% Z6 Z) f' u                for j:=1 to number_of_machine loop
# Q, L; M7 d1 E. f6 Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' ^: Z2 B: f; ^- e$ w! F* p                        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;
, a' l/ Y1 [3 U9 w# B# B                end;
# r( Z4 `2 E, T        next;
6 Q3 a5 }, ]' z) D2 S  O        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;标识符未知
- }; p. L6 t5 u5 t  O! f/ c+ ?        machine.proctime:=5;
6 q/ _. T7 f' v9 `! a. ~        machine.label:=activityspace[0,rows];
6 f5 J% N4 u7 x7 r2 p9 W        machine.exitctrl:=ref(leave);
% S6 C; a, t" a1 D7 h1 B       
        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;
3 W0 L4 b+ E2 [& C: H: e6 X4 l3 l        buf.capacity:=5000;
        buf.proctime:=0;
" j. E& k. p$ {7 L; R# J, V        .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);
  g  d; Y7 J0 ~& E  Vnext;
end;
$ Z8 \3 I  m5 C5 f5 M; M  Q8 M