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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
; O1 X" P7 H, U    machine,buf:object;
2 e2 ]" {$ p: |8 ~do
! p' t) n0 I" G* K( m  m        current.eraselayer(1);
: U7 q$ }6 a  L* G1 F       
        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";
3 c4 T) {& J7 g2 A2 X$ O                when 32 then
                        print"no";
/ O/ K5 W  b- k5 x                else
3 U/ I! j! D( {2 p( }. r- ^, _                        print"cancel";
                end;
                eventcontroller.stop;
6 K4 P+ x: x0 J# f% J9 I) M        end;
1 X8 G/ ~. y# X8 z5 J% K( n. h       
2 n0 L. a+ B1 `/ c# b% n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, [: C9 {$ x3 m' f4 ?+ }        if existsobject(machinename) then
9 ^$ l) J0 T& w- k( Z0 ~3 e                machine:=str_to_obj(machinename);
$ ]6 g  h! y, }8 i5 n4 d                machine.deleteobject;
, ^4 Y" `) p6 }9 Z8 Y  C; w$ Z        end;
6 |+ _3 u! ~! N. L        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ J8 ~9 r" ]& u$ R* Y                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
0 r6 i4 i* |( O4 K8 M: M9 u        dx:=0;
! y. H# {) z2 n% P7 H        dy:=0;
  p4 }, E7 }8 y4 C/ k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( \/ w; L1 g2 B2 _' e: @                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) |0 o! q; P$ l3 Q3 y* s0 o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# I- g: D* \" {3 Z                        and activityspace[1,rows]<(1.05*y_max) then
8 l- I: l. T8 v+ C                        print activityspace[1,rows],",",activityspace[2,rows];
6 `9 f& C. B: ?                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' I/ C; P* h* a  J0 Y" }  z                        activityspace[1,rows]:=ct;
                        mark:=true;
. x# m4 Z7 G. r) V) I& S8 l! \/ L                        else*/
                        y_max:=y_max+dy;
1 c6 H5 o7 M# @# I                        dx:=0;
, x+ \- k0 M* G8 t' H# E& y                dy:=0;
                        --end;
                end;
2 I$ A; ^7 F: ~: r0 Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! s) i, ?) w* Z. D  l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 p" ?5 w( q* R3 |0 \2 u$ ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
/ Q/ t/ V5 f* }) S& G# S                dx:=dx+activityspace[1,rows];
. g: p( v! p5 G; y% r" J                /*if mark=true then
* f' v  g. C- j; M! a% _, t1 Z                ct:=activityspace[2,rows];
- K% K: O$ |, t2 q; d' @8 V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 Q5 ~$ o8 f/ h4 e0 i$ k        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);
0 i4 R% _7 b0 H. c# \+ }0 E# j       
        rows:=0;
8 @) c0 D7 ^* z$ q  n' k/ _8 \        lines:=0;
- n" u& ^1 g+ G2 \$ F( f        for i:=1 to number_of_machine loop
: I/ a! p  s2 X) d+ e; f                for j:=1 to number_of_machine loop
% r- V1 Q7 N) S  d1 f5 M; K                        if j=i then
1 G/ @2 t- A, X0 }: K; I                                d_from_to_chart[j,i]:=0;
                        else
6 Z5 T+ q0 S) @& N% x                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
$ {5 c/ l1 O" b                next;
3 R/ J% B! p9 G* o7 w- Y4 {/ L        next;
* D+ S, s6 @# _       
/ g+ Y' @! x( i% S: _1 D0 b6 I        lines:=0;
        partstable.delete;
( v! X6 A; T+ n: `; r: [. L       
        for i:=1 to number_of_machine loop
4 Q* ]- X  |. A; o# Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# {& U: E1 h- Y" e5 ?& X+ N- K                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% n) A4 G9 _/ [9 P/ b4 V: a7 p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; J/ B) P4 k0 F4 P. m% \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 Z* v4 L2 j4 C4 T/ l( [% ?; f: F                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" u: R  m& k% p. p6 ?6 d$ k2 w7 U        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]);
- A1 S8 Z9 y: L4 e! D( Z        machine.name:=machinename;标识符未知
: p8 x. Y* N# ?7 I) n  S        machine.proctime:=5;
. s' F4 B8 c3 k0 [. c7 u- m: Y! {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) F; c8 E9 N1 D2 I# N        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]);
0 x1 `; {9 o" |9 U( M        buf.name:=bufname;
7 ~, i5 k1 q6 N9 G- {2 n1 h        buf.capacity:=5000;
; U+ b1 \, i8 W* T5 w        buf.proctime:=0;
/ n; d9 Q  T+ S7 n        .materialflow.connector.connect(buf,machine);
       
# |* g& J  J8 O8 ~        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);
% z& P" G& ]/ i, lnext;
end;
% S9 i% M1 V9 D* Y6 Q