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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
! T) T; ~' Y& g0 {- s' b; _8 }    machinename,bufname:string;
6 `) I2 p# i& n' N, r( m  [    machine,buf:object;
! n# F! B, d, Y1 {# ?# }* K2 n" Ddo
        current.eraselayer(1);
0 y0 g% L; ]- i3 v7 ?1 O       
9 ]1 I2 g2 T% ?( o9 ]/ u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 e# ~8 l" O+ {) |: A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
& j1 Q; z2 [% q% A                when 32 then
* D8 ~! H+ F% a+ ?1 S7 [  u                        print"no";
/ Q. D2 H$ j; l$ P                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
" z/ i1 }4 S1 ^) A: U$ {0 H        machinename:=sprint("M",i);
1 `) d$ y# n% Q4 ?$ ^: P        if existsobject(machinename) then
  i6 d" M/ H. L- a5 ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 z. [8 a$ w. x; R/ @        end;
5 ^1 O1 W* C, i- u        bufname:=sprint("BF",i);
7 m1 M) {  M# q* E& z0 ]2 b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 a$ g8 ~; e3 H( o                buf.deleteobject;
! n2 z( _; d) Z# M) P% ~5 K1 X- V9 s. l        end;
! \/ {5 A. Z, w* s) ~9 k# ^" @        next;
7 v: S: d/ b6 x. R  Y       
        dx:=0;
        dy:=0;
2 x4 n1 N& t* R( l1 m8 `        for i:=1 to number_of_machine loop
* Z8 h2 C# N: F% I9 h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# ]  h7 d4 J% I7 I                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' o/ X; t3 ~; o# n% b: i# p7 ~1 X- k                        and activityspace[1,rows]<(1.05*y_max) then
5 A3 S: s. u2 m                        print activityspace[1,rows],",",activityspace[2,rows];
6 Z; w6 k% B9 ]" b" n                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
. y! Z- A3 \/ ~, A                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
7 r" R" C' z. Y9 L7 W                end;
                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
8 a2 L  G: T0 ~# \/ n4 G, D                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
, G  m, @- v. _. z9 Q* x2 a                /*if mark=true then
                ct:=activityspace[2,rows];
6 x3 _2 {  y! R9 d. v/ n. d( r9 H                        activityspace[2,rows]:=activityspace[1,rows];
7 t# h+ a5 H8 J# R! {                        activityspace[1,rows]:=ct;
1 y* ]* F4 Y0 h7 F  E/ D                        end;*/
3 V! u" N6 N/ ?1 X3 H$ J. V        next;
0 x5 [( j6 a# ]0 l) P        y_max:=y_max+dy;
5 h0 n, @2 ]8 g* r        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);
) P' k* x' [- d' H2 O4 X1 h: T        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;
        for i:=1 to number_of_machine loop
2 ?; V* \. r1 B' J  x; o                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 t0 }/ F5 w$ g( N                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ a* u4 i/ Z4 K, j4 ^                                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;
                next;
        next;
       
        lines:=0;
        partstable.delete;
4 \& E% [" H2 t, o# ]       
6 q/ y1 _0 q5 g" L1 T6 `: t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* E7 L% ]4 h9 B* T, [% l( G$ S$ J. s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 `5 n1 X. U' s' D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ ~( D+ a6 J& i1 l/ `$ F* o                        partstable[3,lines]:=sprint("parts");
% p( T* E! |' f  m                        partstable[5,lines]:=rows;
8 S/ _1 k. V' Y                        partstable[6,lines]:=j;
; g: f  g* Z2 k, |7 I. o% K                end;
6 ~4 q) |. ^9 t. e( }; f% i0 C        next;
5 X+ C' M$ f3 b" m6 B, \) L6 r        machinename:=sprint("M",rows);
3 W8 Q5 w1 o# [: G* c2 l! b9 E2 K        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]);
# K! x! i. ~% u: ?3 P/ y. p        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) c! G/ {$ X/ s# q( b- a$ _        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  x+ m4 L+ O( S( P$ |5 w1 ?/ f' J$ 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]);
9 `$ ]1 [( W' N  E, _  t; I        buf.name:=bufname;
        buf.capacity:=5000;
( f$ G1 s. h; |# J7 @3 D8 z: u8 C3 H5 {        buf.proctime:=0;
$ ^! k( O0 K* R8 ?; Z! b3 d, P+ Y/ F2 H        .materialflow.connector.connect(buf,machine);
' [5 _. h' Q% L9 K9 p6 i( k       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; U0 ^& i* B- fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- t. l' j7 ^) h2 gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! G: C. Z: K* w* D2 vnext;
end;