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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* w, G5 s* e, q: g1 ]8 q    i,j,rows,lines:integer;
/ }: d* s: D; p- l/ e+ @4 Z7 z    machinename,bufname:string;
0 O# z( A2 n8 y; K    machine,buf:object;
do
        current.eraselayer(1);
8 g& l6 H( m2 X  j  l8 c       
8 i6 P% i  o2 Q0 e2 }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' k, `% h5 k0 ?; p+ X1 m! `                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
6 z/ j9 `6 Y4 f1 i: V  r" I                        print"cancel";
                end;
. c2 R" V9 l. Y. X7 x& W6 s                eventcontroller.stop;
        end;
       
9 G# W% T8 h; @7 G6 N9 o        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! D: B* N/ B2 G/ |8 b. V( S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
& H7 W( R  J' E# Z9 U/ s        end;
) {- x6 O: G3 K( l, G7 \0 n        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
/ ^/ z) S) `' |3 |" n        next;
       
        dx:=0;
( _: X" ?+ y$ L, D% f        dy:=0;
        for i:=1 to number_of_machine loop
- S, _* u5 H' O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ x" W& X# t. n                --mark:=false;
6 @; J: a' M9 m$ f                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];
1 f5 p  k, \$ ~" ~$ |$ k                        ct:=activityspace[2,rows];
  `" o) u' D' u  s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* v  d; k, G, H8 o1 V0 F                        else*/
# l& ?8 _2 [: v# C3 \! d                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 c7 M- R8 Y8 q! o& v                        --end;
& K- T( U2 T' b8 {- B, _1 X! ]/ Q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 Y! e6 }. A; q5 l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
! }6 N: ~0 b' [- k  u5 y) \                        dy:=activityspace[2,rows];
                end;
  k- {' x1 L7 ]- Z                dx:=dx+activityspace[1,rows];
' u9 W& r# B2 x                /*if mark=true then
( b3 m' D/ H2 Z                ct:=activityspace[2,rows];
8 O! f0 A9 O* ~. t4 f) C  b                        activityspace[2,rows]:=activityspace[1,rows];
" u" J+ ]$ {% ^% Z! a                        activityspace[1,rows]:=ct;
" I. o; Q1 `$ q- X8 u                        end;*/
        next;
        y_max:=y_max+dy;
) r( M- ^( M- l- y' T# @( ^' T        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);
, B- T+ t3 e7 C5 j        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);
2 b* H8 f2 l4 P; ?1 ?8 _       
        rows:=0;
1 F7 K8 ?& T+ u# h        lines:=0;
, W( C1 @- @0 [0 B, Q2 m: P0 b        for i:=1 to number_of_machine loop
3 x' D0 E1 o. X: {                for j:=1 to number_of_machine loop
# F! c3 |. q4 v2 ~, b1 R) J* g; S                        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];
2 j6 f4 t5 m( v0 ~$ T# A" A- Z! N! N/ q                                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;
                next;
        next;
( b: X: x! @# G; Z8 E7 u' x. \       
        lines:=0;
- d- \' J8 t. F, G        partstable.delete;
       
& Q7 Z5 {& H$ |+ i+ a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; y9 K7 s2 O9 k* G+ k* S- v' ~$ f5 i" n                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' D, D4 t( p3 N/ [                        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");
4 D- O1 ]! U- B                        partstable[5,lines]:=rows;
6 p4 ?1 b! v- b                        partstable[6,lines]:=j;
                end;
; Z$ h4 Y, t7 }5 N. D' V2 y        next;
# I, F8 X- h: N; e$ P        machinename:=sprint("M",rows);
7 Y" H: `. E6 b8 ^9 J, z        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;标识符未知
" h/ ?6 x  E# b+ [4 B        machine.proctime:=5;
; R7 G: l) ?  ~' @' P3 p& ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  l7 E' o' `* u$ t2 H       
        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;
7 S- \/ y1 }/ J3 ^2 b8 Z3 A        buf.capacity:=5000;
% z. I& {+ E3 D6 k. p/ O        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) v' O& [5 L' x0 N! K) L       
- I1 X- h6 U0 O2 g/ _        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);
next;
end;
1 L% t* H' l  ], P9 ?0 x8 H3 u