$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>IRM>CHAPRECORDPACKAGE.TEDIT!1
0000000 C o p y r i g h t ( c ) 1 9
0000020 8 6 X e r o x C o r p o r a
0000040 t i o n . A l l r i g h t
0000060 s r e s e r v e d . \r \r 2 \r \r
0000100 8 . 9 \t B u i l t - I n a
0000120 n d U s e r D a t a T y p
0000140 e s \r 1 \r \r I n t e r l i s p
0000160 i s a s y s t e m f o r
0000200 t h e m a n i p u l a t i o n
0000220 o f v a r i o u s k i n d
0000240 s o f d a t a ; i t p r
0000260 o v i d e s a l a r g e s
0000300 e t o f b u i l t - i n d
0000320 a t a t y p e s , w h i c h
0000340 m a y b e u s e d t o
0000360 r e p r e s e n t a v a r i
0000400 e t y o f a b s t r a c t
0000420 o b j e c t s , a n d t h e
0000440 u s e r c a n a l s o d
0000460 e f i n e a d d i t i o n a l
0000500 " u s e r d a t a t y p e
0000520 s " w h i c h c a n b e
0000540 m a n i p u l a t e d e x a c
0000560 t l y l i k e b u i l t - i
0000600 n d a t a t y p e s . \r E a
0000620 c h d a t a t y p e i n
0000640 I n t e r l i s p h a s a n
0000660 a s s o c i a t e d " t y p
0000700 e n a m e , " a l i t a t
0000720 o m . S o m e o f t h e
0000740 t y p e n a m e s o f b
0000760 u i l t - i n d a t a t y p
0001000 e s a r e : L I T A T O M
0001020 , L I S T P , S T R I N G P
0001040 , A R R A Y P , S T A C K P
0001060 , S M A L L P , F I X P ,
0001100 a n d F L O A T P . F o r
0001120 u s e r d a t a t y p e s
0001140 , t h e t y p e n a m e
0001160 i s s p e c i f i e d w h e
0001200 n t h e d a t a t y p e
0001220 i s c r e a t e d . \r ( D A T
0001240 A T 377 377 \0 \0 Y \0 P \0 E \0 S \0 357
0001260 % \0 ) \0 \0 \0 \t \0 [ \0 F \0 u \0
0001300 n \0 c \0 t \0 i \0 o \0 n \0 ] \0 \r 1
0001320 \r \r 377 \0 R e t u r n s a l i
0001340 s t o f a l l t y p e n
0001360 a m e s c u r r e n t l y d
0001400 e f i n e d . \r 1 \r \r ( U S E R
0001420 D A T A T Y P E S ) \t [ F u
0001440 n c t i o n ] \r 1 \r \r R e t u r
0001460 n s l i s t o f n a m e s
0001500 o f c u r r e n t l y d e
0001520 c l a r e d u s e r d a t a
0001540 t y p e s . \r 1 \r \r ( T Y P E
0001560 N A M E D A T U M ) \t [ F
0001600 u n c t i o n ] \r 1 \r \r R e t u
0001620 r n s t h e t y p e n a m
0001640 e f o r t h e d a t a t
0001660 y p e o f D A T U M . \r 1 \r
0001700 \r ( T Y P E N A M E P D A T U
0001720 M T Y P E ) \t [ F u n c t
0001740 i o n ] \r 1 \r \r R e t u r n s
0001760 T i f D A T U M i s a n
0002000 o b j e c t w i t h t y p
0002020 e n a m e e q u a l t o
0002040 T Y P E , o t h e r w i s e
0002060 N I L . \r 1 \r \r N o t e : T
0002100 Y P E N A M E a n d T Y P E
0002120 N A M E P d i s t i n g u i s
0002140 h t h e l o g i c a l d a
0002160 t a t y p e s A R R A Y P ,
0002200 C C O D E P a n d H A R R
0002220 A Y P , e v e n t h o u g h
0002240 t h e y m a y b e i m p
0002260 l e m e n t e d a s A R R A
0002300 Y P s i n s o m e I n t e
0002320 r l i s p i m p l e m e n t a
0002340 t i o n s . \r I n a d d i t i
0002360 o n t o b u i l t - i n d
0002400 a t a - t y p e s s u c h a
0002420 s a t o m s , l i s t s ,
0002440 a r r a y s , e t c . , I n
0002460 t e r l i s p p r o v i d e s
0002500 a w a y o f d e f i n i
0002520 n g c o m p l e t e l y n e
0002540 w c l a s s e s o f o b j
0002560 e c t s , w i t h a f i x
0002600 e d n u m b e r o f f i e
0002620 l d s d e t e r m i n e d b
0002640 y t h e d e f i n i t i o n
0002660 o f t h e d a t a t y p
0002700 e . I n o r d e r t o
0002720 d e f i n e a n e w c l a
0002740 s s o f o b j e c t s , t
0002760 h e u s e r m u s t s u p
0003000 p l y a n a m e f o r t
0003020 h e n e w d a t a t y p e
0003040 a n d s p e c i f i c a t i
0003060 o n s f o r e a c h o f
0003100 i t s f i e l d s . E a c
0003120 h f i e l d m a y c o n t
0003140 a i n e i t h e r a p o i
0003160 n t e r ( i . e . , a n y
0003200 a r b i t r a r y I n t e r l
0003220 i s p d a t u m ) , a n i
0003240 n t e g e r , a f l o a t i
0003260 n g p o i n t n u m b e r ,
0003300 o r a n N - b i t i n t
0003320 e g e r . \r N o t e : T h e
0003340 m o s t c o n v e n i e n t
0003360 w a y t o d e f i n e n
0003400 e w u s e r d a t a t y p
0003420 e s i s v i a D A T A T Y
0003440 P E r e c o r d d e c l a r
0003460 a t i o n s ( ( " D A T A T Y
0003500 P E " . R e c o r d T y p e
0003520 ) 377 377 \0 \0 ) \0 \0 w \0 h \0 i \0 c
0003540 \0 h \0 \0 c \0 a \0 l \0 l \0 \0 t
0003560 \0 h \0 e \0 \0 f \0 o \0 l \0 l \0 o
0003600 \0 w \0 i \0 n \0 g \0 \0 f \0 u \0 n
0003620 \0 c \0 t \0 i \0 o \0 n \0 s \0 . \0 \r
0003640 \0 ( \0 D \0 E \0 C \0 L \0 A \0 R \0 E
0003660 \0 D \0 A \0 T \0 A \0 T \0 Y \0 P \0 E
0003700 \0 \0 T \0 Y \0 P \0 E \0 N \0 A \0 M
0003720 \0 E \0 \0 F \0 I \0 E \0 L \0 D \0 S
0003740 \0 P \0 E \0 C \0 S \0 357 % \0 357 %
0003760 \0 ) \0 \0 \0 \t \0 [ \0 F \0 u \0 n
0004000 \0 c \0 t \0 i \0 o \0 n \0 ] \0 \r 1 \r
0004020 \r 377 \0 D e f i n e s a n e w
0004040 u s e r d a t a t y p e ,
0004060 w i t h t h e n a m e T
0004100 Y P E N A M E . F I E L D S
0004120 P E C S i s a l i s t o
0004140 f " f i e l d s p e c i f i
0004160 c a t i o n s . " E a c h
0004200 f i e l d s p e c i f i c a t
0004220 i o n m a y b e o n e o
0004240 f t h e f o l l o w i n g :
0004260 \r \t P O I N T E R \t F i e l d
0004300 m a y c o n t a i n a n y
0004320 I n t e r l i s p d a t u m .
0004340 \r \t F I X P \t F i e l d c o n
0004360 t a i n s a n i n t e g e r
0004400 . \r \t F L O A T P \t F i e l d
0004420 c o n t a i n s a f l o a t
0004440 i n g p o i n t n u m b e r
0004460 . \r \t ( B I T S N ) \t F i e l
0004500 d c o n t a i n s a n o n
0004520 - n e g a t i v e i n t e g e
0004540 r l e s s t h a n 2 N . \r
0004560 \t B Y T E \t E q u i v a l e n t
0004600 t o ( B I T S 8 ) . \r \t W
0004620 O R D \t E q u i v a l e n t t
0004640 o ( B I T S 1 6 ) . \r \t S I
0004660 G N E D W O R D \t F i e l d c
0004700 o n t a i n s a 1 6 b i t
0004720 s i g n e d i n t e g e r .
0004740 \r D E C L A R E D A T A T Y P E
0004760 r e t u r n s a l i s t
0005000 o f " f i e l d d e s c r i
0005020 p t o r s , " o n e f o r
0005040 e a c h e l e m e n t o f
0005060 F I E L D S P E C S . A f
0005100 i e l d d e s c r i p t o r
0005120 c o n t a i n s i n f o r m a
0005140 t i o n a b o u t w h e r e
0005160 w i t h i n t h e d a t u
0005200 m t h e f i e l d i s a
0005220 c t u a l l y s t o r e d . \r
0005240 I f F I E L D S P E C S i s
0005260 N I L , T Y P E N A M E i
0005300 s " u n d e c l a r e d . "
0005320 I f T Y P E N A M E i s
0005340 a l r e a d y d e c l a r e d
0005360 a s a d a t a t y p e ,
0005400 i t i s u n d e c l a r e
0005420 d , a n d t h e n r e - d
0005440 e c l a r e d w i t h t h e
0005460 n e w F I E L D S P E C S .
0005500 A n i n s t a n c e o f
0005520 a d a t a t y p e t h a
0005540 t h a s b e e n u n d e c
0005560 l a r e d h a s a t y p e
0005600 n a m e o f * * D E A L L
0005620 O C * * . \r 1 \r \r ( F E T C H F
0005640 I E L D D E S C R I P T O R
0005660 D A T U M ) \t [ F u n c t i
0005700 o n ] \r 1 \r \r R e t u r n s t
0005720 h e c o n t e n t s o f t
0005740 h e f i e l d d e s c r i b
0005760 e d b y D E S C R I P T O R
0006000 f r o m D A T U M . D E
0006020 S C R I P T O R m u s t b e
0006040 a " f i e l d d e s c r i
0006060 p t o r " a s r e t u r n e
0006100 d b y D E C L A R E D A T A
0006120 T Y P E o r G E T D E S C R
0006140 I P T O R S . I f D A T U
0006160 M i s n o t a n i n s t
0006200 a n c e o f t h e d a t a
0006220 t y p e o f w h i c h D E
0006240 S C R I P T O R i s a d e
0006260 s c r i p t o r , c a u s e s
0006300 e r r o r D A T U M O F
0006320 I N C O R R E C T T Y P E . \r
0006340 1 \r \r ( R E P L A C E F I E L D
0006360 D E S C R I P T O R D A T U
0006400 M N E W V A L U E ) \t [ F
0006420 u n c t i o n ] \r 1 \r \r S t o r
0006440 e N E W V A L U E i n t o
0006460 t h e f i e l d o f D A T
0006500 U M d e s c r i b e d b y
0006520 D E S C R I P T O R . D E S
0006540 C R I P T O R m u s t b e
0006560 a f i e l d d e s c r i p t
0006600 o r a s r e t u r n e d b
0006620 y D E C L A R E D A T A T Y P
0006640 E . I f D A T U M i s
0006660 n o t a n i n s t a n c e
0006700 o f t h e d a t a t y p e
0006720 o f w h i c h D E S C R I P
0006740 T O R i s a d e s c r i p
0006760 t o r , c a u s e s e r r o
0007000 r D A T U M O F I N C O R
0007020 R E C T T Y P E . V a l u
0007040 e i s N E W V A L U E . \r 1
0007060 \r \r ( N C R E A T E T Y P E
0007100 O L D O B J ) \t [ F u n c t
0007120 i o n ] \r 1 \r \r C r e a t e s
0007140 a n d r e t u r n s a n e
0007160 w i n s t a n c e o f d a
0007200 t a t y p e T Y P E . \r I f
0007220 O L D O B J i s a l s o a
0007240 d a t u m o f d a t a t y
0007260 p e T Y P E , t h e f i e
0007300 l d s o f t h e n e w o
0007320 b j e c t a r e i n i t i a
0007340 l i z e d t o t h e v a l
0007360 u e s o f t h e c o r r e
0007400 s p o n d i n g f i e l d s
0007420 i n O L D O B J . \r N C R E A
0007440 T E w i l l n o t w o r k
0007460 f o r b u i l t - i n d a
0007500 t a t y p e s , s u c h a s
0007520 A R R A Y P , S T R I N G P
0007540 , e t c . I f T Y P E
0007560 i s n o t t h e t y p e
0007600 n a m e o f a p r e v i o
0007620 u s l y d e c l a r e d u s
0007640 e r d a t a t y p e , g e
0007660 n e r a t e s a n e r r o r
0007700 , I L L E G A L D A T A T
0007720 Y P E . \r 1 \r \r ( G E T F I E L
0007740 D S P E C S T Y P E N A M E )
0007760 \t [ F u n c t i o n ] \r 1 \r
0010000 \r R e t u r n s a l i s t
0010020 w h i c h i s E Q U A L t
0010040 o t h e F I E L D S P E C S
0010060 a r g u m e n t g i v e n
0010100 t o D E C L A R E D A T A T Y
0010120 P E f o r T Y P E N A M E ;
0010140 i f T Y P E N A M E i s
0010160 n o t a c u r r e n t l y
0010200 d e c l a r e d d a t a - t y
0010220 p e , r e t u r n s N I L .
0010240 \r 1 \r \r ( G E T D E S C R I P T
0010260 O R S T Y P E N A M E ) \t
0010300 [ F u n c t i o n ] \r 1 \r \r R e
0010320 t u r n s a l i s t o f
0010340 f i e l d d e s c r i p t o r
0010360 s , E Q U A L t o t h e
0010400 v a l u e o f D E C L A R E
0010420 D A T A T Y P E f o r T Y P
0010440 E N A M E . I f T Y P E N
0010460 A M E i s n o t a n a t
0010500 o m , ( T Y P E N A M E T Y
0010520 P E N A M E ) i s u s e d .
0010540 \r 1 \r \r N o t e t h a t t h
0010560 e u s e r c a n d e f i n
0010600 e h o w u s e r d a t a
0010620 t y p e s a r e t o b e
0010640 p r i n t e d v i a D E F P
0010660 R I N T ( ( " D E F P R I N T
0010700 " . F u n c t i o n ) ) ,
0010720 h o w t h e y a r e t o
0010740 b e e v a l u a t e d b y
0010760 t h e i n t e r p r e t e r
0011000 v i a D E F E V A L ( ( " D
0011020 E F E V A L " . F u n c t i
0011040 o n ) ) , a n d h o w t h
0011060 e y a r e t o b e c o m
0011100 p i l e d b y t h e c o m
0011120 p i l e r v i a C O M P I L
0011140 E T Y P E L S T ( ( " C O M P
0011160 I L E T Y P E L S T " . V a
0011200 r i a b l e ) ) . \r \0 \0 \0 \0 \0 005
0011220 \0 \n \0 1 \0 \0 \0 314 001 370 \0 005 \0 \0 \0 \0
0011240 003 004 \0 022 002 \0 272 001 \0 314 \0 \0 \0 \0 \0 \0
0011260 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011300 \0 \0 \0 \0 ( \0 314 \0 314 001 370 \0 022 \0 \0 \0
0011320 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 314 \0
0011360 314 001 370 \0 \0 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0
0011400 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011420 \0 \0 \0 \0 ) \0 K \0 K 001 370 \0 \0 \0 \0 \0
0011440 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011460 \0 \0 \0 \0 \0 \0 001 T \0 \0 \0 \0 \0 / \0 K
0011500 \0 314 001 370 \0 022 \0 \0 \0 \0 003 001 \0 001 001 001
0011520 370 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011540 \0 \0 \0 \0 \0 001 T \0 \0 \0 \0 \0 ( \0 \0 \0
0011560 \0 001 370 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0
0011600 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011620 \0 \0 \0 \0 . \0 \0 \0 \0 001 370 \0 \0 \0 \0 \0
0011640 \0 003 001 \0 022 001 \0 ( \0 \0 \0 \0 \0 \0 \0 \0
0011660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011700 \0 \0 ( \0 \0 \0 \0 001 370 \0 7 \0 \0 \0 \0 002
0011720 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0011740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 314 \0 314 001
0011760 370 \0 005 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0
0012000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0012020 \0 \0 ( \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002
0012040 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0012060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0
0012100 006 \0 024 \0 006 M O D E R N \0 \n \0 003 \0
0012120 \0 \0 \0 001 \0 \0 024 \0 006 M O D E R N \0
0012140 \n \0 \0 \0 \0 \0 \0 001 \0 \0 024 \0 006 M O D
0012160 E R N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0
0012200 006 M O D E R N \0 016 \0 \0 \0 \0 \0 \0 002
0012220 \0 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0
0012240 \0 \0 \0 \0 \0 \0 ? \0 1 ( D E F A U L
0012260 T F O N T 1 ( G A C H A 1
0012300 0 ) ( G A C H A 8 ) ( T E
0012320 R M I N A L 8 ) ) \0 \n \0 \0 \0 \0
0012340 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 001
0012360 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \b \0 \0 \0
0012400 002 \0 001 \0 \v H R U L E . G E T F N
0012420 001 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0
0012440 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0
0012460 \0 \0 \0 002 \0 \a \0 \0 \0 # \0 \0 \0 \0 004 \0
0012500 \0 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 001 \0 \v H
0012520 R U L E . G E T F N 001 \0 024 \0 006 M
0012540 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0012560 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \t
0012600 \0 \0 001 ( \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0012620 \t \0 \0 \0 { \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0
0012640 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 005
0012660 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0012700 \0 \a \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005
0012720 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0
0012740 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 002 \0
0012760 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0
0013000 002 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0
0013020 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0
0013040 003 \0 \0 \0 R \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0013060 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 \r \0
0013100 \0 002 \0 003 \0 \0 \0 002 \0 \0 002 \0 002 \0 \0 \0
0013120 002 \0 \0 002 \0 003 \0 \0 \0 034 \0 \0 002 \0 005 \0
0013140 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H
0013160 R U L E . G E T F N 001 \0 024 \0 006 M
0013200 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0013220 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003
0013240 \0 \0 \0 6 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0013260 003 \0 \0 \0 002 \0 001 \0 \v H R U L E . G
0013300 E T F N 001 \0 024 \0 006 M O D E R N \0
0013320 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0
0013340 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 017 \0 \0
0013360 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \0
0013400 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L
0013420 E . G E T F N 001 \0 024 \0 006 M O D E
0013440 R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001
0013460 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0
0013500 = \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0
0013520 \0 002 \0 001 \0 \v H R U L E . G E T F
0013540 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0
0013560 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0013600 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \n \0 \0 \0 \0 003
0013620 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0
0013640 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0013660 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L E
0013700 . G E T F N 001 \0 024 \0 006 M O D E R
0013720 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0
0013740 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 +
0013760 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0014000 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0
0014020 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0014040 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0014060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0014100 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \v \0 \0 \0 \0
0014120 003 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0
0014140 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \0
0014160 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L
0014200 E . G E T F N 001 \0 024 \0 006 M O D E
0014220 R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001
0014240 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0
0014260 \b \0 \0 \0 \0 005 \0 \0 \0 001 \0 \0 \0 \0 003 \0
0014300 \0 \0 004 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0
0014320 002 \0 \0 \0 & \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0
0014340 \0 \0 002 \0 \0 \0 \f \0 \0 \0 \0 005 \0 \0 \0 003
0014360 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0014400 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R
0014420 U L E . G E T F N 001 \0 024 \0 006 M O
0014440 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0014460 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0
0014500 \0 \0 \a \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0
0014520 003 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0
0014540 \0 \0 003 \0 \0 \0 $ \0 \0 \0 \0 005 \0 \0 \0 006
0014560 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0014600 \0 006 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 005
0014620 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0 \0 ) \0 \0 \0
0014640 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 % \0
0014660 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 w
0014700 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 002 \0 \0
0014720 001 f \0 \0 \0 \0 005 \0 \0 \0 001 \0 \0 \0 \0 002
0014740 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0014760 \t \0 \0 \0 D \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0
0015000 \0 \0 003 \0 \0 \0 026 \0 \0 \0 \0 005 \0 \0 \0 031
0015020 \0 001 \0 \f I R M . G E T . C R E F
0015040 \0 \0 \0 \0 O \0 \0 002 \0 005 \0 \0 \0 \0 \0 002
0015060 \0 005 \0 \0 \0 " \0 \0 002 \0 003 \0 \0 \0 . \0
0015100 \0 002 \0 002 \0 \0 \0 002 \0 \0 002 \0 003 \0 \0 \0
0015120 034 \0 \0 002 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0
0015140 \0 002 \0 001 \0 \v H R U L E . G E T F
0015160 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0
0015200 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0015220 \0 \0 \0 \0 002 \0 003 \0 \0 \0 . \0 \0 \0 \0 005
0015240 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 003 \0 \0 \0
0015260 \0 005 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 ] \0
0015300 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 001
0015320 \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0
0015340 \0 ( \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0
0015360 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0
0015400 003 \0 \0 \0 034 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0015420 \0 001 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 006 \0
0015440 \0 \0 \0 003 \0 \0 \0 ) \0 \0 \0 \0 005 \0 \0 \0
0015460 \0 \0 002 \0 001 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0
0015500 \0 006 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 002
0015520 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 2 \0 \0 \0
0015540 \0 005 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 002 \0
0015560 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 001
0015600 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0
0015620 \0 017 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 003
0015640 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0015660 001 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0
0015700 \0 \0 003 \0 \0 \0 017 \0 \0 \0 \0 005 \0 \0 \0 \t
0015720 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0015740 \0 \0 \0 002 \0 001 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0015760 \0 \0 \n \0 \0 \0 \0 003 \0 \0 \0 ) \0 \0 \0 \0
0016000 005 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 017 \0 \0 \0
0016020 \0 003 \0 \0 \0 @ \0 \0 \0 \0 005 \0 \0 \0 \n \0
0016040 \0 \0 \0 002 \0 \0 \0 f \0 \0 \0 \0 005 \0 \0 \0
0016060 \0 \0 002 \0 \t \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0
0016100 \0 \n \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 005
0016120 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0
0016140 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 026 \0
0016160 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0
0016200 Y \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 002 \0
0016220 \0 \0 J \0 \0 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0
0016240 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0016260 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U L E .
0016300 G E T F N 001 \0 024 \0 006 M O D E R N
0016320 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0
0016340 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \f \0
0016360 \0 \0 \0 003 \0 \0 \0 020 \0 \0 \0 \0 002 \0 \0 \0
0016400 001 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0
0016420 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H
0016440 R U L E . G E T F N 001 \0 024 \0 006 M
0016460 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0016500 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003
0016520 \0 \0 \0 / \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0
0016540 \0 002 \0 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 005 \0
0016560 \0 \0 \0 002 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0
0016600 \n \0 \0 \0 \0 002 \0 \0 \0 - \0 \0 \0 \0 005 \0
0016620 \0 \0 017 \0 \0 \0 \0 003 \0 \0 \0 004 \0 \0 \0 \0
0016640 005 \0 \0 \0 016 \0 \0 \0 \0 003 \0 \0 \0 006 \0 \0
0016660 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 -
0016700 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0
0016720 \0 037 \0 \0 \0 \0 005 \0 \0 \0 027 \0 \0 \0 \0 003
0016740 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0016760 003 \0 \0 \0 002 \0 001 \0 \v H R U L E . G
0017000 E T F N 001 \0 024 \0 006 M O D E R N \0
0017020 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0
0017040 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 016 \0 \0
0017060 \0 \0 003 \0 \0 \0 031 \0 \0 \0 \0 002 \0 \0 \0 001
0017100 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0
0017120 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R
0017140 U L E . G E T F N 001 \0 024 \0 006 M O
0017160 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0017200 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0
0017220 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0
0017240 002 \0 \0 \0 023 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0
0017260 \0 \0 002 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \n
0017300 \0 \0 \0 \0 002 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0
0017320 \0 \n \0 \0 \0 \0 002 \0 \0 \0 + \0 \0 \0 \0 005
0017340 \0 \0 \0 017 \0 \0 \0 \0 003 \0 \0 \0 006 \0 \0 \0
0017360 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 - \0
0017400 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0
0017420 037 \0 \0 \0 \0 005 \0 \0 \0 027 \0 \0 \0 \0 003 \0
0017440 \0 \0 \f \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0
0017460 002 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0017500 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U L E .
0017520 G E T F N 001 \0 024 \0 006 M O D E R N
0017540 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0
0017560 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \t \0
0017600 \0 \0 \0 003 \0 \0 \0 \v \0 \0 \0 \0 002 \0 \0 \0
0017620 001 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0
0017640 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H
0017660 R U L E . G E T F N 001 \0 024 \0 006 M
0017700 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0017720 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003
0017740 \0 \0 \0 / \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0
0017760 \0 002 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0020000 002 \0 \t \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0 006
0020020 \0 \0 \0 \0 002 \0 \0 \0 035 \0 \0 \0 \0 005 \0 \0
0020040 \0 004 \0 \0 \0 \0 002 \0 \0 \0 \ \0 \0 \0 \0 005
0020060 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 002 \0 \0 \0
0020100 \0 005 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 \a \0 \0
0020120 \0 \0 003 \0 \0 \0 / \0 \0 \0 \0 005 \0 \0 \0 006
0020140 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0020160 \0 \a \0 \0 \0 \0 003 \0 \0 \0 \v \0 \0 \0 \0 005
0020200 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0 / \0 \0 \0
0020220 \0 005 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0 \0
0020240 \0 \0 \0 005 \0 \0 \0 021 \0 \0 \0 \0 003 \0 \0 \0
0020260 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0
0020300 \0 002 \0 001 \0 \v H R U L E . G E T F
0020320 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0
0020340 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0020360 \0 \0 \0 \0 002 \0 005 \0 \0 \0 017 \0 \0 \0 \0 003
0020400 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0
0020420 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0020440 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L E
0020460 . G E T F N 001 \0 024 \0 006 M O D E R
0020500 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0
0020520 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 030
0020540 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0
0020560 \0 \b \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 002
0020600 \0 \0 \0 023 \0 \0 \0 \0 005 \0 \0 \0 017 \0 \0 \0
0020620 \0 003 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 \b \0
0020640 \0 \0 \0 002 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0
0020660 \b \0 \0 \0 \0 002 \0 \0 \0 0 \0 \0 \0 \0 005 \0
0020700 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0
0020720 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0
0020740 \v H R U L E . G E T F N 001 \0 024 \0
0020760 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0
0021000 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0021020 \0 005 \0 \0 \0 020 \0 \0 \0 \0 003 \0 \0 \0 \b \0
0021040 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0
0021060 016 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0
0021100 \0 002 \0 001 \0 \v H R U L E . G E T F
0021120 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0
0021140 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0021160 \0 \0 \0 \0 002 \0 003 \0 \0 \0 % \0 \0 \0 \0 005
0021200 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0 \b \0 \0 \0
0021220 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 004 \0
0021240 \0 \0 \0 005 \0 \0 \0 017 \0 \0 \0 \0 003 \0 \0 \0
0021260 005 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0
0021300 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0
0021320 002 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0
0021340 \0 \0 003 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001
0021360 \0 \0 \0 \0 003 \0 \0 \0 \n \0 \0 \0 \0 005 \0 \0
0021400 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R
0021420 U L E . G E T F N 001 \0 024 \0 006 M O
0021440 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0021460 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0
0021500 \0 \0 H \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0
0021520 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 027 \0 001
0021540 \0 \f I R M . G E T . C R E F \0 \0
0021560 \0 \0 7 \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0
0021600 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 026 \0 001
0021620 \0 \f I R M . G E T . C R E F \0 \0
0021640 \0 \0 7 \0 \0 \0 \0 005 \0 \0 \0 016 \0 \0 \0 \0
0021660 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 035 \0 001
0021700 \0 \f I R M . G E T . C R E F \0 \0
0021720 \0 \0 003 \0 \0 \0 \0 005 \0 \0 022 212 001 _ z 272
0021740 \r 2 \r \r 8 . 8 \t C h a n g e
0021760 t r a n \r 1 \r \r A v e r y c
0022000 o m m o n p r o g r a m m i n
0022020 g c o n s t r u c t i o n c
0022040 o n s i s t s o f a s s i g
0022060 n i n g a n e w v a l u e
0022100 t o s o m e d a t u m t
0022120 h a t i s a f u n c t i o
0022140 n o f t h e c u r r e n t
0022160 v a l u e o f t h a t d
0022200 a t u m . S o m e e x a m
0022220 p l e s o f s u c h r e a
0022240 d - m o d i f y - w r i t e s
0022260 e q u e n c e s i n c l u d e
0022300 : \r I n c r e m e n t i n g a
0022320 c o u n t e r : \r ( S E T Q
0022340 X ( I P L U S X 1 ) ) \r P
0022360 u s h i n g a n i t e m o
0022400 n t h e f r o n t o f a
0022420 l i s t : \r ( S E T Q X (
0022440 C O N S Y X ) ) \r P o p p i
0022460 n g a n i t e m o f f a
0022500 l i s t : \r ( P R O G 1 ( C
0022520 A R X ) ( S E T Q X ( C
0022540 D R X ) ) ) \r I t i s e a
0022560 s i e r t o e x p r e s s
0022600 s u c h c o m p u t a t i o n
0022620 s w h e n t h e d a t u m
0022640 i n q u e s t i o n i s
0022660 a s i m p l e v a r i a b l
0022700 e a s a b o v e t h a n
0022720 w h e n i t i s a n e l
0022740 e m e n t o f s o m e l a
0022760 r g e r d a t a s t r u c t
0023000 u r e . F o r e x a m p l
0023020 e , i f t h e d a t u m
0023040 t o b e m o d i f i e d w
0023060 a s ( C A R X ) , t h e
0023100 a b o v e e x a m p l e s w
0023120 o u l d b e : \r ( C A R ( R
0023140 P L A C A X ( I P L U S (
0023160 C A R X ) 1 ) ) ) \r ( C A R
0023200 ( R P L A C A X ( C O N S
0023220 Y ( C A R X ) ) ) \r ( P R
0023240 O G 1 ( C A A R X ) ( R P
0023260 L A C A X ( C D A R X ) )
0023300 ) \r a n d i f t h e d a t
0023320 u m w a s a n e l e m e n
0023340 t i n a n a r r a y , (
0023360 E L T A N ) , t h e e x
0023400 a m p l e s w o u l d b e :
0023420 \r ( S E T A A N ( I P L U
0023440 S ( E L T A N ) 1 ) ) )
0023460 \r ( S E T A A N ( C O N S
0023500 Y ( E L T A N ) ) ) ) \r
0023520 ( P R O G 1 ( C A R ( E L T
0023540 A N ) ) ( S E T A A N
0023560 ( C D R ( E L T A N ) )
0023600 ) ) \r T h e d i f f i c u l t
0023620 y i n e x p r e s s i n g
0023640 ( a n d r e a d i n g ) m o
0023660 d i f i c a t i o n i d i o m
0023700 s i s i n p a r t d u e
0023720 t o t h e w e l l - k n o
0023740 w n a s y m m e t r y o f
0023760 s e t t i n g v e r s u s a
0024000 c c e s s i n g o p e r a t i
0024020 o n s o n s t r u c t u r e
0024040 s : R P L A C A i s u s
0024060 e d t o s e t w h a t C
0024100 A R w o u l d r e t u r n ,
0024120 S E T A c o r r e s p o n d
0024140 s t o E L T , a n d s o
0024160 o n . \r T h e " C h a n g e
0024200 t r a n " f a c i l i t y i
0024220 s d e s i g n e d t o p r
0024240 o v i d e a m o r e s a t
0024260 i s f a c t o r y n o t a t i
0024300 o n i n w h i c h t o e
0024320 x p r e s s c e r t a i n c
0024340 o m m o n ( b u t u s e r -
0024360 e x t e n s i b l e ) s t r u
0024400 c t u r e m o d i f i c a t i
0024420 o n o p e r a t i o n s .
0024440 C h a n g e t r a n d e f i n
0024460 e s a s e t o f C L I S
0024500 P w o r d s t h a t e n c
0024520 o d e t h e k i n d o f
0024540 m o d i f i c a t i o n t h a
0024560 t i s t o t a k e p l a
0024600 c e , e . g . p u s h i n g
0024620 o n a l i s t , a d d i
0024640 n g t o a n u m b e r ,
0024660 e t c . M o r e i m p o r
0024700 t a n t , t h e e x p r e s
0024720 s i o n t h a t i n d i c a
0024740 t e s t h e d a t u m w h
0024760 o s e v a l u e i s t o
0025000 b e m o d i f i e d n e e d
0025020 s t o b e s t a t e d o
0025040 n l y o n c e . T h u s ,
0025060 t h e " c h a n g e w o r
0025100 d " A D D i s u s e d t
0025120 o i n c r e a s e t h e v
0025140 a l u e o f a d a t u m
0025160 b y t h e s u m o f a
0025200 s e t o f n u m b e r s .
0025220 I t s a r g u m e n t s a
0025240 r e a n e x p r e s s i o n
0025260 d e n o t i n g t h e d a
0025300 t u m , a n d a s e t o
0025320 f i t e m s t o b e a d
0025340 d e d t o i t s c u r r e
0025360 n t v a l u e . T h e d
0025400 a t u m e x p r e s s i o n
0025420 m u s t b e a v a r i a b
0025440 l e o r a n a c c e s s i
0025460 n g e x p r e s s i o n ( e
0025500 n v o l v i n g F E T C H ,
0025520 C A R , L A S T , E L T ,
0025540 e t c ) t h a t c a n b e
0025560 t r a n s l a t e d t o t
0025600 h e a p p r o p r i a t e s
0025620 e t t i n g e x p r e s s i o
0025640 n . \r F o r e x a m p l e ,
0025660 ( A D D ( C A D D R X ) (
0025700 F O O ) ) i s e q u i v a l
0025720 e n t t o : \r ( C A R ( R P
0025740 L A C A ( C D D R X ) \r
0025760 ( P L U S
0026000 ( F O O ) ( C A D D R X )
0026020 ) ) \r I f t h e d a t u m
0026040 e x p r e s s i o n i s a
0026060 c o m p l i c a t e d f o r m
0026100 i n v o l v i n g s u b s i
0026120 d i a r y f u n c t i o n c
0026140 a l l s , s u c h a s ( E
0026160 L T ( F O O X ) ( F I E
0026200 Y ) ) ) , C h a n g e t r a n
0026220 g o e s t o s o m e l e
0026240 n g t h s t o m a k e s u
0026260 r e t h a t t h o s e s u
0026300 b s i d i a r y f u n c t i o
0026320 n s a r e e v a l u a t e d
0026340 o n l y o n c e ( i t b
0026360 i n d s l o c a l v a r i a
0026400 b l e s t o s a v e t h e
0026420 r e s u l t s ) , e v e n
0026440 t h o u g h t h e y l o g i
0026460 c a l l y a p p e a r i n
0026500 b o t h t h e s e t t i n g
0026520 a n d a c c e s s i n g p
0026540 a r t s o f t h e t r a n
0026560 s l a t i o n . T h u s ,
0026600 i n t h i n k i n g a b o u
0026620 t b o t h e f f i c i e n c
0026640 y a n d p o s s i b l e s
0026660 i d e e f f e c t s , t h e
0026700 u s e r c a n r e l y o
0026720 n t h e f a c t t h a t
0026740 t h e f o r m s w i l l b
0026760 e e v a l u a t e d o n l y
0027000 a s o f t e n a s t h e
0027020 y a p p e a r i n t h e
0027040 e x p r e s s i o n . \r F o r
0027060 A D D a n d a l l o t h
0027100 e r c h a n g e w o r d s ,
0027120 t h e l o w e r - c a s e v
0027140 e r s i o n ( a d d , e t c
0027160 . ) m a y a l s o b e s
0027200 p e c i f i e d . L i k e
0027220 o t h e r C L I S P w o r d
0027240 s , c h a n g e w o r d s
0027260 a r e t r a n s l a t e d u
0027300 s i n g a l l C L I S P d
0027320 e c l a r a t i o n s i n e
0027340 f f e c t ( s e e ( " C L I
0027360 S P d e c l a r a t i o n s "
0027400 . T E R M ) ) . \r T h e f
0027420 o l l o w i n g i s a l i
0027440 s t o f t h o s e c h a n
0027460 g e w o r d s r e c o g n i
0027500 z e d b y C h a n g e t r a
0027520 n . E x c e p t f o r P
0027540 O P , t h e v a l u e o f
0027560 a l l b u i l t - i n c h
0027600 a n g e w o r d f o r m s i
0027620 s d e f i n e d t o b e
0027640 t h e n e w v a l u e o f
0027660 t h e d a t u m . \r ( A D D
0027700 D A T U M I T E M 1 I T E
0027720 M 2 . . . ) \t [ C h a n g
0027740 e W o r d ] \r 1 \r \r A d d s
0027760 t h e s p e c i f i e d i t
0030000 e m s t o t h e c u r r e
0030020 n t v a l u e o f t h e
0030040 d a t u m , s t o r e s t h
0030060 e r e s u l t b a c k i n
0030100 t h e d a t u m l o c a t
0030120 i o n . T h e t r a n s l
0030140 a t i o n w i l l u s e I
0030160 P L U S , P L U S , o r F
0030200 P L U S a c c o r d i n g t
0030220 o t h e C L I S P d e c l
0030240 a r a t i o n s i n e f f e
0030260 c t ( s e e ( " C L I S P
0030300 d e c l a r a t i o n s " .
0030320 T E R M ) ) . \r 1 \r \r ( P U S H
0030340 D A T U M I T E M 1 I T E
0030360 M 2 . . . ) \t [ C h a n g
0030400 e W o r d ] \r 1 \r \r C O N S e
0030420 s t h e i t e m s o n t o
0030440 t h e f r o n t o f t h
0030460 e c u r r e n t v a l u e
0030500 o f t h e d a t u m , a n
0030520 d s t o r e s t h e r e s
0030540 u l t b a c k i n t h e
0030560 d a t u m l o c a t i o n .
0030600 F o r e x a m p l e , ( P
0030620 U S H X A B ) w o u l d
0030640 t r a n s l a t e a s ( S
0030660 E T Q X ( C O N S A ( C
0030700 O N S B X ) ) ) . \r 1 \r \r (
0030720 P U S H N E W D A T U M I T
0030740 E M ) \t [ C h a n g e W o
0030760 r d ] \r 1 \r \r L i k e P U S H
0031000 ( w i t h o n l y o n e
0031020 i t e m ) e x c e p t t h a
0031040 t t h e i t e m i s n o
0031060 t a d d e d i f i t i s
0031100 a l r e a d y F M E M B o
0031120 f t h e d a t u m ' s v a
0031140 l u e . \r N o t e t h a t ,
0031160 w h e r e a s ( C A R ( P U
0031200 S H X ' F O O ) ) w i l l
0031220 a l w a y s b e F O O ,
0031240 ( C A R ( P U S H N E W X
0031260 ' F O O ) ) m i g h t b e
0031300 s o m e t h i n g e l s e i
0031320 f F O O a l r e a d y e x
0031340 i s t e d i n t h e m i d
0031360 d l e o f t h e l i s t .
0031400 \r 1 \r \r ( P U S H L I S T D A
0031420 T U M I T E M 1 I T E M 2
0031440 . . . ) \t [ C h a n g e W
0031460 o r d ] \r 1 \r \r S i m i l a r
0031500 t o P U S H , e x c e p t
0031520 t h a t t h e i t e m s a
0031540 r e A P P E N D e d i n f
0031560 r o n t o f t h e c u r r
0031600 e n t v a l u e o f t h e
0031620 d a t u m . F o r e x a
0031640 m p l e , ( P U S H L I S T
0031660 X A B ) w o u l d t r a
0031700 n s l a t e a s ( S E T Q
0031720 X ( A P P E N D A B X )
0031740 ) . \r 1 \r \r ( P O P D A T U M
0031760 ) \t [ C h a n g e W o r d
0032000 ] \r 1 \r \r R e t u r n s C A R
0032020 o f t h e c u r r e n t
0032040 v a l u e o f t h e d a t
0032060 u m a f t e r s t o r i n g
0032100 i t s C D R i n t o t h
0032120 e d a t u m . T h e c u
0032140 r r e n t v a l u e i s c
0032160 o m p u t e d o n l y o n c
0032200 e e v e n t h o u g h i t
0032220 i s r e f e r e n c e d t
0032240 w i c e . N o t e t h a t
0032260 t h i s i s t h e o n l
0032300 y b u i l t - i n c h a n g
0032320 e w o r d f o r w h i c h
0032340 t h e v a l u e o f t h e
0032360 f o r m i s n o t t h e
0032400 n e w v a l u e o f t h
0032420 e d a t u m . \r 1 \r \r ( S W A
0032440 P D A T U M 1 D A T U M 2 )
0032460 \t [ C h a n g e W o r d ]
0032500 \r 1 \r \r S e t s D A T U M 1
0032520 t o D A T U M 2 a n d v i
0032540 c e v e r s a . \r 1 \r \r ( C H
0032560 A N G E D A T U M F O R M )
0032600 \t [ C h a n g e W o r d ]
0032620 \r 1 \r \r T h i s i s t h e
0032640 m o s t f l e x i b l e o f
0032660 a l l c h a n g e w o r d
0032700 s , s i n c e i t e n a b
0032720 l e s t h e u s e r t o
0032740 p r o v i d e a n a r b i t
0032760 r a r y f o r m d e s c r i
0033000 b i n g w h a t t h e n e
0033020 w v a l u e s h o u l d b
0033040 e , b u t i t s t i l l
0033060 h i g h l i g h t s t h e f
0033100 a c t t h a t s t r u c t u
0033120 r e m o d i f i c a t i o n
0033140 i s t o o c c u r , a n d
0033160 s t i l l e n a b l e s t
0033200 h e d a t u m e x p r e s s
0033220 i o n t o a p p e a r o n
0033240 l y o n c e . C H A N G E
0033260 s e t s D A T U M t o t
0033300 h e v a l u e o f F O R M
0033320 * , w h e r e F O R M * i
0033340 s c o n s t r u c t e d f r
0033360 o m F O R M b y s u b s t
0033400 i t u t i n g t h e d a t u
0033420 m e x p r e s s i o n f o r
0033440 e v e r y o c c u r r e n c
0033460 e o f t h e l i t a t o m
0033500 D A T U M . F o r e x a
0033520 m p l e , ( C H A N G E ( C
0033540 A R X ) ( I T I M E S D A
0033560 T U M 5 ) ) t r a n s l a t
0033600 e s a s ( C A R ( R P L A
0033620 C A X ( I T I M E S ( C A
0033640 R X ) 5 ) ) ) . \r C H A N G
0033660 E i s u s e f u l f o r
0033700 e x p r e s s i n g m o d i f
0033720 i c a t i o n s t h a t a r
0033740 e n o t b u i l t - i n a
0033760 n d a r e n o t s u f f i
0034000 c i e n t l y c o m m o n t
0034020 o j u s t i f y d e f i n i
0034040 n g a u s e r - c h a n g e
0034060 w o r d . A s f o r o t
0034100 h e r c h a n g e w o r d e
0034120 x p r e s s i o n s , t h e
0034140 u s e r n e e d n o t r e
0034160 p e a t t h e d a t u m - e
0034200 x p r e s s i o n a n d n e
0034220 e d n o t w o r r y a b o
0034240 u t m u l t i p l e e v a l
0034260 u a t i o n o f t h e a c
0034300 c e s s i n g f o r m . \r 1
0034320 \r \r I t i s p o s s i b l e
0034340 f o r t h e u s e r t o
0034360 d e f i n e n e w c h a n
0034400 g e w o r d s . T o d e
0034420 f i n e a c h a n g e w o
0034440 r d , s a y s u b , t h a
0034460 t s u b t r a c t s i t e m
0034500 s f r o m t h e c u r r e
0034520 n t v a l u e o f t h e
0034540 d a t u m , t h e u s e r
0034560 m u s t p u t t h e p r o
0034600 p e r t y C L I S P W O R D ,
0034620 v a l u e ( C H A N G E T R
0034640 A N . s u b ) o n b o t
0034660 h t h e u p p e r a n d
0034700 l o w e r - c a s e v e r s i
0034720 o n s o f s u b : \r ( P U T
0034740 P R O P ' S U B ' C L I S P
0034760 W O R D ' ( C H A N G E T R A
0035000 N . s u b ) ) \r ( P U T P R
0035020 O P ' s u b ' C L I S P W O
0035040 R D ' ( C H A N G E T R A N
0035060 . s u b ) ) \r T h e n , t h
0035100 e u s e r m u s t p u t
0035120 ( o n t h e l o w e r - c a
0035140 s e v e r s i o n o f s u
0035160 b o n l y ) t h e p r o p
0035200 e r t y C H A N G E W O R D ,
0035220 w i t h v a l u e F N .
0035240 F N i s a f u n c t i o
0035260 n t h a t w i l l b e a
0035300 p p l i e d t o a s i n g
0035320 l e a r g u m e n t , t h e
0035340 w h o l e s u b f o r m ,
0035360 a n d m u s t r e t u r n
0035400 a f o r m t h a t C h a
0035420 n g e t r a n c a n t r a n
0035440 s l a t e i n t o a n a p
0035460 p r o p r i a t e e x p r e s
0035500 s i o n . T h i s f o r m
0035520 s h o u l d b e a l i s
0035540 t s t r u c t u r e w i t h
0035560 t h e a t o m D A T U M
0035600 u s e d w h e n e v e r t h
0035620 e u s e r w a n t s a n
0035640 a c c e s s i n g e x p r e s
0035660 s i o n f o r t h e c u r
0035700 r e n t v a l u e o f t h
0035720 e d a t u m t o a p p e a
0035740 r . T h e f o r m ( D A
0035760 T U M _ F O R M ) ( n o t e
0036000 t h a t D A T U M _ i s
0036020 a s i n g l e a t o m ) s
0036040 h o u l d o c c u r o n c e
0036060 i n t h e e x p r e s s i
0036100 o n ; t h i s s p e c i f i
0036120 e s t h a t a n a p p r o
0036140 p r i a t e s t o r i n g e
0036160 x p r e s s i o n i n t o t
0036200 h e d a t u m s h o u l d
0036220 o c c u r a t t h a t p o
0036240 i n t . F o r e x a m p l
0036260 e , s u b c o u l d b e
0036300 d e f i n e d w i t h : \r ( P
0036320 U T P R O P ' s u b ' C H A
0036340 N G E W O R D \r
0036360 ' ( L A M B D A ( F O R M )
0036400 \r ( L I
0036420 S T ' D A T U M _ \r
0036440 ( L I
0036460 S T ' I D I F F E R E N C E \r
0036500
0036520 ' D A T U M \r
0036540
0036560 ( C O N S ' I P
0036600 L U S ( C D D R F O R M ) )
0036620 ) ) ) ) \r I f t h e e x p r
0036640 e s s i o n ( s u b ( C A R
0036660 X ) A B ) w e r e e n
0036700 c o u n t e r e d , t h e a
0036720 r g u m e n t s t o S U B
0036740 w o u l d f i r s t b e d
0036760 w i m i f i e d , a n d t h
0037000 e n t h e C H A N G E W O R
0037020 D f u n c t i o n w o u l d
0037040 b e p a s s e d t h e l
0037060 i s t ( s u b ( C A R X )
0037100 A B ) , a n d r e t u r
0037120 n ( D A T U M _ ( I D I F F
0037140 E R E N C E D A T U M ( I P
0037160 L U S A B ) ) ) , w h i c
0037200 h C h a n g e t r a n w o u
0037220 l d c o n v e r t t o ( C
0037240 A R ( R P L A C A X ( I D
0037260 I F F E R E N C E ( C A R X
0037300 ) ( I P L U S A B ) ) ) )
0037320 . \r N o t e : T h e s u b
0037340 c h a n g e w o r d a s d
0037360 e f i n e d a b o v e w i l
0037400 l a l w a y s u s e I D I
0037420 F F E R E N C E a n d I P L
0037440 U S ; a d d u s e s t h e
0037460 c o r r e c t a d d i t i o
0037500 n o p e r a t i o n d e p e
0037520 n d i n g o n t h e c u r
0037540 r e n t C L I S P d e c l a
0037560 r a t i o n s ( s e e ( " C
0037600 L I S P d e c l a r a t i o n
0037620 s " . T E R M ) ) . \r \0 \0 \0
0037640 \0 \0 005 \0 \v \0 ( \0 314 \0 314 001 370 \0 022 \0
0037660 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0037700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ) \0
0037720 K \0 K 001 370 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0
0037740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0037760 001 T \0 \0 \0 \0 \0 / \0 K \0 314 001 370 \0 022
0040000 \0 \0 \0 \0 003 001 \0 001 001 001 370 001 \0 \0 \0 \0
0040020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001
0040040 T \0 \0 \0 \0 \0 ( \0 314 \0 314 001 370 \0 \0 \0
0040060 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0
0040120 314 \0 314 001 370 \0 005 \0 \0 \0 \0 002 001 \0 \0 \0
0040140 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040160 \0 \0 \0 \0 \0 \0 ( \0 314 \0 314 001 370 \0 005 \0
0040200 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0
0040240 \0 \0 \0 001 370 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0
0040260 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040300 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 370 \0 \0 \0
0040320 \0 \0 \0 003 001 \0 022 001 \0 ( \0 \0 \0 \0 \0 \0
0040340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040360 \0 \0 \0 \0 ( \0 \0 \0 \0 001 370 \0 7 \0 \0 \0
0040400 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 314 \0
0040440 314 001 370 \0 \0 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0
0040460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040500 \0 \0 \0 \0 ( \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040520 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0040560 004 \0 006 \0 024 \0 006 M O D E R N \0 \n 377
0040600 375 \0 \0 \0 \0 001 \0 \0 024 \0 006 M O D E R
0040620 N \0 \n \0 \0 \0 \0 \0 \0 001 \0 \0 024 \0 006 M
0040640 O D E R N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0
0040660 024 \0 006 M O D E R N \0 016 \0 \0 \0 \0 \0
0040700 \0 002 \0 \0 024 \0 006 M O D E R N \0 \n \0
0040720 \0 \0 \0 \0 \0 \0 \0 \0 ? \0 1 ( D E F A
0040740 U L T F O N T 1 ( G A C H A
0040760 1 0 ) ( G A C H A 8 ) (
0041000 T E R M I N A L 8 ) ) \0 \n \0 \0
0041020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 \n \0 \0
0041040 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \t \0
0041060 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0041100 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0041120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0041140 \0 \0 \0 \0 \0 002 \0 \b \0 \0 \0 021 \0 \0 \0 \0
0041160 004 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0
0041200 \v H R U L E . G E T F N 001 \0 024 \0
0041220 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0
0041240 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0041260 \0 006 \0 \0 \0 312 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0041300 002 \0 006 \0 \0 \0 030 \0 \0 \0 \0 005 \0 \0 \0 \0
0041320 \0 002 \0 005 \0 \0 \0 025 \0 \0 \0 \0 003 \0 \0 \0
0041340 \0 \0 002 \0 006 \0 \0 \0 ( \0 \0 \0 \0 005 \0 \0
0041360 \0 \0 \0 002 \0 005 \0 \0 \0 024 \0 \0 \0 \0 003 \0
0041400 \0 \0 \0 \0 002 \0 006 \0 \0 \0 034 \0 \0 \0 \0 005
0041420 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 ! \0 \0 \0 \0
0041440 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 313 \0 \0 \0
0041460 \0 005 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0 \0 037 \0
0041500 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 #
0041520 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0
0041540 ! \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 005 \0 \0
0041560 \0 % \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0
0041600 \0 \0 - \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0
0041620 003 \0 \0 \0 031 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0041640 \0 005 \0 \0 \0 \0 \0 \0 \0 003 \0 \0 \0 \0 \0
0041660 002 \0 005 \0 \0 \0 037 \0 \0 \0 \0 003 \0 \0 \0 \0
0041700 \0 002 \0 005 \0 \0 \0 3 \0 \0 \0 \0 003 \0 \0 \0
0041720 \0 \0 002 \0 006 \0 \0 \0 241 \0 \0 \0 \0 005 \0 \0
0041740 \0 006 \0 \0 \0 \0 003 \0 \0 \0 025 \0 \0 \0 \0 005
0041760 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 017 \0 \0 \0
0042000 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 020 \0
0042020 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0
0042040 \r \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 006 \0 \0
0042060 001 316 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003
0042100 \0 \0 001 003 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0
0042120 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 003 \0
0042140 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0
0042160 004 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0
0042200 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 E \0 \0 \0 \0
0042220 005 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 \r \0 \0 \0
0042240 \0 005 \0 \0 \0 025 \0 \0 \0 \0 003 \0 \0 \0 023 \0
0042260 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 026
0042300 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0
0042320 % \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0
0042340 \0 [ \0 \0 \0 \0 005 \0 \0 \0 026 \0 \0 \0 \0 003
0042360 \0 \0 001 251 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0042400 006 \0 \0 \0 004 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0
0042420 \0 \0 003 \0 \0 \0 4 \0 \0 \0 \0 005 \0 \0 \0 003
0042440 \0 \0 \0 \0 003 \0 \0 \0 200 \0 \0 \0 \0 005 \0 \0
0042460 \0 035 \0 001 \0 \f I R M . G E T . C R
0042500 E F \0 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0 \0
0042520 \0 002 \0 006 \0 \0 \0 T \0 \0 \0 \0 005 \0 \0 \0
0042540 003 \0 \0 \0 \0 003 \0 \0 \0 Z \0 \0 \0 \0 005 \0
0042560 \0 \0 \0 \0 002 \0 003 \0 \0 \0 005 \0 \0 \0 \0 003
0042600 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0
0042620 \0 001 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 001 \0
0042640 \0 \0 \0 001 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0
0042660 001 \0 \0 \0 \0 003 \0 \0 \0 021 \0 \0 \0 \0 005 \0
0042700 \0 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H
0042720 R U L E . G E T F N 001 \0 024 \0 006 M
0042740 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0042760 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \n
0043000 \0 \0 \0 204 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0
0043020 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 004 \0
0043040 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0
0043060 005 \0 \0 \0 \0 003 \0 \0 \0 4 \0 \0 \0 \0 005 \0
0043100 \0 \0 035 \0 001 \0 \f I R M . G E T . C
0043120 R E F \0 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0
0043140 \0 \0 002 \0 \n \0 \0 \0 002 \0 001 \0 \v H R U
0043160 L E . G E T F N 001 \0 024 \0 006 M O D
0043200 E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0043220 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0
0043240 \0 006 \0 \0 \0 \0 003 \0 \0 \0 \n \0 \0 \0 \0 002
0043260 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 005 \0 \0 \0
0043300 \0 002 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 004 \0
0043320 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0
0043340 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0
0043360 \0 002 \0 001 \0 \v H R U L E . G E T F
0043400 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0
0043420 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0043440 \0 \0 \0 \0 002 \0 \n \0 \0 \0 004 \0 \0 \0 \0 003
0043460 \0 \0 \0 177 \0 \0 \0 \0 005 \0 \0 \0 \f \0 \0 \0
0043500 \0 003 \0 \0 \0 024 \0 \0 \0 \0 005 \0 \0 \0 034 \0
0043520 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0
0043540 \0 \0 002 \0 \n \0 \0 \0 002 \0 001 \0 \v H R U
0043560 L E . G E T F N 001 \0 024 \0 006 M O D
0043600 E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0043620 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0
0043640 \0 \t \0 \0 \0 \0 003 \0 \0 \0 \n \0 \0 \0 \0 002
0043660 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 021 \0 \0 \0
0043700 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001
0043720 \0 \v H R U L E . G E T F N 001 \0 024
0043740 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0043760 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0044000 002 \0 \n \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 004
0044020 \0 \0 \0 \0 003 \0 \0 \0 I \0 \0 \0 \0 005 \0 \0
0044040 \0 005 \0 \0 \0 \0 003 \0 \0 \0 027 \0 \0 \0 \0 005
0044060 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 023 \0 \0 \0 \0
0044100 005 \0 \0 \0 023 \0 \0 \0 \0 003 \0 \0 \0 020 \0 \0
0044120 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 001
0044140 \0 \0 \0 \0 005 \0 \0 \0 027 \0 \0 \0 \0 003 \0 \0
0044160 \0 034 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003
0044200 \0 \0 \0 , \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0044220 \n \0 \0 \0 002 \0 001 \0 \v H R U L E . G
0044240 E T F N 001 \0 024 \0 006 M O D E R N \0
0044260 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0
0044300 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 \n \0 \0
0044320 \0 \0 003 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 001
0044340 \0 \0 \0 \0 001 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0044360 \0 001 \0 \0 \0 \0 001 \0 \0 \0 004 \0 \0 \0 \0 002
0044400 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 021 \0 \0 \0
0044420 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001
0044440 \0 \v H R U L E . G E T F N 001 \0 024
0044460 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0044500 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0044520 002 \0 \n \0 \0 \0 \v \0 \0 \0 \0 005 \0 \0 \0 004
0044540 \0 \0 \0 \0 003 \0 \0 \0 034 \0 \0 \0 \0 005 \0 \0
0044560 \0 006 \0 \0 \0 \0 003 \0 \0 \0 = \0 \0 \0 \0 005
0044600 \0 \0 \0 020 \0 \0 \0 \0 003 \0 \0 \0 024 \0 \0 \0
0044620 \0 005 \0 \0 \0 027 \0 \0 \0 \0 003 \0 \0 \0 002 \0
0044640 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \n \0 \0 \0 002
0044660 \0 001 \0 \v H R U L E . G E T F N 001
0044700 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0044720 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0044740 \0 \0 002 \0 003 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0
0044760 \0 005 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003
0045000 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0045020 002 \0 \0 \0 002 \0 001 \0 \v H R U L E . G
0045040 E T F N 001 \0 024 \0 006 M O D E R N \0
0045060 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0
0045100 \0 005 \0 \0 \0 \0 \0 002 \0 \n \0 \0 \0 \b \0 \0
0045120 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 5
0045140 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0
0045160 \0 321 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \n \0
0045200 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0045220 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0045240 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0045260 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 006 \0 \0 \0 \0
0045300 003 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0
0045320 \0 \0 001 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 001
0045340 \0 \0 \0 \0 001 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0
0045360 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0
0045400 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0045420 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0045440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0045460 \0 \0 \0 \0 \0 002 \0 \n \0 \0 \0 005 \0 \0 \0 \0
0045500 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0
0045520 \0 \0 001 \0 \0 \0 004 \0 \0 \0 \0 005 \0 \0 \0 005
0045540 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0
0045560 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \n \0
0045600 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0045620 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0045640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0045660 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 \b \0 \0 \0 \0
0045700 003 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0
0045720 \0 \0 003 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0
0045740 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R U L
0045760 E . G E T F N 001 \0 024 \0 006 M O D E
0046000 R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001
0046020 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \n \0 \0 001
0046040 026 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0
0046060 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0
0046100 002 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0
0046120 \0 \0 002 \0 \0 \0 \b \0 \0 \0 \0 005 \0 \0 \0 005
0046140 \0 \0 \0 \0 002 \0 \0 \0 025 \0 \0 \0 \0 005 \0 \0
0046160 \0 004 \0 \0 \0 \0 002 \0 \0 \0 J \0 \0 \0 \0 005
0046200 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0 020 \0 \0 \0
0046220 \0 005 \0 \0 \0 ! \0 \0 \0 \0 003 \0 \0 \0 017 \0
0046240 \0 \0 \0 005 \0 \0 \0 # \0 \0 \0 \0 003 \0 \0 \0
0046260 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 006 \0 \0
0046300 \0 006 \0 \0 \0 \0 003 \0 \0 001 036 \0 \0 \0 \0 005
0046320 \0 \0 \0 \0 \0 002 \0 \n \0 \0 \0 002 \0 001 \0 \v
0046340 H R U L E . G E T F N 001 \0 024 \0 006
0046360 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0
0046400 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0046420 001 \0 \0 \0 V \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0
0046440 \0 \0 003 \0 \0 \0 [ \0 \0 \0 \0 005 \0 \0 \0 \t
0046460 \0 \0 \0 \0 003 \0 \0 \0 \b \0 \0 \0 \0 005 \0 \0
0046500 \0 022 \0 \0 \0 \0 003 \0 \0 \0 . \0 \0 \0 \0 005
0046520 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0
0046540 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 . \0 \0
0046560 \0 \0 003 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 . \0
0046600 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0
0046620 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0046640 \0 021 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003
0046660 \0 \0 \0 024 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0
0046700 \0 003 \0 \0 \0 \r \0 \0 \0 \0 005 \0 \0 \0 002 \0
0046720 \0 \0 \0 002 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0
0046740 002 \0 \0 \0 \0 002 \0 \0 \0 D \0 \0 \0 \0 005 \0
0046760 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 220 \0 \0 \0 \0
0047000 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0 n \0 \0
0047020 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 003 \0 \0 \0 004
0047040 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0
0047060 \0 \f \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003
0047100 \0 \0 \0 247 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0
0047120 \0 003 \0 \0 \0 030 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0047140 002 \0 005 \0 \0 \0 032 \0 \0 \0 \0 003 \0 \0 \0 \0
0047160 \0 002 \0 004 \0 \0 \0 031 \0 \0 \0 \0 003 \0 \0 \0
0047200 \0 \0 002 \0 004 \0 \0 \0 032 \0 \0 \0 \0 003 \0 \0
0047220 \0 \0 \0 002 \0 004 \0 \0 \0 % \0 \0 \0 \0 003 \0
0047240 \0 \0 \0 \0 002 \0 004 \0 \0 \0 037 \0 \0 \0 \0 003
0047260 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 6 \0 \0 \0 \0
0047300 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 022 \0 \0 \0
0047320 \0 005 \0 \0 \0 021 \0 \0 \0 \0 003 \0 \0 \0 $ \0
0047340 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0
0047360 ( \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 003 \0
0047400 \0 \0 # \0 \0 \0 \0 005 \0 \0 \0 021 \0 \0 \0 \0
0047420 003 \0 \0 \0 \r \0 \0 \0 \0 005 \0 \0 \0 ( \0 \0
0047440 \0 \0 003 \0 \0 \0 $ \0 \0 \0 \0 005 \0 \0 \0 2
0047460 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0047500 \0 \0 \0 002 \0 006 \0 \0 \0 \v \0 \0 \0 \0 005 \0
0047520 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 - \0 \0 \0 \0
0047540 005 \0 \0 \0 \v \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0
0047560 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0 002
0047600 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0
0047620 \0 V \0 \0 \0 \0 005 \0 \0 \0 035 \0 001 \0 \f I
0047640 R M . G E T . C R E F \0 \0 \0 \0 003
0047660 \0 \0 \0 \0 005 \0 \0 ? 235 001 P z 272 \r 2 \r
0047700 \r 8 . 7 \t R e c o r d M a
0047720 n i p u l a t i o n F u n c t
0047740 i o n s \r 1 \r \r ( E D I T R E C
0047760 N A M E C O M 1 . . . C
0050000 O M N ) \t [ N L a m b d a
0050020 N o S p r e a d F u n c t i o
0050040 n ] \r 1 \r \r E D I T R E C c a
0050060 l l s t h e e d i t o r o
0050100 n a c o p y o f a l l
0050120 d e c l a r a t i o n s i n
0050140 w h i c h N A M E i s t h
0050160 e r e c o r d n a m e o r
0050200 a f i e l d n a m e .
0050220 O n e x i t , i t r e d e
0050240 c l a r e s t h o s e t h a
0050260 t h a v e c h a n g e d a
0050300 n d u n d e c l a r e s a n
0050320 y t h a t h a v e b e e n
0050340 d e l e t e d . I f N A
0050360 M E i s N I L , a l l d
0050400 e c l a r a t i o n s a r e
0050420 e d i t e d . \r C O M 1 . . .
0050440 C O M N a r e ( o p t i o
0050460 n a l ) e d i t c o m m a n
0050500 d s . \r 1 \r \r W h e n t h e
0050520 u s e r r e d e c l a r e s
0050540 a g l o b a l r e c o r d ,
0050560 t h e t r a n s l a t i o n
0050600 s o f a l l e x p r e s s
0050620 i o n s i n v o l v i n g t
0050640 h a t r e c o r d o r a n
0050660 y o f i t s f i e l d s
0050700 a r e a u t o m a t i c a l l
0050720 y d e l e t e d f r o m C
0050740 L I S P A R R A Y , a n d t
0050760 h u s w i l l b e r e c o
0051000 m p u t e d u s i n g t h e
0051020 n e w i n f o r m a t i o n
0051040 . I f t h e u s e r c
0051060 h a n g e s a l o c a l r
0051100 e c o r d d e c l a r a t i o
0051120 n ( ( " L o c a l R e c o r
0051140 d D e c l a r a t i o n s "
0051160 . T E R M ) ) , o r c h a
0051200 n g e s s o m e o t h e r
0051220 C L I S P d e c l a r a t i o
0051240 n ( ( " C L I S P d e c l a
0051260 r a t i o n s " . T E R M )
0051300 ) , e . g . , S T A N D A R
0051320 D t o F A S T , a n d w
0051340 i s h e s t h e n e w i n
0051360 f o r m a t i o n t o a f f
0051400 e c t r e c o r d e x p r e
0051420 s s i o n s a l r e a d y t
0051440 r a n s l a t e d , h e m u
0051460 s t m a k e s u r e t h e
0051500 c o r r e s p o n d i n g t
0051520 r a n s l a t i o n s a r e
0051540 r e m o v e 377 377 \0 \0 d \0 , \0 \0
0051560 u \0 s \0 u \0 a \0 l \0 l \0 y \0 \0
0051600 e \0 i \0 t \0 h \0 e \0 r \0 \0 b \0
0051620 y \0 \0 C \0 L \0 I \0 S \0 P \0 I \0
0051640 F \0 Y \0 i \0 n \0 g \0 \0 o \0 r \0
0051660 \0 u \0 s \0 i \0 n \0 g \0 \0 t \0
0051700 h \0 e \0 \0 D \0 W \0 \0 e \0 d \0
0051720 i \0 t \0 \0 m \0 a \0 c \0 r \0 o \0
0051740 . \0 \r \0 ( \0 R \0 E \0 C \0 L \0 O \0
0051760 O \0 K \0 \0 R \0 E \0 C \0 N \0 A \0
0052000 M \0 E \0 357 % \0 357 % \0 357 % \0
0052020 357 % \0 ) \0 \0 \0 \t \0 [ \0 F \0
0052040 u \0 n \0 c \0 t \0 i \0 o \0 n \0 ] \0
0052060 \r 1 \r \r 377 \0 R e t u r n s t h
0052100 e e n t i r e d e c l a r a
0052120 t i o n f o r t h e r e c
0052140 o r d n a m e d R E C N A M
0052160 E ; N I L i f t h e r e
0052200 i s n o r e c o r d d e c
0052220 l a r a t i o n w i t h n a
0052240 m e R E C N A M E . N o t
0052260 e t h a t t h e r e c o r
0052300 d p a c k a g e m a i n t a
0052320 i n s i n t e r n a l s t a
0052340 t e a b o u t c u r r e n t
0052360 r e c o r d d e c l a r a t
0052400 i o n s , s o p e r f o r m
0052420 i n g d e s t r u c t i v e
0052440 o p e r a t i o n s ( e . g .
0052460 N C O N C ) o n t h e v
0052500 a l u e o f R E C L O O K
0052520 m a y l e a v e t h e r e
0052540 c o r d p a c k a g e i n
0052560 a n i n c o n s i s t e n t
0052600 s t a t e . T o c h a n g
0052620 e a r e c o r d d e c l a
0052640 r a t i o n , u s e E D I T
0052660 R E C . \r 1 \r \r ( F I E L D L O
0052700 O K F I E L D N A M E ) \t
0052720 [ F u n c t i o n ] \r 1 \r \r R e
0052740 t u r n s t h e l i s t o
0052760 f d e c l a r a t i o n s i
0053000 n w h i c h F I E L D N A M
0053020 E i s t h e n a m e o f
0053040 a f i e l d . \r 1 \r 377 377 \0 \0
0053060 \r \0 ( \0 R \0 E \0 C \0 O \0 R \0 D \0
0053100 F \0 I \0 E \0 L \0 D \0 N \0 A \0 M \0
0053120 E \0 S \0 \0 R \0 E \0 C \0 O \0 R \0
0053140 D \0 N \0 A \0 M \0 E \0 357 % \0 ) \0
0053160 \0 \0 \t \0 [ \0 F \0 u \0 n \0 c \0
0053200 t \0 i \0 o \0 n \0 ] \0 \r 1 \r \r 377 \0
0053220 R e t u r n s t h e l i s t
0053240 o f f i e l d s d e c l a
0053260 r e d i n r e c o r d R E
0053300 C O R D N A M E . R E C O R
0053320 D N A M E m a y e i t h e r
0053340 b e a n a m e o r a n
0053360 e n t i r e d e c l a r a t
0053400 i o n . \r 1 \r \r ( R E C O R D A
0053420 C C E S S F I E L D D A T U
0053440 M D E C T Y P E N E W V A
0053460 L U E ) \t [ F u n c t i o n
0053500 ] \r 1 \r \r T Y P E i s o n e
0053520 o f F E T C H , R E P L A
0053540 C E , F F E T C H , F R E P
0053560 L A C E , / R E P L A C E o
0053600 r t h e i r l o w e r c a s
0053620 e e q u i v a l e n t s .
0053640 T Y P E = N I L m e a n s F
0053660 E T C H . I f T Y P E c
0053700 o r r e s p o n d s t o a
0053720 f e t c h o p e r a t i o n ,
0053740 i . e . i s F E T C H ,
0053760 o r F F E T C H , R E C O R
0054000 D A C C E S S p e r f o r m s
0054020 ( T Y P E F I E L D o f
0054040 D A T U M ) . I f T Y P E
0054060 c o r r e s p o n d s t o
0054100 a r e p l a c e , R E C O R
0054120 D A C C E S S p e r f o r m s
0054140 ( T Y P E F I E L D o f
0054160 D A T U M w i t h N E W V A
0054200 L U E ) . D E C i s a n
0054220 o p t i o n a l d e c l a r
0054240 a t i o n ; i f g i v e n ,
0054260 F I E L D i s i n t e r p
0054300 r e t e d a s a f i e l d
0054320 n a m e o f t h a t d e
0054340 c l a r a t i o n . \r N o t e
0054360 t h a t R E C O R D A C C E S
0054400 S i s r e l a t i v e l y
0054420 i n e f f i c i e n t , a l t
0054440 h o u g h i t i s b e t t
0054460 e r t h a n c o n s t r u c
0054500 t i n g t h e e q u i v a l
0054520 e n t f o r m a n d p e r
0054540 f o r m i n g a n E V A L .
0054560 \r 1 \r \r ( R E C O R D A C C E S
0054600 S F O R M F I E L D D A T U
0054620 M T Y P E N E W V A L U E )
0054640 \t [ F u n c t i o n ] \r 1 \r
0054660 \r R e t u r n s t h e f o r
0054700 m t h a t w o u l d b e
0054720 c o m p i l e d a s a r e
0054740 s u l t o f a r e c o r d
0054760 a c c e s s . T Y P E i
0055000 s o n e o f F E T C H ,
0055020 R E P L A C E , F F E T C H ,
0055040 F R E P L A C E , / R E P L
0055060 A C E o r t h e i r l o w
0055100 e r c a s e e q u i v a l e n
0055120 t s . T Y P E = N I L m e
0055140 a n s F E T C H . \r 1 \r \r
0055160 \0 \0 \0 \0 \0 005 \0 \t \0 ( \0 314 \0 314 001 370
0055200 \0 022 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0
0055220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055240 \0 ( \0 314 \0 314 001 370 \0 \0 \0 \0 \0 \0 002 004
0055260 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055300 \0 \0 \0 \0 \0 \0 \0 \0 \0 ) \0 K \0 K 001 370
0055320 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0
0055340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 T \0 \0 \0
0055360 \0 \0 / \0 K \0 314 001 370 \0 022 \0 \0 \0 \0 003
0055400 001 \0 001 001 001 370 001 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 T \0 \0 \0 \0
0055440 \0 ( \0 \0 \0 \0 001 370 \0 \0 \0 \0 \0 \0 002 001
0055460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055500 \0 \0 \0 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 370
0055520 \0 \0 \0 \0 \0 \0 003 001 \0 022 001 \0 ( \0 \0 \0
0055540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055560 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 370 \0 7
0055600 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 (
0055640 \0 314 \0 314 001 370 \0 005 \0 \0 \0 \0 002 004 \0 \0
0055660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055700 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 \0 \0 \0 \0
0055720 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0055760 \0 \0 \0 004 \0 006 \0 024 \0 006 M O D E R N
0056000 \0 \n 377 375 \0 \0 \0 \0 001 \0 \0 024 \0 006 M O
0056020 D E R N \0 \n \0 \0 \0 \0 \0 \0 001 \0 \0 024
0056040 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0056060 002 \0 \0 024 \0 006 M O D E R N \0 016 \0 \0
0056100 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N
0056120 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 ? \0 1 ( D
0056140 E F A U L T F O N T 1 ( G A
0056160 C H A 1 0 ) ( G A C H A 8
0056200 ) ( T E R M I N A L 8 ) ) \0
0056220 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0
0056240 \b \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0056260 \0 \a \0 \0 \0 002 \0 001 \0 \v H R U L E .
0056300 G E T F N 001 \0 024 \0 006 M O D E R N
0056320 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0
0056340 \0 \0 005 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 $ \0
0056360 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002
0056400 \0 001 \0 \v H R U L E . G E T F N 001
0056420 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0056440 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0056460 \0 \0 002 \0 004 \0 \0 \0 \t \0 \0 \0 \0 003 \0 \0
0056500 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 001
0056520 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0
0056540 \0 001 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 037 \0
0056560 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002
0056600 \0 001 \0 \v H R U L E . G E T F N 001
0056620 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0056640 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0056660 \0 \0 002 \0 002 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0
0056700 \0 9 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 002
0056720 \0 \0 \0 204 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0
0056740 \0 002 \0 \0 \0 004 \0 \0 \0 \0 005 \0 \0 \0 003 \0
0056760 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0
0057000 003 \0 \0 \0 \0 002 \0 \0 \0 032 \0 \0 \0 \0 005 \0
0057020 \0 \0 \0 \0 002 \0 \b \0 \0 \0 003 \0 \0 \0 \0 002
0057040 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 005 \0 \0 \0
0057060 \0 005 \0 \0 \0 003 \0 \0 \0 \0 002 \0 \0 \0 001 \0
0057100 \0 \0 \0 001 \0 \0 \0 037 \0 \0 \0 \0 005 \0 \0 \0
0057120 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R U
0057140 L E . G E T F N 001 \0 024 \0 006 M O D
0057160 E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0057200 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0 \0
0057220 \0 230 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0 \0 \0 003
0057240 \0 \0 \0 P \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0
0057260 \0 002 \0 \0 \0 025 \0 \0 \0 \0 005 \0 \0 \0 $ \0
0057300 001 \0 \f I R M . G E T . C R E F \0
0057320 \0 \0 \0 , \0 \0 \0 \0 005 \0 \0 \0 035 \0 001 \0
0057340 \f I R M . G E T . C R E F \0 \0 \0
0057360 \0 \t \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 003
0057400 \0 \0 \0 004 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0
0057420 \0 003 \0 \0 \0 215 \0 \0 \0 \0 005 \0 \0 \0 - \0
0057440 \0 002 \0 005 \0 \0 \0 020 \0 \0 002 \0 003 \0 \0 \0
0057460 " \0 \0 002 \0 005 \0 \0 \0 004 \0 \0 002 \0 003 \0
0057500 \0 \0 032 \0 \0 002 \0 005 \0 \0 \0 \0 \0 002 \0 004
0057520 \0 \0 \0 022 \0 \0 002 \0 003 \0 \0 \0 036 \0 \0 002
0057540 \0 002 \0 \0 \0 002 \0 \0 002 \0 003 \0 \0 \0 034 \0
0057560 \0 002 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002
0057600 \0 001 \0 \v H R U L E . G E T F N 001
0057620 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0057640 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0057660 \0 \0 002 \0 002 \0 \0 \0 6 \0 \0 \0 \0 005 \0 \0
0057700 \0 \a \0 \0 \0 \0 002 \0 \0 \0 002 \0 \0 \0 \0 005
0057720 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 - \0 \0 \0
0057740 \0 005 \0 \0 \0 \a \0 \0 \0 \0 002 \0 \0 \0 207 \0
0057760 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0
0060000 022 \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0 003 \0
0060020 \0 \0 ] \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0
0060040 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0060060 \0 002 \0 \0 \0 002 \0 001 \0 \v H R U L E .
0060100 G E T F N 001 \0 024 \0 006 M O D E R N
0060120 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0
0060140 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 \v \0
0060160 \0 \0 \0 003 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0
0060200 001 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0 \0 \0 005 \0
0060220 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H
0060240 R U L E . G E T F N 001 \0 024 \0 006 M
0060260 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0
0060300 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002
0060320 \0 \0 \0 * \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0
0060340 \0 002 \0 \0 \0 031 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0060360 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R U L E
0060400 . G E T F N 001 \0 024 \0 006 M O D E R
0060420 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 005 \0
0060440 \0 002 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 $
0060460 \0 \0 002 \0 003 \0 \0 \0 030 \0 \0 002 \0 002 \0 \0
0060500 \0 002 \0 \0 002 \0 003 \0 \0 \0 034 \0 \0 002 \0 005
0060520 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v
0060540 H R U L E . G E T F N 001 \0 024 \0 006
0060560 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0
0060600 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0
0060620 002 \0 \0 \0 0 \0 \0 \0 \0 005 \0 \0 \0 \n \0 \0
0060640 \0 \0 002 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0 \n
0060660 \0 \0 \0 \0 002 \0 \0 \0 0 \0 \0 \0 \0 005 \0 \0
0060700 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R
0060720 U L E . G E T F N 001 \0 024 \0 006 M O
0060740 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0060760 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0
0061000 \0 \0 016 \0 \0 \0 \0 003 \0 \0 \0 035 \0 \0 \0 \0
0061020 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0
0061040 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0
0061060 001 \0 \v H R U L E . G E T F N 001 \0
0061100 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0
0061120 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0
0061140 \0 002 \0 002 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0
0061160 \v \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0
0061200 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0
0061220 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0
0061240 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \b
0061260 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0
0061300 \0 \b \0 \0 \0 \0 003 \0 \0 \0 " \0 \0 \0 \0 005
0061320 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0
0061340 \0 005 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 \a \0
0061360 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0
0061400 006 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 002 \0
0061420 \0 \0 + \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0
0061440 003 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0
0061460 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \f
0061500 \0 \0 \0 \0 003 \0 \0 \0 \n \0 \0 \0 \0 005 \0 \0
0061520 \0 001 \0 \0 \0 \0 003 \0 \0 \0 004 \0 \0 \0 \0 002
0061540 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0
0061560 \0 002 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 005 \0
0061600 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0
0061620 006 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 002 \0
0061640 \0 \0 033 \0 \0 \0 \0 005 \0 \0 \0 \f \0 \0 \0 \0
0061660 003 \0 \0 \0 \n \0 \0 \0 \0 005 \0 \0 \0 001 \0 \0
0061700 \0 \0 003 \0 \0 \0 004 \0 \0 \0 \0 002 \0 \0 \0 001
0061720 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0061740 \0 004 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 002
0061760 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 \b \0 \0 \0
0062000 \0 002 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 003 \0
0062020 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0 002 \0 \0 \0
0062040 ' \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0
0062060 \0 \0 5 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \b
0062100 \0 \0 \0 \n \0 \0 \0 \0 005 \0 \0 \0 \f \0 \0 \0
0062120 \0 003 \0 \0 \0 j \0 \0 \0 \0 005 \0 \0 \0 004 \0
0062140 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0
0062160 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R U
0062200 L E . G E T F N 001 \0 024 \0 006 M O D
0062220 E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0062240 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0
0062260 \0 022 \0 \0 \0 \0 003 \0 \0 \0 031 \0 \0 \0 \0 002
0062300 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 016 \0 \0 \0
0062320 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 002 \0 001
0062340 \0 \v H R U L E . G E T F N 001 \0 024
0062360 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0062400 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0062420 002 \0 002 \0 \0 \0 I \0 \0 \0 \0 005 \0 \0 \0 004
0062440 \0 \0 \0 \0 002 \0 \0 \0 \v \0 \0 \0 \0 005 \0 \0
0062460 \0 005 \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 005
0062500 \0 \0 \0 \a \0 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0
0062520 \0 005 \0 \0 \0 006 \0 \0 \0 \0 003 \0 \0 \0 002 \0
0062540 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 003 \0 \0 \0
0062560 002 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 003 \0
0062600 \0 \0 " \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0
0062620 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0
0062640 \0 \0 003 \0 \0 \0 \a \0 \0 \0 \0 005 \0 \0 \0 005
0062660 \0 \0 \0 \0 003 \0 \0 \0 004 \0 \0 \0 \0 005 \0 \0
0062700 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v H R
0062720 U L E . G E T F N 001 \0 024 \0 006 M O
0062740 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0062760 \0 001 \0 \0 \0 \0 005 \0 \0 Z p \0 333 z 272 \r
0063000 2 \r \r 8 . 6 \t D e f i n i n
0063020 g N e w R e c o r d T y p
0063040 e s \r 1 \r \r I n a d d i t i o
0063060 n t o t h e b u i l t - i
0063100 n r e c o r d t y p e s ,
0063120 u s e r s c a n d e c l a r
0063140 e t h e i r o w n r e c o
0063160 r d t y p e s b y p e r f
0063200 o r m i n g t h e f o l l o
0063220 w i n g s t e p s : \r ( 1 )
0063240 A d d t h e n e w r e c
0063260 o r d - t y p e t o t h e
0063300 v a l u e o f C L I S P R E
0063320 C O R D T Y P E S ; . \r ( 2 )
0063340 P e r f o r m ( M O V D '
0063360 R E C O R D R E C O R D - T Y
0063400 P E ) , i . e . g i v e t
0063420 h e r e c o r d - t y p e t
0063440 h e s a m e d e f i n i t i
0063460 o n a s t h a t o f t h
0063500 e f u n c t i o n R E C O R
0063520 D ; \r ( 3 ) P u t t h e
0063540 n a m e o f a f u n c t i
0063560 o n w h i c h w i l l r e
0063600 t u r n t h e t r a n s l a
0063620 t i o n o n t h e p r o p
0063640 e r t y l i s t o f R E C
0063660 O R D - T Y P E , a s t h e
0063700 v a l u e o f t h e p r
0063720 o p e r t y U S E R R E C O R
0063740 D T Y P E . W h e n e v e r
0063760 a r e c o r d d e c l a r
0064000 a t i o n o f t y p e R E
0064020 C O R D - T Y P E i s e n c
0064040 o u n t e r e d , t h i s f
0064060 u n c t i o n w i l l b e
0064100 p a s s e d t h e r e c o r
0064120 d d e c l a r a t i o n a s
0064140 i t s a r g u m e n t , a
0064160 n d s h o u l d r e t u r n
0064200 a n e w r e c o r d d e
0064220 c l a r a t i o n w h i c h
0064240 t h e r e c o r d p a c k a
0064260 g e w i l l t h e n u s e
0064300 i n i t s p l a c e . \r \0
0064320 \0 \0 \0 \0 005 \0 006 \0 ( \0 314 \0 314 001 370 \0
0064340 005 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064400 ( \0 \0 \0 \0 001 370 \0 \0 \0 \0 \0 \0 002 001 \0
0064420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064440 \0 \0 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 370 \0
0064460 \0 \0 \0 \0 \0 003 001 \0 022 001 \0 ( \0 \0 \0 \0
0064500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064520 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 370 \0 7 \0
0064540 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 1 \0
0064600 \0 \0 314 001 370 \0 005 \0 \0 \0 \0 003 004 \0 022 002
0064620 \0 272 001 \0 314 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 (
0064660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 001 \0 \0
0064700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0064720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 005 \0 024
0064740 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0064760 001 \0 \0 024 \0 006 M O D E R N \0 \n \0 \0
0065000 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N
0065020 \0 016 \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O
0065040 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 ?
0065060 \0 1 ( D E F A U L T F O N T 1
0065100 ( G A C H A 1 0 ) ( G A C
0065120 H A 8 ) ( T E R M I N A L
0065140 8 ) ) \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0065160 \0 \0 002 \0 005 \0 \0 \0 001 \0 \0 \0 \0 004 \0 \0
0065200 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 \v H R
0065220 U L E . G E T F N 001 \0 024 \0 006 M O
0065240 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0065260 \0 001 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 003 \0
0065300 \0 \0 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 002
0065320 \0 \0 \0 002 \0 001 \0 \v H R U L E . G E
0065340 T F N 001 \0 024 \0 006 M O D E R N \0 \n
0065360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0
0065400 004 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 v \0 \0 \0
0065420 \0 004 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 - \0 \0
0065440 \0 \0 004 \0 \0 \0 020 \0 \0 \0 \0 002 \0 \0 \0 003
0065460 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0
0065500 \r \0 \0 \0 \0 004 \0 \0 \0 016 \0 \0 \0 \0 002 \0
0065520 \0 \0 \v \0 \0 \0 \0 001 \0 \0 \0 001 \0 \0 \0 \0
0065540 002 \0 \0 \0 H \0 \0 \0 \0 004 \0 \0 \0 006 \0 \0
0065560 \0 \0 002 \0 \0 \0 002 \0 \0 \0 \0 004 \0 \0 \0 \0
0065600 \0 002 \0 001 \0 \0 \0 Z \0 \0 \0 \0 004 \0 \0 \0
0065620 \v \0 \0 \0 \0 001 \0 \0 \0 037 \0 \0 \0 \0 004 \0
0065640 \0 \0 016 \0 \0 \0 \0 002 \0 \0 \0 ) \0 \0 \0 \0
0065660 004 \0 \0 \0 \v \0 \0 \0 \0 001 \0 \0 \0 j \0 \0
0065700 \0 \0 004 \0 \0 \0 003 \0 \0 \0 \0 001 \0 \0 \0 I
0065720 \0 \0 \0 \0 004 \0 \0 h 317 \0 " z 272 \r 8 .
0065740 5 . 2 \t O p t i o n a l R
0065760 e c o r d S p e c i f i c a t
0066000 i o n s \r 1 \r \r A f t e r t h
0066020 e R E C O R D - F I E L D S
0066040 i t e m i n a r e c o r d
0066060 d e c l a r a t i o n e x p
0066100 r e s s i o n t h e r e c a
0066120 n b e a n a r b i t r a r
0066140 y n u m b e r o f a d d i
0066160 t i o n a l e x p r e s s i o
0066200 n s i n R E C O R D - T A I
0066220 L . T h e s e e x p r e s
0066240 s i o n s c a n b e u s e
0066260 d t o s p e c i f y d e f
0066300 a u l t v a l u e s f o r
0066320 r e c o r d f i e l d s , s
0066340 p e c i a l C R E A T E a n
0066360 d T Y P E ? f o r m s , a
0066400 n d s u b d e c l a r a t i o
0066420 n s . T h e f o l l o w i
0066440 n g e x p r e s s i o n s a
0066460 r e p e r m i t t e d : \r \t
0066500 F I E L D - N A M E _ F O R
0066520 M \t A l l o w s t h e u s e
0066540 r t o s p e c i f y w i t
0066560 h i n t h e r e c o r d d
0066600 e c l a r a t i o n t h e d
0066620 e f a u l t v a l u e t o
0066640 b e s t o r e d i n F I E
0066660 L D - N A M E b y a C R E
0066700 A T E ( i f n o v a l u e
0066720 i s g i v e n w i t h i n
0066740 t h e C R E A T E e x p r
0066760 e s s i o n i t s e l f ) .
0067000 N o t e t h a t F O R M
0067020 i s e v a l u a t e d a t
0067040 C R E A T E t i m e , n o t
0067060 w h e n t h e d e c l a r
0067100 a t i o n i s m a d e . \r \t
0067120 ( C R E A T E F O R M ) \t D e
0067140 f i n e s t h e m a n n e r
0067160 i n w h i c h C R E A T E
0067200 o f t h i s r e c o r d
0067220 s h o u l d b e p e r f o r
0067240 m e d . T h i s p r o v i
0067260 d e s a w a y o f s p e
0067300 c i f y i n g h o w A C C E
0067320 S S F N S s h o u l d b e
0067340 c r e a t e d o r o v e r r
0067360 i d i n g t h e u s u a l
0067400 d e f i n i t i o n o f C R
0067420 E A T E . I f F O R M c
0067440 o n t a i n s t h e f i e l
0067460 d - n a m e s o f t h e d
0067500 e c l a r a t i o n a s v a
0067520 r i a b l e s , t h e f o r
0067540 m s g i v e n i n t h e
0067560 C R E A T E o p e r a t i o n
0067600 w i l l b e s u b s t i t
0067620 u t e d i n . I f t h e
0067640 w o r d D A T U M a p p e
0067660 a r s i n t h e c r e a t
0067700 e f o r m , t h e o r i g
0067720 i n a l C R E A T E d e f i
0067740 n i t i o n i s i n s e r t
0067760 e d . T h i s e f f e c t
0070000 i v e l y a l l o w s t h e
0070020 u s e r t o " a d v i s e
0070040 " t h e c r e a t e . \r N o
0070060 t e : ( C R E A T E F O R
0070100 M ) m a y a l s o b e s
0070120 p e c i f i e d a s " R E C
0070140 O R D - N A M E _ F O R M "
0070160 . \r \t ( I N I T F O R M ) \t S
0070200 p e c i f i e s t h a t F O
0070220 R M s h o u l d b e e v a
0070240 l u a t e d w h e n t h e
0070260 r e c o r d i s d e c l a r
0070300 e d . F O R M w i l l a
0070320 l s o b e d u m p e d b y
0070340 t h e I N I T R E C O R D S
0070360 f i l e p a c k a g e c o
0070400 m m a n d ( ( " I N I T R E C
0070420 O R D S " . F i l e P a c k
0070440 a g e C o m m a n d ) ) . \r F o
0070460 r e x a m p l e , s e e t
0070500 h e e x a m p l e o f a n
0070520 A C C E S S F N S r e c o r
0070540 d d e c l a r a t i o n a b
0070560 o v e . I n t h i s e x
0070600 a m p l e , F R O M A R R A Y
0070620 a n d T O A R R A Y a r e
0070640 i n i t i a l i z e d w i t
0070660 h a n I N I T f o r m . \r
0070700 \t ( T Y P E ? F O R M ) \t D e
0070720 f i n e s t h e m a n n e r
0070740 i n w h i c h T Y P E ?
0070760 e x p r e s s i o n s a r e
0071000 t o b e t r a n s l a t e d
0071020 . F O R M m a y e i t h
0071040 e r b e a n e x p r e s s
0071060 i o n i n t e r m s o f
0071100 D A T U M o r a f u n c t
0071120 i o n o f o n e a r g u m
0071140 e n t . \r \t ( S U B R E C O R D
0071160 N A M E . D E F A U L T S
0071200 ) \t N A M E m u s t b e a
0071220 f i e l d t h a t a p p e
0071240 a r s i n t h e c u r r e
0071260 n t d e c l a r a t i o n a
0071300 n d t h e n a m e o f a
0071320 n o t h e r r e c o r d .
0071340 T h i s s a y s t h a t ,
0071360 f o r t h e p u r p o s e s
0071400 o f t r a n s l a t i n g
0071420 C R E A T E e x p r e s s i o
0071440 n s , s u b s t i t u t e t
0071460 h e t o p - l e v e l d e c
0071500 l a r a t i o n o f N A M E
0071520 f o r t h e S U B R E C O
0071540 R D f o r m , a d d i n g
0071560 o n a n y d e f a u l t s
0071600 s p e c i f i e d . \r F o r e
0071620 x a m p l e : G i v e n (
0071640 R E C O R D B ( E F G )
0071660 ) , ( R E C O R D A ( B
0071700 C D ) ( S U B R E C O R D
0071720 B ) ) w o u l d b e t r e
0071740 a t e d l i k e ( R E C O R
0071760 D A ( B C D ) ( R E C
0072000 O R D B ( E F G ) ) )
0072020 f o r t h e p u r p o s e s
0072040 o f t r a n s l a t i n g
0072060 C R E A T E e x p r e s s i o
0072100 n s . \r \t a s u b d e c l a r
0072120 a t i o n \t I f a r e c o r
0072140 d d e c l a r a t i o n e x
0072160 p r e s s i o n o c c u r s
0072200 a m o n g t h e r e c o r d
0072220 s p e c i f i c a t i o n s
0072240 o f a n o t h e r r e c o r
0072260 d d e c l a r a t i o n , i
0072300 t i s k n o w n a s a
0072320 " s u b d e c l a r a t i o n .
0072340 " S u b d e c l a r a t i o
0072360 n s a r e u s e d t o d
0072400 e c l a r e t h a t f i e l
0072420 d s o f a r e c o r d a
0072440 r e t o b e i n t e r p r
0072460 e t e d a s a n o t h e r
0072500 t y p e o f r e c o r d ,
0072520 o r t h a t t h e r e c o
0072540 r d d a t a o b j e c t i
0072560 s t o b e i n t e r p r e
0072600 t e d i n m o r e t h a n
0072620 o n e w a y . \r T h e R E
0072640 C O R D - N A M E o f a s
0072660 u b d e c l a r a t i o n m u
0072700 s t b e e i t h e r t h e
0072720 R E C O R D - N A M E o f
0072740 i t s i m m e d i a t e l y
0072760 s u p e r i o r d e c l a r a
0073000 t i o n o r o n e o f t
0073020 h e s u p e r i o r ' s f i
0073040 e l d - n a m e s . I n s t
0073060 e a d o f i d e n t i f y i
0073100 n g t h e d e c l a r a t i
0073120 o n a s w i t h t o p l
0073140 e v e l d e c l a r a t i o n
0073160 s , t h e r e c o r d - n a
0073200 m e o f a s u b d e c l a
0073220 r a t i o n i d e n t i f i e
0073240 s t h e p a r e n t f i e
0073260 l d o r r e c o r d t h a
0073300 t i s b e i n g d e s c r
0073320 i b e d b y t h e s u b d
0073340 e c l a r a t i o n . S u b
0073360 d e c l a r a t i o n s c a n
0073400 b e n e s t e d t o a n
0073420 a r b i t r a r y d e p t h
0073440 . \r G i v i n g a s u b d e
0073460 c l a r a t i o n ( R E C O R
0073500 D N A M E 1 N A M E 2 ) i
0073520 s a s i m p l e w a y o
0073540 f d e f i n i n g a s y n
0073560 o n y m f o r t h e f i e
0073600 l d N A M E 1 . \r I t i s
0073620 p o s s i b l e f o r a g
0073640 i v e n f i e l d t o h a
0073660 v e m o r e t h a n o n e
0073700 s u b d e c l a r a t i o n .
0073720 F o r e x a m p l e , i n
0073740 \r ( R E C O R D F O O ( A
0073760 B ) ( R E C O R D A ( C
0074000 D ) ) ( R E C O R D A ( Q
0074020 R ) ) ) \r ( Q R ) a n d
0074040 ( C D ) a r e " o v e r l
0074060 a y e d , " i . e . ( f e t
0074100 c h Q o f X ) a n d (
0074120 f e t c h C o f X ) w o
0074140 u l d b e e q u i v a l e n
0074160 t . I n s u c h c a s e
0074200 s , t h e f i r s t s u b
0074220 d e c l a r a t i o n i s t
0074240 h e o n e u s e d b y C
0074260 R E A T E . \r \t ( S Y N O N Y M
0074300 F I E L D ( S Y N 1 . . .
0074320 S Y N N ) ) \t F I E L D m u
0074340 s t b e a f i e l d t h
0074360 a t a p p e a r s i n t h
0074400 e c u r r e n t d e c l a r
0074420 a t i o n . T h i s d e f
0074440 i n e s S Y N 1 . . . S Y
0074460 N N a l l a s s y n o n y
0074500 m s o f F I E L D . I f
0074520 t h e r e i s o n l y o
0074540 n e s y n o n y m , t h i s
0074560 c a n b e w r i t t e n
0074600 a s ( S Y N O N Y M F I E L
0074620 D S Y N ) . \r \t ( S Y S T E M
0074640 ) \t I f ( S Y S T E M ) i s
0074660 i n c l u d e d i n a r
0074700 e c o r d d e c l a r a t i o
0074720 n , t h i s i n d i c a t e
0074740 s t h a t t h e r e c o r
0074760 d i s a " s y s t e m "
0075000 r e c o r d r a t h e r t h
0075020 a n a " u s e r " r e c o
0075040 r d . T h e o n l y d i
0075060 s t i n c t i o n b e t w e e
0075100 n t h e t w o t y p e s
0075120 o f r e c o r d s i s t h
0075140 a t " u s e r " r e c o r d
0075160 d e c l a r a t i o n s t a
0075200 k e p r e c e d e n c e o v
0075220 e r " s y s t e m " r e c o
0075240 r d d e c l a r a t i o n s ,
0075260 i n c a s e s w h e r e
0075300 a n u n q u a l i f i e d f
0075320 i e l d n a m e w o u l d
0075340 b e c o n s i d e r e d a m
0075360 b i g u o u s . A l l o f
0075400 t h e r e c o r d s d e f
0075420 i n e d i n t h e s t a n
0075440 d a r d I n t e r l i s p - D
0075460 s y s t e m a r e d e f i
0075500 n e d a s s y s t e m r e
0075520 c o r d s . \r \0 \0 \0 \0 \0 005 \0 006 \0
0075540 ( \0 314 \0 314 001 370 \0 005 \0 \0 \0 \0 002 001 \0
0075560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0075600 \0 \0 \0 \0 \0 \0 \0 \0 1 \0 \0 \0 314 001 370 \0
0075620 005 \0 \0 \0 \0 003 004 \0 022 002 \0 272 001 \0 314 \0
0075640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0075660 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 370
0075700 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0
0075720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0075740 \0 . \0 \0 \0 \0 001 370 \0 \f \0 \0 \0 \0 003 001
0075760 \0 022 001 \0 ( \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0076000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 (
0076020 \0 314 \0 314 001 370 \0 005 \0 \0 \0 \0 002 004 \0 \0
0076040 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0076060 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 \0 \0 \0 \0
0076100 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0076120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0076140 \0 \0 \0 004 \0 006 \0 024 \0 006 M O D E R N
0076160 \0 \n 377 375 \0 \0 \0 \0 001 \0 \0 024 \0 006 M O
0076200 D E R N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024
0076220 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0
0076240 001 \0 \0 024 \0 006 M O D E R N \0 \f \0 \0
0076260 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N
0076300 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 ? \0 1 ( D
0076320 E F A U L T F O N T 1 ( G A
0076340 C H A 1 0 ) ( G A C H A 8
0076360 ) ( T E R M I N A L 8 ) ) \0
0076400 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0
0076420 005 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0076440 \0 004 \0 \0 \0 ' \0 \0 \0 \0 004 \0 \0 \0 \0 \0
0076460 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U L E
0076500 . G E T F N 001 \0 024 \0 006 M O D E R
0076520 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0
0076540 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \n
0076560 \0 \0 \0 \0 005 \0 \0 \0 \r \0 \0 \0 \0 003 \0 \0
0076600 \0 g \0 \0 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0 003
0076620 \0 \0 \0 V \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0
0076640 \0 002 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 005 \0
0076660 \0 \0 \0 002 \0 \0 \0 H \0 \0 \0 \0 005 \0 \0 \0
0076700 \0 \0 002 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0
0076720 \0 \n \0 \0 \0 \0 003 \0 \0 \0 003 \0 \0 \0 \0 002
0076740 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 \ \0 \0 \0
0076760 \0 005 \0 \0 \0 \n \0 \0 \0 \0 003 \0 \0 \0 006 \0
0077000 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0
0077020 " \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0
0077040 \0 \0 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0
0077060 003 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0
0077100 \0 \0 002 \0 \0 \0 ) \0 \0 \0 \0 005 \0 \0 \0 \0
0077120 \0 002 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0077140 \b \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 003 \0
0077160 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 035 \0 \0 \0 \0
0077200 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 L \0 \0
0077220 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0 9
0077240 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0
0077260 \0 006 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003
0077300 \0 \0 \0 R \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0
0077320 \0 002 \0 \0 \0 0 \0 \0 \0 \0 005 \0 \0 \0 005 \0
0077340 \0 \0 \0 002 \0 \0 \0 ! \0 \0 \0 \0 005 \0 \0 \0
0077360 \b \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 005 \0
0077400 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 S \0 \0 \0 \0
0077420 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \a \0 \0 \0
0077440 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 004 \0
0077460 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0
0077500 033 \0 \0 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0 003 \0
0077520 \0 \0 003 \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0
0077540 003 \0 \0 \0 003 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0077560 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 006 \0
0077600 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0
0077620 001 \0 \0 \0 \0 002 \0 \0 \0 020 \0 \0 \0 \0 005 \0
0077640 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 3 \0 \0 \0 \0
0077660 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 034 \0 \0
0077700 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0 002 \0 \0 \0 027
0077720 \0 \0 \0 \0 005 \0 \0 \0 $ \0 001 \0 \f I R M
0077740 . G E T . C R E F \0 \0 \0 \0 003 \0 \0
0077760 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 # \0
0100000 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0
0100020 - \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0
0100040 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 \a \0 \0 \0 \0
0100060 002 \0 \0 \0 031 \0 \0 \0 \0 005 \0 \0 \0 004 \0 \0
0100100 \0 \0 002 \0 \0 \0 \a \0 \0 \0 \0 005 \0 \0 \0 \0
0100120 \0 002 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0100140 \a \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 003 \0
0100160 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 035 \0 \0 \0 \0
0100200 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 $ \0 \0
0100220 \0 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 )
0100240 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0100260 \0 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0
0100300 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0
0100320 002 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 003 \0 \0
0100340 \0 \0 002 \0 \0 \0 \b \0 \0 \0 \0 003 \0 \0 \0 001
0100360 \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0
0100400 \0 004 \0 \0 \0 \0 003 \0 \0 \0 212 \0 \0 \0 \0 005
0100420 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 6 \0 \0 \0
0100440 \0 005 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 \t \0
0100460 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0
0100500 ) \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0
0100520 \0 024 \0 \0 \0 \0 005 \0 \0 \0 022 \0 \0 \0 \0 002
0100540 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 \0
0100560 \0 002 \0 \0 \0 027 \0 \0 \0 \0 005 \0 \0 \0 % \0
0100600 \0 \0 \0 002 \0 \0 \0 ! \0 \0 \0 \0 005 \0 \0 \0
0100620 006 \0 \0 \0 \0 002 \0 \0 \0 016 \0 \0 \0 \0 005 \0
0100640 \0 \0 \0 \0 002 \0 002 \0 \0 001 V \0 \0 \0 \0 005
0100660 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 004 \0 \0 \0 \0
0100700 005 \0 \0 \0 \v \0 \0 \0 \0 003 \0 \0 \0 ( \0 \0
0100720 \0 \0 005 \0 \0 \0 \v \0 \0 \0 \0 003 \0 \0 001 F
0100740 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0
0100760 030 \0 \0 \0 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0
0101000 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0
0101020 001 \0 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0
0101040 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 001
0101060 \0 \0 \0 \0 002 \0 \0 \0 037 \0 \0 \0 \0 005 \0 \0
0101100 \0 \a \0 \0 \0 \0 003 \0 \0 \0 017 \0 \0 \0 \0 005
0101120 \0 \0 \0 004 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0
0101140 \0 001 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0 \0
0101160 002 \0 005 \0 \0 \0 W \0 \0 \0 \0 005 \0 \0 \0 \0
0101200 \0 002 \0 001 \0 \0 \0 5 \0 \0 \0 \0 002 \0 \0 \0
0101220 \0 \0 002 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0101240 \0 005 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002
0101260 \0 \0 \0 027 \0 \0 \0 \0 005 \0 \0 \0 016 \0 \0 \0
0101300 \0 002 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 016 \0
0101320 \0 \0 \0 002 \0 \0 \0 * \0 \0 \0 \0 005 \0 \0 \0
0101340 005 \0 \0 \0 \0 003 \0 \0 \0 # \0 \0 \0 \0 005 \0
0101360 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 002 \0 \0 \0 \0
0101400 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 001 \0 \0 \0
0101420 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0 005 \0
0101440 \0 \0 \0 003 \0 \0 \0 002 \0 \0 \0 \0 002 \0 \0 \0
0101460 003 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0
0101500 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 003 \0 \0 \0 \0
0101520 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 002 \0 \0
0101540 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 005
0101560 \0 \0 \0 \0 003 \0 \0 \0 H \0 \0 \0 \0 005 \0 \0
0101600 \0 003 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001
0101620 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0
0101640 \0 003 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 024 \0
0101660 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0
0101700 8 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0
0101720 \0 \0 005 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0 \0 \0
0101740 002 \0 \0 \0 003 \0 \0 \0 \0 003 \0 \0 \0 001 \0 \0
0101760 \0 \0 002 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 \0
0102000 \0 002 \0 002 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0102020 \b \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 005 \0
0102040 \0 \0 \b \0 \0 \0 \0 002 \0 \0 001 252 \0 \0 \0 \0
0102060 005 \0 \0 { W \0 311 z 272 \r 8 . 5 . 1
0102100 \t R e c o r d T y p e s \r 1
0102120 \r \r R e c o r d s c a n b e
0102140 u s e d t o d e s c r i b
0102160 e a l a r g e v a r i e t
0102200 y o f d a t a o b j e c t
0102220 s , t h a t a r e m a n i
0102240 p u l a t e d i n d i f f e
0102260 r e n t w a y s . T h e
0102300 R E C O R D - T Y P E f i e l
0102320 d o f t h e r e c o r d
0102340 d e c l a r a t i o n s p e c
0102360 i f i e s h o w t h e d a
0102400 t a o b j e c t i s c r e
0102420 a t e d , a n d h o w t h
0102440 e v a r i o u s r e c o r d
0102460 f i e l d s a r e a c c e
0102500 s s e d . D e p e n d i n g
0102520 o n t h e r e c o r d t
0102540 y p e , t h e r e c o r d
0102560 f i e l d s m a y b e s t
0102600 o r e d i n a l i s t ,
0102620 o r i n a n a r r a y ,
0102640 o r o n t h e p r o p e r
0102660 t y l i s t o f a l i t
0102700 a t o m . T h e f o l l o
0102720 w i n g r e c o r d t y p e
0102740 s a r e d e f i n e d : \r R
0102760 E C O R D \t [ R e c o r d
0103000 T y p e ] \r 1 \r \r T h e R E C
0103020 O R D r e c o r d t y p e
0103040 i s u s e d t o d e s c r
0103060 i b e l i s t s t r u c t u
0103100 r e s . R E C O R D - F I E
0103120 L D S i s i n t e r p r e t
0103140 e d a s a l i s t s t r
0103160 u c t u r e w h o s e n o n
0103200 - N I L l i t e r a l a t o
0103220 m s a r e t a k e n a s
0103240 f i e l d - n a m e s t o b
0103260 e a s s o c i a t e d w i t
0103300 h t h e c o r r e s p o n d
0103320 i n g e l e m e n t s a n d
0103340 t a i l s o f a l i s t
0103360 s t r u c t u r e . F o r
0103400 e x a m p l e , w i t h t
0103420 h e r e c o r d d e c l a r
0103440 a t i o n ( R E C O R D M S
0103460 G ( F R O M T O . T E X
0103500 T ) ) , ( f e t c h F R O M
0103520 o f X ) t r a n s l a t e
0103540 s a s ( C A R X ) . \r
0103560 N I L c a n b e u s e d
0103600 a s a p l a c e m a r k e
0103620 r t o f i l l a n u n n
0103640 a m e d f i e l d , e . g .
0103660 , ( A N I L B ) d e s c
0103700 r i b e s a t h r e e e l
0103720 e m e n t l i s t , w i t h
0103740 B c o r r e s p o n d i n g
0103760 t o t h e t h i r d e l
0104000 e m e n t . A n u m b e r
0104020 m a y b e u s e d t o
0104040 i n d i c a t e a s e q u e
0104060 n c e o f N I L s , e . g
0104100 . ( A 4 B ) i s i n t
0104120 e r p r e t e d a s ( A N
0104140 I L N I L N I L N I L B
0104160 ) . \r 1 \r \r T Y P E R E C O R D
0104200 \t [ R e c o r d T y p e ]
0104220 \r 1 \r \r T h e T Y P E R E C O
0104240 R D r e c o r d t y p e i
0104260 s s i m i l a r t o R E C
0104300 O R D , e x c e p t t h a t
0104320 t h e r e c o r d n a m e
0104340 i s a d d e d t o t h e
0104360 f r o n t o f t h e l i
0104400 s t s t r u c t u r e t o
0104420 s i g n i f y w h a t " t y
0104440 p e " o f r e c o r d i t
0104460 i s . T h i s t y p e
0104500 f i e l d i s u s e d b y
0104520 t h e r e c o r d p a c k
0104540 a g e i n t h e t r a n s
0104560 l a t i o n o f T Y P E ?
0104600 e x p r e s s i o n s . C R
0104620 E A T E w i l l i n s e r t
0104640 a n e x t r a f i e l d
0104660 c o n t a i n i n g R E C O R
0104700 D - N A M E a t t h e b e
0104720 g i n n i n g o f t h e s
0104740 t r u c t u r e , a n d t h
0104760 e t r a n s l a t i o n o f
0105000 t h e a c c e s s a n d
0105020 s t o r a g e f u n c t i o n
0105040 s w i l l t a k e t h i s
0105060 e x t r a f i e l d i n t
0105100 o a c c o u n t . F o r
0105120 e x a m p l e , f o r ( T Y
0105140 P E R E C O R D M S G ( F R
0105160 O M T O . T E X T ) ) ,
0105200 ( f e t c h F R O M o f X
0105220 ) t r a n s l a t e s a s
0105240 ( C A D R X ) , n o t ( C
0105260 A R X ) . \r 1 \r \r A S S O C R
0105300 E C O R D \t [ R e c o r d
0105320 T y p e ] \r 1 \r \r T h e A S S
0105340 O C R E C O R D r e c o r d
0105360 t y p e i s u s e d t o
0105400 d e s c r i b e l i s t s t
0105420 r u c t u r e s w h e r e t
0105440 h e f i e l d s a r e s t
0105460 o r e d i n a s s o c i a t
0105500 i o n l i s t f o r m a t :
0105520 \r ( ( F I E L D N A M E 1 .
0105540 V A L U E 1 ) ( F I E L D N A
0105560 M E 2 . V A L U E 2 ) . .
0105600 . ) \r R E C O R D - F I E L D S
0105620 i s a l i s t o f l i
0105640 t e r a l a t o m s , i n t
0105660 e r p r e t e d a s t h e
0105700 p e r m i s s a b l e l i s t
0105720 o f f i e l d n a m e s
0105740 i n t h e a s s o c i a t i
0105760 o n l i s t . A c c e s s
0106000 i n g i s p e r f o r m e d
0106020 w i t h A S S O C ( o r
0106040 F A S S O C , d e p e n d i n
0106060 g o n c u r r e n t C L I
0106100 S P d e c l a r a t i o n s ,
0106120 s e e ( " C L I S P D e c
0106140 l a r a t i o n s " . T E R
0106160 M ) ) , s t o r i n g w i t
0106200 h P U T A S S O C . \r 1 \r \r P
0106220 R O P R E C O R D \t [ R e c
0106240 o r d T y p e ] \r 1 \r \r T h e
0106260 P R O P R E C O R D r e c o
0106300 r d t y p e i s u s e d
0106320 t o d e s c r i b e l i s t
0106340 s t r u c t u r e s w h e r
0106360 e t h e f i e l d s a r e
0106400 s t o r e d i n p r o p e
0106420 r t y l i s t f o r m a t :
0106440 \r ( F I E L D N A M E 1 V A L
0106460 U E 1 F I E L D N A M E 2 V
0106500 A L U E 2 . . . ) \r R E C O R
0106520 D - F I E L D S i s a l i
0106540 s t o f l i t e r a l a t
0106560 o m s , i n t e r p r e t e d
0106600 a s t h e p e r m i s s a
0106620 b l e l i s t o f f i e l
0106640 d n a m e s i n t h e p
0106660 r o p e r t y l i s t . A
0106700 c c e s s i n g i s p e r f
0106720 o r m e d w i t h L I S T G
0106740 E T , s t o r i n g w i t h
0106760 L I S T P U T . \r 1 \r \r B o t
0107000 h A S S O C R E C O R D a n
0107020 d P R O P R E C O R D a r e
0107040 u s e f u l f o r d e f i
0107060 n i n g d a t a s t r u c t
0107100 u r e s i n w h i c h i t
0107120 i s o f t e n t h e c a
0107140 s e t h a t m a n y o f
0107160 t h e f i e l d s a r e N
0107200 I L . A C R E A T E e x
0107220 p r e s s i o n f o r t h e
0107240 s e r e c o r d t y p e s
0107260 o n l y s t o r e s t h o s
0107300 e f i e l d s w h i c h a
0107320 r e n o n - N I L . N o t
0107340 e , h o w e v e r , t h a t
0107360 w i t h t h e r e c o r d
0107400 d e c l a r a t i o n ( P R
0107420 O P R E C O R D F I E ( H
0107440 I J ) ) t h e e x p r e s
0107460 s i o n ( c r e a t e F I E
0107500 ) w o u l d s t i l l c o
0107520 n s t r u c t ( H N I L ) ,
0107540 s i n c e a l a t e r o
0107560 p e r a t i o n o f ( r e p
0107600 l a c e J o f X w i t h
0107620 Y ) c o u l d n o t p o
0107640 s s i b l y c h a n g e t h
0107660 e i n s t a n c e o f t h
0107700 e r e c o r d i f i t w
0107720 e r e N I L . \r A R R A Y R E
0107740 C O R D \t [ R e c o r d T
0107760 y p e ] \r 1 \r \r T h e A R R A
0110000 Y R E C O R D r e c o r d t
0110020 y p e i s u s e d t o d
0110040 e s c r i b e a r r a y s .
0110060 R E C O R D - F I E L D S i
0110100 s i n t e r p r e t e d a s
0110120 a l i s t o f f i e l d
0110140 n a m e s t h a t a r e
0110160 a s s o c i a t e d w i t h
0110200 t h e c o r r e s p o n d i n
0110220 g e l e m e n t s o f a n
0110240 a r r a y . N I L c a n
0110260 b e u s e d a s a p l
0110300 a c e m a r k e r f o r a
0110320 n u n n a m e d f i e l d
0110340 ( e l e m e n t ) . P o s i
0110360 t i v e i n t e g e r s c a
0110400 n b e u s e d a s a b b
0110420 r e v i a t i o n f o r t h
0110440 e c o r r e s p o n d i n g
0110460 n u m b e r o f N I L s .
0110500 F o r e x a m p l e , ( A
0110520 R R A Y R E C O R D ( O R G
0110540 D E S T N I L I D 3 T E
0110560 X T ) ) d e s c r i b e s a
0110600 n e i g h t e l e m e n t
0110620 a r r a y , w i t h O R G
0110640 c o r r e s p o n d i n g t o
0110660 t h e f i r s t e l e m e
0110700 n t , I D t o t h e f o
0110720 u r t h , a n d T E X T t
0110740 o t h e e i g h t h . \r N o
0110760 t e t h a t A R R A Y R E C
0111000 O R D o n l y c r e a t e s
0111020 a r r a y s o f p o i n t
0111040 e r s . O t h e r k i n d
0111060 s o f a r r a y s m u s t
0111100 b e i m p l e m e n t e d
0111120 b y t h e u s e r w i t h
0111140 t h e A C C E S S F N S r
0111160 e c o r d t y p e ( ( " A C
0111200 C E S S F N S " . R e c o r
0111220 d T y p e ) ) . \r 1 \r \r H A S H
0111240 L I N K \t [ R e c o r d T
0111260 y p e ] \r 1 \r \r T h e H A S H
0111300 L I N K r e c o r d t y p e
0111320 c a n b e u s e d w i t
0111340 h a n y t y p e o f d a
0111360 t a o b j e c t : i t s p
0111400 e c i f i e s t h a t t h e
0111420 v a l u e o f a s i n g
0111440 l e f i e l d c a n b e
0111460 a c c e s s e d b y h a s h
0111500 i n g t h e d a t a o b j
0111520 e c t i n a g i v e n h
0111540 a s h a r r a y . S i n c
0111560 e t h e H A S H L I N K r
0111600 e c o r d t y p e d e s c r
0111620 i b e s a n a c c e s s i n
0111640 g m e t h o d , r a t h e r
0111660 t h a n a d a t a s t r
0111700 u c t u r e , t h e C R E A
0111720 T E e x p r e s s i o n i s
0111740 m e a n i n g l e s s f o r
0111760 H A S H L I N K r e c o r d
0112000 s . \r R E C O R D - F I E L D S
0112020 i s e i t h e r a n a t
0112040 o m F I E L D - N A M E , o
0112060 r a l i s t ( F I E L D -
0112100 N A M E H A R R A Y N A M E
0112120 H A R R A Y S I Z E ) . H A
0112140 R R A Y N A M E i s a v a
0112160 r i a b l e w h o s e v a l
0112200 u e i s t h e h a s h a
0112220 r r a y t o b e u s e d ;
0112240 i f n o t g i v e n , S
0112260 Y S H A S H A R R A Y i s u
0112300 s e d . I f t h e v a l
0112320 u e o f t h e v a r i a b
0112340 l e H A R R A Y N A M E i s
0112360 n o t a h a s h a r r a
0112400 y ( a t t h e t i m e o
0112420 f t h e r e c o r d d e c
0112440 l a r a t i o n ) , i t w i
0112460 l l b e s e t t o a n
0112500 e w h a s h a r r a y w i
0112520 t h a s i z e o f H A R
0112540 R A Y S I Z E . H A R R A Y
0112560 S I Z E d e f a u l t s t o
0112600 1 0 0 . \r T h e H A S H L I
0112620 N K r e c o r d t y p e i
0112640 s u s e f u l a s a s u
0112660 b d e c l a r a t i o n t o
0112700 o t h e r r e c o r d s t o
0112720 a d d a d d i t i o n a l
0112740 f i e l d s t o a l r e a d
0112760 y e x i s t i n g d a t a
0113000 s t r u c t u r e s ( s e e
0113020 ( " S u b d e c l a r a t i o n
0113040 s " . T E R M ) ) . F o
0113060 r e x a m p l e , s u p p o
0113100 s e t h a t F O O i s a
0113120 r e c o r d d e c l a r e d
0113140 w i t h ( R E C O R D F O
0113160 O ( A B C ) ) . T o
0113200 a d d a n a d i t i o n a l
0113220 f i e l d B A R , w i t h
0113240 o u t m o d i f y i n g t h
0113260 e a l r e a d y e x i s t i
0113300 n g d a t a s t r u t u r e
0113320 s , r e d e c l a r e F O O
0113340 w i t h : \r ( R E C O R D F
0113360 O O ( A B C ) ( H A S H
0113400 L I N K F O O ( B A R B A
0113420 R H A R R A Y ) ) ) \r N o w ,
0113440 ( f e t c h B A R o f X )
0113460 w i l l t r a n s l a t e
0113500 i n t o ( G E T H A S H X
0113520 B A R H A R R A Y ) , h a s h
0113540 i n g o f f t h e e x i s
0113560 t i n g l i s t X . \r 1 \r \r
0113600 A T O M R E C O R D \t [ R e
0113620 c o r d T y p e ] \r 1 \r \r T h
0113640 e A T O M R E C O R D r e c
0113660 o r d t y p e i s u s e d
0113700 t o d e s c r i b e p r o
0113720 p e r t y l i s t s o f l
0113740 i t a t o m s . R E C O R D
0113760 - F I E L D S i s a l i s
0114000 t o f p r o p e r t y n a
0114020 m e s . A c c e s s i n g
0114040 i s p e r f o r m e d w i t
0114060 h G E T P R O P , s t o r i
0114100 n g w i t h P U T P R O P .
0114120 T h e C R E A T E e x p
0114140 r e s s i o n i s n o t i
0114160 n i t i a l l y d e f i n e d
0114200 f o r A T O M R E C O R D
0114220 r e c o r d s . \r 1 \r \r D A T A
0114240 T Y P E \t [ R e c o r d T
0114260 y p e ] \r 1 \r \r T h e D A T A
0114300 T Y P E r e c o r d t y p e
0114320 i s u s e d t o d e f i
0114340 n e a n e w u s e r d a
0114360 t a t y p e w i t h t y p
0114400 e n a m e R E C O R D - N A
0114420 M E ( b y c a l l i n g D
0114440 E C L A R E D A T A T Y P E ,
0114460 ( " D E C L A R E D A T A T Y P
0114500 E " . F u n c t i o n ) ) .
0114520 U n l i k e o t h e r r
0114540 e c o r d t y p e s , t h e
0114560 r e c o r d s o f a D A
0114600 T A T Y P E d e c l a r a t i
0114620 o n a r e r e p r e s e n t
0114640 e d w i t h a c o m p l e
0114660 t e l y n e w I n t e r l i
0114700 s p t y p e , a n d n o t
0114720 i n t e r m s o f o t h
0114740 e r e x i s t i n g t y p e
0114760 s . \r R E C O R D - F I E L
0115000 D S i s i n t e r p r e t e
0115020 d a s a l i s t o f f
0115040 i e l d s p e c i f i c a t i
0115060 o n s , w h e r e e a c h
0115100 s p e c i f i c a t i o n i s
0115120 e i t h e r a l i s t (
0115140 F I E L D N A M E F I E L D T
0115160 Y P E ) , o r a n a t o m
0115200 F I E L D N A M E . I f
0115220 F I E L D T Y P E i s o m i
0115240 t t e d , i t d e f a u l t
0115260 s t o P O I N T E R . P
0115300 o s s i b l e v a l u e s f
0115320 o r F I E L D T Y P E a r e
0115340 : \r \t P O I N T E R \t F i e l d
0115360 c o n t a i n s a p o i n
0115400 t e r t o a n y a r b i t
0115420 r a r y I n t e r l i s p o
0115440 b j e c t . \r \t I N T E G E R \t
0115460 \r \t F I X P \t F i e l d c o n
0115500 t a i n s a s i g n e d i
0115520 n t e g e r . N o t e t h
0115540 a t a n I N T E G E R f i
0115560 e l d i s n o t c a p a b
0115600 l e o f h o l d i n g e v
0115620 e r y t h i n g t h a t s a
0115640 t i s f i e s F I X P , s u
0115660 c h a s b i g n u m s ( (
0115700 " B i g n u m s " . T E R M
0115720 ) ) . \r \t F L O A T I N G \t \r \t
0115740 F L O A T P \t F i e l d c o n
0115760 t a i n s a f l o a t i n g
0116000 p o i n t n u m b e r . \r \t
0116020 S I G N E D W O R D \t F i e l d
0116040 c o n t a i n s a 1 6 - b
0116060 i t s i g n e d i n t e g e
0116100 r . \r \t F L A G \t F i e l d i
0116120 s a o n e b i t f i e l
0116140 d t h a t " c o n t a i n s
0116160 " T o r N I L . \r \t B I T
0116200 S N \t F i e l d c o n t a i
0116220 n s a n N - b i t u n s i
0116240 g n e d i n t e g e r . \r \t B
0116260 Y T E \t E q u i v a l e n t t
0116300 o B I T S 8 . \r \t W O R D \t
0116320 E q u i v a l e n t t o B I
0116340 T S 1 6 . \r \t X P O I N T E R
0116360 \t F i e l d c o n t a i n s
0116400 a p o i n t e r l i k e P
0116420 O I N T E R , e x c e p t t
0116440 h a t t h e f i e l d i s
0116460 n o t r e f e r e n c e c
0116500 o u n t e d b y t h e I n
0116520 t e r l i s p - D g a r b a g
0116540 e c o l l e c t o r . X P
0116560 O I N T E R f i e l d s a r
0116600 e u s e f u l f o r i m p
0116620 l e m e n t i n g b a c k - p
0116640 o i n t e r s i n s t r u c
0116660 t u r e s t h a t w o u l d
0116700 b e c i r c u l a r a n d
0116720 n o t o t h e r w i s e c
0116740 o l l e c t e d b y t h e
0116760 r e f e r e n c e - c o u n t i
0117000 n g g a r b a g e c o l l e
0117020 c t o r . \r W a r n i n g : X
0117040 P O I N T E R f i e l d s s
0117060 h o u l d b e u s e d w i
0117100 t h g r e a t c a r e .
0117120 I t i s p o s s i b l e t
0117140 o d a m a g e t h e i n t
0117160 e g r i t y o f t h e s t
0117200 o r a g e a l l o c a t i o n
0117220 s y s t e m b y u s i n g
0117240 p o i n t e r s t o o b j
0117260 e c t s t h a t h a v e b
0117300 e e n g a r b a g e c o l l
0117320 e c t e d . C o d e t h a
0117340 t u s e s X P O I N T E R
0117360 f i e l d s s h o u l d b e
0117400 s u r e t h a t t h e o
0117420 b j e c t s p o i n t e d t
0117440 o h a v e n o t b e e n
0117460 g a r b a g e c o l l e c t e
0117500 d . T h i s c a n b e
0117520 d o n e i n t w o w a y s
0117540 : T h e f i r s t i s
0117560 t o m a i n t a i n t h e
0117600 o b j e c t i n a g l o b
0117620 a l s t r u c t u r e , s o
0117640 t h a t i t i s n e v e
0117660 r g a r b a g e c o l l e c
0117700 t e d u n t i l e x p l i c
0117720 i t l y d e l e t e d f r o
0117740 m t h e s t r u c t u r e ,
0117760 a t w h i c h p o i n t
0120000 t h e p r o g r a m m u s t
0120020 i n v a l i d a t e a l l
0120040 t h e X P O I N T E R f i e
0120060 l d s o f o t h e r o b j
0120100 e c t s p o i n t i n g a t
0120120 i t . T h e s e c o n d
0120140 i s t o d e c l a r e t
0120160 h e o b j e c t a s a D
0120200 A T A T Y P E b e g i n n i n
0120220 g w i t h a P O I N T E R
0120240 f i e l d t h a t t h e
0120260 p r o g r a m m a i n t a i n
0120300 s a s a p o i n t e r t
0120320 o a n o b j e c t o f a
0120340 n o t h e r t y p e ( e . g
0120360 . , t h e o b j e c t c o
0120400 n t a i n i n g t h e X P O
0120420 I N T E R p o i n t i n g b
0120440 a c k a t i t ) , a n d
0120460 t e s t t h a t f i e l d
0120500 f o r r e a s o n a b l e n e
0120520 s s w h e n e v e r u s i n
0120540 g t h e c o n t e n t s o
0120560 f t h e X P O I N T E R f
0120600 i e l d . \r F o r e x a m p l
0120620 e , t h e d e c l a r a t i
0120640 o n \r ( D A T A T Y P E F O O
0120660 \r ( ( F L G B I T S 1
0120700 2 ) \r T E X T \r
0120720 H E A D \r ( D A T E B
0120740 I T S 1 8 ) \r ( P R I
0120760 O F L O A T P ) \r ( R
0121000 E A D ? F L A G ) ) ) \r w o u
0121020 l d d e f i n e a d a t a
0121040 t y p e F O O w i t h t
0121060 w o p o i n t e r f i e l d
0121100 s , a f l o a t i n g p o
0121120 i n t n u m b e r , a n d
0121140 f i e l d s f o r a 1 2
0121160 a n d 1 8 b i t u n s i g
0121200 n e d i n t e g e r s , a n
0121220 d a f l a g ( o n e b i
0121240 t ) . F i e l d s a r e
0121260 a l l o c a t e d i n s u c
0121300 h a w a y a s t o o p
0121320 t i m i z e t h e s t o r a
0121340 g e u s e d a n d n o t
0121360 n e c e s s a r i l y i n t
0121400 h e o r d e r s p e c i f i
0121420 e d . G e n e r a l l y , a
0121440 D A T A T Y P E r e c o r d
0121460 i s m u c h m o r e s t
0121500 o r a g e c o m p a c t t h
0121520 a n t h e c o r r e s p o n
0121540 d i n g R E C O R D s t r u
0121560 c t u r e w o u l d b e ;
0121600 i n a d d i t i o n , a c c
0121620 e s s i s f a s t e r . \r S
0121640 i n c e t h e u s e r d a
0121660 t a t y p e m u s t b e
0121700 s e t u p a t r u n - t i
0121720 m e , t h e R E C O R D S
0121740 f i l e p a c k a g e c o m
0121760 m a n d w i l l d u m p a
0122000 D E C L A R E D A T A T Y P E
0122020 e x p r e s s i o n a s w
0122040 e l l a s t h e D A T A T
0122060 Y P E d e c l a r a t i o n
0122100 i t s e l f . I f t h e
0122120 r e c o r d d e c l a r a t i
0122140 o n i s o t h e r w i s e
0122160 n o t n e e d e d a t r u
0122200 n t i m e , i t c a n b e
0122220 k e p t o u t o f t h e
0122240 c o m p i l e d f i l e b
0122260 y u s i n g a ( D E C L A
0122300 R E : D O N T C O P Y - - )
0122320 e x p r e s s i o n ( s e e
0122340 ( " D E C L A R E : " . F
0122360 i l e P a c k a g e C o m m a n
0122400 d ) ) , b u t i t i s s
0122420 t i l l n e c e s s a r y t
0122440 o e n s u r e t h a t t h
0122460 e d a t a t y p e i s p r
0122500 o p e r l y i n i t i a l i z
0122520 e d . F o r t h i s , o
0122540 n e c a n u s e t h e I
0122560 N I T R E C O R D S f i l e
0122600 p a c k a g e c o m m a n d
0122620 ( ( " I N I T R E C O R D S "
0122640 . F i l e P a c k a g e C o m
0122660 m a n d ) ) , w h i c h w i
0122700 l l d u m p o n l y t h e
0122720 D E C L A R E D A T A T Y P E
0122740 e x p r e s s i o n . \r N o t
0122760 e : W h e n d e f i n i n
0123000 g a n e w d a t a t y p
0123020 e , i t i s s o m e t i m
0123040 e s u s e f u l t o c a l
0123060 l t h e f u n c t i o n D
0123100 E F P R I N T ( ( " D E F P R
0123120 I N T " . F u n c t i o n )
0123140 ) t o s p e c i f y h o w
0123160 i n s t a n c e s o f t h
0123200 e n e w d a t a t y p e
0123220 s h o u l d b e p r i n t e
0123240 d . T h i s c a n b e
0123260 s p e c i f i e d i n t h e
0123300 r e c o r d d e c l a r a t
0123320 i o n b y i n c l u d i n g
0123340 a n I N I T r e c o r d
0123360 s p e c i f i c a t i o n ( (
0123400 " I N I T " . I n R e c o r
0123420 d D e c l a r a t i o n s ) ) ,
0123440 e . g . ( D A T A T Y P E
0123460 Q V . T Y P E . . . ( I N I
0123500 T ( D E F P R I N T ' Q V .
0123520 T Y P E ( F U N C T I O N P
0123540 R I N T . Q V . T Y P E ) ) ) )
0123560 . \r N o t e : D A T A T Y P E
0123600 d e c l a r a t i o n s c a
0123620 n n o t b e u s e d w i t
0123640 h i n l o c a l r e c o r d
0123660 d e c l a r a t i o n s ( (
0123700 " L o c a l r e c o r d d e
0123720 c l a r a t i o n s " . T E
0123740 R M ) ) . \r 1 \r \r B L O C K R E
0123760 C O R D \t [ R e c o r d T
0124000 y p e ] \r 1 \r \r T h e B L O C
0124020 K R E C O R D r e c o r d t
0124040 y p e i s u s e d i n l
0124060 o w - l e v e l s y s t e m
0124100 p r o g r a m m i n g t o "
0124120 o v e r l a y " a n o r g a
0124140 n i z e d s t r u c t u r e
0124160 o v e r a n a r b i t r a r
0124200 y p i e c e o f " u n b o
0124220 x e d " s t o r a g e . R
0124240 E C O R D - F I E L D S i s
0124260 i n t e r p r e t e d e x a c
0124300 t l y a s w i t h a D A
0124320 T A T Y P E d e c l a r a t i
0124340 o n , e x c e p t t h a t
0124360 f i e l d s a r e n o t a
0124400 u t o m a t i c a l l y r e a
0124420 r r a n g e d t o m a x i m
0124440 i z e s t o r a g e e f f i
0124460 c i e n c y . L i k e a n
0124500 A C C E S S F N S r e c o r
0124520 d , a B L O C K R E C O R D
0124540 d o e s n o t h a v e c
0124560 o n c r e t e i n s t a n c e
0124600 s ; i t m e r e l y p r o
0124620 v i d e s a w a y o f i
0124640 n t e r p r e t i n g s o m e
0124660 e x i s t i n g b l o c k
0124700 o f s t o r a g e . T h u
0124720 s , o n e c a n n o t c r
0124740 e a t e a n i n s t a n c e
0124760 o f a B L O C K R E C O R
0125000 D ( u n l e s s t h e d e
0125020 c l a r a t i o n i n c l u d
0125040 e s a n e x p l i c i t C
0125060 R E A T E e x p r e s s i o n
0125100 ) , n o r i s t h e r e
0125120 a d e f a u l t t y p e ?
0125140 e x p r e s s i o n f o r a
0125160 B L O C K R E C O R D . \r W a
0125200 r n i n g : T h e p r o g r
0125220 a m m e r s h o u l d e x e
0125240 r c i s e c a u t i o n i n
0125260 u s i n g B L O C K R E C O
0125300 R D d e c l a r a t i o n s ,
0125320 a s t h e y e n a b l e
0125340 o n e t o w r i t e e x p
0125360 r e s s i o n s t h a t f e
0125400 t c h a n d s t o r e a r
0125420 b i t r a r y d a t a i n
0125440 a r b i t r a r y l o c a t i
0125460 o n s , t h e r e b y e v a
0125500 d i n g t h e n o r m a l
0125520 t y p e s y s t e m . E x
0125540 c e p t i n v e r y s p e
0125560 c i a l i z e d s i t u a t i
0125600 o n s , a B L O C K R E C O
0125620 R D s h o u l d n e v e r
0125640 c o n t a i n P O I N T E R
0125660 o r X P O I N T E R f i e l
0125700 d s , n o r b e u s e d
0125720 t o o v e r l a y a n a r
0125740 e a o f s t o r a g e t h
0125760 a t c o n t a i n s p o i n
0126000 t e r s . S u c h u s e
0126020 c o u l d c o m p r o m i s e
0126040 t h e g a r b a g e c o l
0126060 l e c t o r a n d s t o r a
0126100 g e a l l o c a t i o n s y
0126120 s t e m . T h e p r o g r
0126140 a m m e r i s r e s p o n s
0126160 i b l e f o r e n s u r i n
0126200 g t h a t a l l F E T C H
0126220 a n d R E P L A C E e x p
0126240 r e s s i o n s a r e p e r
0126260 f o r m e d o n l y o n s
0126300 u i t a b l e o b j e c t s ,
0126320 a s n o t y p e t e s t
0126340 i n g i s p e r f o r m e d
0126360 . \r A t y p i c a l u s e
0126400 f o r t h e B L O C K R E C
0126420 O R D t y p e i n u s e r
0126440 c o d e i s t o o v e r
0126460 l a y a n o n - p o i n t e
0126500 r p o r t i o n o f a n
0126520 e x i s t i n g D A T A T Y P
0126540 E . F o r t h i s u s e
0126560 , t h e L O C F m a c r o
0126600 i s u s e f u l . ( L O
0126620 C F ( f e t c h F I E L D
0126640 o f D A T U M ) ) c a n b
0126660 e u s e d t o r e f e r
0126700 t o t h e s t o r a g e t
0126720 h a t b e g i n s a t t h
0126740 e f i r s t w o r d t h a
0126760 t c o n t a i n s F I E L D
0127000 o f D A T U M . F o r
0127020 e x a m p l e , t o d e f i
0127040 n e a n e w k i n d o f
0127060 E t h e r n e t p a c k e t
0127100 ( ( " E T H E R P A C K E T "
0127120 . d a t a t y p e ) ) , o
0127140 n e c o u l d o v e r l a y
0127160 t h e " b o d y " p o r t
0127200 i o n o f t h e E T H E R
0127220 P A C K E T d a t a t y p e
0127240 d e c l a r a t i o n a s f
0127260 o l l o w s : \r ( A C C E S S F
0127300 N S M Y P A C K E T \r
0127320 ( ( M Y B A S E ( L O C F
0127340 ( f e t c h ( E T H E R P A C
0127360 K E T E P B O D Y ) o f D
0127400 A T U M ) ) ) ) \r \t ( B L O C K
0127420 R E C O R D M Y B A S E \r
0127440 ( ( M Y T Y P E
0127460 W O R D ) \r
0127500 ( M Y L E N G T H W O R D
0127520 ) \r ( M Y
0127540 S T A T U S B Y T E ) \r
0127560 ( M Y E R R O R
0127600 C O D E B Y T E ) \r
0127620 ( M Y D A T A I N
0127640 T E G E R ) ) ) \r ( T
0127660 Y P E ? ( t y p e ? E T H E
0127700 R P A C K E T D A T U M ) ) )
0127720 \r W i t h t h i s d e c l a
0127740 r a t i o n i n e f f e c t
0127760 , t h e e x p r e s s i o n
0130000 ( f e t c h M Y L E N G T H
0130020 o f P A C K E T ) w o u l
0130040 d r e t r i e v e t h e s
0130060 e c o n d 1 6 - b i t f i e
0130100 l d b e y o n d t h e o f
0130120 f s e t i n s i d e P A C K
0130140 E T w h e r e t h e E P B
0130160 O D Y f i e l d s t a r t s
0130200 . F o r m o r e e x a m
0130220 p l e s , s e e t h e E t
0130240 h e r R e c o r d s l i b r a
0130260 r y p a c k a g e . \r 1 \r \r A
0130300 C C E S S F N S \t [ R e c o
0130320 r d T y p e ] \r 1 \r \r T h e
0130340 A C C E S S F N S r e c o r d
0130360 t y p e i s u s e d t o
0130400 d e f i n e d a t a s t r
0130420 u c t u r e s w i t h u s e
0130440 r - d e f i n e d a c c e s s
0130460 f u n c t i o n s . F o r
0130500 e a c h f i e l d n a m e
0130520 , t h e u s e r s p e c i
0130540 f i e s h o w i t i s t
0130560 o b e a c c e s s e d a n
0130600 d s e t . T h i s a l l
0130620 o w s t h e u s e o f t
0130640 h e r e c o r d p a c k a g
0130660 e w i t h a r b i t r a r y
0130700 d a t a s t r u c t u r e s
0130720 , w i t h c o m p l e x a
0130740 c c e s s m e t h o d s . \r R
0130760 E C O R D - F I E L D S i s
0131000 i n t e r p r e t e d a s a
0131020 l i s t o f e l e m e n t
0131040 s o f t h e f o r m ( F
0131060 I E L D - N A M E A C C E S S
0131100 D E F S E T D E F ) . A C
0131120 C E S S D E F s h o u l d b
0131140 e a f u n c t i o n o f
0131160 o n e a r g u m e n t , t h
0131200 e d a t u m , a n d w i l
0131220 l b e u s e d f o r a c
0131240 c e s s i n g t h e v a l u
0131260 e o f t h e f i e l d .
0131300 S E T D E F s h o u l d b
0131320 e a f u n c t i o n o f
0131340 t w o a r g u m e n t s , t
0131360 h e d a t u m a n d t h e
0131400 n e w v a l u e , a n d
0131420 w i l l b e u s e d f o r
0131440 s t o r i n g a n e w v
0131460 a l u e i n a f i e l d .
0131500 S E T D E F m a y b e
0131520 o m i t t e d , i n w h i c
0131540 h c a s e , n o s t o r i
0131560 n g o p e r a t i o n s a r
0131600 e a l l o w e d . \r A C C E S
0131620 S D E F a n d / o r S E T D
0131640 E F m a y a l s o b e a
0131660 f o r m w r i t t e n i n
0131700 t e r m s o f v a r i a b
0131720 l e s D A T U M a n d ( i
0131740 n S E T D E F ) N E W V A L
0131760 U E . F o r e x a m p l e
0132000 , g i v e n t h e d e c l
0132020 a r a t i o n \r [ A C C E S S F
0132040 N S F O O \r ( ( F I R S
0132060 T C H A R ( N T H C H A R D
0132100 A T U M 1 ) \r
0132120 ( R P L S T R I N
0132140 G D A T U M 1 N E W V A L
0132160 U E ) ) \r ( R E S T C H A
0132200 R S ( S U B S T R I N G D A
0132220 T U M 2 ] \r ( r e p l a c e
0132240 ( F O O F I R S T C H A R )
0132260 o f X w i t h Y ) w o u
0132300 l d t r a n s l a t e t o
0132320 ( R P L S T R I N G X 1 Y
0132340 ) . S i n c e n o S E T
0132360 D E F i s g i v e n f o r
0132400 t h e R E S T C H A R S f
0132420 i e l d , a t t e m p t i n g
0132440 t o p e r f o r m ( r e p
0132460 l a c e ( F O O R E S T C H
0132500 A R S ) o f X w i t h Y
0132520 ) w o u l d g e n e r a t e
0132540 a n e r r o r , R E P L A
0132560 C E U N D E F I N E D F O R
0132600 F I E L D . N o t e t h
0132620 a t A C C E S S F N S d o
0132640 n o t h a v e a C R E A T
0132660 E d e f i n i t i o n . H
0132700 o w e v e r , t h e u s e r
0132720 m a y s u p p l y o n e
0132740 i n t h e d e f a u l t s
0132760 o r s u b d e c l a r a t i o
0133000 n s o f t h e d e c l a r
0133020 a t i o n , a s d e s c r i
0133040 b e d b e l o w . A t t e
0133060 m p t i n g t o C R E A T E
0133100 a n A C C E S S F N S r e
0133120 c o r d w i t h o u t s p e
0133140 c i f y i n g a c r e a t e
0133160 d e f i n i t i o n w i l l
0133200 c a u s e a n e r r o r
0133220 C R E A T E N O T D E F I N
0133240 E D F O R T H I S R E C O
0133260 R D . \r A C C E S S D E F a n
0133300 d S E T D E F c a n a l s
0133320 o b e a p r o p e r t y
0133340 l i s t w h i c h s p e c i
0133360 f y F A S T , S T A N D A R
0133400 D a n d U N D O A B L E v
0133420 e r s i o n s o f t h e A
0133440 C C E S S F N S f o r m s ,
0133460 e . g . \r [ A C C E S S F N S
0133500 L I T A T O M \r ( ( D E F
0133520 ( S T A N D A R D G E T D
0133540 F A S T F G E T D ) \r
0133560 ( S T A N D A R D P
0133600 U T D U N D O A B L E / P U
0133620 T D ] \r m e a n s i f F A S
0133640 T d e c l a r a t i o n i s
0133660 i n e f f e c t , u s e
0133700 F G E T D f o r f e t c h i
0133720 n g , i f U N D O A B L E ,
0133740 u s e / P U T D f o r s
0133760 a v i n g ( s e e C L I S P
0134000 d e c l a r a t i o n s , (
0134020 " C L I S P D e c l a r a t i o
0134040 n s " . T A G ) ) . \r N o t
0134060 e : S E T D E F f o r m s
0134100 s h o u l d b e w r i t t
0134120 e n s o t h a t t h e y
0134140 r e t u r n t h e n e w v
0134160 a l u e , t o b e c o n s
0134200 i s t a n t w i t h R E P L
0134220 A C E o p e r a t i o n s f
0134240 o r o t h e r r e c o r d
0134260 t y p e s . T h e R E P L
0134300 A C E r e c o r d o p e r a
0134320 t o r d o e s n o t e n f
0134340 o r c e t h i s , t h o u g
0134360 h . \r 1 \r \r T h e A C C E S S
0134400 F N S f a c i l i t y a l l
0134420 o w s t h e u s e o f d
0134440 a t a s t r u c t u r e s n
0134460 o t s p e c i f i e d b y
0134500 o n e o f t h e b u i l t
0134520 - i n r e c o r d t y p e s
0134540 . F o r e x a m p l e ,
0134560 o n e p o s s i b l e r e p
0134600 r e s e n t a t i o n o f a
0134620 d a t a s t r u c t u r e
0134640 i s t o s t o r e t h e
0134660 f i e l d s i n p a r a l l
0134700 e l a r r a y s , e s p e c
0134720 i a l l y i f t h e n u m
0134740 b e r o f i n s t a n c e s
0134760 r e q u i r e d i s k n o
0135000 w n , a n d t h e y d o
0135020 n o t n e e d t o b e g
0135040 a r b a g e c o l l e c t e d
0135060 . T h u s , t o i m p l
0135100 e m e n t a d a t a s t r
0135120 u c t u r e c a l l e d L I
0135140 N K w i t h t w o f i e l
0135160 d s F R O M a n d T O ,
0135200 o n e w o u l d h a v e t
0135220 w o a r r a y s F R O M A R
0135240 R A Y a n d T O A R R A Y .
0135260 T h e r e p r e s e n t a
0135300 t i o n o f a n " i n s t
0135320 a n c e " o f t h e r e c
0135340 o r d w o u l d b e a n
0135360 i n t e g e r w h i c h i s
0135400 u s e d t o i n d e x i
0135420 n t o t h e a r r a y s .
0135440 T h i s c a n b e a c c o
0135460 m p l i s h e d w i t h t h
0135500 e d e c l a r a t i o n : \r [
0135520 A C C E S S F N S L I N K \r
0135540 ( ( F R O M ( E L T F R
0135560 O M A R R A Y D A T U M ) \r
0135600 ( S E T A
0135620 F R O M A R R A Y D A T U M
0135640 N E W V A L U E ) ) \r
0135660 ( T O ( E L T T O A R R A Y
0135700 D A T U M ) \r
0135720 ( S E T A T O A R R A Y
0135740 D A T U M N E W V A L U E ) )
0135760 ) \r ( C R E A T E ( P
0136000 R O G 1 ( S E T Q L I N K C
0136020 N T ( A D D 1 L I N K C N T
0136040 ) ) \r
0136060 ( S E T A
0136100 F R O M A R R A Y L I N K C
0136120 N T F R O M ) \r
0136140
0136160 ( S E T A T O A R R A Y L
0136200 I N K C N T T O ) ) ) \r
0136220 ( I N I T ( P R O G N \r
0136240 ( S E
0136260 T Q F R O M A R R A Y ( A R
0136300 R A Y 1 0 0 ) ) \r
0136320 ( S E T Q T
0136340 O A R R A Y ( A R R A Y 1 0
0136360 0 ) ) \r
0136400 ( S E T Q L I N K C N T
0136420 0 ) ] \r T o c r e a t e a
0136440 n e w L I N K , a c o u
0136460 n t e r i s i n c r e m e n
0136500 t e d a n d t h e n e w
0136520 e l e m e n t s s t o r e d .
0136540 ( N o t e : T h e C R E
0136560 A T E f o r m g i v e n t
0136600 h e d e c l a r a t i o n p
0136620 r o b a b l y s h o u l d i
0136640 n c l u d e a t e s t f o
0136660 r o v e r f l o w . ) \r \0 \0 \0
0136700 \0 \0 005 \0 \r \0 ( \0 314 \0 314 001 370 \0 \0 \0
0136720 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0136740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 1 \0
0136760 \0 \0 314 001 370 \0 \0 \0 \0 \0 \0 003 004 \0 022 002
0137000 \0 272 001 \0 314 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 2
0137040 \0 \0 \0 314 001 370 \0 005 \0 \0 \0 \0 003 004 \0 022
0137060 002 \0 272 001 \0 314 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 T \0 \0 \0 \0
0137120 \0 1 \0 \0 \0 314 001 370 \0 005 \0 \0 \0 \0 003 004
0137140 \0 022 002 \0 272 001 \0 314 \0 \0 \0 \0 \0 \0 \0 \0
0137160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137200 \0 \0 ( \0 314 \0 314 001 370 \0 022 \0 \0 \0 \0 002
0137220 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137240 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 314 \0 314 001
0137260 370 \0 005 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0
0137300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137320 \0 \0 ( \0 314 \0 314 001 370 \0 \0 \0 \0 \0 \0 002
0137340 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ) \0 K \0 K 001
0137400 370 \0 \0 \0 \0 \0 \0 002 001 \0 \0 \0 \0 \0 \0 \0
0137420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 T \0 \0
0137440 \0 \0 \0 / \0 K \0 314 001 370 \0 022 \0 \0 \0 \0
0137460 003 001 \0 001 001 001 370 001 \0 \0 \0 \0 \0 \0 \0 \0
0137500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 T \0 \0 \0
0137520 \0 \0 ( \0 \0 \0 \0 001 370 \0 \0 \0 \0 \0 \0 002
0137540 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001
0137600 370 \0 \f \0 \0 \0 \0 003 001 \0 022 001 \0 ( \0 \0
0137620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137640 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 314 \0 314 001 370 \0
0137660 005 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137720 ( \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 001 \0
0137740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137760 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 006 \0
0140000 024 \0 006 M O D E R N \0 \n 377 375 \0 \0 \0
0140020 \0 001 \0 \0 024 \0 006 M O D E R N \0 \n \0
0140040 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R
0140060 N \0 \n \0 \0 \0 \0 \0 \0 001 \0 \0 024 \0 006 M
0140100 O D E R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0
0140120 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0
0140140 \0 \0 \0 \0 ? \0 1 ( D E F A U L T F
0140160 O N T 1 ( G A C H A 1 0 )
0140200 ( G A C H A 8 ) ( T E R M
0140220 I N A L 8 ) ) \0 \n \0 \0 \0 \0 \0 \0
0140240 \0 \0 \0 \0 \0 \0 \0 002 \0 \f \0 \0 \0 001 \0 \0
0140260 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \v \0 \0 \0 025 \0
0140300 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 \n \0 \0 \0 002
0140320 \0 001 \0 \v H R U L E . G E T F N 001
0140340 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0140360 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0140400 \0 \0 002 \0 \f \0 \0 \0 n \0 \0 \0 \0 005 \0 \0
0140420 \0 \v \0 \0 \0 \0 003 \0 \0 001 $ \0 \0 \0 \0 005
0140440 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 006 \0 \0 \0 \0
0140460 002 \0 \0 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002
0140500 \0 \b \0 \0 \0 002 \0 001 \0 \v H R U L E .
0140520 G E T F N 001 \0 024 \0 006 M O D E R N
0140540 \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0
0140560 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 004 \0
0140600 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0
0140620 3 \0 \0 \0 \0 005 \0 \0 \0 \r \0 \0 \0 \0 003 \0
0140640 \0 \0 . \0 \0 \0 \0 005 \0 \0 \0 003 \0 \0 \0 \0
0140660 002 \0 \0 \0 242 \0 \0 \0 \0 005 \0 \0 \0 035 \0 \0
0140700 \0 \0 002 \0 \0 \0 002 \0 \0 \0 \0 005 \0 \0 \0 021
0140720 \0 \0 \0 \0 002 \0 \0 \0 017 \0 \0 \0 \0 005 \0 \0
0140740 \0 \a \0 \0 \0 \0 002 \0 \0 \0 004 \0 \0 \0 \0 005
0140760 \0 \0 \0 \0 \0 002 \0 \f \0 \0 \0 003 \0 \0 \0 \0
0141000 002 \0 \0 \0 ? \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0
0141020 \0 \0 002 \0 \0 \0 & \0 \0 \0 \0 005 \0 \0 \0 001
0141040 \0 \0 \0 \0 002 \0 \0 \0 U \0 \0 \0 \0 005 \0 \0
0141060 \0 003 \0 \0 \0 \0 002 \0 \0 \0 \b \0 \0 \0 \0 005
0141100 \0 \0 \0 \a \0 \0 \0 \0 002 \0 \0 \0 023 \0 \0 \0
0141120 \0 005 \0 \0 \0 025 \0 \0 \0 \0 002 \0 \0 \0 002 \0
0141140 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 002
0141160 \0 001 \0 \v H R U L E . G E T F N 001
0141200 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0
0141220 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0
0141240 \0 \0 002 \0 \t \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0
0141260 \0 021 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \b \0
0141300 \0 \0 002 \0 001 \0 \v H R U L E . G E T
0141320 F N 001 \0 024 \0 006 M O D E R N \0 \n \0
0141340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005
0141360 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 004 \0 \0 \0 \0
0141400 005 \0 \0 \0 \n \0 \0 \0 \0 002 \0 \0 \0 033 \0 \0
0141420 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 267
0141440 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 002 \0 \0
0141460 \0 017 \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 \0 002
0141500 \0 \0 \0 ' \0 \0 \0 \0 005 \0 \0 \0 \v \0 \0 \0
0141520