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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. K& B4 F' p) q8 H    i,j,rows,lines:integer;
! s! T0 w9 h4 K- H; @" [    machinename,bufname:string;
    machine,buf:object;
% Q) ~  z0 `% l* _8 L2 c8 K  Tdo
        current.eraselayer(1);
# `1 h+ U! F% }1 s9 V# d       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( B$ F/ a; j* z" P                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( _/ _# M' P7 L) J! e; H% P+ Q( ^) }                        print"yes";
                when 32 then
% f. i2 D. L+ M/ K5 U# R                        print"no";
                else
; R& `/ x" X0 L                        print"cancel";
/ Z5 K6 \2 i1 S4 p& P                end;
9 r4 k6 U0 P, P9 _4 r9 n9 r* w                eventcontroller.stop;
        end;
       
: e5 C( q% S5 m- {  v        for i:=1 to number_of_machine loop
% U" g" e7 ]) Z9 b" d! q: m        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" E6 W$ l/ c) t. M8 B! A  X3 t! p9 c                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- m% ]# a$ ^6 k+ m3 F. n                buf:=str_to_obj(bufname);
7 @- ?5 x5 ]6 ?0 ~( W                buf.deleteobject;
        end;
% n2 O6 L  E2 F" b5 u, n" D/ p        next;
# Y. [" D0 |/ y$ E5 d) t       
        dx:=0;
        dy:=0;
* G9 Y8 {  h* F3 a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 b# |9 K1 q9 K: m6 p5 y; K2 @7 O: T1 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' Z# S& M7 E# l  ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# Z3 }* S5 G0 n0 W9 L+ R                        print activityspace[1,rows],",",activityspace[2,rows];
/ E4 y6 q( p7 k                        ct:=activityspace[2,rows];
6 N3 o* p* J' G: A                        activityspace[2,rows]:=activityspace[1,rows];
+ A8 |- Z3 y8 v! \$ n: i                        activityspace[1,rows]:=ct;
4 a) Q, L* V$ T) Z; d9 W                        mark:=true;
. B7 ~; Y% b: Y5 x9 @. L                        else*/
2 `% r( L; p9 J' x1 q                        y_max:=y_max+dy;
+ P5 E' E9 M& G) \                        dx:=0;
5 ?: L; O  S3 r. l                dy:=0;
                        --end;
. N) M* g. ?* @! i0 p                end;
  M' ~# N7 B  ^6 Z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 H6 R" a5 g$ l4 c. n0 S& E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ G# F* _" D- s& T/ T            if activityspace[2,rows]>dy then
; ~; e. p: L/ v3 B2 Z5 K                        dy:=activityspace[2,rows];
                end;
1 l; N# m$ b/ d# m( R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
9 p2 ]( u) n. p2 J                        activityspace[2,rows]:=activityspace[1,rows];
; H; @8 i# Z0 {% O; e                        activityspace[1,rows]:=ct;
                        end;*/
+ u6 g" `1 }7 u% l; t' i3 }        next;
3 c2 ?% U" g: S' ~& D( O        y_max:=y_max+dy;
7 G) {( ?* O9 O        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);
& f5 x/ C1 z6 v- j& F1 b( O       
        rows:=0;
6 F7 E2 t1 D, p& \; V        lines:=0;
+ H! c7 m0 B; v5 \0 O& r; D        for i:=1 to number_of_machine loop
4 F+ p* p: `  d) g  p$ _* }3 _: c                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
4 {) ]# f2 C+ a0 H8 b2 E1 g                                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);
9 N( G; b+ W$ D, f2 l                        end;
                next;
" k) Z& G' r4 T3 i        next;
4 F$ {4 N) V) \! p       
. L6 q3 y6 r( M, U8 N8 n        lines:=0;
' [8 F6 B8 C- l: ?9 T1 N        partstable.delete;
! a2 j9 s6 C* I9 O! \9 y! |# O       
8 P6 Y6 a1 t# e7 h( i* m% @8 o        for i:=1 to number_of_machine loop
# E1 w& c  l( ?. X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 J1 O0 h1 U- A5 G+ y                machinesequence[2,i]:=rows;
: B$ l% f3 H4 `6 c6 m8 C0 B                for j:=1 to number_of_machine loop
/ v0 f. G1 k# t                        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];
7 ]8 @5 x. O* d2 j" i4 o; W  ~8 _' E                        partstable[3,lines]:=sprint("parts");
4 ?5 a- J' b) c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 ?5 r0 F' u% r                end;
& J! f$ `8 z9 J# g8 }        next;
% K5 f! s; T! h! @$ r3 k, c4 C        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);
0 T8 D1 C  ~2 ]9 b* ~" O+ o2 e       
        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]);
8 ^7 y8 z! I# y- t        buf.name:=bufname;
9 v% ^5 T4 b9 r: k  }2 \        buf.capacity:=5000;
        buf.proctime:=0;
9 J! P) Q7 I* s" L1 j        .materialflow.connector.connect(buf,machine);
' g  m2 Q* j1 R3 ?0 H! |% ?       
        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;
+ J  X; m! q5 N5 C- @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 t4 W( o0 Q/ Z4 v5 {next;
end;
: a1 B2 p, W" W+ O