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

zooey

is
        mark:boolean;
9 G) z' j. Y$ T/ z1 v2 e/ H: s        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  z+ R( b8 r$ Odo
        current.eraselayer(1);
- c& d) P1 V: b: `1 l' \) E1 m       
        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
                        print"yes";
) T; l7 k: i! i* {% p3 u                when 32 then
                        print"no";
                else
, V3 i+ g) X5 Y. E9 W2 W" X                        print"cancel";
                end;
                eventcontroller.stop;
6 L% E- T8 J8 f        end;
( ]) b$ t4 |2 u) p) z: L& x       
        for i:=1 to number_of_machine loop
( {9 z! r! [; ~2 ?3 Y1 _' f3 l        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ W% h+ u, e' o6 o% q                machine:=str_to_obj(machinename);
: B$ p, d  ]" ^- b                machine.deleteobject;
) j) y9 s2 I4 ~% n7 J1 B: e        end;
! X  R/ I4 z, F6 v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- q7 ~$ y  U; v) X5 V                buf:=str_to_obj(bufname);
& q" ~% A% V9 m2 ~                buf.deleteobject;
        end;
& d  G7 C" c* r7 q( M        next;
+ q& c' b; `7 [, ?& Q       
, L# q% w1 G7 s' V$ U+ f. q        dx:=0;
! P1 p* J. ?' k) R        dy:=0;
, h2 b! _- a' x6 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ t( l9 K- P9 `# L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. e/ j+ f( N3 y4 ]# p4 L                then
$ [2 j: e9 X2 t- n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 o2 e& q5 z  h% N, e* Z3 q                        and activityspace[1,rows]<(1.05*y_max) then
/ `8 L. F* ~9 N) H                        print activityspace[1,rows],",",activityspace[2,rows];
0 i; u6 G; ^7 I% ^+ _8 j% z9 t& b' F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: p& B9 r1 W: u: x0 Q# L0 }                        mark:=true;
0 i4 X% O6 v8 |6 F                        else*/
                        y_max:=y_max+dy;
2 K  C. ]; ?1 y* e: H8 {4 M1 X                        dx:=0;
0 l9 O% C1 M% a' W" U5 e4 G" W4 S                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 u9 x% ^8 Q/ z$ d' d) F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 u+ p7 G1 S' g# h            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 q! b+ e4 H1 x; H. P                end;
                dx:=dx+activityspace[1,rows];
. {8 {5 A: V* k( A7 W                /*if mark=true then
0 V8 f' `/ j# {& j                ct:=activityspace[2,rows];
/ e8 j, i% V# v: M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
) M* t) ~+ y. U        y_max:=y_max+dy;
  L+ \- T' u7 g        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);
7 l: ?- V' E( O. a) s4 A3 f        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);
: p6 v% e# _5 J$ o1 s( [       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 g  @: z: \2 C2 z/ T9 G                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 c* Y. `2 N" p2 J                        else
* [- u$ E6 d" c  v3 G8 J7 k                                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- Q+ e: ^6 J8 V1 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 Z8 [2 P% l* g' o4 z5 ]/ w- G                next;
  n. n; D. @! R. S        next;
+ ]3 M+ U1 t( y0 f+ ~7 K6 Z       
$ s* j6 \3 s# U) ^: b& P6 Z: C# G        lines:=0;
        partstable.delete;
2 s' \! h( u' \+ [3 v* U       
( K3 o3 I7 x- P        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
! \2 ?' O3 B" n                for j:=1 to number_of_machine loop
( j: `7 Z" T# f  {% H3 ~                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% F- x4 y5 w4 B- N8 _" k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  W0 B" X/ @# ?& ?* {: }                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 G) M8 o! J; b1 X8 `' ^7 X9 N  w# ]; `                        partstable[6,lines]:=j;
% M/ \- W. V* M0 ^                end;
' `3 m; @+ W$ c* J% s4 R7 g% }        next;
% |# R( x5 T1 v5 I: `  \        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]);
# H' a/ P/ z: M! O        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 K  O: D( e! z  B7 ^        machine.label:=activityspace[0,rows];
: s. f! ^/ ]4 @/ y* Q$ \" T        machine.exitctrl:=ref(leave);
4 \0 H5 F+ A; P# o. p3 ]       
8 d6 v; {0 e' y! f* X# L0 ?        bufname:=sprint("BF",rows);
! a( S- d+ X5 f0 h/ v' 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]);
) G  A" H9 V3 g+ f        buf.name:=bufname;
" Q4 W0 K& g4 V7 o, S/ V! Q8 ?% H: W        buf.capacity:=5000;
        buf.proctime:=0;
( e0 b  [+ Z) E5 J8 j        .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);
0 [* v( A! n" ^7 ?next;
  [+ I9 z+ r% d" q# d. O$ R/ ?3 ?end;