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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
/ r; o( v  N: N+ k, \7 i. p3 l" r: S        current.eraselayer(1);
       
9 m% J) x3 n) K3 v% f7 V0 v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, W9 |- g- a# Q/ ^6 p, d5 W# L                inspect messagebox("设施数目不对！请核查...,",50,13)
# \7 I: e! B5 n# V  T                when 16 then
( l. @5 F+ P. ^7 \3 y+ \0 }2 S                        print"yes";
8 Q" |' g0 m; V; F* m$ z4 S                when 32 then
% z- L. Y1 U/ _3 }$ L/ T4 {9 G                        print"no";
" y5 f" r4 I1 u) _! Z                else
                        print"cancel";
                end;
                eventcontroller.stop;
! K" }, X( U7 ~) C" B        end;
5 j$ W0 @5 p: s& ~' z% i8 o       
        for i:=1 to number_of_machine loop
$ X! {7 H7 C9 z/ _( v3 |/ A8 f8 C: z        machinename:=sprint("M",i);
# ~( p1 l% X7 F9 O' C' R# `# j; b        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* m( ~( L9 S/ r* Z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 P. H, _3 s5 C, c9 F& I: Z        if existsobject(bufname) then
: n% |6 P. ^6 ~# f8 Z" q                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
9 ?7 z& m4 Y) _& N# o: ~  \3 \  Q       
        dx:=0;
        dy:=0;
; }+ A6 Q  N- ?/ b0 S! L/ f$ {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; g/ ]" }. V/ u3 o1 @' v                        and activityspace[1,rows]<(1.05*y_max) then
1 _) ?: ~. x9 T, V! }  {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, n8 {3 b+ O+ W5 m                        activityspace[1,rows]:=ct;
* Y( S, _5 d# B$ d, Q$ v                        mark:=true;
- J+ d- z# a+ [% Z% n                        else*/
                        y_max:=y_max+dy;
4 B" _9 e/ M6 X- P0 [- Y7 B' S                        dx:=0;
                dy:=0;
                        --end;
5 R7 x) B! T. a* I8 `; I                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
$ ~  n8 s' i$ x. a( r, W6 Y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
8 S' P2 j* I! \: O                /*if mark=true then
                ct:=activityspace[2,rows];
7 b' ~1 T" }. P: b4 n                        activityspace[2,rows]:=activityspace[1,rows];
% W) `/ `4 b3 e# b. A                        activityspace[1,rows]:=ct;
* w9 E$ N0 ?. Z* p! I                        end;*/
        next;
9 y/ r, M* B2 _8 u" ^' N        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);
, H7 G( U4 r9 J/ Z        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;
: f6 R  U$ t6 [$ O, C        lines:=0;
        for i:=1 to number_of_machine loop
& T  h2 r& a9 K- Y2 `! [6 L                for j:=1 to number_of_machine loop
4 C( y- L1 s' ^, L6 Q; g) ?                        if j=i then
) W( I, p; g8 D' Q                                d_from_to_chart[j,i]:=0;
                        else
" X: f# k6 h6 Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  y% E/ ^$ @& c1 A. f' c8 G: ]4 L8 `                                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;
3 o. _$ s0 r/ m, v$ B                next;
  f, I, f: i9 E6 b3 `1 A        next;
       
1 }$ y3 L- R: o. A# |7 x4 ^4 o% U: `1 s        lines:=0;
        partstable.delete;
       
1 _# b5 a; Z, e. l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, }/ F3 c! _+ c4 y0 Q                machinesequence[2,i]:=rows;
+ m6 w+ q8 f" \* r6 t/ ?                for j:=1 to number_of_machine loop
# w( p) |7 I  [7 _; T# x! ^                        if w_from_to_chart[j,rows]>0 then
1 Q) h* w/ X3 @/ _                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 `9 ]1 p% O% O  R7 T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 p4 b% P& m) l$ f8 @) d2 ?! _6 Y                end;
        next;
        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 P) o7 W" h' w% K0 |3 |        machine.name:=machinename;标识符未知
8 P4 u- Y! _) A: a- R, a; P3 r        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ U0 ]5 k4 L+ g" H        machine.exitctrl:=ref(leave);
$ q8 r$ q4 [% ]4 {/ {+ O       
4 [$ F. |+ {, [. ]        bufname:=sprint("BF",rows);
7 [9 V; p! J! `: R4 Z  r6 W$ l        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;
( b$ f! z2 H, p* ~& Z1 j% m6 e, V        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 _7 b# D& S0 J0 Q. `0 edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) G9 [6 @' J2 H5 o1 @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) p8 K% Y9 o" l" T3 B7 h3 H- C# }( nend;