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

zooey

is
        mark:boolean;
, I1 C4 @, N: ~& i; K0 d        dx,dy,ct:real;
    i,j,rows,lines:integer;
* _, x+ E4 q0 H! K3 B# u, f! m    machinename,bufname:string;
    machine,buf:object;
do
0 l) S( n3 D; Y, z$ f' [6 ~: S8 `        current.eraselayer(1);
1 C8 z9 s* v4 K# a  W( e       
  n7 d% q2 M- y+ 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
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
. E& [& ~  Q" D; ~                end;
                eventcontroller.stop;
( m( }4 g/ x5 X, r( S! W3 J        end;
$ B- f4 |" T) g0 n& H2 T& i9 h       
8 `8 f4 E. K2 }- `5 q, a& T        for i:=1 to number_of_machine loop
1 I( l7 @  }$ |& A, G7 n        machinename:=sprint("M",i);
        if existsobject(machinename) then
" v( v( @8 E! U* E, \                machine:=str_to_obj(machinename);
8 z3 `" }8 k7 p% C3 @0 p; L                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
. C' q5 b& _- O2 L+ p$ `5 h' Z* x  p        if existsobject(bufname) then
: B+ A* o7 r, Y$ l5 U                buf:=str_to_obj(bufname);
                buf.deleteobject;
% m- r$ D: D/ q9 q: Z* f3 V        end;
7 W7 c) D7 E# l. n: k& m6 K        next;
! k" o2 t, E' q) X" m8 U8 x       
: `' T  a: Y. N) R6 q: X        dx:=0;
        dy:=0;
9 y! w$ r' G+ f3 @/ p        for i:=1 to number_of_machine loop
: s2 [% d0 c8 D, i$ y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 x% \# V) t; ?+ p                then
' V* Q8 Q$ a- k* V                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 J# G/ P) |* }                        mark:=true;
' e5 s" x% D' w: ~                        else*/
                        y_max:=y_max+dy;
! H- M0 U  {. a! d, Z: V                        dx:=0;
                dy:=0;
                        --end;
0 g0 c/ S" f! i+ I, s( ~3 V$ `) x                end;
; y* z0 L5 J2 N, a% J2 e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( s3 k8 E6 q7 J! {3 y                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];
                end;
3 {$ E& o* V$ E6 D* j7 p4 h1 S                dx:=dx+activityspace[1,rows];
- r. S: j* x0 j+ o+ h: U                /*if mark=true then
1 C; m1 Z/ U0 j4 S6 l3 w# L1 t4 Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 y3 M2 u# O4 M        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);
: F0 w5 |: Q! A: B" O& }0 L3 `        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 v$ ?0 H$ x' U% z! W8 ?9 e       
        rows:=0;
        lines:=0;
! \& V: y% u4 o1 A% i9 I3 A3 w- q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* q) }0 \" _! ^# \                        if j=i then
3 H, `' y8 n1 u  T                                d_from_to_chart[j,i]:=0;
                        else
3 Z' j1 Z9 j* ^3 M& s                                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);
7 Q; a% D0 [; q7 y* O3 K                        end;
8 v0 ?& f9 c- n  S7 E/ r                next;
% W6 I' c0 r# s. n$ M- a        next;
       
' k* }& T: j8 R        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
' V, A, n* E+ i$ g$ [9 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 d% D& ~- k) @. r                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 }1 ^- L, y' [2 s- a                        partstable[6,lines]:=j;
                end;
        next;
        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;
2 }# z' `4 \4 I/ \" e% a' h/ t  S        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
/ {. ~% e7 G- W$ S8 _# T1 M& |& K        bufname:=sprint("BF",rows);
' l; u0 Q( v3 y$ B7 W        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;
4 \' e9 N# E9 V& L) C7 ?        buf.capacity:=5000;
        buf.proctime:=0;
4 |  B6 x, ]* F; H  J0 g/ \        .materialflow.connector.connect(buf,machine);
# E* Y; G) s) E       
3 `7 S, y0 H2 b% t, r        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;
+ g  }& R: R' o1 v; ~, \5 D, Eend;