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

zooey

is
        mark:boolean;
8 `/ P# B, O: w# }8 c( c! W$ d        dx,dy,ct:real;
2 _3 X( {) v* t: t( B    i,j,rows,lines:integer;
' E0 L( d" a/ }7 K/ x/ @' a- `    machinename,bufname:string;
3 c2 w9 m0 R) L7 q" {  c    machine,buf:object;
$ K3 Q! I9 G4 O  N+ {do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; d; w6 W+ i1 G( \- U                inspect messagebox("设施数目不对！请核查...,",50,13)
3 @% Q0 p8 t9 Z" F% _                when 16 then
* m) [8 v# F! K& A& ^                        print"yes";
                when 32 then
; o' F/ z+ K$ N) x) }+ u- v                        print"no";
                else
- e+ ^( z% J% U- x/ p$ a                        print"cancel";
5 ~9 U6 t; J8 d+ {6 V/ |5 |& r                end;
% n2 e, m* N  _& d                eventcontroller.stop;
        end;
8 _! I+ p: J) I) Z6 ?$ q' \5 j  x) H       
  Q" r) W- b* ?- L! _        for i:=1 to number_of_machine loop
3 R* }# x, c9 e" l: E. K        machinename:=sprint("M",i);
4 P2 }& r% q  s1 A0 b        if existsobject(machinename) then
4 X, j/ t( H; s2 Z) F$ S/ H                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 N+ F5 V/ d  \/ J        end;
        bufname:=sprint("BF",i);
5 {. m6 J, x8 t        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 C7 e0 \* v% n  ]                buf.deleteobject;
        end;
* B- m. ?/ P7 U5 I' i% j        next;
, `; M( }9 }1 ^, n7 `       
6 x8 u! Z- X4 M6 p5 a6 D! s& T" S        dx:=0;
+ ]5 ~/ ~  B* q& ^+ [        dy:=0;
        for i:=1 to number_of_machine loop
  ^" R  y# l- G7 Z7 _( E& c- Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% d0 n! L! }& \% p8 U  G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ R" B9 W+ {8 J  x- x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; b6 ?. C8 w8 R                        print activityspace[1,rows],",",activityspace[2,rows];
& Z; k3 J% V1 k7 B% y( R' F4 U                        ct:=activityspace[2,rows];
# P! M, m  g0 L. ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 a( l8 W( Z; k2 a+ P& [                        else*/
8 F$ {/ \' D% j( Q& }; ^* d- Q                        y_max:=y_max+dy;
                        dx:=0;
& V. P% `/ m) ~. [8 e                dy:=0;
0 T: O4 b  C+ P" `& E, V0 M                        --end;
                end;
7 T/ P9 i* b9 i8 S                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;
0 C. F! W. I% m6 g            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 Y" K6 c6 t. ^: W) H: f- i                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% `: q- L% a2 T7 l* H        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);
! z! G0 D6 |9 Y$ y7 ^! Z1 H- z  S5 x       
/ ]6 d% C: R7 G3 }  a* `' s; L4 p        rows:=0;
& D6 ?6 _, {% t8 F4 S3 B0 P2 K7 W        lines:=0;
4 J+ ^6 D7 ?+ d) C$ d        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  [& U- X2 A6 ^2 n" K  _                        if j=i then
                                d_from_to_chart[j,i]:=0;
. y) ~2 ^  p; v, |' p& k                        else
9 e7 S; k1 t, Q9 h1 N                                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;
! z$ C. b7 w6 E7 q. U) y        next;
! [! N. C0 p+ V: M# k4 H9 S8 v       
" p, x/ S9 q: T: r+ {( w# M        lines:=0;
; z' e) [, @: B+ u& H7 o        partstable.delete;
       
1 w' x' o9 Z  w        for i:=1 to number_of_machine loop
" h3 \+ j& \; M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: Q& p' H4 Z5 B7 S0 m                machinesequence[2,i]:=rows;
& }) ]; m( J2 Z                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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  K! P/ v5 o  f' k. Q1 a                end;
        next;
) y, K; x% T2 W! O+ c' S; L. t. {        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]);
. @. y! ?/ P1 O" }9 \+ O        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) Q. u1 P, [+ q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ A+ j  p7 c3 g: R       
        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;
( q1 }/ m' {# K, a" t2 C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
5 k2 w% R) V1 @) N( W1 F3 k/ ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;