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

zooey

is
        mark:boolean;
- Q( Y# k  J% m1 m        dx,dy,ct:real;
: T2 Y. v1 E4 U! y! O+ t1 z0 ~    i,j,rows,lines:integer;
    machinename,bufname:string;
- M- ?. l" h# o/ Y8 ^2 m    machine,buf:object;
do
        current.eraselayer(1);
  q! y7 I+ y2 ^" [. j) J/ E# J0 v$ J8 m       
6 G# M% q' |. T9 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- r* I9 Z( E/ K$ r2 w                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( |! a# Z/ d! I0 g& e: C                        print"yes";
+ S: l  w) g. x3 \; f7 g                when 32 then
  ?) y- l7 _0 ]                        print"no";
% b7 \  s# ^: e. J+ X: }; R                else
                        print"cancel";
. _# H5 m& N8 S* j' Z                end;
; i# O8 w" W8 {5 u- e                eventcontroller.stop;
- b: Q! n$ `2 a' Y4 Z: N        end;
       
3 \; E. o5 r8 _- _        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* C$ s, p! z& r7 Y( j        end;
        next;
       
        dx:=0;
        dy:=0;
8 V: `# i8 \) F* E: W2 B$ d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 s2 _2 L, e/ X, W# x' ^2 z( t+ |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ B& E: \$ P1 \  a  @                then
: @+ ?; N& G$ `$ N8 ~  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];
                        ct:=activityspace[2,rows];
/ H% c3 u1 u. ~2 o- n. z! }                        activityspace[2,rows]:=activityspace[1,rows];
( |9 z( j/ s+ H( V; Q; x( I& N                        activityspace[1,rows]:=ct;
4 _5 m  y& n1 x$ S. s                        mark:=true;
1 ^' a  Z; }! h% h$ H                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, Q) v7 m0 q( x1 t6 l                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; w: f' c* m3 Q# M1 Q" k$ A5 W' R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. u1 m. k( @/ k( M- e' j                        dy:=activityspace[2,rows];
% u! g% m$ K% }; W                end;
7 U) z1 }( d' W; b7 @" k4 U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 ?' t- t8 ]% b3 n% D                        activityspace[1,rows]:=ct;
                        end;*/
1 g# ?7 l; n: C& [% Q. u2 |# D) M4 m        next;
2 P3 N# j% V6 x        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);
; l2 `& F! i3 ]( B8 B; @       
        rows:=0;
3 j, ^  n! p. l8 e7 y        lines:=0;
        for i:=1 to number_of_machine loop
( Z: U5 {9 x7 v6 J/ @                for j:=1 to number_of_machine loop
                        if j=i then
+ y) ?4 H! ]2 D. q- @/ z                                d_from_to_chart[j,i]:=0;
# M6 _5 R2 g* f- @, j                        else
                                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;
; v4 @: O, g1 n                next;
8 U& G" i9 x' y% L9 j" `        next;
       
1 ^5 ~' S' W: \        lines:=0;
5 D( Z& m8 R4 J+ @# J5 F  Q; M; t        partstable.delete;
       
- }( `+ ?. }$ G1 j" r# c; p, O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ v  m; D* G; M5 g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' k* W! u3 L! T  w                        lines:=lines+1;
* b0 C- E1 ]2 g) X4 N0 G  X' s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' s" }/ r8 [( L* o, }                        partstable[3,lines]:=sprint("parts");
. M, K- @* a- T                        partstable[5,lines]:=rows;
4 |/ q; u2 z/ `0 K2 a                        partstable[6,lines]:=j;
) M. E3 D2 ~" J8 }: q1 |                end;
, b6 o3 n& C; v9 o        next;
        machinename:=sprint("M",rows);
. c6 k: L0 r( F: h8 C" Q2 {$ }        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;标识符未知
1 r  ^  I5 z$ d/ ]# g        machine.proctime:=5;
* ?- m- _5 a3 k! S        machine.label:=activityspace[0,rows];
" [* q6 D1 f4 Q3 ~4 m/ J; \        machine.exitctrl:=ref(leave);
( F/ {( {: b" |% X+ i. B* Q       
7 S4 ?) Z) z; q# R# H        bufname:=sprint("BF",rows);
( a" u) t/ ^9 |6 u. @. u        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;
' R# B  Y2 D+ ~* n+ D1 w        .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;
3 P/ }5 n  X& e. \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ P; O- Q  P% y0 Rnext;
end;
3 \3 x( D& x4 O& T4 _9 `+ L