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

zooey

is
' {) r7 o0 q: z1 [        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% }: v: h: A6 L0 \( H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
+ K/ A  q9 y* u  k                        print"no";
                else
+ q* J0 Z" G$ g% i% m                        print"cancel";
                end;
( e5 @/ Y# y- j- Z. r7 O                eventcontroller.stop;
        end;
       
: K; {" ]- x4 g# `% M        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: W$ q" Z+ O8 p0 }: w7 e        if existsobject(machinename) then
* s; f! r3 f; z4 I                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
( M% V, v9 A- b" n# Z# ~3 A        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
. j% Q0 f0 X6 v4 U- |        end;
        next;
       
        dx:=0;
        dy:=0;
& ]7 H# i' N' j9 w$ N0 A4 E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. i, R$ I$ r1 T1 V  O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  H) [$ v" n5 v- T5 O4 ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' O- |, i* A+ H- |9 l! x                        print activityspace[1,rows],",",activityspace[2,rows];
; }: c6 `2 P8 w- i! v& s                        ct:=activityspace[2,rows];
; x& m1 g1 ~1 b3 d7 Y. E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# X( ^$ x, X  s  `3 ?: n- ?9 D0 |                        mark:=true;
                        else*/
8 [, N7 Q  {4 E  K* p$ a                        y_max:=y_max+dy;
. n6 }8 \. O  b$ {& G                        dx:=0;
+ ?; E3 C) q& @0 O                dy:=0;
                        --end;
                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;
+ \$ y- S& \8 l. R$ v1 C/ u            if activityspace[2,rows]>dy then
, X3 D0 |) z, S1 I                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% u  m7 n# F9 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: U% y, v" K' W9 s! U% K! V2 H                        activityspace[1,rows]:=ct;
6 V$ [& Z! P! n9 v: i                        end;*/
        next;
7 r; T6 `  I- ~. V. z        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);
8 n9 Y- l0 o4 q5 ]& F& v       
        rows:=0;
$ }$ r  ]; Q, V, c3 t) W; j        lines:=0;
/ q: f: e2 C8 E/ }5 b$ h! H: I4 L        for i:=1 to number_of_machine loop
) l: ]5 {. {/ B3 S                for j:=1 to number_of_machine loop
' _& U) h& W2 w$ o. H                        if j=i then
7 F; Q1 d5 H* p! ^1 R5 X- b5 w                                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];
8 R* P4 r" ]6 g                                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);
$ W2 M: R( e' a' @                        end;
7 ^! s- P- A  N( d3 {                next;
" S% J: W7 O$ Y% S- C& a' g        next;
       
, @; f5 E9 s: F9 ]; D0 }        lines:=0;
        partstable.delete;
- q' d3 l( }4 ?  u/ {$ C; Z       
9 C6 s/ m5 F( k: `& [; g  k' m        for i:=1 to number_of_machine loop
, `# n; D+ d1 R: w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* |" K/ i# k% [& S/ k" K$ q# ?! l                for j:=1 to number_of_machine loop
5 [% t" w' F$ x! S6 d: p                        if w_from_to_chart[j,rows]>0 then
6 a3 h# G0 j6 c+ K9 K. @# g                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 T8 P9 n) H& e" Y9 V( a3 P* k0 `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* Q( v  l' h  b8 C- D) _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
2 a) r3 t* H$ C+ r* o2 |  V' H        machinename:=sprint("M",rows);
" X( x  A2 \/ y1 B! H6 ?        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;标识符未知
% j) f2 S& ], W! ]        machine.proctime:=5;
3 I; j6 s1 Z/ {+ C+ b8 \6 p        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
. I: U7 B) u) G        bufname:=sprint("BF",rows);
# @7 b) o$ i7 h& I' m) u        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]);
5 d' p" x& R$ w9 s/ n, _$ D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
. g0 x$ r  z; Y+ J8 U2 O8 F# q8 y        .materialflow.connector.connect(buf,machine);
       
0 R2 W# j6 U$ H. @4 O        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
3 m; V2 P0 |& Zend;