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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
0 z! Q0 U0 S; `    i,j,rows,lines:integer;
    machinename,bufname:string;
+ `1 K: D6 O. `, _  p    machine,buf:object;
2 z6 {! m0 Q9 v( _4 e( z- T0 w) Bdo
% I8 P$ j9 o  R8 N# ~% p        current.eraselayer(1);
, {* p2 Y( D0 G8 G$ ^( y. j       
        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";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
' V' W. q' k% P                eventcontroller.stop;
        end;
1 v2 r' g/ w4 j7 u       
+ O% |2 y* {3 O( o# l) ]        for i:=1 to number_of_machine loop
0 C1 X% W; s; C6 F" u! B+ H& F" b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, T$ t4 Z$ B4 q" o. t5 g                machine.deleteobject;
        end;
) i* O( l0 w5 }2 t% V        bufname:=sprint("BF",i);
) T) P& `2 O- b  _, V        if existsobject(bufname) then
: ^6 |6 s" p8 k8 h8 j8 \* O( }1 D                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ C0 I+ \) Q+ S        end;
9 @! h: c& C# y7 T4 u5 c5 ?- p        next;
, S$ M3 z$ j) K4 p5 i  T, ^/ g       
        dx:=0;
        dy:=0;
$ @  G* W8 A! U, a/ i' z  W/ b        for i:=1 to number_of_machine loop
' N0 e3 I4 p! X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! I. H  v# j$ l9 K- e  h1 U  E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: H, j3 A( t7 ?' \' d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 q, j5 g  h: T0 |* j                        print activityspace[1,rows],",",activityspace[2,rows];
5 D  _* j' ^0 Q. w- e0 l9 w2 [                        ct:=activityspace[2,rows];
1 T" V4 Y6 {' w$ U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 c& S+ ?6 W6 e. o. T  K                        mark:=true;
                        else*/
) |% N+ F. x& L. A- h- [2 ^                        y_max:=y_max+dy;
! P: W# ^; _& ~; N2 a8 D                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                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];
4 h& n8 _4 ~" A1 g6 I& S$ I$ T" x                end;
: S& Y( u# z5 l2 S8 T% u! t% e2 Q                dx:=dx+activityspace[1,rows];
7 ^7 A) l+ l+ S8 O- C                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' Z/ _. ~% P" O, B                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 f- f/ F+ N' F  u        y_max:=y_max+dy;
- ?4 d; c9 S- ], o+ m! i4 E        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);
  B- D: C! }, w) {3 T: C        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);
       
' f) K! n7 b: A! ?3 B8 I2 f        rows:=0;
2 Q; P9 h- G3 u, g7 D) x0 H        lines:=0;
( U  |% S. A: d; o        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 E( L9 r+ V3 Y. c! j& v                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 m* s' V$ b6 ~, J6 y  V                                d_from_to_chart[j,i]:=abs(dx-dy);
) N$ l0 p2 b0 A/ z* b$ ^7 F' S                        end;
1 U  i( g$ F8 o9 I% B4 n% x# }                next;
        next;
       
; I( K9 B! |! f8 S        lines:=0;
1 B# x$ R9 j6 S2 S9 J" P        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 z) J! p; l2 b1 S2 ~* Z5 _# \# ^                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
. h8 n' @1 a+ c, O. O# L9 \                        lines:=lines+1;
9 z* H( Z6 h8 K  d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# e' t4 r6 q9 O( g+ T! f  ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 ^8 [" ^" t* g3 g. f                        partstable[3,lines]:=sprint("parts");
$ T; E8 K- \0 l; |" R5 y                        partstable[5,lines]:=rows;
0 p5 J( A# E1 v                        partstable[6,lines]:=j;
1 X- l$ }% f  E/ x% s                end;
+ ]  @4 i, Y5 }7 R1 K- F  k) g8 r1 ~/ e        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ E, `/ G  F8 K5 i3 d  r       
1 ^4 f+ n9 v- e9 z        bufname:=sprint("BF",rows);
* K; m% K( Q- _% V- Q5 r4 N        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;
* }- ?9 ?0 [( G9 P3 t5 C        buf.proctime:=0;
% q8 ~  o2 O- y, X7 U2 l        .materialflow.connector.connect(buf,machine);
       
# E7 {7 |' d+ _- f1 {        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 `# F- x3 U+ 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);
$ o' r0 a2 ]. y+ I1 Y4 |1 v. Hnext;
end;
. Q: u6 C9 Z- x7 J& ^" i