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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
, V# y+ i" S/ Q& U7 t' a    i,j,rows,lines:integer;
' X* Z; V7 h# @1 [    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
4 k* g! @8 E5 i3 n5 V; I9 Z9 @& \       
( h! R  S, M: a: I6 \3 ?: j        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
& @+ [. S0 z1 n6 N) t% O1 ?                        print"yes";
                when 32 then
                        print"no";
                else
, }9 o7 C9 J. A                        print"cancel";
                end;
                eventcontroller.stop;
        end;
! x5 l1 r* ^) P7 `       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* J, X3 `2 d7 Z        if existsobject(machinename) then
, ^1 u6 e' ]: d! o                machine:=str_to_obj(machinename);
                machine.deleteobject;
( K& ~& X  k* m, P, W        end;
* q* ^6 X% t- k% I/ \4 E, ]        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 |* U# b1 X* Z                buf:=str_to_obj(bufname);
; f$ ]7 [! Z2 ?) @8 F+ K6 R; U                buf.deleteobject;
" [9 i; N8 U3 t        end;
        next;
       
; }# a- H1 \5 z+ m6 L+ m* T        dx:=0;
2 i, C  f9 h; ?9 F' f        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: b4 V7 `, G" i$ D/ S$ a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% \5 q" i- b* e& T+ N                then
7 p# m" l: f; A/ d, l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' a% w, O- M: t" g; Q: L; a                        print activityspace[1,rows],",",activityspace[2,rows];
9 v. z) R! r3 i, G                        ct:=activityspace[2,rows];
3 ]$ z7 ^$ p% ]5 ?                        activityspace[2,rows]:=activityspace[1,rows];
& q9 [/ f8 L' z  p, ?                        activityspace[1,rows]:=ct;
" E" y2 o4 g' w6 n                        mark:=true;
                        else*/
+ s- ^. I+ _1 ^  B9 @                        y_max:=y_max+dy;
                        dx:=0;
! p% x3 v2 G9 j& I; M6 t$ {! ~/ a                dy:=0;
                        --end;
1 O$ D( U* t) L1 I7 G                end;
! z* k) c2 p  I: x7 ^                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;
, ~9 m0 a3 ]" @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 B* _- m8 L) W+ ?: W7 y# k% @                end;
                dx:=dx+activityspace[1,rows];
9 }# i6 ?! m- B                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, U( Z/ Y7 H" B4 d5 h. K1 \7 k& P                        activityspace[1,rows]:=ct;
                        end;*/
        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);
        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);
       
' ~- R$ @/ H* c9 C        rows:=0;
5 I2 a: U- v% L  q& q        lines:=0;
9 A9 R: Q1 k2 k4 T' H) {8 n& C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* G+ X( u3 k: n! {                        if j=i then
                                d_from_to_chart[j,i]:=0;
' w4 Z5 X# f7 @* J9 P- O/ m                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 S  \  ~3 j) {3 o) V: 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;
- |+ k. E, Y- H       
        lines:=0;
        partstable.delete;
       
- E' E# e! x0 o, }% v        for i:=1 to number_of_machine loop
# I# K, O' T0 ?' B! N$ @: ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, y) A$ ~5 n2 Y3 r& R" C6 H8 l                machinesequence[2,i]:=rows;
: x: Y* J" H, O/ [* g                for j:=1 to number_of_machine loop
/ l+ |" `6 t$ v5 g/ N" v                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, d$ d3 X% J: N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; u: e8 q" F- u4 m2 o; C' m" G! T                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) ^8 n/ ?: s8 [- B  s) K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 m: t3 N- S; P/ {2 I                end;
0 f" h+ k% q( D, ~: R" J        next;
4 S! C$ n& p4 |. Z; H, i        machinename:=sprint("M",rows);
& x+ p' k* k0 y0 L' Y        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]);
( Z. d2 X8 u' h$ T% t! X1 R4 ^: o        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& U/ s0 i( F2 @; Q       
1 d: i1 o; ^1 A! J        bufname:=sprint("BF",rows);
* i3 T( ~% ?5 w) P& S        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;
1 f" S& n# }' t2 M" O        buf.capacity:=5000;
$ i, C. ?8 v$ w& g        buf.proctime:=0;
1 V0 V, L% s; u        .materialflow.connector.connect(buf,machine);
       
+ J4 f, Y9 O* ~' N1 @' ?        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;
; p+ I( r7 |( hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' c% j- a( i% i. i  Hend;
9 P4 z! \- c8 }) e. m