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

zooey

is
        mark:boolean;
2 j5 r) Y/ l9 h9 q  v  M& a) `2 f6 Q        dx,dy,ct:real;
: j. m4 `# t& M% p$ ^    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# T/ I% n: H! V5 Q8 l( m6 gdo
        current.eraselayer(1);
       
( e3 F- I5 `8 X6 N: s7 Q        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
2 U3 g7 ^: [9 U8 q  N/ y                        print"yes";
1 H9 k% Y% g6 l9 h" U! Z                when 32 then
3 l1 q# t: t" j7 C# b6 u% W2 _                        print"no";
                else
                        print"cancel";
! q4 r' G, S6 Q* m                end;
3 N9 [! E: W$ {/ ?+ ?! P                eventcontroller.stop;
        end;
       
$ _7 F; c2 x7 l: b; X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
! R0 @$ J1 N+ z0 \( B; e                machine:=str_to_obj(machinename);
                machine.deleteobject;
" d$ h' e! h3 Y9 C4 _. n2 y6 P        end;
9 ~( E2 n- P1 Z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 m4 {) I2 U/ I/ C  b7 z                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
0 ], S4 r% H. k* x        dx:=0;
        dy:=0;
: f; T8 z- P: |  `' ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* v) C) v2 |  E& f) x- p                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  K# x8 c( e, B6 }7 ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 x3 O  K* e4 n& ~7 q$ @  x                        print activityspace[1,rows],",",activityspace[2,rows];
( M6 c! m* q, q3 V, i                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- z; K5 v3 n8 ]! }, c                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
5 @) @3 _" P4 ~                        --end;
                end;
/ j9 f5 I2 {" Z9 X8 t! T                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;
" X/ ]5 [, @7 [) a            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 {2 v3 O. X2 |: b  t$ s                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: x* w5 ?- s& T/ ]; q; |% v                        activityspace[1,rows]:=ct;
                        end;*/
, ^$ ]6 v9 M2 I. A6 F) F; r6 W; \        next;
        y_max:=y_max+dy;
( a+ R( U) H0 W        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);
$ O& A9 r$ p8 [- x       
  A' I4 f# D% b* d* O        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
8 y- L( a1 \. c' ?, N9 c; D) K9 u                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
. J' ^% e' `" |                        else
0 s- t; }7 d. P, V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 A/ k! l' T- u  |' S  D+ O1 O                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. F$ a, M6 K6 z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- p" W" ?; N: |3 k) ^/ v* u                next;
, p6 i! t$ v) z7 y+ m+ n+ x3 q1 Q        next;
  F. q6 \; M# n9 w1 }: V1 ^  A8 Q; E       
( l- F) a2 @/ ?- V) z        lines:=0;
4 B, Z. c0 T& d0 a6 c  w0 x: v. b0 ~        partstable.delete;
* A0 ?0 A0 J" x6 l/ A5 B& h       
; p; z9 `- t+ ^3 z/ ]! i; S* K        for i:=1 to number_of_machine loop
/ Y- y* `& Z; b8 r2 C% g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  z; R$ a* D$ i, z. S* q& e, Q1 G                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' }1 \2 H% B3 C" N( a/ z7 V! T/ J                        lines:=lines+1;
3 W6 J1 s# Y! ?; I9 e9 p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 w( _+ d( r: y0 F, I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 x) E/ l& ?: p5 X                end;
  Q0 L* Y6 E6 O' ~) s9 H0 C4 ], L# W        next;
9 M3 V9 G5 V; \# H! \9 a# S3 a/ B& h        machinename:=sprint("M",rows);
) q6 d. a5 z' c$ g  l  b- D; H% K        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;
+ B( W. w1 M  Q* e' q* k4 E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
% I# i" P& `, P- w  V" C+ Z        bufname:=sprint("BF",rows);
2 r2 r* l3 S4 |, V2 G+ b* b' 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]);
3 ~' `! i6 x# Q        buf.name:=bufname;
        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;
8 m; V% |8 O, V; B7 icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ {1 @1 z' g% {8 anext;
end;
, n" h; E9 _0 Q2 `3 N! x