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

zooey

is
        mark:boolean;
. P, a, O3 j+ {$ D        dx,dy,ct:real;
$ V; I# C! {8 @' N7 }7 N8 N, Q    i,j,rows,lines:integer;
5 v' b0 Z# e0 q    machinename,bufname:string;
% o( z1 e! C$ @% J    machine,buf:object;
do
% f6 k2 ]4 D. E        current.eraselayer(1);
: B; U! I- Q) w! G8 ?+ m& q1 P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
" j; G6 f7 \; P! z4 [                when 32 then
                        print"no";
                else
                        print"cancel";
% `$ S* U4 C- a! R# p) v6 ]9 x                end;
! X. p  O4 g. i% H2 U0 l3 W1 k                eventcontroller.stop;
' z0 t9 A' Z* D        end;
       
        for i:=1 to number_of_machine loop
# r4 J* ~2 z7 Z7 Y        machinename:=sprint("M",i);
        if existsobject(machinename) then
' K2 G' ~! Q  n' w3 c                machine:=str_to_obj(machinename);
9 x' Y) J0 M5 Z7 s/ G. ?! ~8 p$ @                machine.deleteobject;
        end;
9 O! D& f5 }+ u" ^8 D" W        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* Q3 @+ A/ _' x. \                buf:=str_to_obj(bufname);
  s% N4 B4 \- w! e                buf.deleteobject;
        end;
        next;
9 w! k# i! {2 a+ o; {8 K5 e7 X       
        dx:=0;
, {3 A3 `; U% N6 t        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! V5 p. p, m# {2 l                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 Y+ r( b+ E' K% U; m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# W6 d+ P; v* H2 X* @7 q# h3 ]                        and activityspace[1,rows]<(1.05*y_max) then
4 c8 |7 ?3 L7 E7 K2 L5 X% ?; z: R! W                        print activityspace[1,rows],",",activityspace[2,rows];
/ }# U% X9 s. U7 W' O! B5 P                        ct:=activityspace[2,rows];
8 W. S3 a  @: ]% Z) T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
8 w5 [5 m; f) I$ p3 G4 Q/ Q9 ~                end;
- d- l3 X% M! n                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; v  j6 {2 h4 e2 g* J8 ^+ ]& d! h                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;
% N$ |8 e7 a4 J" ^$ t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 E# M, R' f! Y: @0 s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 Y) E9 W3 K$ c0 l5 H6 l4 V# u                        end;*/
* E) N5 T) o- ~! V" r        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);
: [; k+ P. e  _( d3 \       
        rows:=0;
) H1 M- S% [' ~  {        lines:=0;
        for i:=1 to number_of_machine loop
# N0 X1 C4 E2 d% L/ M/ @: a% j+ q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) ?, r. m* h8 S9 g' |6 O                        else
0 M* G$ z; M+ Q9 V) E! r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 G7 @* E. A4 Z' y  a+ L. v0 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) o* i6 ?* |& K. f, }3 f. I. E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
7 d/ B' y4 `6 K0 Z7 a* ^1 L        lines:=0;
        partstable.delete;
       
/ p' ^: s' z# \9 @; V. ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 `1 `9 ]( J4 `4 q- H6 O                for j:=1 to number_of_machine loop
) i. t! A7 {2 r. ^6 ]6 E( f                        if w_from_to_chart[j,rows]>0 then
3 t) V- w2 E2 T4 `                        lines:=lines+1;
% w% y" T, @" d  V. X* p" H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 |& L( b0 Q" O+ S8 O: C                        partstable[6,lines]:=j;
                end;
0 L3 v( [; _: [/ m        next;
1 T* j1 L  R+ X# y' n        machinename:=sprint("M",rows);
2 _* M3 W) b5 P. v: n: J/ p7 \        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 y7 B# J' K9 ~9 x) T        machine.name:=machinename;标识符未知
2 ^1 |8 Z: y1 ?        machine.proctime:=5;
$ w. r+ C: \  V        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' C8 r6 Y- z& u$ v1 W. S       
% c3 `* E6 q- F2 C        bufname:=sprint("BF",rows);
! Y* z/ L3 F  d- B  T+ K. x; i& S        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]);
/ K+ i6 ~0 M9 d        buf.name:=bufname;
, ]( F! ^) |! x" h3 J        buf.capacity:=5000;
        buf.proctime:=0;
1 _1 l+ G; q! _: F6 z6 e        .materialflow.connector.connect(buf,machine);
; H1 l& [$ P( D$ I4 c' K6 f& W) [       
3 G. n4 C. y8 h+ L: F        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. C, }4 _+ {9 {6 o- Ady:=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;
0 a0 D- d" J$ y! r1 \9 U8 Xend;