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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* z; A* v* V! t; {    i,j,rows,lines:integer;
, T4 g: ?9 i% F; e" h! E    machinename,bufname:string;
# V: _3 `: M0 V0 V9 O    machine,buf:object;
do
3 o% _2 f- w: u, L5 g0 e        current.eraselayer(1);
5 b9 x, s/ w' ^% m- {7 t5 `       
: v' z. }; Y) }1 K0 W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; f" u& R# T: \! L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
, C+ S2 {2 W# O' ^                when 32 then
( ~7 Q/ [5 e& n$ n. [* F! y( [                        print"no";
4 T/ b: `) Y; O3 P6 z- d& k4 Q                else
                        print"cancel";
0 @- [. m& e  l# W! F. Z& a                end;
                eventcontroller.stop;
0 q1 @4 H2 d! f% k" L" h3 W        end;
       
/ V9 ]" Y- ~. G# W0 F        for i:=1 to number_of_machine loop
) w( P/ A- R7 l4 l% b$ M3 C# D8 [        machinename:=sprint("M",i);
0 a# m* T: }) J5 c2 n! A% d% N        if existsobject(machinename) then
7 w+ F) F5 s* |1 r3 A3 t                machine:=str_to_obj(machinename);
0 l7 ?9 M  p# R2 m                machine.deleteobject;
3 f  h' w: u, |. H        end;
9 j7 B2 h, O$ R$ T9 G( B        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! K% ^8 |  L0 q7 k" E                buf.deleteobject;
- ^1 C9 g% w# A6 I        end;
2 R; u# x1 R  k7 t" ]        next;
       
- X& v) V3 Q- @$ U. i7 X  l. a        dx:=0;
' C+ m6 u$ O% Y/ }        dy:=0;
        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]类型不匹配
! n1 {+ B8 y5 [/ f1 y4 d                then
- U; b5 a; s* E/ z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. k9 o3 _* e, E  |! g" V                        print activityspace[1,rows],",",activityspace[2,rows];
! }6 O* k) v$ e$ _# x! N                        ct:=activityspace[2,rows];
+ A/ H- ]# x8 O! s                        activityspace[2,rows]:=activityspace[1,rows];
% J7 A3 s8 k) y+ p6 U                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
& x6 R- @  u/ E# W' _8 s: _# r2 O                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 c' O$ ^9 q- w1 X: Z4 {- R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) d% z7 F! X0 D. t$ W            if activityspace[2,rows]>dy then
: I4 q4 o% L' V! x                        dy:=activityspace[2,rows];
! N# q6 C5 d  _% S# U6 V& O                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 g6 I! @# i' n0 V0 a0 A                        end;*/
" X$ X) P. O, a        next;
        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);
% g9 `8 m( F8 ]3 z# X3 o: s8 }        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);
0 D  M- y9 _0 K9 y       
        rows:=0;
7 X- F8 l1 |" P4 F# b: \        lines:=0;
) h/ v! c4 e8 x        for i:=1 to number_of_machine loop
; T( x$ U: d' L                for j:=1 to number_of_machine loop
                        if j=i then
8 v  Q$ Q# z$ k9 J4 T' {                                d_from_to_chart[j,i]:=0;
9 m' E! ~! n. V                        else
+ M2 L2 F2 H$ M" |8 B. i5 {! v                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ Y# q& @# j) r' L  P9 l& Q                                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);
3 U2 W% ?& G  p" B5 ]$ _3 |                        end;
                next;
0 f8 |& X; @, {) V/ J5 e        next;
9 n  q1 Y, [8 l/ F+ l       
" h9 M/ F( v. [6 {" M        lines:=0;
        partstable.delete;
       
! q; v3 V/ S; W8 i1 H        for i:=1 to number_of_machine loop
- T. v8 P) r# n- L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ c- Q# U1 f$ V4 F7 s  a) r* W5 K% i! l                machinesequence[2,i]:=rows;
1 S4 j: r2 `: m, o                for j:=1 to number_of_machine loop
' t5 i% G( C6 y# t. c' {4 s/ L4 w2 a                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 f) E* |$ b. B$ k; ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% q; J9 D& S2 f6 N: i( w. {                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- W* D* y# X1 Q; w                        partstable[5,lines]:=rows;
9 |2 @4 t& ]6 p; ~( O* Q                        partstable[6,lines]:=j;
                end;
        next;
# \5 [5 v7 v1 M: J( |2 d$ W        machinename:=sprint("M",rows);
" d, `! X& }% G" k0 e! 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]);
: e: F$ M* ~2 b. _        machine.name:=machinename;标识符未知
' J" {% w- w, J3 B% z+ [% ]$ Z- z        machine.proctime:=5;
6 p& H; g7 O  ~. s- ?        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( v' a8 D( b1 |) ~' x        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]);
/ K3 _+ S1 M3 O) j        buf.name:=bufname;
9 ~. u* Z4 z; }' K        buf.capacity:=5000;
+ t2 U* H: B5 L/ h) N        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 F3 Y- q' l3 T: |0 n$ E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  ]' P# Z  Z" J/ W9 |5 D& p# L5 Udy:=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);
/ l/ p/ [( g* A. U6 ~next;
0 I/ [& I7 h* l) \+ E* ]  oend;
) G" M5 x; k) X" X% {+ _