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

zooey

is
" a6 Z7 R3 e( {7 @8 W        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 [! s6 Q( ?0 S7 [    machinename,bufname:string;
    machine,buf:object;
do
/ C7 _+ X  N. ^5 ^# A6 E1 f7 e. \        current.eraselayer(1);
       
) L$ m4 j1 u( \. l, G; y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ w: `+ j. b" h2 F: A, h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" c' v( A! H2 ~  G/ `8 L3 \& W/ [, }                        print"yes";
6 }; x2 [9 B4 s/ r                when 32 then
                        print"no";
4 h4 K8 z7 r3 ?# v                else
5 W/ s% {3 g% B+ [) Q                        print"cancel";
                end;
6 x# p5 ~  @/ X4 x; U  @7 h                eventcontroller.stop;
2 p9 v$ O0 c7 W( C        end;
) |+ j$ f% l- b- Y  P7 m/ v       
  g6 g; ]% a7 T, |1 r        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 @7 T+ N9 v& z6 @1 Y. g' S) |( G        if existsobject(machinename) then
* F* N) ^* [9 I                machine:=str_to_obj(machinename);
; u5 y" g' {, }8 ]& W8 S                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 m" \$ V8 r) w8 V% q; g                buf:=str_to_obj(bufname);
: \* [6 _% _( r: k1 x                buf.deleteobject;
/ U2 K1 }3 w6 T2 u- J4 t: Z        end;
) Q9 Z7 E' T2 ]2 D& c3 s0 T6 _( S        next;
       
9 ~: m& w9 O; S0 {/ o        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; ~& c1 V8 G. f( d" V% @) z1 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 P  m9 @! G2 ~% ?6 e                then
, Q% X& P- B( X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ I* q6 U& z- p, {  L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 Q8 z1 x. ]! `0 P, b                        mark:=true;
' m5 b3 t6 @* L. j5 H8 g/ l8 \+ w7 O                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
+ E* g7 X. X8 U" ~                dy:=0;
                        --end;
                end;
! T, o/ M! L1 l: c) ]5 K% c, @( u                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;
0 B! B9 z8 ]6 r            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
/ E+ {9 k0 X# L3 F8 v9 @                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( e+ c- O8 y* {$ _/ G/ i                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 p& p" j; T. [2 A+ e7 O                        activityspace[1,rows]:=ct;
" V4 `# x3 H7 N: [2 T' L) [- J                        end;*/
- {/ Q; r# b& ^" y5 m" f% t        next;
2 R/ c- @) h- z        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);
        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);
       
        rows:=0;
        lines:=0;
9 v) u; _6 P: D3 q$ R1 [- C9 I        for i:=1 to number_of_machine loop
+ ^( b7 c6 @7 j* Q* @" I                for j:=1 to number_of_machine loop
$ C4 u, d% ]7 i( {2 H                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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;
                next;
        next;
       
        lines:=0;
- Y) p7 \% o' Q; m& P+ V" B        partstable.delete;
       
, ~: Q9 I1 \% _" ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 c9 E7 H4 {1 x                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ U! g; g1 F* b                        if w_from_to_chart[j,rows]>0 then
% @6 Q  S8 h; c% ~( o# M                        lines:=lines+1;
  r6 ~& B5 _: H8 |8 f+ B& Z/ F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ f3 {1 ?" s- V6 O4 N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 w5 a" V# e- e( |* R. u7 u) q                end;
        next;
5 l( A( }9 ]# }) Z        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;标识符未知
        machine.proctime:=5;
* T9 \. k8 B  m5 m; V) K        machine.label:=activityspace[0,rows];
6 C) \. W/ j) b- O        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
: i" o5 n; W' O2 O! Q# L        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]);
+ X4 F) D/ t2 L# W! p: q        buf.name:=bufname;
* t* e6 T' X5 e. X+ |  i        buf.capacity:=5000;
! n5 P5 d& R. l% o        buf.proctime:=0;
9 l9 V* `- |' Z: ?. `        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: i" p5 Y0 ]4 Z- q" c" Z( J) |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;
$ V4 j: _! d( t+ P2 send;