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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
" D' U9 N) h0 t& ~% f  p0 i  Sdo
/ C" p  l/ p7 k5 I. P% }        current.eraselayer(1);
       
& H5 J6 s+ @; X, F) C        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
7 b# U% W+ X, `, V                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
% X! J' d+ ~5 C* N                end;
                eventcontroller.stop;
        end;
       
: J7 W1 ~7 m7 W/ L        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 X6 v) [+ h. |% `  S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 l1 L, z' @& m; }) ]- t4 H        end;
: J4 U, e& d) G& B6 T' v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 B% ^2 y$ T1 p+ _- e5 T+ t                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
( z) {  q2 o3 M  E1 j" i$ V       
        dx:=0;
        dy:=0;
: q) y* V& t6 y' O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 O; F+ y1 R4 f8 N8 t9 Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# t8 Z7 u0 {4 \% [, v) D: [+ C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& k6 J$ [: F3 l2 Q! L. Q; ~                        and activityspace[1,rows]<(1.05*y_max) then
/ d% g; p3 {( n  z) o  r                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* H+ X4 G+ I6 {9 ?. ]2 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 A" f: @# L) H: W; ]                        else*/
0 L2 R" C. e( [1 `0 I2 K                        y_max:=y_max+dy;
/ S( i+ f1 u+ D8 F                        dx:=0;
' W; Q' q' D3 U+ `2 ~; U                dy:=0;
                        --end;
9 W- R4 d9 x' m3 ^5 k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* T' @6 L( L; X1 [: P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 U* v3 S! P' u                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 m  `  n4 P, S, W- Z                ct:=activityspace[2,rows];
+ t$ s' q' T$ n: A3 `; j# x* D, U- R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 @( D+ \0 d0 E9 i# ~  q! v& _        y_max:=y_max+dy;
8 V# ]1 {2 {  Y, S2 v, ^        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);
# A/ L3 r, B" n1 ~9 O% U# o  g        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);
+ w: n7 f6 G# d6 W' Y       
* R' }1 Y4 ]! X/ g        rows:=0;
, X$ C+ O+ r* R% ?% L7 B% }$ t: z; p        lines:=0;
8 T9 k. c' D) u        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ m, e0 H8 I$ e7 r# V                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* `9 I- a1 k" _1 Q: K& S* Y6 r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. A1 f" w; [5 z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) B2 y/ ~+ `2 t  f                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
  @8 z* W/ ^" u% Q2 Q       
' |% O7 @/ ]6 \5 d4 x/ G4 I        lines:=0;
        partstable.delete;
       
9 `2 {2 L0 M+ ?! A$ p7 j3 ?2 Q& e+ [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ M6 m3 d3 M) L$ s0 r  P2 P                machinesequence[2,i]:=rows;
7 q. i: ^' ?/ ^                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% V+ r9 J5 y3 f( V# f                        partstable[2,lines]:=w_from_to_chart[j,rows];
, C0 p. ?# J. F  M* I: o4 T                        partstable[3,lines]:=sprint("parts");
1 t) B+ D1 x0 i. Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- D6 U. D: ]& j; U6 k: g; Q+ F" C                end;
        next;
0 H/ F; [1 J9 _) k+ f; Y        machinename:=sprint("M",rows);
' `+ I. c) J  T* a2 |; A' \        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]);
  A& o+ r! g$ `* A" [        machine.name:=machinename;标识符未知
        machine.proctime:=5;
& K. L) y/ E; K. {4 o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  \1 [! O! L4 K+ Q3 r1 Z3 W        bufname:=sprint("BF",rows);
- ^2 f7 Z3 d6 a6 _4 H* \9 v        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]);
6 s; F* l. X0 f8 T2 O- x        buf.name:=bufname;
5 V% ^7 `. L6 q* N        buf.capacity:=5000;
! P5 K# D/ e& [, d. u        buf.proctime:=0;
' W, f+ d1 [% Q; e1 D        .materialflow.connector.connect(buf,machine);
       
" A* o& H& K) E& {0 K! o+ E        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);
next;
end;
6 W0 @+ X" L$ l* Y5 ?' q; ?