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

zooey

is
# b( m% x2 p3 ?! S        mark:boolean;
& C8 K3 G+ c8 g7 |; G        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
* R1 |# I5 @/ l7 h  f       
* ~8 Z7 |& D. o) J2 s* M# {; w' k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% X: q( h6 m0 W# A4 W7 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
+ P# D1 Z3 ]! F5 A                when 16 then
, l: C8 S, [1 s1 F" k0 E                        print"yes";
                when 32 then
$ X) E, _( R& }1 C! v& v( r, `                        print"no";
                else
  @( V. i, `/ ]: e! s0 Y                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
2 j* s; d5 [; x; a2 s        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" {# y: D/ O- W                machine:=str_to_obj(machinename);
9 Z- S' i$ ~$ U                machine.deleteobject;
        end;
6 T, S' ]! b+ O. `4 z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
  H7 e+ @; ^: k. q0 F       
        dx:=0;
        dy:=0;
) D* X3 n3 A. G4 p; r) `3 t8 y        for i:=1 to number_of_machine loop
4 r' D/ p# w# [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 r" f( j; K0 k: m1 a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& e( x1 M) |: h- E                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, a; b# q4 Y4 P; y9 Q& M                        print activityspace[1,rows],",",activityspace[2,rows];
. I& {3 v0 x1 x$ H4 f                        ct:=activityspace[2,rows];
5 K0 X, J& \7 g6 H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 F8 s! @6 i9 ]1 K  I0 q, D% g                        mark:=true;
$ D" R' f2 n7 A3 C+ V; M8 o                        else*/
1 c( ?5 g6 q2 k/ m& Z3 [. Q                        y_max:=y_max+dy;
                        dx:=0;
. g) S) J! x! d4 x0 ]0 Z8 Z                dy:=0;
9 b: J) n3 y/ x0 Z  b6 C8 T                        --end;
                end;
                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;
1 K! u- H7 V2 ^            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 i  K- t5 ^( p  W! R* z1 K6 x                ct:=activityspace[2,rows];
0 B4 ?: |  y$ f; R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# H+ W( S! R0 F: J        next;
        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);
' j- _8 S7 ?, v  @. m4 i/ q       
        rows:=0;
; Z7 y$ n3 y/ h4 p3 K3 n        lines:=0;
        for i:=1 to number_of_machine loop
7 N! F+ p% C. |4 h. _  _                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 u# H# N' t+ C# a0 L0 z% D                        else
! z* d0 e  Y' r  A; V                                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];
7 J# }/ q# b: H4 r8 G$ a" y( j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
6 }' x  }5 d7 p- j6 A& h( P                next;
; t4 z+ z( v0 c, U        next;
$ \$ ^: S" |8 _+ j7 B7 d. L% ~       
$ z; Q) X6 D+ \: T0 z        lines:=0;
        partstable.delete;
       
3 g- j0 T& d0 z8 `9 V: S        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
/ g' t( E) H) {4 G3 r! Q                        if w_from_to_chart[j,rows]>0 then
+ d: R8 Y9 b/ X: `$ x( i3 M: i7 S. E                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; F1 D. s* f0 d6 V                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
# R' P- @3 s2 P! \$ T- W        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
. G/ W5 \# A7 g# C; a1 [# q; o       
! E2 i+ H3 c$ c. y3 o) e, J1 c        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]);
7 a5 ?# F9 |7 {* Z        buf.name:=bufname;
7 Q9 f: p) O  T  w        buf.capacity:=5000;
& Q9 P5 v; {/ |8 E. E! Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* G- k7 c0 l: U' k) ~8 M& ?       
# Z3 g  X9 E! U0 Q6 y8 c* S9 \4 `$ ?/ ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* C3 G% A9 ~3 r' W6 k, Y; Xdy:=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;
$ [4 C) X. c) c! P+ mend;