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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 V. m1 c# |6 d+ u; l    i,j,rows,lines:integer;
    machinename,bufname:string;
. g) Y, C( N4 @' Q: g2 A: E    machine,buf:object;
do
/ q$ N! v! D( N! p  k4 G- ^. w        current.eraselayer(1);
8 o4 n2 Q/ N; V0 i/ S7 i* T# o4 [       
4 S' I1 ^/ K0 C* ]5 o  }9 V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( w# Y/ a" k; S% ~3 a9 K/ p                when 16 then
; G" s* q/ M7 h8 \% @& K' ?                        print"yes";
* u1 P/ o2 G$ G2 ?, c8 W" N/ M                when 32 then
                        print"no";
                else
) U0 {* U# f1 l6 |0 H; B                        print"cancel";
                end;
$ @  h- p* e% t# Q/ d                eventcontroller.stop;
0 K: P9 P( G0 E; C* m( j: ^        end;
       
/ B: h5 N5 t, k& t        for i:=1 to number_of_machine loop
1 |. j" K: b. D9 l" w' I        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 g; N2 {- v$ W+ n1 ~2 c, M7 h# T. T' |                machine:=str_to_obj(machinename);
                machine.deleteobject;
- x$ t! |5 t! u, y        end;
( V' v+ e9 v+ G6 [        bufname:=sprint("BF",i);
5 w9 c: k. J+ y) o        if existsobject(bufname) then
2 r& {5 U! k# ~. t& n9 L5 P- |                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! O  f( ]; `/ y2 J        next;
       
- t+ S, @1 U' L& C        dx:=0;
        dy:=0;
5 ]: k1 z0 `! [; S5 o9 |        for i:=1 to number_of_machine loop
9 M- N- l2 c% t) X: u, N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( H$ ^0 y7 s: L; I1 T. s0 W                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 e0 u8 T% f( |( L, R) Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 R# r' M# ~1 @0 }: K" p                        print activityspace[1,rows],",",activityspace[2,rows];
# X4 B. a5 P+ ]6 `' X% j6 ^5 W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' G& b, b9 [' x5 K& \# @                        activityspace[1,rows]:=ct;
  e! J* q* D2 U8 O; ^8 P+ g& f                        mark:=true;
                        else*/
1 s4 s4 J- j- l* K  D$ i& o                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 n, B& z6 d6 v* ?% }+ m1 D7 q0 F- C  \7 x                        --end;
4 d( T8 }" ~- S7 Q6 m                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ l8 W) P. v2 c+ d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 v% g1 V5 o' }! x            if activityspace[2,rows]>dy then
+ X( w  g$ c0 d* S; F7 S% w* \                        dy:=activityspace[2,rows];
                end;
& G" _4 Q+ p! d. Y& x                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# g/ c9 C- B$ c0 J/ U                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- R7 @( q3 w+ b5 ^: A9 E                        activityspace[1,rows]:=ct;
                        end;*/
) z2 g4 k* z: I& [7 \  o        next;
        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);
+ j* K, P8 O& w# T( U" H* b       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
: g" ~0 h8 @7 w6 k: t* m                for j:=1 to number_of_machine loop
. L8 r! I7 A9 P0 E8 g                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 E8 G5 z' `1 Z" L                        else
9 Q9 z; p) J8 h# Z0 t  U: {: o                                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];
" j" D/ D8 C0 i. S                                d_from_to_chart[j,i]:=abs(dx-dy);
  X7 R3 b7 C* e9 I" B$ [! P                        end;
5 g5 A" y  ^) Y, C, K5 n                next;
, |+ s6 G% Q! d        next;
       
        lines:=0;
        partstable.delete;
       
7 H0 J$ i0 p# I/ F" X/ [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; E# a/ v& p7 v! _2 |                machinesequence[2,i]:=rows;
) X" \, J6 i% f# p5 P# Z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ r/ {( }! }5 B: y/ D) G, p; i                        lines:=lines+1;
+ i9 |, m% a( ^% @) u% v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: B8 _4 j; z) {4 n                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, F0 f5 Y9 c+ H                        partstable[5,lines]:=rows;
: D; a9 g3 W7 d/ F+ ?# |                        partstable[6,lines]:=j;
                end;
8 ~, S/ `% n4 F9 J% F6 q6 W& g* y        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]);
8 [3 ^' R* t- W8 m        machine.name:=machinename;标识符未知
& s$ v6 B7 C* g& w        machine.proctime:=5;
8 H* I- G! Z: v! l4 ~        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 _9 ]% Y4 q0 S9 F( I# i       
/ P9 f( Y. [/ X. `( i- B* \* |3 n        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]);
' }% ~! M+ Z9 C* n4 l! `! I' z) O        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 k% U# K0 G: I0 {  k        .materialflow.connector.connect(buf,machine);
: N" |/ i+ b7 `& a8 n( k       
0 Z/ c/ X2 G6 C1 a        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);
0 N, l& s$ h, {3 S% ^+ y( W7 l* Hnext;
end;
: a& r+ u- ~, |* \0 l' F