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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
$ l) z+ O3 d; o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 z) W: @1 I. @0 W* {0 b                when 16 then
                        print"yes";
; w7 F& k7 f" p                when 32 then
) I3 v  F  Z" t                        print"no";
/ o2 y2 o' s6 `; w4 k. Y" F                else
1 l* C  s* p! N. w( U3 @4 z                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
" n7 G/ x9 Y; u" h0 Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- G- ^* D* X. o5 d/ s        end;
5 y% W: f- d8 `! N( c3 `2 s! ?& I        bufname:=sprint("BF",i);
( U# b: V3 R$ j' }0 v        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 X4 H: u$ P  k2 t  V                buf.deleteobject;
$ v. e- B0 D- P# x        end;
        next;
       
        dx:=0;
; e% G! Z* e* J        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% v" V% Z9 ^# x' C& B* p2 x                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ y8 L# w! ~" J0 t  E5 M                        activityspace[2,rows]:=activityspace[1,rows];
- C: I. }8 ?/ R( I                        activityspace[1,rows]:=ct;
                        mark:=true;
7 x6 H- N1 L' c- J                        else*/
3 `' T( n4 e) [$ q5 h" b                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
( J* y  T: A+ O( N& L/ v                        --end;
                end;
5 w! o& L' x& n1 Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 V+ h8 Z7 ^$ z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" E4 r, x+ E+ d/ k$ k1 k                        dy:=activityspace[2,rows];
, m) E( T* x" ^- n; E                end;
                dx:=dx+activityspace[1,rows];
% A7 C. B5 V" {2 q5 V5 i! w; u& S                /*if mark=true then
3 p7 \' B# K2 M$ n1 b                ct:=activityspace[2,rows];
) y' E1 p1 p3 }% g! N                        activityspace[2,rows]:=activityspace[1,rows];
3 d- Q( X( j, K& w" W                        activityspace[1,rows]:=ct;
                        end;*/
9 c$ _0 U* b( q/ v" }        next;
        y_max:=y_max+dy;
7 k9 O# n" Y( e4 [& O, X        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);
# O5 V# W9 a6 ?) T3 i) y       
) m8 Q9 U, S: J( Z+ B8 P5 G" Z4 ~        rows:=0;
9 }/ O  a6 r! ?" s3 c        lines:=0;
1 V% [; }9 G7 `2 W/ H2 n; e; ~        for i:=1 to number_of_machine loop
9 D3 s3 G  [/ \" K& [% O* i+ v                for j:=1 to number_of_machine loop
                        if j=i then
5 F* a" g1 \, j& z+ R; n8 F                                d_from_to_chart[j,i]:=0;
$ _4 {2 a! b) {# d* i$ T" i2 J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 R8 l, t* _+ U* G6 h$ `( U- y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; z! ^' O/ K1 ~: @, @) _) }: o  p                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
7 W5 L% p6 T) L2 w; m( U        lines:=0;
        partstable.delete;
' b. V/ S/ j, ^       
2 }2 @0 c# r# c! j# D* ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' e" N9 g. [. Y4 p8 g                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  p; s2 L5 o4 D/ p+ X                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
! T/ C1 U+ v2 E6 l# n' ^                        partstable[6,lines]:=j;
                end;
! s. `+ Q2 b2 _2 j* }6 A: K        next;
        machinename:=sprint("M",rows);
2 y2 ?/ s$ d. _) j4 d        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]);
* l" D+ C$ l/ W5 j* y        machine.name:=machinename;标识符未知
1 m/ v& s9 b1 d3 s4 }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% e( L( \+ N0 x. p3 ]       
        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]);
        buf.name:=bufname;
8 e; |9 A" S: _2 a! M        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
8 _& Z- z8 o% a# {        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 ^( v& E2 k1 W8 C4 C: K: T  Vdy:=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;
! O& b" h" k+ D4 F7 F& F% W* g* q3 U