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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
+ g; C& o' F8 a3 A7 [* Q2 Z" e    i,j,rows,lines:integer;
    machinename,bufname:string;
+ V% \1 U3 e( G0 N1 T    machine,buf:object;
do
2 k% ^; v/ S) d6 U; A        current.eraselayer(1);
       
, J4 |4 x" e" Q6 E0 X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* o1 c4 X* S  W& j% t                inspect messagebox("设施数目不对！请核查...,",50,13)
+ q3 N* ?+ c: a                when 16 then
                        print"yes";
# J2 W7 G: [- d( q" q                when 32 then
                        print"no";
' H* S. A$ u1 y$ o                else
                        print"cancel";
4 U5 d( a9 Q8 ^) }* R; e: T                end;
, W: }8 F3 w3 m                eventcontroller.stop;
        end;
" v' L6 r4 r( w' l       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) l/ S/ X2 M2 ?6 b        if existsobject(machinename) then
( K- `) C- v2 c+ i% H+ r; V                machine:=str_to_obj(machinename);
$ j/ A( Z' ]% m3 X1 r* Z2 h                machine.deleteobject;
) P  r) N* ^( n6 A" w0 A, c        end;
1 V! l  I; e9 {' y$ \8 V! j/ A        bufname:=sprint("BF",i);
& _" Y$ b7 p1 U% O" P: {        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 r$ @: u0 J2 U$ O: c' G  x                buf.deleteobject;
% s. s. A& h- a        end;
        next;
       
$ G! W8 K6 w4 Q  N* I- l        dx:=0;
        dy:=0;
0 s& p3 a9 I" C% K6 A6 l  U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" b! R; {2 _1 D& X& {                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];
3 e" \' c* }$ O; k( p; J                        ct:=activityspace[2,rows];
* j2 v  o( z+ U" ^0 [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
+ Y# L. c8 \; V  L1 `7 r! x                        else*/
                        y_max:=y_max+dy;
2 w/ q0 I2 \% g$ E, f" N8 z                        dx:=0;
5 o- e) m2 w; f5 v7 z9 _$ r                dy:=0;
0 r; q- a3 w3 a; f: U' P                        --end;
! g6 `1 a* o# ^- C* [                end;
2 s- E3 U. w/ o3 U. i% {                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( E+ `( t* L% S. _" y. }1 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 d1 q$ G7 X( Y/ K0 x' Y- q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 F+ y( m+ x8 E7 R0 @                end;
                dx:=dx+activityspace[1,rows];
4 M" Z- H) x3 L+ A- N" Q7 ]3 {& P                /*if mark=true then
$ w4 y& K* @% N; U& z$ j9 c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" b# \( V. |: z+ q: U* g                        activityspace[1,rows]:=ct;
                        end;*/
2 K+ |; A6 D, S/ O3 J        next;
$ U3 ?) d8 a5 ^8 }) D8 ~) b0 e        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);
       
        rows:=0;
2 t, z! h; R- O2 \% Q& [. C- u! Z* }( _        lines:=0;
- y, T7 l# F7 K/ H$ A        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 v' F9 }- ^1 _, |                        else
9 W% C2 \# `# h7 S2 l                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) I/ x8 K" W( I, Q/ |8 \                                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;
9 X% R. |' |8 ~- W3 @, ?# ]                next;
# ^  }: A! q  s" o  d6 |" S        next;
       
$ z3 G3 v0 i0 x9 {+ q4 F        lines:=0;
% n0 [7 ?" A: a  t8 Q) ^        partstable.delete;
  ?2 g, a" ]8 g/ g! ^+ p7 a       
: c& K/ e9 D; O) p* [- a$ D        for i:=1 to number_of_machine loop
% Z' p% N, U4 F) J$ H0 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( k- Z$ c1 h7 h                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* _5 s1 N; _# {0 H' b& A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" ]' d  `' @6 T) e* l                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ z# v! n& G2 t  r- I# j) l+ Z                        partstable[5,lines]:=rows;
4 l  j- q; R2 ?* t, N                        partstable[6,lines]:=j;
+ r( \7 [4 d3 {( L" |3 ?                end;
7 T. ]" @( t% B  y        next;
" F3 A* u: o% F( x; N        machinename:=sprint("M",rows);
! h9 o$ e/ |  ?+ J, ^! K* J0 X% 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;标识符未知
6 V% j. S2 w, i        machine.proctime:=5;
5 E- G  v* W) n" z: V        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ _7 I8 m$ s2 P! Z8 f( O2 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;
+ e' u: J% J6 z        buf.capacity:=5000;
, O6 n+ Q, R- n% l7 d+ ^        buf.proctime:=0;
& b( I+ \2 l1 k" G( P  A, s        .materialflow.connector.connect(buf,machine);
- O- t) V) H0 v3 v; p: n       
        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;
5 I9 e& w; w" \5 Qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
; ^" F4 y8 q: b- Vend;
+ x2 q8 I' v" A