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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
6 D3 _: H4 G7 l' k    i,j,rows,lines:integer;
    machinename,bufname:string;
: G0 }6 v2 ^: B  E    machine,buf:object;
do
5 s5 ?& S" |/ i% N" y        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 S7 L% p4 v1 v3 t6 I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
( `/ @( ]# H) h- ^5 t                else
                        print"cancel";
                end;
5 d; l- @8 p2 Y; T; z                eventcontroller.stop;
* Q1 A- j. Q9 U7 K' s0 N, w        end;
( t2 T2 n3 h5 s6 l  z# r+ N       
" }" Z1 d( D1 ~' X- q) d3 o        for i:=1 to number_of_machine loop
" Y# h6 m, H+ R* z. [+ x        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ S: h) W9 d# H7 V        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! `; f: R  T. q2 y* g                buf:=str_to_obj(bufname);
) p" m4 R$ {- ?( D% r2 \                buf.deleteobject;
        end;
        next;
, o" Y/ \) Q9 \" E' q       
        dx:=0;
3 R% S8 P4 a+ X4 {- b' c$ T        dy:=0;
        for i:=1 to number_of_machine loop
1 a7 K$ t7 Q7 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ q0 M& m; d2 J% c8 w6 T( w7 J                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ d8 |) K: k/ r8 w                        and activityspace[1,rows]<(1.05*y_max) then
: k$ u( t( @9 j                        print activityspace[1,rows],",",activityspace[2,rows];
9 @3 @: A/ k7 c7 [) P4 J                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- Y+ c- b3 `' m8 A7 F2 w                        mark:=true;
" g0 N2 d7 B2 \7 y2 }; _! V                        else*/
                        y_max:=y_max+dy;
. }# v# K) D: A' Y+ m5 J' K' O- h) D                        dx:=0;
' w) j3 n3 I; s9 U                dy:=0;
                        --end;
( O: `# H) g  c+ l; c3 Q' L                end;
* S: Q5 `4 d. T) H: e                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
! e- x* [. |, [0 ]                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) K* i" K5 P+ @/ }( f# b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 }4 h: d+ U- h/ i7 S' l3 A                        activityspace[1,rows]:=ct;
. ?3 ?& _" d: N! k, [/ o                        end;*/
2 |! L: U" h+ G& B* R        next;
- ]' h+ Q. u/ T) ?$ V% n        y_max:=y_max+dy;
' X8 r5 J9 v8 u$ Y: A8 ^7 L0 d        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 B+ u4 ^+ y        lines:=0;
  \6 V0 U6 |; l  ^        for i:=1 to number_of_machine loop
0 E/ z9 R, r1 n+ U                for j:=1 to number_of_machine loop
                        if j=i then
7 Y- F2 t% v6 F) b                                d_from_to_chart[j,i]:=0;
& {$ u8 v% k# r, E) s1 s                        else
, X  M  E2 J! j  X1 @' L' w1 U                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 ~) o( Z- k  |3 R; F                next;
7 |3 T* r$ y* H  ]' z        next;
, O# M/ Z* Q: u, w& _% o6 F       
        lines:=0;
4 F& h# o" @0 G/ r        partstable.delete;
3 r, Z6 i  v/ c$ z2 f' e0 Z, g. T  {       
& R4 r1 x( s6 \+ z' |/ L" h0 j        for i:=1 to number_of_machine loop
  ^( [( T' a1 e2 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( N+ s+ ]* X; P& ]9 z8 i                for j:=1 to number_of_machine loop
- x0 U7 p7 q1 g- G5 t5 q3 T3 ~4 T3 u                        if w_from_to_chart[j,rows]>0 then
- z" `# t3 U3 A4 F+ t- M- i6 x                        lines:=lines+1;
, t3 I( j  b( X. P4 T/ p& a. Y- s! D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' n7 c6 F- N6 D% w+ O: l                        partstable[2,lines]:=w_from_to_chart[j,rows];
& ?9 m& _/ W' m8 b1 v/ u                        partstable[3,lines]:=sprint("parts");
3 m+ i2 H! i3 b) o- k! L& j: U                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
) m1 g+ t8 z! ?: ]0 N  N$ U        machinename:=sprint("M",rows);
( w, w  C( Z8 a" Z3 e        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;标识符未知
4 x8 v& y# j' d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ o; D8 O- \3 l( T        machine.exitctrl:=ref(leave);
. Y8 M- @+ O( `& z5 x* {  {2 y       
- H' T; ]5 a% X/ Q! b7 P        bufname:=sprint("BF",rows);
; R) X3 o- A/ i/ _, w        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]);
; o2 c' B& q4 _5 a3 w        buf.name:=bufname;
2 z3 `" P7 G1 {6 `5 c6 _7 C        buf.capacity:=5000;
        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 t" W9 [5 ]" Z4 o6 w6 Z2 f  [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 ^3 A) U0 x  f0 fnext;
3 s& e& q; m! J; a; ?& dend;