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

zooey

is
        mark:boolean;
; H, v  }3 j$ j* J: n' c  U1 E        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 O) D4 @, h" ^1 n, a9 l0 i- }9 J    machinename,bufname:string;
    machine,buf:object;
5 K: L7 ~( z8 G6 A9 X$ e9 D6 Ido
+ _: `* O( X  {! S5 A! p" m        current.eraselayer(1);
( J$ }  g; J4 s0 |* i, W       
5 C7 ~. V! V0 h' b9 z$ a% G; B. h        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
7 j6 f* [2 ^" Z! P                        print"yes";
1 `; G! A$ w! B! ^, W                when 32 then
                        print"no";
2 E# j9 k4 N8 b2 u# {" Y8 E                else
4 K6 n4 ?( y3 S8 U) m                        print"cancel";
                end;
                eventcontroller.stop;
        end;
" a' K  i: L- s) L6 ~5 W) c       
2 ]0 j% C" K: E7 |3 N  d7 _4 F        for i:=1 to number_of_machine loop
+ ?4 X0 R$ r7 a& J        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 i+ i2 b0 ?: g& j) _        next;
       
& l  Z2 o' c+ c- S4 V' V        dx:=0;
* E2 r/ P( A0 E- F! v; L) x* V        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 T  |* m. ]( m4 ?8 h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 D0 E. y4 L+ C  t+ Y( ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, N$ g  H4 i- o" \/ D0 T% |* @                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
- o6 v) A9 q/ n                        ct:=activityspace[2,rows];
8 K0 s& [  R: [; A  e- G( L                        activityspace[2,rows]:=activityspace[1,rows];
) t5 U7 H( F9 p                        activityspace[1,rows]:=ct;
                        mark:=true;
7 V) [) X& b. V4 M+ h' R                        else*/
                        y_max:=y_max+dy;
% D7 K, W' V: ^- H$ H! U, T& `  Z                        dx:=0;
                dy:=0;
' k: F& L* F& j2 `& J                        --end;
" y; k, y' ?: E4 A4 M$ C; \                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 a" _. i! j. X8 @% m. p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  n* ^" b  P* E5 G& z            if activityspace[2,rows]>dy then
' @1 }" }+ F" V                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# Q  ^3 ]. h* {2 \  A& h& P  X. w' y                ct:=activityspace[2,rows];
2 ?/ |# q6 ~2 T/ L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! i% v6 O. E: l        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);
- q5 I" H+ K( }* E( A* R6 s. D        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);
5 i$ V$ Z# L& A% p       
" p" V8 d( p; ?" [4 N4 Q        rows:=0;
        lines:=0;
/ ~) e+ U$ p$ d7 s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 g$ n' y# N3 l8 m8 s                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 W, _, w: l- c+ F( l. d                        else
: h* j/ b! j( K" r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 W; Q8 Y' F3 [' I* W                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 e, Q- k  R$ T. N                                d_from_to_chart[j,i]:=abs(dx-dy);
; j* T9 {4 e& G# R/ x" A                        end;
                next;
$ _* {* D( R9 Z4 `! L) u% ?        next;
       
  X0 Y# k9 I+ T1 \- r: i7 m& y7 E6 w5 z, w        lines:=0;
        partstable.delete;
3 z2 \/ r) e8 E% M4 V       
        for i:=1 to number_of_machine loop
& {( F: w* u1 k/ c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 N+ z# b; }: o8 n" N% v                machinesequence[2,i]:=rows;
0 Z# ?- J( M( p* `4 q                for j:=1 to number_of_machine loop
: d# j+ n  u# R7 M* t. _                        if w_from_to_chart[j,rows]>0 then
* ~; Z  o$ m, `9 k: X: W2 ?                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ {! V3 b' a; d& t; l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; x( _% w1 J' P0 K+ F                end;
        next;
        machinename:=sprint("M",rows);
        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]);
' A6 D9 e9 `! Z  \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
! @- G" ^/ J' X! k1 |, m- n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, p! ~% m1 `2 |3 q- Z& X# Q       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- s- T* P" x! W: K0 B$ q       
+ v, A9 A  H' s& l  N9 p; m        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, @4 H8 k) x8 ]/ o- cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, n& I6 h5 B3 @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 V1 u0 s5 h" H: Rnext;
end;