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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
% [5 k2 |+ e- k$ e6 p/ l    i,j,rows,lines:integer;
    machinename,bufname:string;
. v, d1 Q4 v4 y" X: N# N# t    machine,buf:object;
do
        current.eraselayer(1);
- L: R  Y, u. R0 e       
        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
; h. V$ X0 y. T- t                        print"yes";
" ~+ k- C5 g8 p                when 32 then
                        print"no";
6 I& n4 M3 y$ i% k, L) h                else
" o+ J8 e! F0 ?; w) n                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
* y7 l0 \* x5 g' H/ S4 v& e% n        for i:=1 to number_of_machine loop
- u5 }3 j& z, q3 l7 i7 F        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 y. ]7 M1 A1 g( r" U5 v/ J                machine.deleteobject;
3 l; @7 T$ J9 @        end;
/ v7 U5 K3 {* Y5 ~" H- O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! r1 O* b$ B. W/ L' C" _                buf:=str_to_obj(bufname);
( S5 `) ~$ {& D7 \                buf.deleteobject;
        end;
        next;
4 E0 e8 x" m% `  q, ]/ w, y- G2 i0 c       
$ P5 O5 j5 f% X: Z" S. ^4 Q        dx:=0;
        dy:=0;
& H* c* M9 K* w! Y5 U        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]类型不匹配
$ T) w5 C+ k2 R! _6 t                then
( p5 r( S  \  k) J  m6 V9 F) h, u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 b  h4 Q. M4 M  l# j3 p                        and activityspace[1,rows]<(1.05*y_max) then
$ a/ H0 {) `; p; ~! A3 m. [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 s4 M% Z8 [) Z% ?4 \# R$ _) y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  z1 {; g1 b; L1 k9 ~1 W                        else*/
% v$ K7 o% s) v/ `, N! C9 [. O. _$ U" c                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 E. i( _) i! \: w9 K9 m1 \0 k6 V7 P# K                        --end;
$ _, h: v* e/ k6 O3 i                end;
: r- Z( a4 s/ a6 }6 Z                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;
. X+ X, Z# M+ N5 a8 `2 g, a            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# ^- L# w" G1 S8 v0 H/ S                end;
                dx:=dx+activityspace[1,rows];
% o# @+ G8 ~2 v9 E* K                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ r  u( U9 V8 J- K, j; `1 [! c                        activityspace[1,rows]:=ct;
% [( j$ Z5 k. S, e. I$ i) d- f4 g; v                        end;*/
        next;
        y_max:=y_max+dy;
1 R  Z/ ~! B# A: i* Q' O7 X        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);
3 p0 h1 }  r$ _9 \# W        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);
4 A8 B( a5 \6 k       
        rows:=0;
4 S: N2 l8 k& M        lines:=0;
        for i:=1 to number_of_machine loop
  d  D* D  x% C: o# E& y& k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' }; X" |% ?* 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_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' p) I4 J  [+ u5 p                next;
        next;
       
        lines:=0;
        partstable.delete;
# Y1 t& V& c8 t9 z* D8 t       
        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;
2 A- j* U) H/ _6 M$ E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 E0 {* ^) g1 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 {6 r- n8 ~  p                        partstable[6,lines]:=j;
0 k+ Q& y7 G4 `# ~; _                end;
! X2 K7 w5 B1 L8 h& W+ B        next;
        machinename:=sprint("M",rows);
) J% R) U% Z. ~4 R: y# t1 h        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]);
; j5 V* v! f" `/ r1 C4 j        machine.name:=machinename;标识符未知
3 c; s7 y; u2 C8 t$ R! q; d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, w; m) ~/ t2 v        machine.exitctrl:=ref(leave);
       
        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;
6 K- k5 Z% F- c' g" U        buf.capacity:=5000;
        buf.proctime:=0;
* [4 x7 G  I2 h& A        .materialflow.connector.connect(buf,machine);
  }' M: m# i. ~& O       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 t) T/ g6 I5 bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 x2 }+ Y7 }: t9 ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;