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

zooey

is
        mark:boolean;
! c( [& i3 i( N. `; p0 H- q        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
$ i1 D( `+ w4 _1 Ddo
        current.eraselayer(1);
4 T+ F. I. x: S+ W8 S, v       
) z# O: X0 y( d8 ~- S* Y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 F6 B  K$ d" L9 B/ e. ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) L- |- x. s" w0 B3 W" c                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
$ O2 c  L' Z0 H0 u, G0 a$ s                eventcontroller.stop;
        end;
1 G& p. n! g' N, O& s2 P       
- b3 }2 _3 }/ N$ X5 ?+ r        for i:=1 to number_of_machine loop
( {$ Q: m6 O8 H) k8 r& w        machinename:=sprint("M",i);
' h7 [/ J0 s; F6 N4 h1 {3 J4 Q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, B3 P" }, t" U+ \4 t8 o% B$ L                machine.deleteobject;
2 K2 ~+ S. \( @! v! C. r6 B+ @        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% T0 L0 o& ?" j* _9 s& [4 W2 }                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 _' N3 R( L* @, I- a* S. C        end;
        next;
       
+ i. u- n* m/ e" o6 O$ A        dx:=0;
        dy:=0;
8 ]% [  c( E3 W- k( s, ~% P0 p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 ]7 h; ^' E  d$ k. y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 ~" I% D6 s7 E0 E                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ A& B) c3 S( X& V5 O5 u$ C                        and activityspace[1,rows]<(1.05*y_max) then
4 Z6 h) B" S; Y& X  p                        print activityspace[1,rows],",",activityspace[2,rows];
* w0 j* _8 Y, c+ P1 v                        ct:=activityspace[2,rows];
# J" }% s) t  ?$ [/ k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 |/ B) Y, h6 u# J" n                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
/ P/ a- I; G( Q+ N: {0 |                dy:=0;
/ ?0 {0 I7 i" R* g$ `                        --end;
0 S  D8 S! g0 F9 G+ U2 c: P) s8 L! e                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& P! s, K2 p0 }7 |                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];
9 y; H9 ^' U4 d+ B0 ?! R  z                end;
5 h. }7 ]( m8 c; R# B/ H. o/ z                dx:=dx+activityspace[1,rows];
- V2 @$ m& o7 }3 m5 }# u$ ?) B                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 e& E& `! q2 o" Y) G7 |! e% A                        activityspace[1,rows]:=ct;
5 o7 L% I+ J8 B' E+ {5 E                        end;*/
+ t; |" @% g& \5 j2 j& z        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);
8 T* M1 B; C" h9 k! V; j7 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;
        lines:=0;
        for i:=1 to number_of_machine loop
; l/ o/ j2 `6 S- n% |9 F/ b6 C7 S: U                for j:=1 to number_of_machine loop
; H5 a: w6 Z6 V- K                        if j=i then
0 x% t* |6 G* t/ v                                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;
                next;
        next;
) X* i# w/ z  |* Z6 X# X8 w       
        lines:=0;
        partstable.delete;
- V: U7 ]; W" q+ W. h, \7 P       
        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
                        if w_from_to_chart[j,rows]>0 then
9 ?9 P% H0 Y- F$ _2 c                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) |$ Z5 {+ T3 @! r, \/ q' r- ^$ @                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) e% K% s8 `9 ?5 z6 i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 m9 ]7 Z. f% y  k2 L1 o& e2 r' F* Q) r                end;
        next;
& o0 F' g0 ^( D: e0 B        machinename:=sprint("M",rows);
# L" B- J9 N& Y0 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;标识符未知
) B- [3 \( f/ ]        machine.proctime:=5;
# q$ h3 j- {* w0 Y6 M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& T- {: e0 M3 G. ^4 |0 Y1 p  ?        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;
        buf.capacity:=5000;
* F1 J! X  R+ |- X  [1 l( v* Y5 l        buf.proctime:=0;
" B* L( g( A! u, x4 V; J        .materialflow.connector.connect(buf,machine);
$ F1 \( X2 ?" S( u5 T. v       
        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;
+ q- U' j8 N/ x; b4 e# Y" }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 N0 A, X4 B3 t- R8 |* tnext;
end;