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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 p$ A% B! d% D8 V$ X7 O    i,j,rows,lines:integer;
1 `0 l* U/ e, l% i    machinename,bufname:string;
# ^; Y: N  Y  Z% U# G    machine,buf:object;
do
        current.eraselayer(1);
0 b$ @/ L7 Q) }/ \       
" S1 F+ [% L, c+ |% @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  s8 T( e7 J9 `+ {3 Z2 D' X- H                inspect messagebox("设施数目不对！请核查...,",50,13)
$ P# w# _- _% z) `2 U  r# d                when 16 then
6 |" U3 p5 m2 D  G. b                        print"yes";
0 y! v- S( u; Q, W                when 32 then
                        print"no";
                else
                        print"cancel";
5 i" q+ c) {; q+ H5 ^                end;
# D' v- X2 e  _' c. L0 w0 G2 O8 N" \                eventcontroller.stop;
9 a) w( A5 C7 B        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 V3 \) z6 i% c2 m. n( e7 Z* O# N                machine.deleteobject;
% t5 z8 t" D4 X# v& C/ m+ A        end;
        bufname:=sprint("BF",i);
. b8 U) w# G8 T4 J$ z) l! O3 w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 {9 I, {0 I) V' f1 y6 Z7 x        next;
, m3 d& Z, j: j       
        dx:=0;
  P' u2 E6 J, i4 K4 v        dy:=0;
8 X2 h0 r4 G; `% R! f! f( c3 L. C        for i:=1 to number_of_machine loop
6 z: u! P) ]  d& }- d' y7 l/ r' o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" k- |2 Z1 n7 c0 y5 d* e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. j8 ?7 c: a5 r) X! D# H! P6 Q                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; A9 j* H; e) h& l                        and activityspace[1,rows]<(1.05*y_max) then
9 u" S% x) `1 j* C( ^7 ^8 d) H! \                        print activityspace[1,rows],",",activityspace[2,rows];
% q! i+ M4 {4 C1 \                        ct:=activityspace[2,rows];
3 X6 K5 @8 F8 f6 q- H                        activityspace[2,rows]:=activityspace[1,rows];
* {$ u3 w: Z4 m0 ?" B/ j, Q                        activityspace[1,rows]:=ct;
                        mark:=true;
- p8 P6 ~1 _/ O3 q. n                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
1 C9 h$ S$ ]8 _- y                        --end;
                end;
: A  R- s, k, ^" J8 l  R; R# N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 K; F3 B& d4 J& i. a                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];
# ~3 T* V8 q- C! [  Z1 c5 k. M                end;
* h/ w, y5 \9 y! A/ M  o; L8 l                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
9 \7 O0 v" r4 J% [( v( g) t% a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
5 a# e! d: v# O8 P  D# A' p5 A        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);
       
/ i" x9 \0 v1 @; J, @1 {: F6 ^$ \: A        rows:=0;
% N; W. S- h) l& s        lines:=0;
# ~% f0 S% m5 Z1 g        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 w. q- K; m0 q' E7 S1 k                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" X7 l7 e5 B8 r3 x  B; m+ 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);
; K# |! K2 p3 R. \' v8 w  s                        end;
& K* v; l) P; t* \6 B                next;
        next;
       
% g  n- Y3 w/ _+ ]        lines:=0;
1 ?7 v% f& H1 n& t. U        partstable.delete;
) }9 B% |5 }, Z& O       
        for i:=1 to number_of_machine loop
+ z' _( U. `0 J. P& t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ t7 t0 v  x9 y: `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 j2 j* I. \# h                        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];
9 A6 P- J5 a/ ~1 u                        partstable[3,lines]:=sprint("parts");
+ r2 A# i( ^: `# p                        partstable[5,lines]:=rows;
- k- H  ?+ @6 q                        partstable[6,lines]:=j;
                end;
        next;
        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]);
; ?( A  t3 C/ K; ^9 ]% B* b        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 B) a  d/ n  j/ K0 G5 ?        machine.label:=activityspace[0,rows];
: s$ g& F; o9 K# m9 |9 {4 J' D        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
  O* s! t3 i) W% e+ f        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;
6 m6 }# S  p' Y8 W9 v        .materialflow.connector.connect(buf,machine);
7 ^& m9 N7 h! v+ c8 g# W# `! k$ `       
7 u+ e% n! ~; u' c& W0 k8 U        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* t' _( o) z6 ?: Mdy:=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);
% v6 c# y. `& U" x/ k  j: \( a% m6 rnext;
end;