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

zooey

is
        mark:boolean;
* `  r) ~- U; D7 d! P: G, f4 q) g        dx,dy,ct:real;
" u9 c2 b3 W9 ~- p; o4 r# v- Y    i,j,rows,lines:integer;
; X6 `! Z! a* F8 Q    machinename,bufname:string;
, B; O4 M+ k5 L, m    machine,buf:object;
! f, H. c2 m' L/ t9 Sdo
' K0 _% K2 Y/ r# E% P( T% S- ^5 D        current.eraselayer(1);
       
( Z' B/ X9 V, L. s: p% W) 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
                        print"yes";
4 i; U( x1 {* x( s  X4 z: A                when 32 then
1 s/ j4 q6 d0 [( P                        print"no";
( M% T+ i8 m& Q5 S3 |+ }) |                else
6 }: Y; w% _$ I                        print"cancel";
* V, L  u& S- f7 G- l5 f* \+ c                end;
                eventcontroller.stop;
+ Z. e6 n' k# k5 y! r2 v* h        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* B# d) y# K3 l- a                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# F$ L9 C! C" x  J; w        if existsobject(bufname) then
' j5 U# G* i' z: {, g# M% r                buf:=str_to_obj(bufname);
6 d+ O: P# `) _; C                buf.deleteobject;
- i/ p1 k& _  `3 N        end;
; `  Z2 ~: o, @& l+ B9 U        next;
& y6 }# ]. C5 Q; n2 R7 K- p       
- V; m: X9 w6 s4 |, C        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( Y' q' S, Y7 \/ n* ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 M+ A! {( _; a* q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
' a6 K+ ]8 g. ~( q4 B                        activityspace[2,rows]:=activityspace[1,rows];
8 g" C* x: B; B                        activityspace[1,rows]:=ct;
  t  s/ M- Z6 n7 m; [3 }                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, `# `- `/ x# {+ H" @, ^                dy:=0;
5 }) B" l1 J' s7 C; y* C                        --end;
                end;
* G8 i3 j+ G* \: b2 n2 _  ?9 c                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;
, w- i  C- R6 k8 U- m  a            if activityspace[2,rows]>dy then
) g  @3 s% }  L* \4 w                        dy:=activityspace[2,rows];
4 h! X) {1 Z& i                end;
                dx:=dx+activityspace[1,rows];
/ A8 x: B' a8 [! D- }6 {: d1 [                /*if mark=true then
8 _7 |7 N6 L. o. ?) F                ct:=activityspace[2,rows];
& I0 t) c+ z- G$ W* J% R5 j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. ]0 x8 `$ [' W) I/ `/ D$ O8 v        y_max:=y_max+dy;
        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);
       
$ T1 c, C( {6 g8 p& U        rows:=0;
& a$ f' j/ V( Y" ^        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ ^( f8 y) q- D7 h3 i7 o                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* l* G3 E" x. i) p. R/ I1 z) [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* D( G; @! h7 D, O, F                                d_from_to_chart[j,i]:=abs(dx-dy);
5 X" e4 L0 n8 H                        end;
/ j' a- M$ I( G7 i/ ^6 j                next;
$ g6 P' O* r9 u: q, x' B7 ~. Z        next;
       
        lines:=0;
        partstable.delete;
% s" C  ?3 p) _       
        for i:=1 to number_of_machine loop
0 N% O, k2 @' `3 s( C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 ~" n4 y; `& @                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' ~2 f9 S$ t8 a8 K* X' E6 B  [                        if w_from_to_chart[j,rows]>0 then
  z3 q2 e  i' X1 `; n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! p" T$ l1 R8 R! s/ h+ S- p8 D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- |2 s: N# k+ {4 \; w                        partstable[6,lines]:=j;
                end;
        next;
2 Q3 g: \7 C3 M4 x# m        machinename:=sprint("M",rows);
% U, [, L1 [- q5 S) U# |" m7 i* Q        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]);
5 N, h2 x: u) i0 B( s# ~* b        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. P3 E7 d8 s7 i* |$ ]: v$ x2 I        machine.exitctrl:=ref(leave);
* \4 a, }9 j, a. Q" j' |       
        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]);
5 [# l. K% I' x- i' k        buf.name:=bufname;
        buf.capacity:=5000;
6 Q5 `9 P' Z0 x- S        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* S8 y5 ?$ W3 y) D+ X. J       
+ z" n  P6 X( e+ D        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);
next;
end;