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

zooey

is
+ T, v- Z2 ]) C, V* Z/ s& q        mark:boolean;
- v8 g. I; e  \5 W) z: d# ?        dx,dy,ct:real;
. k& b+ [& e. Q$ M    i,j,rows,lines:integer;
( N7 N; ^6 A- C, U6 A    machinename,bufname:string;
; h% U  B5 d6 }( \) p% U    machine,buf:object;
; I& \4 w; g0 Hdo
        current.eraselayer(1);
       
0 @# U* {* G, C2 T8 Q# g) H" }8 `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ _' x( @+ A0 `: R' `% s8 F5 [                        print"yes";
                when 32 then
+ c' V: Q  P: ]. j7 Q6 Q                        print"no";
                else
4 m9 ]9 y* r1 ~! U                        print"cancel";
- p6 s! [+ S2 O% T                end;
+ k7 n( B8 ?, G+ @& D7 F6 D7 ^                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
6 }2 A: J/ }6 n" x' @' X        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ T/ S: b9 x& j$ P& f8 s                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 s! ^1 e1 x- @. R7 m2 {* E2 j                buf.deleteobject;
        end;
# s5 c+ f  U" y2 E        next;
       
        dx:=0;
        dy:=0;
9 n* Z# F; \) J9 O3 A- o3 M3 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 L1 s" I2 v0 p9 d                        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];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
% h- a4 E1 U% D, d                        y_max:=y_max+dy;
                        dx:=0;
- o. P6 J2 H$ ]8 _6 q; x6 d6 R                dy:=0;
6 C* K* Z+ m+ T                        --end;
. A2 A7 h: ]8 C2 M3 w/ [, ^, Z                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: T1 E3 g; Z" A                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;
                dx:=dx+activityspace[1,rows];
! r2 \/ o( y- I6 m. Z                /*if mark=true then
7 U9 }' _% @; ?/ r- M) W                ct:=activityspace[2,rows];
. O/ _$ P# |' v3 ^                        activityspace[2,rows]:=activityspace[1,rows];
& ]1 ]4 o9 f1 A. J& [; l% y                        activityspace[1,rows]:=ct;
* M5 U8 i- G- C" t0 k! \                        end;*/
        next;
$ f& T% P6 W  \8 X, z7 j- _+ T        y_max:=y_max+dy;
+ L9 h  r4 m1 E! t1 ~6 O        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);
       
7 I1 n8 f! t% k) ?& c1 a+ p. h        rows:=0;
2 z  w) G( S$ A7 x1 x/ N        lines:=0;
2 D% Q7 u' U* ^# N2 @        for i:=1 to number_of_machine loop
- O7 V/ X/ b3 k: J* T& @6 S" a: q                for j:=1 to number_of_machine loop
+ |; ^* F, l. |3 j- B& g                        if j=i then
' q0 |: `7 [* c( E# |) k. c) g                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
/ \% m9 P$ x! l                        end;
7 G# u( D6 p$ l                next;
" M4 x  s# P6 z% {7 l4 h+ c        next;
       
        lines:=0;
        partstable.delete;
$ g1 ~* z6 w  M. ?: c& O" G( ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' S$ Y6 A' g  Y/ M) o3 H. A                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- U. I4 M: r( C                        if w_from_to_chart[j,rows]>0 then
6 P  g8 d2 p7 y  R( {, o6 D8 h1 A8 H  H- h                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 q( v+ f. E. K( K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  n. @, v8 L5 H1 X0 w4 H4 ?7 }6 U                end;
        next;
        machinename:=sprint("M",rows);
: R$ E! n6 Z7 g, t        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]);
* b8 f3 L7 e% f) R' q        machine.name:=machinename;标识符未知
8 S, [, X" w+ R$ X        machine.proctime:=5;
+ b$ W( E  \2 }) y# H: y/ p9 c        machine.label:=activityspace[0,rows];
3 Q. c; }, G% z7 m: ]        machine.exitctrl:=ref(leave);
. R1 u, {( U4 z       
& }# |* C, W' ^, U* Z3 c/ c  u        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]);
0 d+ \, ~6 Y$ {/ R$ b        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ w/ s# Q% L5 g7 C' _; g* w       
& ]. t& f& n) C# S8 x- C( q# 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);
( L2 o  ]* c3 y8 u7 F; Anext;
0 a3 k% c, c5 y7 w* ]; s4 O+ Eend;