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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& Z* v; i( D7 P: K$ F    machinename,bufname:string;
! x' I& V7 X: `# Y# J  S1 A    machine,buf:object;
do
0 c; S7 ?5 s7 f2 a        current.eraselayer(1);
0 E, a0 ~, S# p6 O       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ D' r2 @+ V+ w4 P& i                inspect messagebox("设施数目不对！请核查...,",50,13)
; ?! a7 F8 H3 P" W. I) }& r* g                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
! A# {7 S$ V: s; j. b9 e) d                        print"cancel";
! ^' Z, V3 u* y$ D3 f5 o                end;
4 J+ X- l; n" K, P                eventcontroller.stop;
0 ]) h$ j' ]  a- c2 A        end;
       
1 @# ]- {3 T  A1 o2 g* K, ^        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 K! c  y+ G0 M: K3 V$ w                machine.deleteobject;
5 A$ c/ i8 D7 l# q        end;
        bufname:=sprint("BF",i);
  R6 y' p1 x. |) x  T3 R5 y        if existsobject(bufname) then
& v9 S8 R8 q/ ~                buf:=str_to_obj(bufname);
4 X) W5 y7 o6 }4 ~                buf.deleteobject;
  g; S9 {% h6 o: s% r$ v        end;
# m' k+ f% b- B, `        next;
. j- h7 h. u! I/ w9 E0 I       
8 V; ~- J$ W  C5 ]7 J/ C  S" r        dx:=0;
        dy:=0;
2 O' p! o  x8 Y( m; a        for i:=1 to number_of_machine loop
% f' y) @8 c; L3 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 N& x4 X. w3 D) h. S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 k7 I8 p. s1 k$ |                then
; N. H) h- Q( J; l, x! p8 t+ T$ G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" P) u/ A& q6 q7 }" w4 t# E7 ?                        print activityspace[1,rows],",",activityspace[2,rows];
, ]' m6 m6 S: l3 N8 e' J' E                        ct:=activityspace[2,rows];
! k4 K1 n( P! u! s6 \6 F, s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
+ m% j, C- j. I8 {& M- _                        else*/
                        y_max:=y_max+dy;
$ D! @( t$ {% M' y7 ~& s                        dx:=0;
) @/ J' B( Y# k) ?1 v& m                dy:=0;
" o' z$ F) E) q                        --end;
1 k  O8 I6 H1 e, {# n                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 y1 [' l8 T3 H; {) Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 ^+ y9 g1 |2 o% v/ F+ u( j. m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
% K/ ^4 e  ~: i9 I; f1 _                dx:=dx+activityspace[1,rows];
' ]- e- {7 A  H                /*if mark=true then
: o% G: u4 I7 p- q* W. U                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
* Z9 `3 J( Z& T8 `        next;
        y_max:=y_max+dy;
9 m; f8 H0 {6 o" ~  R        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);
8 k* `* u/ E5 Z. n1 i1 x       
        rows:=0;
        lines:=0;
) z# G% Y. ]" ~! H$ g( A        for i:=1 to number_of_machine loop
3 T& X4 C3 ]/ X2 G% ^                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 s# j+ @0 V3 L4 A5 V& f# [, `                        else
3 {8 B0 Q+ b* i) P: _) Y& r  d, m: r                                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;
1 ^8 W, H2 B( n& k2 b# G                next;
. w5 w3 U( R8 v- O: s1 \# O0 K- _' M        next;
       
. ?3 I+ ]+ Q9 Q2 h2 p( Q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
/ ~4 D$ L" I8 Y+ R- @5 A' ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- _6 f& C: |( E3 {1 h: R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! g1 P5 ?1 X" T5 A3 o                        lines:=lines+1;
4 i- f$ Q  z4 s) }: @. N& x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" _, P% H( |5 |* y% @) J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; E& L9 z  I2 Q4 t% d                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]);
$ P2 m- c: M7 O7 M) S2 c+ P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# R4 M  H4 g+ ~% T1 k. b       
        bufname:=sprint("BF",rows);
& J$ H' q% Q% 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]);
" r" w0 ]4 a( d  Q; L" {& K% I        buf.name:=bufname;
6 q1 c9 `0 V4 Z5 {' X        buf.capacity:=5000;
        buf.proctime:=0;
$ d: L2 g! E3 [, V  k        .materialflow.connector.connect(buf,machine);
% a( R: p( f- P9 ^5 ^3 r       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# \: w- m$ O& x% ~% \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);
; Y3 L9 |( X2 f! W. s4 w( jnext;
* s1 K0 i7 m* P- k' T+ N5 gend;
7 d- U1 e$ M6 t9 T' i  p% e3 J. V