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

zooey

is
        mark:boolean;
4 i/ |+ U" y+ K        dx,dy,ct:real;
    i,j,rows,lines:integer;
- m+ `6 T2 B0 y# Z    machinename,bufname:string;
0 h! a+ `2 t2 n: _  i. f1 P7 k    machine,buf:object;
do
        current.eraselayer(1);
       
6 r& H- l. q2 \/ b' a: b$ X. J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 H  }7 n+ R- I/ X3 \! t                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 t+ y* E2 v$ t2 J                        print"no";
                else
                        print"cancel";
                end;
& J: U9 ^3 B  [/ _6 z4 J7 k5 Y                eventcontroller.stop;
        end;
0 e' R+ N2 n6 g( t2 Y$ ~: ?       
        for i:=1 to number_of_machine loop
  t/ Q5 D- J+ v+ Q4 j" L& m        machinename:=sprint("M",i);
        if existsobject(machinename) then
* m8 ^  J, c  O5 a' j- F                machine:=str_to_obj(machinename);
3 x. y. {2 `5 `                machine.deleteobject;
7 ]/ i$ y% P  ?" G9 x% h, u/ X        end;
( T. y' ]: {4 P6 |! f$ \        bufname:=sprint("BF",i);
' p) K% V* K# v2 q9 C1 }        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. Z- _/ y! P6 c4 l& X# a1 s* @                buf.deleteobject;
        end;
        next;
4 c1 M1 u/ E5 X+ w       
        dx:=0;
! ^& |5 N6 j7 W9 A        dy:=0;
        for i:=1 to number_of_machine loop
' ~; ^  z- ]  K* |4 C$ T) b* w  G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 R4 L8 \- x& M' Q) g! }# Y                then
2 p( D9 b3 [: ?) m7 l. ^5 _0 |                        /*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];
( Q3 d: g- z' f" }+ K                        ct:=activityspace[2,rows];
- e! q( w* ^5 ?6 \- g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 ~# a- U' H3 e, c" v" m1 T                        mark:=true;
                        else*/
$ K, n6 h8 H( V& H4 H+ g                        y_max:=y_max+dy;
+ r/ G0 G4 p% ?                        dx:=0;
                dy:=0;
/ m, q8 x4 r' ^8 a8 O' V                        --end;
1 ~0 V' J' @- Z/ c  H                end;
  {1 N' Z  @8 n  L4 z+ G* N+ j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  a' X) }/ D4 u7 ~# r  ]- y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" Q4 B1 T, k) I( H. ?. J. \            if activityspace[2,rows]>dy then
, t5 m' g* S* i. F$ z3 r' {: j* j                        dy:=activityspace[2,rows];
# R3 @+ v. _1 q1 f" b7 `% {8 y                end;
2 a6 c* E% r" K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# C/ f' H8 j- y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% X+ N. j7 D4 d6 `/ a) q                        end;*/
        next;
        y_max:=y_max+dy;
+ M6 c9 L1 H% I8 N        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);
        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);
" D" Z. s" \* |& o2 `5 K, ]9 D, ]       
1 X5 B1 A3 @$ q: v" y        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 H$ P. _$ u  Y: Z5 O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 N. \  {2 [# Q0 y7 V                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# g8 k: z: Z+ Z4 b- ]                                d_from_to_chart[j,i]:=abs(dx-dy);
' J8 t! i% R2 H) m! a$ N( c                        end;
                next;
        next;
       
        lines:=0;
8 B6 U9 s4 h$ O' q0 [) x        partstable.delete;
: |0 s" p3 q9 }3 E5 O       
! H$ n* M  J  |9 H6 y% l        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) ]4 @* |- D8 v( }- V' \" b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 e4 k- |' Z, ]) R- Y+ D1 m( U9 _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
! {5 v! D0 h. ?6 D8 ~% \        next;
) g4 B% p+ `0 |        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;标识符未知
) \! f  p4 S# b" q  U: L$ k, i5 Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 L6 D8 K/ D6 j2 ^8 |       
, I6 I0 t) ?/ ^' U7 ]: i        bufname:=sprint("BF",rows);
; A' F( n$ t: L0 ]. E; c+ 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]);
. D" F4 \5 P3 z8 p4 b% Z- t        buf.name:=bufname;
8 q7 d2 Y: _) W/ l4 U2 H+ P        buf.capacity:=5000;
4 z# Y& J6 z; ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; x' h' q3 N! a; k        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 I0 D* u1 o! Q: i$ Ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 H% K2 G- L3 Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 J) J( B* H8 l+ T/ b/ K0 cnext;
end;