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

zooey

is
        mark:boolean;
2 r8 H+ s' u# E        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: t+ h, P: C2 i# t8 d1 n" n    machine,buf:object;
do
  Q  ^; h1 W) f' O8 q        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 ~' }$ d1 e6 {                when 16 then
                        print"yes";
. Z8 f8 X7 Y5 B2 N! w1 o                when 32 then
' p0 Z, e% @; \" X# D+ u. x+ n/ W                        print"no";
* b- _8 v" j2 r, H8 i0 r                else
                        print"cancel";
& G" o0 p" c0 X. y8 Q                end;
                eventcontroller.stop;
: E# @/ x# @1 f7 ^- t# e        end;
) ?& Y  R0 Y1 s; M' `       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 x( b+ z1 i4 n8 y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- A, u# ^6 A; A6 Z. }                machine.deleteobject;
& t' x; U* {! b: @        end;
        bufname:=sprint("BF",i);
6 x  ~3 z5 s0 M- {9 z' Y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
: K! L* G, R2 N        end;
        next;
& p) K! k; T! F6 `, v( O       
; Y2 R6 x) Q- @& ?% E5 H& J* u4 R$ h        dx:=0;
) Z1 P7 y* Z4 {0 N+ S        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 |" A$ c2 }4 ^                --mark:=false;
, B/ X% c/ l$ @5 S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! N4 `5 H; v1 ~/ l, A; @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" x) @3 C% ]( e5 \: }                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) ~( w" l5 D2 k7 w6 m5 W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. P# H. y1 Y) F! M, w, E1 g: c                        activityspace[1,rows]:=ct;
                        mark:=true;
/ f6 x% p  n/ T: }                        else*/
& q7 G7 U  j; L( B, T+ K. T% G8 k, ]                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 `9 @  g( F6 z* R# {7 r* e+ V" C* }                        --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;
# `) f/ z2 ~% ]' y" W+ w  t            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
5 l7 [' h0 I$ M                end;
! I: K* \- g: _, [* O6 r0 W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ M2 z& x) Q) S; W                ct:=activityspace[2,rows];
: Y6 x' d; G7 n  o4 D% U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, |9 |* l, F3 O" g: i! w4 v        next;
        y_max:=y_max+dy;
, L, y/ s3 ^! W        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;
5 m& u" k. l* ~" K6 L: Y/ e/ v        lines:=0;
        for i:=1 to number_of_machine loop
6 F* s5 L' [/ [' S8 w, A                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' ~2 a- Q7 w9 ]5 R' S9 J' D9 i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 L( n) y$ L6 `( O9 e$ K8 Z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: a! ~1 _# o, ]& F                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- f5 \0 v& h8 k5 U% B3 e2 S                next;
: G8 r4 g6 r, g9 n& y# I& a- Z        next;
2 @. @8 s* h* P) O) F3 V: c       
1 j7 \" M- d7 m! c/ g. p5 Q' g. }        lines:=0;
        partstable.delete;
7 ?( y0 v+ u7 e. Y5 @7 f& l5 e9 y       
. u3 d' I$ m* Y/ O4 [1 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ e) }( u. e) w. H* ]                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 C' Z# V% k- k1 t8 s- C9 y/ p5 I                        partstable[5,lines]:=rows;
$ I7 I6 R; j  `; ]6 t0 D' r                        partstable[6,lines]:=j;
" H+ l: A0 x. K& ?1 A) m7 {                end;
        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;标识符未知
$ [9 A+ p  a! `: O( o        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
7 {) J) V* [! N) M, x& C* f1 q        bufname:=sprint("BF",rows);
" [8 u( _8 S" M" Z: L        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 [8 x6 s9 Y2 M7 v) ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 N* _2 w3 E, s& E! Xdy:=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);
/ b8 C8 K4 v  gnext;
' p6 a8 W2 ~3 C5 R' Tend;