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

zooey

is
        mark:boolean;
& _, I8 ^7 F& T        dx,dy,ct:real;
. y  N$ A! p6 w+ V    i,j,rows,lines:integer;
% @+ w/ A7 p+ V# F: a' n  ?8 F) i& G    machinename,bufname:string;
2 R6 f2 R; A$ w" k+ n: h  T1 I    machine,buf:object;
do
# Z- L' T  s, }1 }. \3 J        current.eraselayer(1);
  {! V# `+ v$ b' X$ a1 w  O- O2 b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 J3 j: t0 s2 [: v' w# X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% o) o, ^( v8 [1 W+ T                        print"yes";
+ z& b! ^* S. Z6 N/ K                when 32 then
* d, M0 v! R+ w/ d- P" @8 b+ x                        print"no";
0 ^4 e* l3 G. z% W' J7 C) `& G# f7 u                else
                        print"cancel";
                end;
                eventcontroller.stop;
+ K8 J$ {& Y- ~4 W8 S0 E/ Y8 T% _        end;
3 @# [$ Y. C( r6 q3 _5 s       
. N$ l' W& L9 e        for i:=1 to number_of_machine loop
- _2 Q4 N2 g! n1 A5 z        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ j1 O7 `# H1 l- [- Y; {: e% J                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
) V  _! V- P/ r% U        next;
9 V( j' [7 H- ]5 G2 i2 |8 W       
        dx:=0;
/ K. S& A" j+ ?! P$ J, ]        dy:=0;
7 Y% u5 z& x9 f' L& u' w5 k$ w        for i:=1 to number_of_machine loop
' D" j# f7 J0 x& |9 N; C) p4 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, J( V  @; g# |  |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- q4 X1 P" p. Y# X  \) m, z9 ?- m                then
& X4 C1 w* w; K% z" K1 t) e# {3 g- a                        /*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];
3 r2 f2 s/ O, q                        activityspace[1,rows]:=ct;
                        mark:=true;
  q5 Z& `. z+ ?$ r! ^                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 M7 p; a# }8 h& I0 X  C, f                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ ^9 v& e% P/ P% X' C: j7 L% F! 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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. ]0 t0 Y2 p5 ?  _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: L( A. t. U" n9 I- u, S  k) D' l; F  E& g                        activityspace[1,rows]:=ct;
1 V& T1 A( C* {' x) @                        end;*/
4 {; Q( n; c( c3 e8 M) H+ L        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);
, H. L# t5 H5 h  |        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;
& U* P! S+ ?& l( F" @        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( `7 m8 O, Q! N* f# F                        if j=i then
1 j9 l, z& q# j& I2 ?                                d_from_to_chart[j,i]:=0;
- }# R$ X1 f) n1 \2 D. L                        else
6 a- H! a9 l+ J7 v8 K0 _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* i( M9 A' ^# y1 H1 C                                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);
& V9 b$ |2 W- v# B                        end;
                next;
        next;
       
7 e2 L, M) L) M) }        lines:=0;
, S( A1 i7 F, U1 N! F        partstable.delete;
       
" N' M- k- A4 ^5 s# S, F        for i:=1 to number_of_machine loop
4 I5 K4 A' g- D" R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 G% q3 \9 Q# J$ T                machinesequence[2,i]:=rows;
" S# `) N: Z4 L- L. B& C# J                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 Q: [8 [1 Z; B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: q0 N  j$ g& Y' L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
: |+ x3 f! o$ s* @- `: w6 d1 \; e        next;
        machinename:=sprint("M",rows);
- C3 R; y0 y3 R4 T; p        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;标识符未知
) I$ f( d* t* B9 D2 n6 _        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) \1 \0 Y- b: C& ]: a5 Z       
+ a  O" M7 I2 f, f        bufname:=sprint("BF",rows);
  J8 A' d$ _$ |/ }        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]);
% J2 l7 Z  v+ O% N2 |        buf.name:=bufname;
. @% ?; L  p7 @        buf.capacity:=5000;
; v  x* o  [; G/ ]- |0 W* L        buf.proctime:=0;
# B' K5 Q1 w8 W, l, |        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 @7 D  `0 t" k! sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 x, j- ?! x/ F+ [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! \1 `6 s* C* [: Q; z6 gnext;
end;