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

zooey

is
        mark:boolean;
% y: `3 h2 s9 w: u5 e! o4 A/ O" z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
6 d+ S" V0 R* ]# m2 j2 e/ H4 ydo
        current.eraselayer(1);
# T: o1 {% D+ q4 l       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& D* a8 R' A9 h" P7 v                inspect messagebox("设施数目不对！请核查...,",50,13)
5 n3 Y4 u: W6 g$ Z' j! `# Q                when 16 then
                        print"yes";
                when 32 then
                        print"no";
. u5 X2 w" U2 E* }& C/ Q+ A                else
2 G- m4 O, r9 \3 a6 @! x( E: c                        print"cancel";
                end;
& m) Z3 ]6 j4 R  q8 ^$ `7 w                eventcontroller.stop;
$ L$ [5 F; ?: z/ J        end;
$ ?' |1 ^! n) ~4 A1 O       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 c2 j4 C$ @  M+ Y$ ]& l  ?                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 _% A5 n1 h8 ~; ?- N: r/ Q        if existsobject(bufname) then
# O, M% Q2 w" ?  M                buf:=str_to_obj(bufname);
# k" F7 F6 ?) w" u0 {) t% V                buf.deleteobject;
        end;
) I; R- ^4 ?6 |0 ?5 N) ^9 F3 ?        next;
4 n) G; B8 A1 }3 T! ^$ N" J( ?7 @1 f       
& D5 y0 m* n$ I- {7 c" c        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" C7 Y* H3 ^2 n, ]  v  h: E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) x) K+ E+ x/ O4 u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: Z; U% H& p5 b$ U: K! X                then
* J/ ?: e5 y# Y( L9 e                        /*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];
/ j3 u6 ]# a" ^                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  p, Q# |2 H. _/ d7 [                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- N+ o( X( a/ _9 q; L- e8 V7 }                dy:=0;
                        --end;
0 H2 C' G, K5 y7 N- [                end;
  R; P5 \% X& \; e) ~* k! g- c) k6 t                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; ~. Z- m- a# H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 t5 e7 d0 G$ i& S' q5 v! K                        dy:=activityspace[2,rows];
6 b: Z. Q( b. ?% X, K% {/ w                end;
0 _6 O& u$ U' Z  g) V& {: G0 X                dx:=dx+activityspace[1,rows];
* [% n" a& H5 j& l  n                /*if mark=true then
                ct:=activityspace[2,rows];
6 r& U3 R+ E. [# j  v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
; ]1 X5 f1 C  l& v       
        rows:=0;
        lines:=0;
3 f0 [0 e  W  |! h$ e2 w        for i:=1 to number_of_machine loop
. i2 B1 H6 ]4 }: M' r                for j:=1 to number_of_machine loop
8 h5 S! n$ i5 S, X; O9 k& E                        if j=i then
7 w% b  O  a' g. `0 U6 Y                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: }; Q/ Z- a$ x, _6 x                                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);
' S9 ^5 U6 Q/ Y6 w. ?" C9 v, `                        end;
                next;
/ e! r+ f6 K6 T! c5 G/ F: h9 V        next;
% t; g0 ~$ u% |1 u5 s% v       
0 w( A3 [! ]" m5 d, m6 m8 f% p2 G        lines:=0;
        partstable.delete;
& ?+ \  t# S+ H: v       
  F8 P( ~7 Y# h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ l! k5 j$ D; w5 r: 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;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 \* V$ U* |5 S$ ^1 e% g+ a, }5 }* O- G                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 C: Z5 @! m4 f% c                        partstable[3,lines]:=sprint("parts");
. w; _7 d( I% X; c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
! Q0 u" R2 W- r) o& W* q' _4 o- d        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]);
7 F- }# E8 T( ^# O) u( }, ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- [" H" ^, |+ n( O        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
  ~7 m6 h" H/ a1 t; e* k        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]);
# R5 z  f: A/ y: _4 b& l        buf.name:=bufname;
5 C4 U) ]( f' Y4 p& O3 i        buf.capacity:=5000;
        buf.proctime:=0;
8 b" x; {5 v/ Z. h        .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;
  S& H* v8 N; c8 G% O6 gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% }7 M3 S  u7 r5 i4 V2 vnext;
end;