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

zooey

is
8 @3 l0 `- H* A# B, X        mark:boolean;
        dx,dy,ct:real;
, @* E7 N% N3 G, k2 b    i,j,rows,lines:integer;
    machinename,bufname:string;
0 Q: a( e4 E& b6 f4 I1 h    machine,buf:object;
do
: h, V1 i- C- A1 a; }  t1 N        current.eraselayer(1);
# B' |. y! o; _0 e; I! W0 _* e       
, }0 I# I$ x" L# ~- n  v; k4 H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 o8 m* S# L8 _7 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
7 d9 T4 \% ?3 W+ b1 C" S                when 16 then
                        print"yes";
                when 32 then
% W! p9 T, A4 H( I                        print"no";
) c9 I& {' u7 H0 ?                else
6 s" r: c. y4 e# q( ^4 ~/ R  Y                        print"cancel";
                end;
6 z$ C, b. C4 }1 `' w                eventcontroller.stop;
        end;
- v2 z3 E" e; N$ y       
- x1 |* M' `8 ~* _        for i:=1 to number_of_machine loop
1 Q2 w2 u) I. C$ l. S' }        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 Y9 u& D) p  m& L( j                machine.deleteobject;
$ E% n9 f0 K  b' _        end;
+ }3 n% b5 v3 ?; W" b        bufname:=sprint("BF",i);
; t7 [2 U9 x! Q3 \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ r/ N2 u; L% S! T) o# L                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
2 b! q# {! X9 V1 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  K, q- D$ I& s: J                then
2 k, ?& g  L; b0 P; T  X! q  \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 N5 k; O7 A  {8 N7 S# g                        and activityspace[1,rows]<(1.05*y_max) then
  E6 Z, t/ a0 h$ s. ?3 y. C                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" \: w1 C: j% ^: `" U; ~2 G                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" x- w; u+ q5 p: d, j4 O' x' s                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
& n* u& Y- r+ H3 E6 u- b                        --end;
2 Q% Z9 B7 h, V: L                end;
% K9 Y) V: |; Y" o, L0 l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 w% V: [; X& d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
3 M4 R* V* k. a, @! S                        dy:=activityspace[2,rows];
9 E' a" w" I+ t- h- Y. O4 {% x                end;
9 `/ m1 N( B3 M                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 L! Q: Z5 a1 K9 b                ct:=activityspace[2,rows];
! K- p# D# c9 [1 t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) R* d2 `7 o) n' @5 Z                        end;*/
$ M- Y- c5 Z1 W) h/ |        next;
. o- H- ]8 C! K        y_max:=y_max+dy;
6 ~6 k  @, Z" T- o% a        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);
! `* h( }% f* k) J" T8 o( g        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);
3 T, T! u( }* a       
$ u! }3 q, S0 }/ Z4 r% n8 |        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 ~" Q3 w8 n: m+ D& V3 L                for j:=1 to number_of_machine loop
( K+ U( t9 L/ O; y) L5 M                        if j=i then
                                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];
) F# M& z3 u' j, ]/ C                                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;
                next;
) F) E& o  E2 _+ T1 h        next;
% ?/ m+ `& Y& |) j& {( s' K0 ~       
4 h% r  \6 ^' h        lines:=0;
        partstable.delete;
3 ^( K  t* [: K5 m       
3 T9 Q; x6 {8 h% m% v+ {  w. J( `        for i:=1 to number_of_machine loop
/ \0 j" X' b  e0 H3 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ f! d6 k! t9 ?% o. H/ E1 a3 ]5 Q1 a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
" R4 J1 C9 u! f& y+ Y, k: V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 n6 q1 @. w. _! U. `, k+ j                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
! g' J6 W8 N0 D& 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;标识符未知
        machine.proctime:=5;
" w$ ^+ D. `: F, _* N        machine.label:=activityspace[0,rows];
/ E' N9 W6 l) h* h4 ~        machine.exitctrl:=ref(leave);
       
$ U; f+ u' J- @0 @        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
. e5 M( b% |4 _& r  Q$ T        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- p) ^" q) z3 a# U0 q5 Ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( \; c" W7 \  f0 x0 {7 x1 X% |/ Acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ o# S, z7 ~7 y. Unext;
end;
- a8 o' r1 I" s) ]