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

zooey

is
        mark:boolean;
+ Y& R0 |+ q8 q" w6 c; ?        dx,dy,ct:real;
$ K! l& v% z8 ]4 A& x0 r4 H    i,j,rows,lines:integer;
: {9 Z  v7 q5 X# A( U    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
: u4 ^3 X! A6 b6 i) P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 u3 a' [; v9 @                inspect messagebox("设施数目不对！请核查...,",50,13)
- ?* H1 `* R3 i8 w6 Y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
* V& d8 w6 n5 j) j( Y- N6 T" J                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
0 j: ?! a5 p+ r7 n. t) r        machinename:=sprint("M",i);
5 Y% O8 v, j* y$ T9 v9 w% K        if existsobject(machinename) then
, N0 P# I' ?/ Q+ E) ]                machine:=str_to_obj(machinename);
! l6 {7 V$ V/ ?5 R( U                machine.deleteobject;
        end;
7 g7 j( W$ S1 k) W        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 O: ^5 {* e8 t# ~* q. C1 H  c6 i                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
3 W' Q% [) J4 j       
        dx:=0;
% ^& w6 L4 L& m3 {- B6 i        dy:=0;
        for i:=1 to number_of_machine loop
* I, d: o$ w5 G1 M4 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' q- g2 L3 \# M6 ], q" W! b                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ B+ T8 L! _. N1 M1 m8 `* X0 P                then
& q/ a2 U9 V6 n* a) v) K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) W+ k' z* e* @; y' J- j/ K                        and activityspace[1,rows]<(1.05*y_max) then
! G, B% t( Q0 s2 x: h                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 ~' |, B4 V9 R& H                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
: p9 e0 D, D; D7 n1 N; g                        dx:=0;
                dy:=0;
/ U9 S' @# g; n' v! t2 g! O; e8 F                        --end;
                end;
1 j) i. C. E9 b7 d                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;
3 C. B  X) \( l' x# d            if activityspace[2,rows]>dy then
% w' Y; k7 c9 v. L8 X4 Y                        dy:=activityspace[2,rows];
( @. }. x5 r! \# D: f                end;
                dx:=dx+activityspace[1,rows];
6 y% _% K( `+ a3 u$ x                /*if mark=true then
                ct:=activityspace[2,rows];
' c3 q$ p$ a) R2 n5 j! a                        activityspace[2,rows]:=activityspace[1,rows];
% M5 p/ u! s3 ?* B3 C5 x: f6 c                        activityspace[1,rows]:=ct;
                        end;*/
        next;
/ b5 A: c5 d+ q4 x7 g7 B! Q        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);
* \8 s% L( h8 s- ]- \        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);
6 p1 X8 j; _7 }2 e       
        rows:=0;
! y6 J1 ~1 U: d- I        lines:=0;
        for i:=1 to number_of_machine loop
" D' R, |+ _3 [8 t9 N+ Y9 b                for j:=1 to number_of_machine loop
% I' w6 M' L- T0 u7 V' p2 n+ z, ?                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 V% }. D8 K* q                        else
  ?- a( N* T# w' b8 x                                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;
3 l+ l# {$ e1 W2 L* m+ y                next;
; i8 m3 L9 I" z6 ]5 `! L        next;
. ?  A1 T7 Z6 b- n8 H       
$ F, L, U* P$ T( _9 A0 {0 `        lines:=0;
* S% E1 x0 e  ?( a7 @1 v        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ \( E4 {# w3 n6 i  y0 w                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: ^. A/ l0 c. Y0 q3 J* F* W4 L. Q9 b                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) _/ _( `9 O+ t6 {; t                end;
2 X- q5 q9 z  {6 @/ B        next;
% |9 e4 a+ t9 U  w        machinename:=sprint("M",rows);
0 Y- v* `$ L* }        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;标识符未知
        machine.proctime:=5;
$ E7 S( ?4 G$ T; s        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
. Q1 g$ I3 D) S. ^9 q/ ]        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]);
/ I: A3 U( Z3 `8 t0 F, i8 D; c        buf.name:=bufname;
2 V6 f3 t8 x+ R, Z% V; |        buf.capacity:=5000;
        buf.proctime:=0;
; L; F  {  z- C( v; _7 V        .materialflow.connector.connect(buf,machine);
/ G1 L6 x0 M: s2 m4 {5 O, I       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) u( O% d& d8 w* E; L! h9 E6 ~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;
/ h' ~; g! {! @" o% J) t" H/ `end;
1 W4 L$ n1 L& [1 ~