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

zooey

is
        mark:boolean;
, J* D2 x3 x+ F1 M& P        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 B- n' w" w% k' w7 b7 E; E    machinename,bufname:string;
' p5 @$ }+ O. S9 E2 _    machine,buf:object;
do
0 |) _* ?* |9 E" k  U6 Y! E0 S        current.eraselayer(1);
% O* J" J; j  S, P/ E: o9 N* \       
6 @! J' t& {" t0 S1 ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 c0 n# X7 n/ D+ H                inspect messagebox("设施数目不对！请核查...,",50,13)
  L8 q7 a5 `, E- ]. z% n                when 16 then
" f6 @# `  V, U. O  C( d; m" F                        print"yes";
# o: y# w! K  W% u) V% C3 H$ G' {                when 32 then
) A: O& h" a' D. N) {: w5 Y$ x                        print"no";
; E4 Q; l" j4 @3 S! @# R6 t                else
                        print"cancel";
                end;
. B* ?5 v4 a7 C* Q+ z' U! o                eventcontroller.stop;
) Z8 b6 T. ~4 c, w" }7 Q4 `        end;
       
7 D% a2 X. i/ _& I, R" K5 E* }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 i! B! Z# c2 C                machine:=str_to_obj(machinename);
) a; j" G& U  O% F, A! A                machine.deleteobject;
# k6 L0 P, ^$ z        end;
4 t0 S4 k+ K& X        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# \& l2 H' O. F8 x' l        next;
       
# U% \7 J/ @3 |7 f        dx:=0;
3 m, i6 h) T4 R5 n4 r        dy:=0;
        for i:=1 to number_of_machine loop
2 B: Q' D$ m3 N) d; C( \7 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 b; E2 O4 x+ ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( B! ]5 N3 G  m" T& E+ r                        ct:=activityspace[2,rows];
$ @; s3 S# w2 N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( b8 i, t5 s4 B6 d5 U                        mark:=true;
- g+ E8 I& a6 ]1 m                        else*/
2 ]' k) E* e9 {; m. D1 x3 z                        y_max:=y_max+dy;
" L1 C8 O1 B2 O. [6 e1 ~0 D$ _                        dx:=0;
& ~. T* m1 x! T  r  _* y, i. c1 ]1 f8 |0 I                dy:=0;
# ~: d. |+ n  q! n- w% u                        --end;
                end;
# i# B! |% q1 x  H9 \% x7 M% W; 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;
            if activityspace[2,rows]>dy then
: u# j4 h! J  J5 ~" ?( v9 f                        dy:=activityspace[2,rows];
* n" i7 [4 ^2 _1 k3 K9 ~" D2 k                end;
" B$ K2 G7 Z( x& ]                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 L. X/ @8 n3 s6 G, @9 X                ct:=activityspace[2,rows];
  S0 I# E6 |9 g5 }9 o                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. i) [) h/ K: Q5 Q9 K        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);
       
        rows:=0;
( H  b0 y9 @" B+ ?9 R- o9 J* z9 e; Q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 }6 w& @1 A2 c% ~* Q                        else
$ P! O; b4 B% _% f/ Q8 O( ]& c                                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];
, c! e4 O7 @, u& c                                d_from_to_chart[j,i]:=abs(dx-dy);
8 B% M: i6 ^# u' c& a$ A; `                        end;
) T0 s' m7 T$ z8 I# P% A                next;
, Z- R) X$ a- M1 n# V        next;
& {$ U/ S) U1 u       
        lines:=0;
        partstable.delete;
5 i- C' ?: i; D6 l( |1 t7 C0 L5 J# ^       
, W8 O3 Z2 M) n7 M        for i:=1 to number_of_machine loop
8 C: [$ Y9 a3 ?5 E+ ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  j, y- r: s9 ?0 t+ m% c                machinesequence[2,i]:=rows;
                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"));
0 g' ?6 E  A( |# O  m                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- c# l3 Z  e% t8 h9 \# r                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 f+ C& W7 _, |0 l# o5 E% I' k                end;
        next;
! R& |$ J# V- h9 S. }  P        machinename:=sprint("M",rows);
8 V' p! k! l8 P% }        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]);
        machine.name:=machinename;标识符未知
$ z2 R. F) P: ~: c2 r& c        machine.proctime:=5;
# }& G0 @. p4 d  e0 a% D  `! f        machine.label:=activityspace[0,rows];
$ E5 }9 w1 y, b- h- F& u  T. b6 l        machine.exitctrl:=ref(leave);
  j' l' s  v1 ]7 I2 W- F5 f# y& G. w       
  I& a7 E. C& l/ t9 W/ p; F! ^        bufname:=sprint("BF",rows);
0 G* Y/ {% _9 Y, s" W/ [. d        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]);
: g6 t( g1 V, V5 n% I! x- T        buf.name:=bufname;
        buf.capacity:=5000;
% ^7 M% w' }( Z# W5 W' N8 Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( d: z8 l8 c: w  U7 ^       
        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);
# m- j4 x  i) p+ F4 X  ?) Pnext;
end;