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

zooey

is
/ b$ U: Z& g3 c1 k! s        mark:boolean;
0 U6 D5 ^$ [, t) t) V& }0 K* T        dx,dy,ct:real;
$ L% V  }3 Q3 L0 y    i,j,rows,lines:integer;
  _$ A, m9 Z7 }) C0 h9 \    machinename,bufname:string;
6 y0 A  @+ y! S& U6 T/ q6 z1 e    machine,buf:object;
do
, K9 S- d  y( a+ X; a: r$ [        current.eraselayer(1);
       
- s4 Q  }' f3 `& u* E        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& r- s/ v) u8 `" p3 A' S                inspect messagebox("设施数目不对！请核查...,",50,13)
9 c* j/ k+ y4 j1 e: V  w) u" x                when 16 then
6 F9 I& v: M, \* @9 w/ N  j                        print"yes";
                when 32 then
+ F7 t" J9 D/ t- g# x6 ]4 v& @' f: N                        print"no";
                else
8 i! u7 C" L5 E4 J; s' S  G                        print"cancel";
                end;
" x8 ?  t4 ]# a7 Y. P                eventcontroller.stop;
        end;
* N0 s; ~7 z2 l$ ~       
" ^4 |9 X% e& X        for i:=1 to number_of_machine loop
3 l7 u/ t4 G  z# _. D( c        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 j& F7 m6 c/ D% ~* J                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 _$ q3 n* v7 ~        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ v9 J$ c( s1 H' s                buf.deleteobject;
/ N3 _- R1 Z; T( J+ y        end;
        next;
       
        dx:=0;
. W) ~- H; \: p- H        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& Y, }9 N, |7 i, F4 F- @                --mark:=false;
3 p* U4 s4 i! m9 [+ S$ W3 B0 \* O* V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! J8 z3 ]8 E# @# x% y! B6 I                then
4 s( H3 E- Y0 }. v6 S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 E1 f& r+ V7 G$ g" h6 K                        and activityspace[1,rows]<(1.05*y_max) then
- j4 _. n  l) z2 d/ d                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
! v8 O1 {! m. a2 ^( ^- c5 |                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;
4 l3 `2 N1 v$ W8 ]7 f' u% X            if activityspace[2,rows]>dy then
/ o( b) g, I5 j* m5 u6 |7 @                        dy:=activityspace[2,rows];
' ]1 \2 H" J& Z' n/ N                end;
" U. ~" Z+ C$ m2 T                dx:=dx+activityspace[1,rows];
: M: g; n' b$ P5 S, L& r, u                /*if mark=true then
0 r9 H! W3 _; x" R3 x, b                ct:=activityspace[2,rows];
0 y! ?7 R0 p) }% {% m7 A1 ]                        activityspace[2,rows]:=activityspace[1,rows];
: X) h- B- {4 w0 q: c! a1 _                        activityspace[1,rows]:=ct;
. I  p* i5 ]2 u- ^                        end;*/
        next;
" d) s2 y2 q$ ?; f; w2 t0 T( l        y_max:=y_max+dy;
& y# U) ]5 r% [0 L5 ~- `$ V        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);
: S5 j+ `5 H) p- C. x        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);
" a7 O5 g0 h) k" q/ ]# h       
        rows:=0;
        lines:=0;
% ?5 V- ^% f+ {3 U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" q) C4 ]. i) c8 {) m                        if j=i then
  O# D# @/ a$ z* v+ m7 i/ Y7 [& r                                d_from_to_chart[j,i]:=0;
9 a* K: A: q5 e1 Y0 k& L                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- a+ A4 n8 H- q2 Y" y# \: {                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% q8 s, v- `* q; F3 S                                d_from_to_chart[j,i]:=abs(dx-dy);
8 b( `" k# `) d9 {- `5 i7 R                        end;
                next;
        next;
+ L9 _( A: J  X2 W! [       
0 x: y" U& `. x4 v7 m  h: e- {+ d        lines:=0;
' k1 k( _5 g; @9 J! M  |2 N        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: K: c8 `7 P6 W9 d+ P# M                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
6 F! Z: ?& n1 ~                        lines:=lines+1;
. [& P$ @% W3 T/ R+ T9 Z( L% e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 a2 V, i2 v$ }. U                        partstable[6,lines]:=j;
                end;
        next;
7 @  u4 G0 U! G1 l0 L1 L. G! |        machinename:=sprint("M",rows);
' j; p" l; ?; \/ `        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: j# l1 Q& P0 q/ `        machine.exitctrl:=ref(leave);
" J  e: o- I* r  W6 T3 B3 P1 |       
        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]);
2 H3 Z3 z8 H8 n9 m        buf.name:=bufname;
        buf.capacity:=5000;
; p9 l2 M( z$ _        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 D) P5 B; A6 ?2 G- w# D       
" ^) d$ I) B& ?7 {        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;
% N, d$ B  v$ c5 C/ [- ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;