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

zooey

is
        mark:boolean;
  X& F* Y0 m# |0 T. D+ [        dx,dy,ct:real;
  C; q& [' X- F    i,j,rows,lines:integer;
    machinename,bufname:string;
4 |* p; R! K! H/ j8 L& F    machine,buf:object;
do
, @3 N' q# |. \% R8 |        current.eraselayer(1);
       
" ^1 H( w2 D6 z0 t. c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" C" F9 i' E/ ~! v- D: R                when 16 then
                        print"yes";
4 Q' u& ]6 \9 y8 ]" Y3 ~2 h                when 32 then
                        print"no";
                else
                        print"cancel";
, b5 `# l4 g# K- M                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& z  `# a# u' d* o5 I. r4 ^        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
% Y  \, F8 _- [+ s' a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. w- f5 s0 O* D% A                buf.deleteobject;
        end;
        next;
# W! k: \* r* G       
. v+ E1 X& `$ @+ k' U; k' {$ X. w, Y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& _: M. N" a, E# X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ y% y% F- W8 ^7 X                then
- e( V# v% T) W+ p  l                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; u- F* n3 v6 n. w                        activityspace[1,rows]:=ct;
- N& _- W/ j; W* K* C! |                        mark:=true;
! ?# b6 t9 d8 X2 s% o                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
% M0 w5 W/ L! h( S; D! u                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;
3 [8 }8 R! y& S3 s* `            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 x. A) }! i) H# s, z                end;
                dx:=dx+activityspace[1,rows];
2 T+ Y# \6 P" T6 }" h8 ^& f0 H                /*if mark=true then
                ct:=activityspace[2,rows];
% D& j/ {% i/ }5 m6 o                        activityspace[2,rows]:=activityspace[1,rows];
+ G) m$ Z5 R% Z7 g                        activityspace[1,rows]:=ct;
                        end;*/
6 x* l4 Z3 Y/ X6 W3 r6 N* j        next;
        y_max:=y_max+dy;
* c* S2 g1 M6 d$ j) g. ]        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);
% x/ X' t( B; D# [! Y. j4 B        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);
* ~( w; D  S6 E9 F$ k5 B) E# \- ~7 U       
; f# M5 @, ?/ e* e7 c        rows:=0;
        lines:=0;
: f6 p) R  f0 E1 T6 X        for i:=1 to number_of_machine loop
- F, q7 G8 e. ~& g1 ^                for j:=1 to number_of_machine loop
                        if j=i then
: ?' S/ ^" b0 \                                d_from_to_chart[j,i]:=0;
                        else
                                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];
4 S4 f2 w  M. Z2 O6 x/ i% i                                d_from_to_chart[j,i]:=abs(dx-dy);
6 o* Q1 i& \9 U+ u2 [$ b. x- a# K                        end;
' q5 Y4 _& _# s( y; @                next;
8 {# L7 i3 {, ^9 u/ ?        next;
       
! S0 I# s# b" {+ }7 P        lines:=0;
        partstable.delete;
1 v6 p7 }( e; R! f2 h       
        for i:=1 to number_of_machine loop
* ]7 Q4 t+ Z* x, S" x. n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 r% v6 g6 e% U( U' S7 z# X% T                machinesequence[2,i]:=rows;
6 z' R' o6 g  q( R8 b' w: Z' J                for j:=1 to number_of_machine loop
$ {- m& ^9 {! T- _+ j; S                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 ~. }7 h6 K" D1 h% G& {                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 H+ e- `, m+ x0 E- ^. [                        partstable[6,lines]:=j;
                end;
$ ~/ A0 m4 z  J, E        next;
  @. g3 F+ T/ J2 q6 Q# j7 \        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;标识符未知
1 \. Z8 f* o2 j! d        machine.proctime:=5;
4 \4 T) t: O( {% N% f4 D        machine.label:=activityspace[0,rows];
$ f: r: k+ D$ [4 R* \& \9 h        machine.exitctrl:=ref(leave);
, z. Y  k$ ^, a: G: w       
        bufname:=sprint("BF",rows);
& \8 m; i9 @  A) m0 @) b2 T" _        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]);
+ g& b' q& q5 x9 N        buf.name:=bufname;
        buf.capacity:=5000;
2 z) ~7 s8 B! ~  J        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 w# Z* H3 S1 |) C7 J4 l7 {. G' _       
0 b. u& F- l! t        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);
+ T4 L# I2 g% ^& P6 @next;
end;