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

zooey

is
        mark:boolean;
$ g) {( P" U, h6 j        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
( i- r1 W3 n; }' ?! gdo
: P' R" ^+ E4 \1 g4 l        current.eraselayer(1);
       
+ E5 V. L& M" q+ p; G" @9 ^* l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 O/ S- F6 x) _7 g5 I5 T                when 16 then
                        print"yes";
                when 32 then
' R8 J6 p' O4 U) ]% I                        print"no";
                else
; g6 s0 Q) m" M" f4 t                        print"cancel";
9 W- I* |6 O5 z1 i( g                end;
9 T: Z# d+ J1 g/ K                eventcontroller.stop;
        end;
) b/ O6 k, s) g" _- p       
, }* U1 o' D- E9 f        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 p, x0 R8 O$ F$ I! C% H                machine:=str_to_obj(machinename);
                machine.deleteobject;
- B9 `/ p' Q" I* p' ]        end;
/ t( i& L% y: {        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 a) j/ C  Q: d8 o* R% F0 N                buf:=str_to_obj(bufname);
! U0 U$ }6 D& _4 @( h5 t5 I- L; W% L# a                buf.deleteobject;
2 i8 X, S. R8 m        end;
3 n: l0 Z+ e8 o: _        next;
       
        dx:=0;
' n0 k" {7 B* u% s) t) L  g9 U2 j        dy:=0;
        for i:=1 to number_of_machine loop
/ ]7 W  g* A  }1 P  V' h$ C; u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 h: F# L% T+ l: p" f0 U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; Y" ~$ r+ X/ d) Q. ]- v5 _                then
/ ~* H6 \9 ~- Q6 r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 N, A# l& m: O4 S, A6 g                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) ~8 @& b& Z+ v5 C* H7 K3 q0 G                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 C- U/ W7 u6 ?$ h                        y_max:=y_max+dy;
' N) A/ A' R# U- b: z                        dx:=0;
                dy:=0;
; `. i5 K: ~+ R; O1 x                        --end;
) m( m6 o. P; G' H  p! H  j                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ [* C* J0 Z1 m" M  S5 D! {8 f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ O8 n, q& a2 Z2 z6 C& g) n* S/ p& }" J            if activityspace[2,rows]>dy then
$ x5 i, q! S7 r  Z- `- d3 K4 |                        dy:=activityspace[2,rows];
/ \" ?9 w' H( M2 ]. |( h                end;
  @2 J6 `& s9 o3 j' Z" H1 \9 U) V                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ ^0 x2 q- f! p3 C7 _                        activityspace[1,rows]:=ct;
  e1 b( @+ w/ P5 W; ^" j! c                        end;*/
        next;
* i3 s# d8 u* q- a        y_max:=y_max+dy;
2 M  q: v/ F, E0 R1 s        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;
        lines:=0;
: r; F' ~  y, }1 g" z        for i:=1 to number_of_machine loop
3 x7 f2 V6 R/ Z# k( t1 K% k/ U0 R3 S                for j:=1 to number_of_machine loop
" n9 e# B* W$ A9 O0 I- u                        if j=i then
                                d_from_to_chart[j,i]:=0;
* Y8 y6 I& |5 n8 C3 c9 f5 J! h                        else
" v9 ?9 C7 Y0 h, v: S1 ~9 w0 F# K                                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);
                        end;
, D3 E6 Z- J- r  u+ P                next;
* g7 [, e9 ^  K        next;
6 i5 E! W8 p. F9 N* g& T       
        lines:=0;
        partstable.delete;
       
" H% F6 ^2 Y( X$ n# y% P        for i:=1 to number_of_machine loop
1 z% t1 x  [0 r0 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% F+ i$ P) d' K/ e                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- M& i9 v) f) r5 Y8 c& s6 k1 b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 ?0 ~+ p0 C9 O3 b! }; S: _) n                        partstable[3,lines]:=sprint("parts");
4 H( F/ r& u7 x6 s5 j7 p                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 p6 ^4 ~" \( ^& z, `3 \                end;
        next;
/ }: g5 A1 m7 c1 Z* s# @9 _        machinename:=sprint("M",rows);
5 I' ~# o4 F! F' v! t0 O5 J9 k: 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]);
        machine.name:=machinename;标识符未知
6 ]/ Z7 T" x4 s( R        machine.proctime:=5;
7 E8 ?. w$ u$ x# g; ~* ~, g  X7 t        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: {7 j: ^, l. {1 {       
. t6 b' E' b! N) L4 @% w5 ]4 F        bufname:=sprint("BF",rows);
. n; u. T2 R( x( ]. j6 q        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;
        .materialflow.connector.connect(buf,machine);
       
! I5 h& C5 M0 k5 ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 P% @. L; z" u7 d% Q3 Fdy:=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);
* b$ G" d" R1 cnext;
end;
) o* W* _% U! v9 @6 N# q0 ~& I% [, J3 p