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

zooey

is
        mark:boolean;
( q4 _# t8 o4 G1 U+ w* _, S* c        dx,dy,ct:real;
8 s7 y' X' _/ C$ [    i,j,rows,lines:integer;
0 D! X: f) ]; m* I* C2 C3 |. Z- E& [    machinename,bufname:string;
7 I  Y: o+ `6 j' \; y$ t    machine,buf:object;
do
# w4 a% m7 a" g/ Z        current.eraselayer(1);
/ w) D7 A; Z9 ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  W% f5 a+ I! ?2 ]4 W                when 16 then
5 T+ m3 P2 E- z% S" N                        print"yes";
                when 32 then
                        print"no";
                else
& Y1 E2 \# |: p  D6 X# P                        print"cancel";
: S, |$ g$ E5 @, |. e2 }                end;
6 q. y4 P4 ?" Q, u3 F- ]                eventcontroller.stop;
        end;
+ h" c5 a6 Q, g' Q       
3 |) M7 ?0 P8 ?. c5 V        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 B2 _: f0 i1 W5 V& {        if existsobject(machinename) then
% X) d2 \9 q+ x                machine:=str_to_obj(machinename);
7 X* }/ ]& e1 L: w; q4 }; |                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 B5 F" ]4 V) L! u5 v$ n+ p% Z) V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 }) `2 E. [# N( N3 X# ^) Y. V4 ^. p        end;
( i2 w1 s+ x2 J$ [7 h2 b        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
4 }" r; c8 Q1 g- O( X1 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 w+ e! |( ?3 f# k                --mark:=false;
# L# e4 ]+ |- Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 I2 H+ I& Z6 p# O) I, O$ D                then
, M+ _- s( t# j0 Z% A, K4 y8 z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" C, C3 z& T) f& e/ E3 E1 C& ?( x                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 E) T! r" _% ^! f! q                        activityspace[1,rows]:=ct;
                        mark:=true;
5 l( e! _+ h; Q; F( f: F, H                        else*/
  j0 N) p4 b, }7 j0 ]" d1 w                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( D0 [  F. {+ S/ H* V                end;
! g1 Z+ i, s; ?. p0 W8 R                dx:=dx+activityspace[1,rows];
9 A9 n$ G; |: I/ ]                /*if mark=true then
' Y7 }" a( s! z$ ]; I4 T2 y8 h                ct:=activityspace[2,rows];
- U. g" F. U$ s0 y                        activityspace[2,rows]:=activityspace[1,rows];
( |  f0 k6 ]! K8 ?; Y7 O! X                        activityspace[1,rows]:=ct;
3 F; z" Z8 D& X3 Q8 X                        end;*/
        next;
' ~4 ~4 x5 k8 A& M. C        y_max:=y_max+dy;
* w( u1 N5 i( ^9 e        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);
! i) {% T* q1 ?% E        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);
; F% r9 }/ `8 S8 s$ x       
        rows:=0;
1 K, N+ @$ O  A( v4 b) O6 \4 J        lines:=0;
1 O; Z/ c/ F4 q2 N1 [, |2 l$ o        for i:=1 to number_of_machine loop
: i  T* B. v7 ^7 ~8 j& ~0 _  }                for j:=1 to number_of_machine loop
3 }. \! c' a1 y4 ?- E' d                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
# f  w7 |# }1 n, n% _+ |5 `( j                                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];
9 Y% q/ J2 U) ^6 h8 d                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
: r; J8 i, `8 R2 Y        next;
       
        lines:=0;
        partstable.delete;
' X$ p! J& L# a2 C3 n1 P4 C* X       
2 Y" @8 j+ ^/ i% z; E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" H3 E8 n9 }% M( V- U9 H6 y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: m* G$ h" e: j" x1 @                        partstable[2,lines]:=w_from_to_chart[j,rows];
) e* t& p  J9 j: z; d( l5 c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
! S8 S( R9 P9 Z' b                        partstable[6,lines]:=j;
                end;
        next;
        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;
# t  o* d2 J& d1 o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
2 ^8 s  }; `. f% Q9 I        buf.name:=bufname;
% H& I1 _: J5 V- n7 c        buf.capacity:=5000;
' M+ h8 x' Z- n) S: s& |! w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 }! t, J& ^- e; c5 P1 y; B- Jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) `8 O1 {, T# W! \$ \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;