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

zooey

is
  ^: p  W; e* |$ ?9 V        mark:boolean;
; e* V! V" Q# X$ ^        dx,dy,ct:real;
# }. D8 ]9 e4 n  z    i,j,rows,lines:integer;
& b6 e0 x% K$ C) @    machinename,bufname:string;
    machine,buf:object;
6 x: d5 q; @, G7 Wdo
        current.eraselayer(1);
6 b) c3 `3 p0 b) n7 v# ^       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 v+ R9 @$ m: }3 P, L- b  E                when 16 then
# x5 {3 Y* J7 z  H                        print"yes";
                when 32 then
( `# |' s5 U* G" ~: d- b. u9 y                        print"no";
3 X5 }6 ^) E" p( k$ M                else
  Y$ j  f9 }0 o/ ~( E; L                        print"cancel";
8 ]1 v" w' N7 \* A7 C7 S                end;
                eventcontroller.stop;
        end;
, v  D% c" s& `% I- i+ A) C) r       
        for i:=1 to number_of_machine loop
) Y' W4 t! c& b9 a! Z6 w' l1 R        machinename:=sprint("M",i);
! ]% J+ I$ P, x3 Q( k. Y* d3 u        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( U  T% U  n+ D, I4 g                machine.deleteobject;
        end;
5 w; [# [4 \! _        bufname:=sprint("BF",i);
9 b2 a% B) a7 q( r' h( W5 \: F        if existsobject(bufname) then
1 @/ P# j7 b1 B/ |! x" D                buf:=str_to_obj(bufname);
                buf.deleteobject;
& ^0 e$ t. a" t6 e6 g3 I1 }        end;
        next;
! M7 l& J/ }9 S2 X1 M$ W       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" T0 g# S2 J8 ^6 T6 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 ?5 K  D! d5 l+ Q( ^5 w' L# R                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& S( A6 U5 @  P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! X5 i  i, q" F3 v# {: J                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  C3 m, a0 A; _/ T/ J+ d; Y3 y5 w9 M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 y# z3 F4 t  L' \8 }) j                dy:=0;
                        --end;
                end;
: x/ x3 S/ S5 v                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
                        dy:=activityspace[2,rows];
                end;
: t7 r% y/ x0 }& G                dx:=dx+activityspace[1,rows];
1 j% t) X) H( K( Y3 `# s                /*if mark=true then
                ct:=activityspace[2,rows];
( F! I7 j  X/ p0 Y; u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
: T7 G5 c4 Z/ T; C' M5 L) }        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);
( c3 C) P9 ?0 U) V# ?2 \  n        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);
       
( ~3 z! E1 ]: u2 |        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
* N$ [9 V! L( x/ j1 N                for j:=1 to number_of_machine loop
                        if j=i then
  R3 {1 V8 f7 c% q1 i# r                                d_from_to_chart[j,i]:=0;
$ [( ]4 o2 F, V                        else
! {1 e- ^' O$ }! h& ?                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 |# E: }/ g0 \* g- r                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 M1 A) A' S! Y3 [) ]                                d_from_to_chart[j,i]:=abs(dx-dy);
, |7 @) c  @* y                        end;
+ z5 \& w; R7 i; `7 C                next;
9 ^: x  |; J# i$ a        next;
       
8 R9 x$ n1 w7 F# H        lines:=0;
        partstable.delete;
& g' Z! \+ s% B2 `. |       
: i7 q# c! A% y! h- l- R9 K, k! _        for i:=1 to number_of_machine loop
; t, L- J' A7 s) k) U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        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];
  P) q8 ]7 Z+ S% U                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
/ l# |/ j" }) j: A        machinename:=sprint("M",rows);
7 g* g/ }; O: O$ X$ `+ W        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;标识符未知
' w( l, K2 _/ p/ q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
! ~( k/ o- x1 V9 `  \       
4 \! o: K6 W6 ^! N% j2 A        bufname:=sprint("BF",rows);
5 x7 d7 ]5 v& _9 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]);
1 J* X) X9 v" _" g7 s( c        buf.name:=bufname;
# ?6 U, j" y' O8 ]% m        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  T- N  X( q% {3 m8 g( l5 g9 w0 e/ o       
        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;
; S1 B9 u$ A  b5 o# Hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ Y$ s( d2 G! j- [  Z: {next;
' Q; {4 J: X! \5 A! Send;