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

zooey

is
        mark:boolean;
7 X( Q/ ~0 \/ U7 {. q! N/ v        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
# M& R: _4 y0 K3 r, P2 [8 Y    machine,buf:object;
. |2 U# B/ g  c0 W! j1 \do
% z6 H/ \# d* g; V( p        current.eraselayer(1);
: A0 L5 V% `6 d% D4 v$ z       
) N' t" K$ |6 w2 P7 q$ u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. x$ @- F( a! A7 W( k                inspect messagebox("设施数目不对！请核查...,",50,13)
( }3 \1 G/ k% ^' m: G  Q                when 16 then
. L) z, Z8 z: b5 t8 Z- T                        print"yes";
. c+ c$ d$ Q' p7 E( b3 S                when 32 then
' e6 m- U, }- c& P                        print"no";
6 R2 v/ i# T, h                else
                        print"cancel";
                end;
2 J* C+ f5 p4 A1 U+ o) v  x                eventcontroller.stop;
' d4 F. r7 \7 \6 Z. M' ?        end;
       
' t! S1 O! u& h1 G8 T        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 W4 ?( s& C" u8 f( V: {' E        if existsobject(machinename) then
5 y& U$ H. v& R* \1 j5 f5 l( M                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ X* b; L2 p6 M$ @% S  ?; R+ x$ A        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
! P8 w+ l' G7 i+ l; w8 Z# s% k4 i        end;
        next;
; ^8 X2 [4 {7 K0 M8 T       
, Y1 N& t+ }6 f$ o' C6 T; @        dx:=0;
( y% a6 E9 `! \3 Z7 G& b6 q        dy:=0;
& a( b* p2 Z( n$ q+ ?        for i:=1 to number_of_machine loop
- j! |1 v( h0 g+ a6 Y0 j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                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
( }( `" f( L  Z                        print activityspace[1,rows],",",activityspace[2,rows];
/ I, L8 q& D! E% z                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 F7 Z/ K; W3 f                        activityspace[1,rows]:=ct;
. _1 q, \5 a2 U1 E  Y3 |/ A                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, |" z: J2 c9 w/ ?% R1 `2 ]                        dx:=0;
                dy:=0;
                        --end;
                end;
; P1 C9 D" c0 m$ a* I8 f1 B                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;
            if activityspace[2,rows]>dy then
1 J  \, A$ j. J                        dy:=activityspace[2,rows];
' H2 u% t6 X; |                end;
- T; R+ O; b4 R+ J- `& }; Z! Y! H                dx:=dx+activityspace[1,rows];
. _+ R; u5 ]5 h& t& q                /*if mark=true then
                ct:=activityspace[2,rows];
4 ~* \6 B  _( U4 j7 V) ~+ Y4 W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
0 ?; ^$ T* w8 d' x+ u  t# C$ y        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);
" U% z- ^& R$ f5 |6 ^3 }        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;
; U  W+ w: H+ ~8 k( t        lines:=0;
; z6 l+ l  q0 ^/ _        for i:=1 to number_of_machine loop
1 S0 c, y1 B3 l4 T1 j. t                for j:=1 to number_of_machine loop
                        if j=i then
! t) C' c6 r4 \# l9 k                                d_from_to_chart[j,i]:=0;
& }5 c) `7 M2 T/ ^                        else
( l7 n3 w- ~; c7 {- R+ A0 c                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 }, ~, V4 P: K  @) f9 P1 A                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- ?& o- b1 Z1 ]8 q                                d_from_to_chart[j,i]:=abs(dx-dy);
3 @! O( k% `0 }  B; \6 v; H                        end;
                next;
" V" O( q; Q% R) W        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
- w7 }9 Z% c4 J( n& ^) D7 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, x) U( Q5 J0 Q9 e                        if w_from_to_chart[j,rows]>0 then
                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ z- N% J& ?7 L; ^! q        machine.exitctrl:=ref(leave);
3 Y  g6 O0 {4 s1 P6 p9 i       
        bufname:=sprint("BF",rows);
* |3 t6 W& D4 g( F        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]);
$ E1 L" M# j/ b        buf.name:=bufname;
        buf.capacity:=5000;
  F% `1 c( T- K" a        buf.proctime:=0;
7 R! _; y& q. U/ a( K7 G! S        .materialflow.connector.connect(buf,machine);
4 v1 H6 r; g! {1 j% k' j       
$ K, T/ h  x$ v/ j* C        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;
, G# }: k; O( r: Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
. G9 `2 n% j+ t+ K* mend;