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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* u% _% m6 Y* F5 `    machinename,bufname:string;
9 g' M( O$ x; s7 G3 _0 t* F    machine,buf:object;
do
/ s% G6 b) H0 Q/ `/ `5 D        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 Q" \) k- _: L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( f4 Q* a$ w4 F3 ]                        print"yes";
* B. U- b, {" F! k) |                when 32 then
                        print"no";
, z, c: g4 q$ T2 D                else
: s( f1 h. t0 R! y! n! i                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; c. l1 Y- x0 B; T7 J. e        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 k% E7 G2 k9 c9 W/ Q        end;
        bufname:=sprint("BF",i);
4 ?& E" y  |% Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 L( B  x( _) e- c8 u4 J                buf.deleteobject;
        end;
        next;
3 \# n/ Z1 ~) e9 i  i0 O2 v       
8 T# B; q# I- [# K( b# ~4 U; S) Y8 f  ]        dx:=0;
  Z9 X) c' [. @) u        dy:=0;
! B. E7 o. {& v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ h) l+ t7 O+ B$ d) t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 U2 P- Y5 H, f, l# I' t& n: G. L3 ]                then
                        /*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];
* |1 c1 L. W) i" l! Y3 _2 B! q                        ct:=activityspace[2,rows];
" Y3 S' H4 k2 J! s" j4 H. F                        activityspace[2,rows]:=activityspace[1,rows];
1 K8 J% D& \7 f: j7 w8 E5 @                        activityspace[1,rows]:=ct;
0 h$ P2 C. k4 L0 O* b                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
" X4 {4 j0 l/ R; H                dy:=0;
* F0 J7 S* r: z2 b! h                        --end;
                end;
$ g5 i, I9 f: D( V0 M2 f                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;
4 I/ ]* E9 I: u5 X5 `            if activityspace[2,rows]>dy then
8 Z/ z- @( B+ u2 z; _# j5 F* E                        dy:=activityspace[2,rows];
9 B4 r: {7 F1 j6 l) O* e& M                end;
                dx:=dx+activityspace[1,rows];
& ?+ z: I! W. D9 }: e                /*if mark=true then
                ct:=activityspace[2,rows];
3 ^1 J& ^. Z+ v' ]2 Y                        activityspace[2,rows]:=activityspace[1,rows];
2 d) ]; O1 x* }                        activityspace[1,rows]:=ct;
: v5 l9 }# N6 E, t. t- k- x                        end;*/
% Q. }4 w$ _( Q. m5 |. u8 ^4 A! o        next;
        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);
       
( u* |) g! I6 d9 s        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 v  X0 S" `* A) [1 P) d$ Q/ Z7 T                for j:=1 to number_of_machine loop
* t3 O- k% |# s* J, V                        if j=i then
9 W% C& W  c2 q& c- x                                d_from_to_chart[j,i]:=0;
8 g# ^& @& O) q( p                        else
8 \9 t; s, P+ K( ^2 W5 |2 x" D                                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];
9 y0 d: O6 Z  X" C3 {, L6 ^8 c& J                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; R- w; o$ |5 C                next;
* Z7 s! V1 _/ u" g& G* e! v        next;
       
6 B7 d' {; n* e/ j0 I. U7 m6 ]9 b        lines:=0;
        partstable.delete;
       
" R' f, ]) }9 l8 e9 s  `9 z        for i:=1 to number_of_machine loop
; d( m' A7 `% p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& `. V' j5 ^9 p+ P  S                for j:=1 to number_of_machine loop
, @% |" F0 L& `8 T                        if w_from_to_chart[j,rows]>0 then
( Z2 L6 d: M; p9 }. E8 s2 K                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 I) ^: d% e; q: J7 `6 {& d* b                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 J1 |3 x* H. I( q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
1 f7 D5 s: K$ m5 u- ]& I& ?2 f& _        machinename:=sprint("M",rows);
5 d& R! l# X6 h6 ?* ^1 g' S( j        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;标识符未知
" R$ O  Q* ~( E4 h8 G        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 ^. K! ^& ]. U3 ?: W        machine.exitctrl:=ref(leave);
( i. |- }; T) A: E       
        bufname:=sprint("BF",rows);
0 N6 [2 T  |1 r        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]);
7 a& S2 E7 }- \. g$ e: L: ]$ f        buf.name:=bufname;
! l; |8 A3 r; _  d& r        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 X8 a7 x2 w7 B4 Cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- r/ w* I$ y$ d/ v0 B4 m( x! Pnext;
end;
3 U+ K1 _* r1 h2 }