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

zooey

is
        mark:boolean;
9 R+ p4 _/ A3 r' M# X: H        dx,dy,ct:real;
' C. @9 i( t& N1 u2 \0 [1 b2 F    i,j,rows,lines:integer;
9 H* `0 K# F/ Z- I+ A    machinename,bufname:string;
4 X- J" b3 r3 i8 ]" a    machine,buf:object;
. {' F9 ]- V5 Vdo
        current.eraselayer(1);
       
: H( w. L  L0 H$ M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: d( F2 L' g: l$ e5 h4 U, X                inspect messagebox("设施数目不对！请核查...,",50,13)
9 L& V0 M' q0 M                when 16 then
, m) u5 y4 ^" C- m, v7 u                        print"yes";
                when 32 then
1 G: m1 A1 X$ s) D/ p( A, [                        print"no";
. I% x+ S- F+ O' |+ O, n/ V                else
/ X( Z- p, }6 h- _                        print"cancel";
% B9 V# d# N1 T* ]: o7 J                end;
                eventcontroller.stop;
2 q0 n9 h3 K( u. Q        end;
       
        for i:=1 to number_of_machine loop
! }' \0 t/ ?% \; k! O        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 y* @( D& C# v# l                machine:=str_to_obj(machinename);
                machine.deleteobject;
# ?2 Q: H1 ]" R6 z' F        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ i% v9 m' X" g" {$ l9 Z                buf.deleteobject;
        end;
        next;
       
+ f, [+ U0 H- C        dx:=0;
( N( B' C0 @0 H# Q; ?        dy:=0;
        for i:=1 to number_of_machine loop
5 f* ]$ N) q- n- Q! Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" F) ]+ M# D! w                --mark:=false;
. e4 C8 b6 g  a% i) b) \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" K( D4 ]8 w5 o' i$ s7 ?2 z: t* O$ X                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ d: W% h! a+ s& K0 {9 S6 ?                        and activityspace[1,rows]<(1.05*y_max) then
1 r( T. F& c1 ^$ F: ]                        print activityspace[1,rows],",",activityspace[2,rows];
- X6 Z+ ?6 E, z9 E; _                        ct:=activityspace[2,rows];
8 [9 k5 e6 C& r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. R  X' T: O3 P9 c9 }                        mark:=true;
                        else*/
* d: Y) N. \1 i1 S                        y_max:=y_max+dy;
                        dx:=0;
4 ?& |9 _+ D+ e4 h+ \                dy:=0;
6 }4 N, Y: C8 i" O" i1 a/ _; g. u                        --end;
                end;
( H1 I$ k/ I6 y2 h8 p/ p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ V0 X6 O+ f: U) ^) F$ F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ G" n: G9 `: t" d            if activityspace[2,rows]>dy then
0 O- ^" e8 a5 ]4 P$ I7 l                        dy:=activityspace[2,rows];
                end;
' e. a3 |) e6 I8 O' |                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" `; `2 b" M- x                        activityspace[2,rows]:=activityspace[1,rows];
9 l- L1 w; E3 v+ D# }                        activityspace[1,rows]:=ct;
; d1 J4 `# d' o+ u( X( ]) Q                        end;*/
        next;
        y_max:=y_max+dy;
" c* E* M1 |& G  a9 X        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;
, k0 j5 x- Y; i( o0 p# L        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 Q" @6 S* X5 G0 X0 n, z; O                        else
; U- ]' N# e# b! P  S                                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;
                next;
+ \. h; `: {: `0 _( U+ Z* r        next;
       
0 d, l- W, S0 F# c" X7 Y        lines:=0;
        partstable.delete;
       
9 [; _8 ]2 s2 @) ]. E        for i:=1 to number_of_machine loop
0 ?- W. e. n) B* c2 Z: a5 ^: Z5 X" Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. g$ |" I' H  w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 K4 H8 O- h/ z% M                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ ?! M" ]3 J  X. ?1 t% R                        partstable[3,lines]:=sprint("parts");
1 U/ `( x6 r2 p2 Z& h. {9 x+ N: C                        partstable[5,lines]:=rows;
  o3 n! ^5 w1 _; m) H. h( q                        partstable[6,lines]:=j;
( Q- ]" }4 G- t0 @                end;
        next;
        machinename:=sprint("M",rows);
/ C& e: @8 S! h, W) M        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]);
" w' b: I1 A3 i* M4 m; M        machine.name:=machinename;标识符未知
6 h2 D7 D$ _" Y1 ~2 X2 e! W6 m6 k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: q2 A  T7 A& X& W9 M8 c/ o4 l        machine.exitctrl:=ref(leave);
1 U! F. }3 A* z; g, l0 K5 w$ H       
$ m) I1 d' `, _& a& n        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;
0 t3 f% l  _( R9 J3 H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% t1 Z+ D! z8 A4 d2 }$ D7 H       
        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;
2 i( w5 u3 {/ \" _9 ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ Y+ H: }: U/ Q& r" Gend;
, d2 H+ V( O7 u