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

zooey

is
        mark:boolean;
! f1 m. U7 y7 C0 j6 J0 f0 ]        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
6 z$ C) w& S+ c  ?1 j2 c1 v    machine,buf:object;
6 Q1 s: R5 K: T+ f. `7 tdo
  k+ p# f$ b& \4 N$ Z        current.eraselayer(1);
! }3 _* V: h: y. C' V4 {! h- j       
9 t. w9 b1 A; p2 x+ }0 r        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
                        print"yes";
                when 32 then
' D  V) U% u  U7 W8 N, j                        print"no";
                else
8 V5 ?1 z+ m0 C7 }$ f$ t$ {% Y                        print"cancel";
                end;
                eventcontroller.stop;
        end;
+ f' `! M! X% V- ], W       
9 e; T/ Z/ U4 ]$ v. M. I+ F        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
! _: ~2 c  Q* ]1 c1 ?' i9 Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
& p* `; i/ @$ ]# M( z, [        end;
. p  R: p) q- x& j3 k0 F        bufname:=sprint("BF",i);
9 b+ f3 M2 n4 X) @& B* d9 h& b; q6 C, u        if existsobject(bufname) then
$ j( ]% w$ o0 t/ ~# V; `                buf:=str_to_obj(bufname);
                buf.deleteobject;
( E" S7 j9 U/ H        end;
        next;
% `7 X( w$ ~  V. f6 n( Y       
        dx:=0;
        dy:=0;
7 L8 b7 @9 \9 O% Z) F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! ]8 T* T; v! P                --mark:=false;
+ z/ G9 _; _! I6 @7 G+ h/ [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 {# p0 [! Y! S7 E# }                then
                        /*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];
                        ct:=activityspace[2,rows];
" a: ?- v6 |: C; M( s  {                        activityspace[2,rows]:=activityspace[1,rows];
5 M0 S' y; E4 q$ x; @! A5 V' b                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  k7 O" \1 [' z% Z1 @$ c: w# ]                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 {$ ~; ]5 ~# A                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 z7 P: Q0 Y- j7 l9 ~1 @4 x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 D  X5 Q6 D9 x* m" s            if activityspace[2,rows]>dy then
& v- \. P0 d: f6 q1 a" N                        dy:=activityspace[2,rows];
4 C1 w% e  x% |* X0 B3 A& Q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  [& ^# L. e% s0 L5 U                ct:=activityspace[2,rows];
( l$ W% a" z5 N, S/ K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
0 W/ x* a# C& O8 T3 f9 ^$ {# u        next;
        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);
1 k- ?1 n. `. i- h& [% `# }$ X        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);
       
( \/ m5 i- `2 `% ]: I        rows:=0;
2 ^. K- c7 B( {; M$ B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ i* c) S6 m- D) r2 {                        if j=i then
3 H: N! U8 J8 _8 H1 m' W+ Q                                d_from_to_chart[j,i]:=0;
                        else
5 j0 p  {; W- y1 [$ z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) W; e% U) R4 Z( ]3 e7 z$ B  S                                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);
+ G1 m& J- {+ q6 i: Z2 Z                        end;
                next;
+ J8 C1 i3 ^  t9 X8 R        next;
       
& _9 ]( \2 d# b: J        lines:=0;
2 G0 ^6 A7 [; \+ ]3 O% D        partstable.delete;
/ K; j: K$ ]2 F- B' B6 I       
6 b6 v8 U( T4 N, k* {4 g9 a* I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
* m6 s8 H' f5 C- Q. G                        lines:=lines+1;
8 F& a3 q  J  k5 z2 m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 s5 G  Z) D: s( L4 [                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 Y1 I+ \4 t/ p" O; q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& J. d2 u- B( O/ ?: r                        partstable[6,lines]:=j;
, C; u/ z/ H) D8 A& u! y; L( H! k                end;
; B5 U  r7 R. u7 T# {. Z        next;
* Q9 ]. K- ]$ X        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 H( w3 M8 b' j; p  a        machine.label:=activityspace[0,rows];
+ p. e7 ~/ d! J7 w; x- g        machine.exitctrl:=ref(leave);
! L) O4 e  }+ j& D8 e       
0 A% ]6 b% ~/ A+ b) i- A        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]);
' e, v- [4 c6 B4 @9 D1 h% w) ?        buf.name:=bufname;
        buf.capacity:=5000;
" L' ?9 b4 p  A; Y) O3 M: k        buf.proctime:=0;
& B. u3 L/ q4 L! W1 J. U        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* m( h6 T0 E; j( h) `" e* edy:=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);
next;
' O' Y" S$ L( a: Hend;