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

zooey

is
        mark:boolean;
' L" M% J% c# [9 Z$ M- i        dx,dy,ct:real;
. x* U( L  P( R% L    i,j,rows,lines:integer;
5 u5 G$ A2 C; P& E# s1 y8 M    machinename,bufname:string;
! H- T$ ?8 Z) e5 Q$ o( ^! i    machine,buf:object;
do
        current.eraselayer(1);
, G2 ]1 K  G4 @7 ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ w2 z% e5 X, @. a/ T3 w                inspect messagebox("设施数目不对！请核查...,",50,13)
: M6 w$ v8 G/ I% W" c  d                when 16 then
% E, }! h2 E: s                        print"yes";
9 ?/ n. z. k2 y( I                when 32 then
$ a# P7 C' y, q. x                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
9 ?9 a2 V. s! L$ n        end;
6 |) A# e, g" o) T( `- w       
        for i:=1 to number_of_machine loop
9 Z+ p5 {, `! Z        machinename:=sprint("M",i);
; A. r- X( `# r8 K        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" k( J5 I$ j* o: D- B  a        end;
5 V8 s% c9 P) L2 {        bufname:=sprint("BF",i);
6 H* S4 f& w" [9 f% ^4 D" [9 u( ^        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  G9 e1 t+ r/ g5 ~' K4 n        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ r/ L/ x3 e* H5 Y  `# m* h                then
) M  W* R2 r& ~, P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 v, f$ L* I6 v7 W( R) G$ o                        and activityspace[1,rows]<(1.05*y_max) then
0 i) E6 d; \/ ~6 x% R! z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 C% S; g+ k* u  e4 i+ A9 C5 }9 G* A                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
% q: l* Q# L& R( u1 v3 r                        y_max:=y_max+dy;
$ J# S5 K& B% k+ z0 P( G9 u                        dx:=0;
* F/ H, O) \( h& Y% x% z8 i                dy:=0;
                        --end;
$ O0 B3 L! \( k1 g3 q$ k0 c$ r                end;
: z  B, o2 j7 K2 W0 B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* `2 v( ?7 c; L/ M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( l$ V4 U: r( }' m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# i1 H1 \. G3 g; X2 j: j                end;
' }8 Q2 Z2 h4 z! s) F  n7 ]$ y                dx:=dx+activityspace[1,rows];
9 K6 {' k$ l, L' Q                /*if mark=true then
                ct:=activityspace[2,rows];
2 F7 ?2 V: u8 R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  M  t4 k$ o( l1 W6 }2 P. w                        end;*/
        next;
        y_max:=y_max+dy;
. ~- ?! K# V1 T1 w% 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);
; Z4 \6 t! }5 |1 R. O6 Q       
        rows:=0;
) F4 O, g" Z  ^( ?        lines:=0;
( p  F" _5 U4 r$ v" U9 Z9 ]        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;
; V2 [) @* `. s3 @                        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;
) R) g) ]5 @: X1 E" L* e/ a                next;
) K  i1 j5 _8 _4 ~( x& i1 }        next;
       
        lines:=0;
        partstable.delete;
       
, c/ \( m, t, s. U9 \1 A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' o$ {4 v5 g; `$ r2 b( ?                machinesequence[2,i]:=rows;
& _  x7 |; g% @8 A6 C" l                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% I* {+ B7 W; X. @9 h                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! U5 @, q$ |( m2 a8 E: d5 v                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 k" m5 O9 ^3 a% K3 d/ g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% \8 N- V& J( W1 }  D6 N$ }% q                end;
        next;
  s2 R- W, e- s/ Y        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]);
8 P& L9 k7 a! z0 h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 x8 i/ j0 W9 |        machine.label:=activityspace[0,rows];
/ e+ S3 N2 G9 L        machine.exitctrl:=ref(leave);
       
1 n; I1 Q8 r3 j' U2 \        bufname:=sprint("BF",rows);
- \  i& x( x  ?3 l' K        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]);
  `$ u! F+ U) ]. n. J+ v- p- Z        buf.name:=bufname;
  c8 K4 a1 ~6 a' [4 C        buf.capacity:=5000;
        buf.proctime:=0;
! ]; @- g: l4 v" t. t/ u7 `$ Y        .materialflow.connector.connect(buf,machine);
) P* ~) {( X2 a* D       
+ D! B# ^* m6 f        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;
2 Y! B' i1 m& b) r0 Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& f# `( a  q4 A) n# Y/ Dend;