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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
; V" |' U/ K) ~" l' z- B    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
3 g: s) R6 E; A1 U1 u" Ddo
  `5 c6 S3 m, Q* N, P% i' [. N        current.eraselayer(1);
1 p7 {1 S: V! E5 C- y. V       
" S8 D* ~6 Q7 q9 k  q$ ~        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";
% n4 F! E' ^+ ?% z- C6 d8 S$ T                when 32 then
                        print"no";
# J% Q  @, X# `5 P' T                else
" }: N: s& n, g                        print"cancel";
                end;
. }: g( _7 B  g" ^  n/ q& @                eventcontroller.stop;
' x0 J* v  P# K# a% E1 C/ R3 r        end;
       
        for i:=1 to number_of_machine loop
8 \$ W( ]; i5 l2 N0 c6 [9 `9 P        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
" N* u# z: _1 J) |+ B! |# `' W: L, D* l        end;
) K* H0 P  {$ j; ~2 }& `        bufname:=sprint("BF",i);
2 Q5 k0 z! u5 @' ~- C        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 L# C# o* p) ^$ V" ]        end;
7 K! W# Z3 I! ~/ h" D; g# p1 T        next;
       
        dx:=0;
" Q1 |  ?& d* C6 e        dy:=0;
        for i:=1 to number_of_machine loop
2 Y9 M9 [+ ^7 P4 o3 n% b5 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% x, A% C, ?9 i/ y8 y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 m0 v3 |9 X$ w' H: v8 ^) n                then
. p/ T8 V. X+ _* z  ]                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# Q1 ^7 n0 g# q5 ~+ G& a* X1 M                        print activityspace[1,rows],",",activityspace[2,rows];
7 I, Z$ n8 p3 P6 O& T/ y: L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' n; [/ G& n% C! s# u                        activityspace[1,rows]:=ct;
, d) T+ g7 s" U                        mark:=true;
9 ~7 M; j  X! ?3 L                        else*/
7 Q+ w  r. I* \" \$ y7 g                        y_max:=y_max+dy;
" K9 m$ o3 m6 ]8 b) O' i                        dx:=0;
                dy:=0;
9 l' y/ {/ ]( V4 W6 F& k  Y) w                        --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;
- ?/ r1 K, ]- g4 ?4 X1 U( a            if activityspace[2,rows]>dy then
& t: e3 U4 C. u; ~, X                        dy:=activityspace[2,rows];
2 N  f: D8 e. V, ~8 t& u                end;
8 L5 r# ^1 i, l! ]& J' c6 E. F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
2 O4 p# A" L; v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% a* P& K3 ~* h1 f& x        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);
       
% }4 z  ]2 d+ l0 r6 H        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 R! T! X/ b; Q) q                        if j=i then
                                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 j, L/ k5 ~9 ^                                d_from_to_chart[j,i]:=abs(dx-dy);
( e5 J- C& {. c: ^                        end;
                next;
! C+ a) G, A* e        next;
       
        lines:=0;
        partstable.delete;
2 X/ a# n0 U3 w; w4 H1 _5 P$ a       
0 w" ]& f6 L# d  k% V' J1 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 M% G6 Z- }8 c  v: ~& W                machinesequence[2,i]:=rows;
  Y* w; S. E5 G: b4 C0 C                for j:=1 to number_of_machine loop
$ V, {" y; G4 F7 R3 F1 @. Z5 L                        if w_from_to_chart[j,rows]>0 then
4 U9 C7 K  r6 F: L                        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");
                        partstable[5,lines]:=rows;
8 J1 p2 A* r% f; F3 E% s$ f                        partstable[6,lines]:=j;
. H6 T- Q; G- q, r3 D% P2 `                end;
        next;
( k, p4 \5 E; o( R4 Z4 F" h! O( Z        machinename:=sprint("M",rows);
) m" U2 ^/ Q( B7 B) k        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];
$ ~% d0 E3 ^2 \# r+ y8 f$ P7 }$ L        machine.exitctrl:=ref(leave);
9 M* b8 D4 a" H, K" r8 B! s; t4 m       
6 U* B/ _; Q* h8 N6 p+ Y  x* o        bufname:=sprint("BF",rows);
/ `: U. h8 N8 T/ r, q        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;
6 P7 ]9 }- C# w* I2 G        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* `3 l( C) T" [4 d( ~! ]2 J        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;
+ D  e; B% t7 @  c, b1 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& y( p5 Q* P8 e6 }next;
end;
1 u# {: }  ]+ ]$ c0 f9 f( i: J