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

zooey

is
        mark:boolean;
# l' d6 ?: a4 G8 P        dx,dy,ct:real;
' S2 u* h1 ]( ?2 `    i,j,rows,lines:integer;
    machinename,bufname:string;
& Q  n7 e4 E7 n# ~    machine,buf:object;
4 z  I: Z& ?' x5 l- Q! Ddo
, ?5 x& E* l9 p' C0 y        current.eraselayer(1);
; v; ]( U9 v* A4 r, v9 ?6 u       
( D) c/ a2 I# E2 H3 v+ z2 C! R        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
- H# x, V, \2 j3 W$ L; M( r& Q( N                        print"yes";
                when 32 then
* X4 d0 n7 P; w  J                        print"no";
, C* A, d9 G9 Z, U$ l                else
                        print"cancel";
: ~( c& O  v: X: m, J7 Z9 e                end;
. W5 z. V' g/ B9 I! v                eventcontroller.stop;
/ \  \1 m9 h0 T# U. T+ V. A        end;
! R( q8 ?  a7 f% C3 M1 @7 z       
        for i:=1 to number_of_machine loop
4 _; `' f5 b- g        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 d8 [% P! ]+ c! V, }/ ]                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
1 J+ i' U5 `" J2 |* O) D# z% o3 z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( K# V# V7 n8 ?$ ^; p8 _, Z                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 l* Q  Z6 u' S2 B        end;
        next;
       
9 X) b! m0 `9 P$ ]        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 }7 p/ ~+ @& z- u, [) |- V1 X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 E' }! r# |* x0 H8 }7 G' o/ M: m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. I6 a' }$ t8 W. `# k                        and activityspace[1,rows]<(1.05*y_max) then
! j0 Z, w+ n( n& G6 h" x                        print activityspace[1,rows],",",activityspace[2,rows];
. ^, Z/ L/ p1 ~9 Z6 V                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' v6 t) L$ f( l9 U+ I                        activityspace[1,rows]:=ct;
                        mark:=true;
; R, }  B, @9 t. j& v( s                        else*/
7 z! l3 e( @2 o( A3 ^( d                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
2 }0 B4 ]9 p. a5 F: u+ B) _7 x* Q5 d                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
" b( q# V. ?5 ~* ^" _( ?( |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 g- F( z6 ^( f1 Y( L                ct:=activityspace[2,rows];
! ?) ^4 p9 N0 D$ R3 r( K: Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. Z4 V) h2 \) u7 q9 z7 v) }                        end;*/
& f, U* K/ C1 r( |; t+ Z        next;
        y_max:=y_max+dy;
5 @4 R4 m5 h8 @  k% Y7 n& V- g! o$ k        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);
) g9 i0 [1 h& C9 d6 S        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);
       
8 i# a& q; y/ d" H  m/ P9 h3 o        rows:=0;
1 M+ D! V% }( L0 G" }  B1 Y1 o. ^# O        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" l0 Q, Y  Z! q' O; {                                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;
# [- {% t! O$ F: C                next;
- s! n! h( H( X( y        next;
% v- J1 A2 `) @9 d2 @9 Z       
+ v% e# f3 `3 ]( {7 X/ F: l4 \$ f        lines:=0;
        partstable.delete;
% h) v* ]* [2 q; B& h  v       
, s6 v% y; x0 w" U" E% o        for i:=1 to number_of_machine loop
% \6 r& l, |- a, ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 t0 y( D! D6 t" e& A( ^8 P; m" O/ s- u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) E7 O# F1 L7 Y7 W! m                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; R3 {* }( T& A" G9 l! p0 C4 {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
8 `! ~* R' L9 ]! `& \        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]);
/ x1 B; Z5 J3 H* ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- }7 B0 d7 [3 q& l' N$ }' {        machine.label:=activityspace[0,rows];
8 G& H& `5 [0 @* e6 C        machine.exitctrl:=ref(leave);
       
; H( I, v, I" ?' C4 }        bufname:=sprint("BF",rows);
2 [: |, a, m' V0 w# w5 {        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 }# c2 G; F2 I1 F! g       
/ A7 M) [% c" z7 ?3 c3 ?/ m        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 r6 a3 f9 d  k( B1 L* Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& A3 Z/ @4 `! X+ a( f/ H* Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. V) _4 i+ K* k4 wnext;
$ H" e1 T& k) {1 O; K4 [, Eend;