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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
  f* \7 b3 d& t  C! O    i,j,rows,lines:integer;
. C% `$ P+ }) h; Z- ]    machinename,bufname:string;
    machine,buf:object;
  v' H) }0 I$ U% Rdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 ^* x6 z$ q% b                inspect messagebox("设施数目不对！请核查...,",50,13)
$ t* Y' W, Y& E$ F9 `" ^                when 16 then
5 E8 J( t7 e# N, q                        print"yes";
# q0 H, z0 z* ~9 b- e. r2 m- P                when 32 then
8 t, w9 c/ [1 [/ X" H- X8 A                        print"no";
                else
, }7 Q  }3 d: [" q- O                        print"cancel";
* F; O) L  ^4 A1 V5 m6 M( k                end;
                eventcontroller.stop;
, v- S; q, d" W        end;
       
* J) O- H8 Q3 f; Q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" t2 k1 U7 D& j/ A) L* [                machine:=str_to_obj(machinename);
. r9 h1 s* o* {! V/ r& y) A, F                machine.deleteobject;
        end;
4 D3 M& V6 m% \" p        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# A2 H9 Z, Y' F3 p6 t) g8 V' h) G+ a                buf.deleteobject;
        end;
5 e2 h2 W+ U- ~$ p6 e        next;
7 P; G3 M) Y9 B) d" e       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
  y+ i- n' ?, T" B& I) d( l. H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' \, N: G& B  Z/ }3 i4 S* R  B' w                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: {$ O% j! y4 Y5 }* g                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 a% l+ R% F' j/ ~4 @% N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
0 L. l- |# q; o: z9 @/ }0 v                        else*/
7 J8 }' z  a+ K$ I                        y_max:=y_max+dy;
1 ~+ F# `6 N; x6 I  h9 Q" Z8 s) D6 l                        dx:=0;
                dy:=0;
                        --end;
4 }0 L3 M5 u# d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 i$ d0 q- ^, S/ C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  Z* y9 J5 g' {5 E            if activityspace[2,rows]>dy then
6 V' u8 W* ^, g& z0 Y* ~& l8 Y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- A5 ^% x, l  R) U$ U; x                /*if mark=true then
6 `) }; K( N$ L2 K+ e  }0 [: D& x* q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ S: U) d2 `. p$ w. v                        activityspace[1,rows]:=ct;
0 g+ r8 x4 ?; u" G* l% c                        end;*/
: ^7 g# z) g! b7 z- @        next;
5 X2 i& O; S7 c% Z+ e) w        y_max:=y_max+dy;
6 ^% o) g# c- z, \* z2 o        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;
        lines:=0;
& s' P3 y  |  n        for i:=1 to number_of_machine loop
0 Z& I6 F- N: v* y                for j:=1 to number_of_machine loop
                        if j=i then
( ~# X$ w4 v( U/ j' t7 _                                d_from_to_chart[j,i]:=0;
                        else
! f2 L) X/ Y! @# V! o* ?4 B* g7 S                                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" F' y/ ?# u! N: Y4 G' C, P2 y- S                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
) S' p! `) D- V; C                next;
7 w) i- y/ d, p& O        next;
0 a" V3 F& V7 T* O       
        lines:=0;
        partstable.delete;
       
, X9 O1 }8 R3 v& P* r. A: a. m; t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 ^& b% p! M( W8 Q  l& s. q+ T  R- B+ s% e                for j:=1 to number_of_machine loop
0 V$ |! s. N6 P1 A4 k                        if w_from_to_chart[j,rows]>0 then
& K/ {% k) N2 D0 k5 W2 g- Q! O' p                        lines:=lines+1;
1 ^# ^' `$ P* U& C) m) g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ `, w' u* }) f3 ^, u% s4 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
. V" _4 U; x% c; d# s                        partstable[3,lines]:=sprint("parts");
& ~5 {7 m1 u  f0 a- W                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ {2 v7 S8 d. i/ ]2 W& ~: i, f        next;
  U% P$ `) r% ^: ~( N        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;标识符未知
5 I- X" t2 K# {: }$ r4 t8 L2 U        machine.proctime:=5;
7 P1 y5 M- R3 ^+ S. d7 X" R9 ~        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
5 @4 B2 U2 Z, k" o2 v. b        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
$ t0 G! V, d) ?* Z! c$ J0 _, I4 z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 X" F$ K9 H5 N5 A* ?       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* A! c$ ^# e6 T5 `5 o" Udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# T/ _3 k7 r( U5 Dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; Y4 a5 i0 ~9 A( a5 q- O+ d% enext;
( Q3 O3 w9 t) ^- k# ]8 t  x0 I& fend;