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

zooey

is
$ v. [1 h/ N+ Y        mark:boolean;
8 J3 f7 ~* P$ N% H% ~* b. P2 v# J4 u3 Z        dx,dy,ct:real;
/ W$ z/ M" z' T! F9 U    i,j,rows,lines:integer;
    machinename,bufname:string;
" q* [7 i4 H0 h% |, {    machine,buf:object;
do
6 B. j* _( q. w; j        current.eraselayer(1);
1 o. l; E- {+ N% L       
3 o! R% r5 `! S! w4 d$ g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" k) M3 f% G  |  x6 X                when 16 then
                        print"yes";
6 Z. G- a% Z1 Y/ x. G: K                when 32 then
1 U4 y6 \5 j. }/ f' _' a) @8 ^* H7 l                        print"no";
                else
7 j% @, I6 E, G# h                        print"cancel";
2 I/ a4 P* P( u+ o9 {                end;
, k( `/ Y+ I0 |# ?4 `                eventcontroller.stop;
        end;
       
, G) Q% @; p0 s# l# @% Z  d. y        for i:=1 to number_of_machine loop
: h# `- X1 T( I# _% c        machinename:=sprint("M",i);
& y0 {  d8 K$ F) s        if existsobject(machinename) then
. `& o8 [. I1 j& Z. g: J                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 X: Y$ b; X( d) s        end;
# K7 Q6 J- \3 B; M) t        bufname:=sprint("BF",i);
& v' m* Z6 F$ _4 x- _& c        if existsobject(bufname) then
+ a1 E9 j+ @6 k/ N; o                buf:=str_to_obj(bufname);
3 m7 o* F4 u' T) p' Q                buf.deleteobject;
        end;
        next;
       
* W# o' f0 ^* j        dx:=0;
2 I1 A2 k6 A$ F  z* K' h, d        dy:=0;
        for i:=1 to number_of_machine loop
' U2 ?9 }0 D0 D0 b' ?# R, o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 ~5 [* x9 H0 y+ F& z3 A2 D0 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) T% G& d: Q2 R5 W                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& K) M. N# i3 U4 y0 v. `                        activityspace[1,rows]:=ct;
                        mark:=true;
" J: [$ f. ?. @                        else*/
4 k! X+ F* @- r# _# V- C                        y_max:=y_max+dy;
$ w, m! a8 i% ~6 T                        dx:=0;
7 v8 ?, j0 a1 V                dy:=0;
                        --end;
! u" B( {/ ^+ }+ A2 }/ R) b                end;
8 |: G& }& C8 F/ p$ S                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 S" _% S( [8 C4 Q* c/ l$ Z: i& J, U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 y! X+ V% A$ b6 l) a6 r            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; T; m3 }* G; x: f+ P                end;
                dx:=dx+activityspace[1,rows];
0 d* m0 E7 c0 U0 z                /*if mark=true then
( ?" w. |% U# l$ ]6 }; u( ^' Q+ j                ct:=activityspace[2,rows];
, O' B. ~: T' z7 z- ~) s                        activityspace[2,rows]:=activityspace[1,rows];
2 h# F/ X1 ]$ n: T! t4 w                        activityspace[1,rows]:=ct;
2 d" `; Y# ?8 L5 A                        end;*/
: j# p2 \: [" J# N2 Z7 O# J        next;
        y_max:=y_max+dy;
& J4 ^- U9 k$ L8 @. m        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);
       
        rows:=0;
$ M8 g8 s; C2 L6 r/ R        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, j% ^. l( Q( @$ Y) A                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
1 E' s9 O2 C; D* c! S& `+ ^                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% y* l& X) r, u2 w: D3 E8 V                                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);
3 i+ \: u5 U( e! B+ c, R9 H7 [                        end;
                next;
        next;
       
3 s' I$ t0 u( p" d3 R0 `        lines:=0;
" j1 c/ L! ~$ P; F        partstable.delete;
& j" B' a3 v  K7 b* v/ p9 h7 k       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) C/ x$ g( w3 n$ Y+ F4 k                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"));
3 _9 n: H! o$ e+ p4 @" c! {) @                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 E- k, y4 Y. ]                        partstable[6,lines]:=j;
" B& m: J3 L: M3 p7 \                end;
        next;
        machinename:=sprint("M",rows);
2 D; b3 U8 \7 L9 k, T4 ~& g4 C; z+ q        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]);
: v* W9 E0 M( I* a8 p' N4 q: ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 A$ p. A/ O' ^/ `2 q8 q1 H' z. @2 A       
        bufname:=sprint("BF",rows);
  j) O( G! F- U! I        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;
: w6 }, m8 g: y        buf.proctime:=0;
) L: x2 d; k$ O' S        .materialflow.connector.connect(buf,machine);
       
3 D5 @$ c% |- [        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;
end;
1 E* }- h3 F% R6 D