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

zooey

is
        mark:boolean;
! h8 i- [) V. W# ^* E9 @$ t! q        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
6 L! D* d( Q) e* G( g, |% @) xdo
) E( t4 L  `- c6 E        current.eraselayer(1);
       
& ^# c6 r& \$ A4 M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& k5 R# b* r1 k7 c* }0 O$ J! Y4 ?' r                inspect messagebox("设施数目不对！请核查...,",50,13)
- w1 @8 H# n5 O2 }* l, D" g                when 16 then
                        print"yes";
                when 32 then
& d- c. I$ N( n+ R  K& R- K: y2 D                        print"no";
                else
7 u/ t; K8 c% T5 B- C( v                        print"cancel";
                end;
                eventcontroller.stop;
3 h& _' g% n7 d* Q        end;
! O# [; g- [9 `: w* X" o7 `8 T' q" J       
5 L9 ~4 b/ N  S' @2 y        for i:=1 to number_of_machine loop
% L( @# t! w1 n" U9 l+ n, B        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 E. d2 O1 k, I5 K                machine.deleteobject;
; R- i) B6 q& Z( s        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
, _- k. z# L4 K& y8 W       
        dx:=0;
3 k; t. ^, Z0 L6 k3 }" h# b        dy:=0;
' `3 t% d( S: [& T/ [( A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 R4 m/ W4 \( n! K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 \# [% R5 ~, \/ C& V1 ]% |5 j                then
0 e; i& Q% h' J! N2 `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# ^; V# u  G6 {# T; T                        print activityspace[1,rows],",",activityspace[2,rows];
# d# x, k3 i! V. a# G                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 l' f' y8 e3 k. n" e$ b                        activityspace[1,rows]:=ct;
                        mark:=true;
9 v. }; `1 }+ u                        else*/
4 I. j: @6 }3 q( G) M( h                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 `* {" _  p% B3 k6 t8 O                        --end;
! M" Z9 {& [1 J! g" V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 o7 }9 w, a8 `2 e( t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- B$ w( i0 g3 B0 e0 b; B2 |            if activityspace[2,rows]>dy then
- J! C- ~5 i- h2 _) ~% n                        dy:=activityspace[2,rows];
                end;
: t4 b: _  O6 a* c* j4 g: F                dx:=dx+activityspace[1,rows];
1 I, f+ J, J8 E. A8 F( Z                /*if mark=true then
$ a" x& j: q8 E$ q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; _3 }, ]- Q( t) D* f        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);
5 c7 k% d( r  ?9 _" W) O        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;
0 i$ ^- d4 L1 \/ _. O* `8 a        lines:=0;
# N6 _2 `$ K3 y2 N2 U! @* }6 V        for i:=1 to number_of_machine loop
4 F- h, e) e6 N5 o0 c+ a  Z                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
: b1 m4 S  w0 D, C( P                        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];
; Y) O+ @$ s* D' C9 p# Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
$ |& s1 u. F# _5 ]7 r        next;
       
        lines:=0;
        partstable.delete;
. d- J5 L& t1 _6 ~9 n6 {  q       
2 a$ D9 {3 D+ `' `0 |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  Y1 s/ s- J. G3 }: {                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. U! a( c& {, V6 {# `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) t2 F3 \/ L& I5 z- |7 h# \8 ?                        partstable[3,lines]:=sprint("parts");
( [! }) L0 X& u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ U5 ?& M; ^( k, s7 d8 P: @                end;
        next;
! ^/ U0 Y7 y- U" m" O& r        machinename:=sprint("M",rows);
        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]);
3 b) q  G  E) |5 z        machine.name:=machinename;标识符未知
: g4 ]- a' S! x- p1 ^3 M        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 [, O, B# K- P, X( G, _8 D" d       
1 j; s- S% z7 N/ n' c  |- y# D        bufname:=sprint("BF",rows);
. r% H+ K; N3 P! ?+ m8 z! E        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;
: m6 g7 J" U6 i7 s; ]! h7 C        buf.proctime:=0;
/ u4 q8 k: e) F2 I' X+ f4 W" u        .materialflow.connector.connect(buf,machine);
: f% \# v4 U1 o. Y5 m7 n1 M) c       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;