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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& |) x/ e9 y, c+ t( F, g0 O        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. T3 e1 L" o" i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
4 U0 U9 s, v6 h6 W                        print"yes";
$ A/ r9 ?  q6 W                when 32 then
1 q% w8 e7 g6 ^" G( o                        print"no";
                else
                        print"cancel";
                end;
8 `& F: |: u* ], e- \                eventcontroller.stop;
2 x: L; x, q+ ~- M        end;
* o4 D# z( A+ ^, ^  q       
( ?6 ~4 d# r% _! F- C        for i:=1 to number_of_machine loop
) V5 |) D" t4 ?+ V" Q/ I        machinename:=sprint("M",i);
- |, z* b$ M5 N% O( C1 x" H        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, |( Q# k0 j" U                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' j7 y/ m0 ~/ [' }) B        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  M( h- p8 ]0 @" ?6 T! f                buf.deleteobject;
        end;
        next;
$ Y6 [3 I* N0 K       
1 V) P+ Z/ W$ y/ B4 f        dx:=0;
- i" _5 B5 {0 M; }, t, h( j3 `        dy:=0;
        for i:=1 to number_of_machine loop
8 i) Y+ r% L% o4 F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 a7 H/ {* L2 J% N, n' T, u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 {$ V0 `: B+ `: J6 |) C0 t1 i                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 i& v# y& C3 p( {; ^! Z4 E- B9 j                        and activityspace[1,rows]<(1.05*y_max) then
2 q6 y: P* _5 D- [  j                        print activityspace[1,rows],",",activityspace[2,rows];
7 z8 K3 h3 A: F% t- }  w" l                        ct:=activityspace[2,rows];
" H9 {' r: d9 |7 s* @                        activityspace[2,rows]:=activityspace[1,rows];
2 _  H9 o3 Y" Y                        activityspace[1,rows]:=ct;
                        mark:=true;
9 V  J/ j1 ^7 ^3 i3 s2 ^+ d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
" }, l: F4 ?0 b8 g9 ^                dy:=0;
4 ?4 ^  Y  |1 I0 u" Q: D                        --end;
* L% v' `' f6 _! [9 F8 D0 H, M                end;
* _; K& p+ f+ S/ `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. B7 c) `3 [8 }( c; o7 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" [# `! o% d+ M  \! a3 V6 D' _6 R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
" W4 d8 }# O7 q: m# t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
; d) }" f. z  [# l4 Y' [# l0 r. h        y_max:=y_max+dy;
9 I9 E4 X- u) H/ [) X) U        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);
  c, l- _" j. Z1 N3 j+ b/ @       
* c7 F2 b  i% n6 n% t  }        rows:=0;
        lines:=0;
: q! n& T5 l+ m$ n5 W        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ t( T" L/ r( j3 {0 @3 o                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
0 Y) n' q2 q& s* `9 p0 n5 W: Q" 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 N) o: P8 A$ R                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, g' Y2 k) I5 H4 b: |        next;
6 Z0 H; ]2 ]9 [$ e7 R& I       
        lines:=0;
        partstable.delete;
5 ~) t, J  S$ C( d! Y/ t( M       
) z: a; O1 g6 c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 U% ?% p% q1 J( L) n# n( ?                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& n$ |/ B5 C6 d- I                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( S! g/ m) ~% v5 s                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
  Z8 t# {* |6 a( v7 c        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];
; \3 s  x7 l1 B, c8 O( [        machine.exitctrl:=ref(leave);
" @; ^/ M7 \+ N. g/ R       
        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;
" k7 R+ U4 H! V- w        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- C" A6 e' ?3 y* w- @9 E6 ^       
; a, y2 ?8 O: l" p) K4 j/ }        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;
9 p$ c8 {+ I" |* send;
. T% r% L7 d, O5 [5 R9 |5 X2 T0 }