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

zooey

is
        mark:boolean;
$ W7 K; z# t0 K/ S9 e        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 n1 T+ s' s$ J* A( _    machinename,bufname:string;
4 ?/ ?) E7 w0 `    machine,buf:object;
5 p  U5 F) O1 j6 i, m: [, Jdo
        current.eraselayer(1);
       
1 U# N9 l2 r& u5 w( x+ p        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";
                when 32 then
- c8 K9 x, t& g1 j                        print"no";
                else
. k* q6 W% o: Q( p0 ^                        print"cancel";
3 c7 w/ _+ b, [+ ~                end;
3 \4 {4 C) U% R+ v# y) p1 M& y' O                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 u6 |1 s& C$ z1 B9 \                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
1 |! X" W% g$ I0 u1 d* c1 M6 R        bufname:=sprint("BF",i);
+ E  {& N! ]8 x/ R' i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 A7 Y7 ^5 A- R4 E- f        end;
, `; J0 ~9 E1 K7 ^. x) `: `2 T5 B        next;
       
        dx:=0;
        dy:=0;
( r0 a" j/ N5 Q3 K8 ~) H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ X* l8 c  S1 j2 v                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 t2 b3 z6 Z* }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 Q. k/ l) k& l/ g$ h) ~, [3 W                        print activityspace[1,rows],",",activityspace[2,rows];
9 Z6 s, ?( q  p+ l% j                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 u' ?  f. e4 @6 e$ i7 U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, |, _0 [" U9 A! O                        y_max:=y_max+dy;
( C! k: S/ i& F( r& h                        dx:=0;
. g. ?0 ]0 V+ t                dy:=0;
7 V+ M2 ^8 X5 V2 ~2 k% b) _! ~                        --end;
                end;
! h1 a- V: m3 z% f) U4 K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 G+ d8 R2 f3 M2 ]& J0 ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" t3 t8 A1 Y. m" X% U. G6 b6 p                        dy:=activityspace[2,rows];
                end;
3 Z* I+ l. B8 n& V& p                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& Z8 R" Q0 g; `+ S! M$ t* ~7 @' p                ct:=activityspace[2,rows];
$ e$ E8 D- `) A% }1 h- ^4 s: y                        activityspace[2,rows]:=activityspace[1,rows];
6 b; K7 ]5 z2 E                        activityspace[1,rows]:=ct;
& ^$ \" ]- U' H- |                        end;*/
        next;
/ l2 x2 c8 P* \        y_max:=y_max+dy;
; L1 [, [. g) Z+ b) g+ y8 L9 `; I        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);
: {- y0 L2 @9 P/ 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);
       
! X+ t* A& w+ ?+ f% p9 d        rows:=0;
! e1 F. D- V6 Q- w        lines:=0;
" M* Z& n5 t( n& X. a/ G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
$ B* e9 m" p/ q% T3 B                                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];
1 \  M9 e% V3 N/ f9 l" D& w) s                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# U; E$ ~  y% ?( ]# [                                d_from_to_chart[j,i]:=abs(dx-dy);
8 Z% m3 i5 [! t& ?4 g                        end;
                next;
5 p3 L& U2 N3 A" m        next;
- P) V. g: t1 R7 v! a3 u% j3 N       
4 i! H3 ?# C9 J        lines:=0;
        partstable.delete;
/ y, X0 @: |7 w" ~- d       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& n# s* N, x. I                machinesequence[2,i]:=rows;
1 Q" M+ M& p' j: _( |/ ^                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, m/ l0 k& @  B: C" \                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! s' U" J2 r. y: R; K                        partstable[3,lines]:=sprint("parts");
, S3 Z1 z% j  J1 ?. r% q                        partstable[5,lines]:=rows;
$ g4 p" {; F8 d0 L1 Z                        partstable[6,lines]:=j;
3 B/ D, l: p- ?1 a# f9 w$ `                end;
        next;
        machinename:=sprint("M",rows);
; |) ?" y+ B; D! ~, p! R3 b        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];
! V, [4 l7 B) [5 A/ Y        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
* ^* t$ a: `: n: B& R/ z        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]);
7 T& H/ ^. V* q* `" j4 {/ p        buf.name:=bufname;
# ]: f4 W1 H' H        buf.capacity:=5000;
        buf.proctime:=0;
7 X) A& P9 e: B* D0 ~        .materialflow.connector.connect(buf,machine);
       
2 Y  q8 m: a- G0 N4 W        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 n4 K) ~! l% O3 w- Hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% m! M$ h3 u! |% G! o; gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ f* k8 _5 r  O4 \next;
end;
$ y0 x. k! J  i  v