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

zooey

is
        mark:boolean;
" T) p& c- |1 p        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ j/ I( ^5 y  F. T' F    machinename,bufname:string;
5 g7 i2 q9 w: @* u' G    machine,buf:object;
do
  M" x5 N: P5 X: R        current.eraselayer(1);
; o' O1 ?: r) I" y) Y+ f. u  [5 A       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 i. M: ?( F% Q! k) s                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
9 V# ~5 w0 r- x0 S8 j                        print"cancel";
                end;
                eventcontroller.stop;
8 C8 L1 d$ x: t3 C2 A  X% Z8 g        end;
: m7 |5 C, J" s2 x6 ^* r* H       
1 [! n/ n6 M' @, S6 s9 o        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, x" W& o1 ~  M5 R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& F: d' W/ `) ]) J, z                machine.deleteobject;
3 p+ f9 B2 H3 ~! Y& V( e1 W1 ^        end;
0 V% ]* q1 v. [        bufname:=sprint("BF",i);
6 N- i& \' O" R        if existsobject(bufname) then
, }& d2 |' A9 n6 x8 b- I                buf:=str_to_obj(bufname);
/ R9 B- \0 s3 I                buf.deleteobject;
6 Z; f; A; i( X! W        end;
& ~; o9 K9 @4 E  d# ~; z        next;
( Z2 m5 z6 z  `- d" g" y       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, t' E, p/ @8 C# C# Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, B' n" @: O: l2 ]8 E                then
  ?" k1 n9 t  C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 ?; t! I9 u4 [  |2 V4 L. N/ ~                        print activityspace[1,rows],",",activityspace[2,rows];
) v1 S: ]7 a( ^2 y9 }                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
4 D) E  h6 s+ ^, Z                        y_max:=y_max+dy;
8 f# x2 N8 ^+ {7 n. n; }                        dx:=0;
0 V) r, g" [- _                dy:=0;
                        --end;
                end;
% K' G* h6 v( b. |                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; M( g+ X9 D9 H8 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 {7 z* I9 d" u  K                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
, C$ n5 r- `. U                /*if mark=true then
                ct:=activityspace[2,rows];
' a7 W- g: F3 M: w3 |                        activityspace[2,rows]:=activityspace[1,rows];
/ I8 q4 ~! R8 K" V. c- x. _7 q" e                        activityspace[1,rows]:=ct;
                        end;*/
: a. U- B( _3 a/ D1 @& S9 X        next;
+ `$ c% e) e* b; Z2 C; c+ H* b        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);
& a6 \. M8 q; W+ w) ?        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);
       
- V8 H' w8 f; F- a6 D        rows:=0;
/ d; L' O$ c! {# Z        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;
$ W7 I, n$ [" W                        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];
! H' T: ~4 W# g7 K7 ~0 z, l: s8 J                                d_from_to_chart[j,i]:=abs(dx-dy);
- u$ ~4 R: c/ |% s! y4 K/ `# G- A                        end;
2 P9 a% Z* t: x+ j2 }8 g                next;
5 o4 B- ]& a) k# c$ r- M        next;
       
2 u2 w/ K' c' b. z- @2 _        lines:=0;
; t8 A2 k! f( O: B8 W        partstable.delete;
- e8 ^3 F) P3 S+ t) D! q. D5 u+ ~       
        for i:=1 to number_of_machine loop
4 I9 U5 q7 x8 z* z4 j8 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' z5 R4 J& i( S$ M                for j:=1 to number_of_machine loop
$ Y7 q2 s* w0 S                        if w_from_to_chart[j,rows]>0 then
, G% ?" u% ~5 T* Q+ b2 W+ m                        lines:=lines+1;
  K- j3 ]" [" u7 h, [1 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: s, ?1 `$ r2 N7 A                        partstable[2,lines]:=w_from_to_chart[j,rows];
( M( N1 G% S8 A# m# k                        partstable[3,lines]:=sprint("parts");
+ V6 q6 S- i2 E, l3 }! o' B( _& V6 j& |                        partstable[5,lines]:=rows;
; H. D% G/ G: l# u                        partstable[6,lines]:=j;
- a9 h- ~! T! I7 y, M; o                end;
& {7 ~# r2 u8 X* F6 Q        next;
* l9 m, {1 ?& L1 J+ r1 E/ |% s        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]);
& S+ T4 t+ `  X+ Z( w+ u5 E) J        machine.name:=machinename;标识符未知
$ ~, t0 J5 H+ `% L& J- f% @5 E* J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 D% W% T/ \" \: x# g        machine.exitctrl:=ref(leave);
1 \8 p5 g+ ?2 E" x* Z7 m       
        bufname:=sprint("BF",rows);
' e; {5 }) t& `% G5 Z+ m        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]);
6 E0 ~% V9 S: d% g! |$ M, ~        buf.name:=bufname;
        buf.capacity:=5000;
6 z2 M# p: l$ ?9 @* W        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ m% C) V& D3 t; ]       
, w0 s, @+ E& w2 L+ @5 P) x; C        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;
0 F. Q0 x3 c: n. F! M' y1 Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. M: v: G6 G  R0 Jnext;
) R5 l. I! R1 l( ~& zend;