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

zooey

is
        mark:boolean;
' j; Y6 a" X- i7 o        dx,dy,ct:real;
+ x  Z. g+ `+ @4 g7 C) e5 P1 Q    i,j,rows,lines:integer;
6 j: ^  w- c$ w9 ?# Q/ a5 F4 e    machinename,bufname:string;
( N7 \  b/ I1 c2 f* N3 Q$ U    machine,buf:object;
do
5 t# [- G0 I3 ^/ U3 U0 n6 l% P7 q        current.eraselayer(1);
       
4 f; ]+ N. s0 m4 F( W3 @5 u2 c        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";
                when 32 then
5 A( f4 Z# @& R                        print"no";
7 I2 P+ z" {& e; [- `1 [                else
2 j/ [1 k0 J2 X$ ?6 r( O                        print"cancel";
                end;
  ^/ n7 m* \( \: N                eventcontroller.stop;
        end;
& S5 K( x7 P5 O) Y3 @       
( N2 v' w0 c( m" q4 F! e        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, \; o% v6 {( L+ h# U/ R# ~        if existsobject(machinename) then
% u) u" z: E( X5 _                machine:=str_to_obj(machinename);
                machine.deleteobject;
( f2 p5 V3 v1 u& A        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  l6 v2 S5 J0 p                buf.deleteobject;
1 M1 Q) J9 O9 f0 g, R        end;
        next;
, }2 j) e$ ~" v' ]$ p2 i5 h+ b       
        dx:=0;
        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]类型不匹配
6 @5 q0 o/ M! N: c                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];
2 d* T- w# p0 A/ _% M                        activityspace[2,rows]:=activityspace[1,rows];
# _; e! l" w: _9 [0 J                        activityspace[1,rows]:=ct;
                        mark:=true;
+ R) g5 }; g) v! q# I                        else*/
9 J) O9 d! K" c9 o6 d; X3 }4 ]                        y_max:=y_max+dy;
. ]# U1 }/ T' Y! a7 s) K                        dx:=0;
                dy:=0;
# y8 H- ]  [1 w+ S% `: e( u                        --end;
) ]# Z/ u3 L3 N3 q  [$ s( M                end;
  G: a/ ]: R! K% \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 U% v# W3 a/ }( \9 d1 c! F4 K, ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 R7 k2 w- w' J            if activityspace[2,rows]>dy then
* _8 T% Q5 W# x9 Z0 h                        dy:=activityspace[2,rows];
5 e2 A0 W# F& ~3 d' g                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 Y) C" I! M4 u* k. B                ct:=activityspace[2,rows];
$ z& S9 g$ f; D/ B0 Q: y. X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ y) _. t' q' q        y_max:=y_max+dy;
1 ~: l4 I, f/ L9 [3 X+ g        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);
       
        rows:=0;
        lines:=0;
0 n& Y9 q- R- [' b, c' [' g# q        for i:=1 to number_of_machine loop
. @$ g4 e: }: i3 s                for j:=1 to number_of_machine loop
: q+ \7 O% b1 ]7 A2 M. h. V                        if j=i then
! C& Z4 q. x! P2 e. V4 J1 Z/ Y1 F                                d_from_to_chart[j,i]:=0;
                        else
# F/ y# `' u4 t+ q  p! H                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ O. Q/ K* X, d% `* r9 \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% w+ T/ v* R, b: l& U) y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 |" f- `5 c  O( I. F                next;
; {4 l$ {- E, }" W7 ]; A1 r        next;
" L3 \$ o0 ^4 w       
, i* b9 f# h7 J- Y6 a        lines:=0;
        partstable.delete;
       
% u9 Z8 Q; y) ~% L* |- L        for i:=1 to number_of_machine loop
. Y4 M7 r- g- \% I3 i: E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 d( Y6 t' R3 f0 F                for j:=1 to number_of_machine loop
  O9 I5 ?, Q0 d2 \8 T2 F                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ M/ |' b/ ?- ]( a( ]# e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 i/ ~6 X# L; Z' G* `# ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 h5 @% E1 P- m                end;
- {  X  G) J% H9 p        next;
9 F* y& L1 e6 u        machinename:=sprint("M",rows);
. m% D( S( u! _( E* a6 L7 J2 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]);
9 N% K0 _; V) S9 L% |        machine.name:=machinename;标识符未知
" ^6 ]0 {) G0 h' {* i        machine.proctime:=5;
% ^6 D7 K$ y; u& a$ X% k3 {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  y1 F, ?! i% T2 g: l# d: l       
' m! m- ^) z  Y9 {7 \1 [$ T5 \        bufname:=sprint("BF",rows);
4 p5 K: q% b' Z: D6 t        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 O7 J+ p# a7 j1 [! f3 H7 j        buf.name:=bufname;
; X: y5 y( ~% ?: P2 Y        buf.capacity:=5000;
) W4 r) f+ c5 n: T- _  \8 X! a        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 H+ D8 h6 P9 m5 ]- g# Q  }! J+ _$ o       
& h4 u8 Z) X/ d" }' d        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& V$ X! {! |+ T# b7 b3 Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 n, I8 U& K2 M* M# C% C- k% C, N! ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! [+ _6 f7 [1 u% Anext;
end;