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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
. v( c$ D! R! l) K* {, V* @    machinename,bufname:string;
, |! J% M5 f  N$ N' H2 S+ u9 M    machine,buf:object;
; H, ?0 E$ n. j) Jdo
        current.eraselayer(1);
$ i/ [# |( f$ W( w7 {. j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ u1 m3 S1 U" m' Z+ }4 P" w( d                inspect messagebox("设施数目不对！请核查...,",50,13)
. G" H/ o/ _0 }3 \! n                when 16 then
                        print"yes";
' |8 I" o$ z8 K1 c; }3 P                when 32 then
0 [- e* Y, M. i. {/ Q                        print"no";
& H8 C9 F6 u9 p: q0 [- y) T' `5 ?2 P                else
                        print"cancel";
8 m% C3 U0 }+ ^' F                end;
2 K7 M5 g2 I0 g4 C9 k3 E                eventcontroller.stop;
        end;
  u  _$ \  B. l9 S       
: W2 z, @- b; |- _4 z/ p* ]        for i:=1 to number_of_machine loop
$ ~5 H7 c" M6 T  \0 P; n+ U        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ P7 g0 `) ]* s5 s3 A        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- R8 `, @$ P3 m. s& s6 \. z                buf:=str_to_obj(bufname);
* o$ J& O2 F8 d! h7 Y# t                buf.deleteobject;
: ]) c/ G, S$ i9 z* H4 K: w& n        end;
        next;
' s* h9 h2 K" S! M" M       
  T# p6 x8 c" v* d  _        dx:=0;
3 H+ a  h4 b, [7 I6 g        dy:=0;
6 [3 q" `, |9 ?. }. d1 ]2 \        for i:=1 to number_of_machine loop
" Y( O! E2 P+ s1 e4 E5 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ t. T6 v" |4 M1 G                --mark:=false;
- W9 l! n5 }4 b9 p0 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ |# g" h6 M, J- E, r/ i+ {! n* @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  M8 f& m9 b6 _& S                        mark:=true;
$ Y9 x; h% S/ T1 w8 h6 b  O                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ j6 I% [2 s: m) Z$ l1 x2 r, m9 \                dy:=0;
                        --end;
                end;
7 {4 r, {- _" I/ v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% S. N& j% S. U, f4 T8 g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" v0 G9 O/ J/ H; l! q! I                        dy:=activityspace[2,rows];
, D3 ]* J4 p. E* p  k                end;
6 O& |' x. i- o! n8 h  @                dx:=dx+activityspace[1,rows];
" D# {, k) e7 D$ a" o                /*if mark=true then
, y: S; t/ M! Z1 t/ e6 L& A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 F+ D% r! @; L) x/ I& \, ?( B/ ~                        activityspace[1,rows]:=ct;
+ q( d# s) z) g1 J                        end;*/
7 ~+ w2 j" |/ y% @) N- X" p        next;
        y_max:=y_max+dy;
" n  L* v: O3 a" L6 |        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);
* P  P0 S* t: t2 ?        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);
& @: O/ p5 N+ H$ s       
        rows:=0;
. L; d! n) ]. o0 y1 a        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  {6 ^0 }! O/ F  z/ g2 \& h                        if j=i then
9 \9 W$ I# I& W# V" `                                d_from_to_chart[j,i]:=0;
                        else
2 t1 x, o" f& W5 ?2 ^: ?( ^/ t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; T3 d) Q+ \" p3 G- X# e0 s4 u                                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;
2 ?7 J; F1 {2 l5 Y+ I                next;
' U' K8 O/ T: ]. X( ?$ V. E        next;
       
        lines:=0;
        partstable.delete;
+ n# s, e9 m- c: |1 m, x/ H0 {       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% `" g; ]- |9 O; f$ U. ^                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 v) _0 `* l( Q5 t* E6 a' A                        lines:=lines+1;
/ s- a: `( m, [) ~1 v+ o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 @7 H$ L  j9 t, }- O                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 W2 h8 \& z! i6 `6 R! s                        partstable[3,lines]:=sprint("parts");
3 c6 f1 \- o# |$ Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
2 M9 I+ ?; |% U  _" e        next;
        machinename:=sprint("M",rows);
, h$ L& v6 C/ H4 b# f6 K) f5 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]);
2 Q0 M8 j; I+ d1 S1 v        machine.name:=machinename;标识符未知
2 Q- H. P# B& F) d        machine.proctime:=5;
. d0 D# U* J1 S: G, B        machine.label:=activityspace[0,rows];
9 C7 ~+ G' l" W8 M& I5 K" L6 b' u        machine.exitctrl:=ref(leave);
( S+ Y" b+ w4 j4 d- i! s       
/ n4 X3 X2 s( a& H5 I) Z* t) _        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;
. A* v& ^% E* b+ n5 c5 X        buf.capacity:=5000;
        buf.proctime:=0;
+ [5 j. U$ X9 m        .materialflow.connector.connect(buf,machine);
       
        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;
# }/ t6 d6 s/ T" t, |# t# ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 k  t. R- f7 I3 @/ m( ~! R1 _next;
end;
- J, a" M0 c' x: i