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

zooey

is
% _! c$ N. V8 _) [) ~        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
& x& Z1 l) Y: f& G9 v       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 O5 Y; V5 s9 S! z                when 16 then
0 z7 z& R8 ~6 s/ V1 ]9 B: V: u                        print"yes";
                when 32 then
2 }) [6 b5 M8 Y3 Q                        print"no";
2 k1 B, }6 ?1 z/ K* m                else
7 F, B5 K% F! a$ @& |( j/ n                        print"cancel";
$ }) e" g: h( a: `& p                end;
3 v/ j- G" ~$ U' j4 o/ u                eventcontroller.stop;
6 N7 Q/ t$ i) [9 t  \  z* b' r/ |3 ]        end;
       
1 ^, a' ?+ u5 p5 O3 P. c        for i:=1 to number_of_machine loop
: o( b" d4 y8 M7 @& }        machinename:=sprint("M",i);
9 K5 S. l" y6 k        if existsobject(machinename) then
* P7 D( M, k$ X1 b- E                machine:=str_to_obj(machinename);
, n" l' q) @' j+ A                machine.deleteobject;
+ I% i( p4 @* u" o& G        end;
0 K" o9 N9 v, h$ Y5 v# R* _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  N2 Q$ d; X/ _, {1 a6 E. A* K                buf.deleteobject;
# W, h6 ^7 F& o7 _* x        end;
        next;
0 d( d- P) W' o: J0 c5 _1 o3 m       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
5 x' g& t9 E" i( H- Q9 H, K                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]
% X4 k; `9 X4 d' l. @# p( x" P                        and activityspace[1,rows]<(1.05*y_max) then
/ z+ x* k* M0 ~, J5 q* f0 l                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 u. X) I7 y' r# g; g                        activityspace[2,rows]:=activityspace[1,rows];
, w, I4 _: [) p$ X9 t                        activityspace[1,rows]:=ct;
# Y9 u3 C2 Z" D. L) ~; Q7 H                        mark:=true;
6 V, ~0 J) j0 q5 k                        else*/
$ K# @% L+ A% b: y4 C                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! D5 O- s" J2 c6 Q- V$ L                        --end;
9 p" r# e8 g( z, Z, u                end;
* j0 X6 w9 i4 s) V8 @: c$ \; K0 |                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( ?, y! ]( N1 M) a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ ~2 r7 _, @' {: P" N9 Z% m( g                /*if mark=true then
) Y- L$ o2 }: T% i& ^                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ L* i) }1 g4 I0 M# c9 D$ F, T6 R' F                        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);
) G2 v4 c* e5 T       
        rows:=0;
        lines:=0;
  Z) B  g$ ~7 s. u' S        for i:=1 to number_of_machine loop
. _; k1 w1 O+ _+ v                for j:=1 to number_of_machine loop
" l$ c3 t- R4 g+ t" v$ j2 k                        if j=i then
                                d_from_to_chart[j,i]:=0;
; b/ @0 @) {- T. D8 k) T                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
  Y' a8 y0 H. W7 t' f" p0 \                        end;
                next;
" l$ [) x' F9 g        next;
       
/ ~7 r& O' \) x, _. s        lines:=0;
" t; S% v' J5 T8 R% `* S5 w; t8 ]# P        partstable.delete;
       
( @4 N' U1 _4 |) d1 n        for i:=1 to number_of_machine loop
' A7 z8 @) C2 e) w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ }. w; R; v! f* `! E                machinesequence[2,i]:=rows;
3 z5 P0 N) e( m$ a2 D$ g                for j:=1 to number_of_machine loop
; F) R" N- C+ \( }                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 q/ e7 N4 i3 a; @; |) P                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 W$ H0 m7 H: u0 h8 c) N# ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
! \3 ], i7 x" `5 f        machinename:=sprint("M",rows);
- R! f! m0 b; q+ X1 g        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]);
1 B& e. R: ?" W- p; U2 F        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
. N" J' t' t& p4 w% d7 f       
2 i4 Q) |  H9 W8 F8 z0 ^( u. a, }        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]);
1 b6 C% S/ K  H        buf.name:=bufname;
, _0 H, N9 s4 e% \. A        buf.capacity:=5000;
* S: w; i3 H% S% O) Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
  v* E% }6 i$ ~+ D; ~* @. C5 S& q/ ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& u0 t+ R9 W8 l7 ?( N' vdy:=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);
, B4 h# F+ M9 s8 N4 w( r( knext;
end;