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

zooey

is
        mark:boolean;
* \4 e/ G" A8 g# e8 O5 l$ p. n( j/ l        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
* g) l1 m. M1 q% K9 I    machine,buf:object;
, z  f" `9 x  edo
- ^7 z8 f0 q8 `, ^        current.eraselayer(1);
       
7 ~+ y# R: d# B& m) j4 E* @+ c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 k: S1 R, X: B. z; Y$ J5 b- X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
4 C( ?- z& P, u( p: t6 w8 s                end;
% ?- Y( P( Y; N8 R; B                eventcontroller.stop;
        end;
1 c. K8 _; n7 C7 i$ P$ i       
, A- U6 P( s: j: ]: G        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* N8 q9 _. |! y4 k6 H. ]7 {* o        if existsobject(machinename) then
' }4 c6 }# A% v7 u5 g" L                machine:=str_to_obj(machinename);
7 |  O# M) z+ F                machine.deleteobject;
$ z2 Z' l# E0 v+ f        end;
6 y: C& N) [) E" Y( b        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 @0 W* j; P: V& Q  p* o2 z4 |* L        end;
        next;
       
1 ^, J3 n. |8 S# V& i  A( w; x. V        dx:=0;
& Y2 D4 f  t$ [$ R( `- Y        dy:=0;
        for i:=1 to number_of_machine loop
* M% ~. c$ z* F: [# c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" X3 O+ g8 U9 f9 g  t; h                --mark:=false;
* N9 ]" ^5 Y; i3 W/ ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( o% A& h4 }8 _8 R- Y$ I9 |                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 [* e) B! A! }, x. O1 v$ J" V+ l( E                        and activityspace[1,rows]<(1.05*y_max) then
$ c/ J& S& j5 l; a1 g* K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 t2 \: X$ _' q) Q9 E- e                        activityspace[2,rows]:=activityspace[1,rows];
, T& z; N  d- I  [+ G* ~. h                        activityspace[1,rows]:=ct;
                        mark:=true;
; R* u7 j$ S  p3 O5 Y                        else*/
' R: T( \) [$ p2 ^; D, g                        y_max:=y_max+dy;
7 u5 ?1 g/ H5 B+ }) n, b' g                        dx:=0;
                dy:=0;
3 ?3 d! `" w) w$ y) r5 U" L# B                        --end;
1 B  I- w! U4 x2 D* _9 a; e3 C                end;
1 ^: G2 K0 T, u( R6 N  B                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) r2 `; s+ e7 h                /*if mark=true then
9 S0 t: y4 m- D- i! x8 e2 }) I' F4 p                ct:=activityspace[2,rows];
, D6 Q- u) \# A" n  M' B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
! D- P+ I9 H! f; \7 N1 J        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;
0 E  P! T0 ^9 x, D! o9 \        lines:=0;
        for i:=1 to number_of_machine loop
" |9 O* F( j) }" c% R7 l                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
3 n( ?& M! J& t+ m0 O: P1 a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* b% r2 E. q' b0 N2 j  @5 q% l; Z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 n: S3 a7 m$ f1 u+ `. M                                d_from_to_chart[j,i]:=abs(dx-dy);
$ N& Y8 v$ i. B1 l                        end;
- }6 F0 l3 w+ v5 B) m                next;
$ {4 E6 L# Y8 N3 {1 f3 w% F        next;
       
3 w% ^" a7 ^# T4 o$ I        lines:=0;
        partstable.delete;
7 W0 P! I& a" K1 V       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. Z4 P5 _: v' _) z: r0 b3 `                machinesequence[2,i]:=rows;
' \" ^5 a6 ]9 N+ W0 z- k, b                for j:=1 to number_of_machine loop
0 P* F1 s7 X& F  W                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 r8 g& \  O* t8 d/ R# E" Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 Z8 b+ p0 I" K4 b9 ?' p                        partstable[3,lines]:=sprint("parts");
* r4 O$ c( K  I" l. t1 x                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 t' h; H  S) z! N                end;
* V9 h" g" U& o/ v: h+ Y        next;
        machinename:=sprint("M",rows);
7 f+ s' h# i; X( i2 F& z        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% L9 C# x4 y+ I3 c# w: G& z) n       
; g- u, S+ E7 g1 T  S7 g        bufname:=sprint("BF",rows);
1 s) }8 D, P7 N. 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
8 g# L2 C6 L( r" p- w( s        .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 K! {, r9 {9 L0 C5 y1 kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 G1 }2 i7 E1 [# S% J3 d* dend;