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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( |' A4 Z5 B0 T$ r$ j1 ^    machine,buf:object;
do
        current.eraselayer(1);
       
( J  U, _# T& R, q2 b+ X2 l% x# G        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
/ M. A/ G  Z- j+ s3 ?                        print"yes";
  }$ R& n1 e) Y                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
& S2 a" w: \* A( a8 R4 Y% |: r                eventcontroller.stop;
9 E1 m; q% P' {- x$ @( u        end;
' n0 y9 y3 x  h; Q* U2 C5 s       
% m8 g$ w1 y5 E6 s- M        for i:=1 to number_of_machine loop
' X+ |9 A% w0 C        machinename:=sprint("M",i);
% e: v$ D( l$ c4 V: n3 C' q, L* W        if existsobject(machinename) then
! {/ [' ]+ r* K) ^+ r$ b                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' s4 R2 C  ^: U% d4 d* W* a! P        bufname:=sprint("BF",i);
, [9 t0 m) U3 X) p- E: l0 o2 J        if existsobject(bufname) then
& L& M' d6 o/ ]% O; Z7 C                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
2 t0 w$ C" }% U& t       
        dx:=0;
. f5 G- s! V. f0 Q6 Q5 A        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]类型不匹配
) n1 D$ i6 l  L; r; w2 x$ q                then
  l1 r: C1 W# p6 x$ o  [4 w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 h4 `+ b5 }9 I. {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) D# Z0 }% l1 N2 T. m2 i0 o                        ct:=activityspace[2,rows];
' g) I' c9 V2 E2 F5 u5 V                        activityspace[2,rows]:=activityspace[1,rows];
. u0 H8 o0 F* J! t+ d0 e                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& C/ k9 B# ^# H                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* y& p9 j9 `6 }3 }  Y                        --end;
                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
1 O. n5 Y+ q0 j) X                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ J1 K3 r# N* S/ \9 t5 U5 l                /*if mark=true then
8 a# m% G- c4 e! D( ~0 ?                ct:=activityspace[2,rows];
: ^5 L3 o# E0 ~, j' h                        activityspace[2,rows]:=activityspace[1,rows];
9 T" i- M* \* R' g) E; ~& y" C) r( ]0 l                        activityspace[1,rows]:=ct;
                        end;*/
" n  d& C$ C2 S2 y2 j) o% T4 h/ h        next;
, G. [- U6 K; @8 K( G        y_max:=y_max+dy;
; J# k$ c: Z! V' U- q: ^# C        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);
       
6 E7 y% X  C0 `4 z) f        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
- ]1 U$ x. Z5 r, _5 d% _2 s4 U3 @                for j:=1 to number_of_machine loop
  d! U' k6 M& ~; `/ v                        if j=i then
                                d_from_to_chart[j,i]:=0;
' K2 {4 s& `! f" O                        else
; f8 t" b/ n2 j" u# p5 h; x                                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;
% g, l" S- k' G  F0 N                next;
7 P/ X0 n/ I( ^* B        next;
       
  F& [6 @$ b% o) j# W        lines:=0;
) q8 `3 H/ n7 w, j6 R        partstable.delete;
2 T8 C* Q% O4 z2 \+ f+ m       
, x% V6 {% f) v. n0 @        for i:=1 to number_of_machine loop
5 t6 z, O4 I) A7 x1 Q  f8 [4 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 v* f: F9 k$ |! ^                machinesequence[2,i]:=rows;
7 X: I" l5 W: f! W# K) U+ ~                for j:=1 to number_of_machine loop
: Z/ g& [% K7 i! O$ R' Y! l6 f- C                        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];
5 s/ Y  @6 |: b9 Q8 Z% w. z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# ^2 e# y. v- D4 I7 E" f                        partstable[6,lines]:=j;
                end;
4 x' @4 \, K/ K' v$ D5 ~2 x        next;
/ l6 S: A5 ~( E        machinename:=sprint("M",rows);
! p. X0 D  l% h' o2 G        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]);
7 I$ L" i% E+ j" T/ I' p        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 B3 r5 n# d, f7 C3 K# X9 x' w        machine.label:=activityspace[0,rows];
% T, }( V9 J5 s! ?        machine.exitctrl:=ref(leave);
       
: V+ \0 v/ i; w% ~$ Q7 C( O( \        bufname:=sprint("BF",rows);
3 O0 W7 l! G1 ?        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]);
' l# s" J+ \: h7 V" |# }        buf.name:=bufname;
        buf.capacity:=5000;
3 t) K+ ?2 O" F  o        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# V7 ?2 p. C% v; g; K       
3 h& k& ^3 s+ _0 C+ }+ F9 p7 s5 ~        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 A( g' b& M: n# F0 anext;
end;
& x/ ~3 N5 N7 X* L1 w