$ od -c -N 50000 [eris]<Lisp>Harmony>Library>MESATYPES.DCOM!1
0000000 ( F I L E C R E A T E D " 1 8
0000020 - A p r - 8 4 2 1 : 1 5 : 4 8
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < S T A N S
0000100 B U R Y > N E W D L I O N F S >
0000120 M E S A T Y P E S . ; 2 7 ) \r
0000140 " 1 6 - A p r - 8 4 1 0 : 3 4
0000160 : 2 1 " r e c o m p i l e d
0000200 c h a n g e s : n o t h i n g
0000220 i n W O R K d a t e d "
0000240 1 6 - A p r - 8 4 1 2 : 5 8 :
0000260 2 6 " ) \r ( F I L E C R E A T E
0000300 D " 1 8 - A p r - 8 4 2 1 :
0000320 1 5 : 3 1 " { P H Y L U M } <
0000340 S T A N S B U R Y > N E W D L I
0000360 O N F S > M E S A T Y P E S . ;
0000400 2 7 1 2 5 0 4 c h a n g e s
0000420 t o : ( V A R S \r M E S A
0000440 T Y P E S C O M S ) ( M A C R
0000460 O S M E S A E L T M E S A S
0000500 E T A ) p r e v i o u s d a
0000520 t e : " 1 8 - A p r - 8 4 1
0000540 6 : 0 9 : 5 8 " \r { P H Y L U
0000560 M } < S T A N S B U R Y > N E W
0000600 D L I O N F S > M E S A T Y P E
0000620 S . ; 2 6 ) \r M E S A T Y P E F
0000640 N D 1 \r ( P 2 r e s t P
0000660 1 i s T y p e P 0 t y
0000700 p e N a m e I 0 t y p e D
0000720 e c l ) \0 # 003 \0 \0 001 @ 002 001 @ 002
0000740 002 001 @ 002 002 002 021 003 002 g \0 \0 H g \0 \0
0000760 I 032 h 032 h 032 032 032 J \n \0 \0 020 \0 ( 4
0001000 0 Q \ N C O N C 2 ) \r ( 2 4 Q
0001020 D A T A 2 0 Q M E S A R E
0001040 C O R D ) \r ( ) \r M E S A R E C
0001060 O R D F N D 1 \r ( P 3 r e
0001100 s t P 2 s u b b l o c k s
0001120 P 1 f i e l d D e c l a r
0001140 a t i o n s P 0 r e c o r
0001160 d N a m e I 0 r e c o r d
0001200 D e c l F 4 \ M E S A T Y
0001220 P E S ) \0 @ 004 001 \0 001 @ 002 001 @ 002
0001240 002 001 h h 032 @ 002 002 002 021 004 003 g \0 \0 H
0001260 I \t \0 \0 o \0 \0 \0 h 032 \n \0 \0 h 032 032
0001300 032 J 001 H K \n \0 \0 K \n \0 \0 \n \0 \0 \n
0001320 \0 \0 H i T \v \0 \0 277 020 \0 ( 7 4 Q
0001340 P U T H A S H 6 6 Q \ N C O
0001360 N C 2 6 3 Q \ N C O N C 2
0001400 6 0 Q \ N C O N C 2 5 4 Q
0001420 M e s a R e c o r d C r e a t e
0001440 M e t h o d 4 1 Q \ N C O N
0001460 C 2 3 0 Q M e s a R e c o r
0001500 d F i e l d s ) \r ( 2 3 Q B L
0001520 O C K R E C O R D ) \r ( 3 4 Q
0001540 ( T H I S I S T H E L A S T F
0001560 I E L D W O R D ) ) \r M e s a
0001600 R e c o r d F i e l d s D 1 \r
0001620 ( P 3 f i e l d I 0 f
0001640 i e l d D e c l a r a t i o n s
0001660 F 4 \ M E S A T Y P E S
0001700 F 5 s u b b l o c k s F
0001720 6 r e c o r d N a m e ) \0 u
0001740 004 003 \0 001 021 @ 003 @ 260 k d 001 [ d 001 262
0001760 W 002 001 T 035 263 ! K d 002 002 001 g \0 \0 360
0002000 262 F d 002 001 d 005 001 241 005 002 262 ; d 002 001
0002020 l 002 361 262 3 277 U V K \n \0 \0 \n \0 \0 277
0002040 K 001 g \0 \0 \n \0 \0 K 002 001 d 005 001 241 005
0002060 002 265 016 g \0 \0 K 002 001 h 032 032 \t \0 \0 g
0002100 \0 \0 h 032 032 032 270 I 265 \a H h 032 Z 201 H
0002120 & 271 002 003 265 226 J 020 \0 ( 1 3 2 Q E
0002140 V A L 1 0 3 Q P A C K * 7
0002160 2 Q T C O N C 6 7 Q M e s
0002200 a R e c o r d S u b b l o c k )
0002220 \r ( 1 3 5 Q W O R D 1 2 1 Q
0002240 M E S A S I Z E 1 0 0 Q S
0002260 T A R T O F T H I S F I E L D
0002300 3 2 Q W O R D ) \r ( ) \r M e s
0002320 a R e c o r d S u b b l o c k
0002340 D 1 \r ( P 1 f i e l d S i z
0002360 e P 0 f i e l d N a m e
0002400 I 1 f i e l d D e c l a r a
0002420 t i o n I 0 r e c o r d N
0002440 a m e ) \0 p 002 \0 \0 002 A 001 A 002 001
0002460 021 002 001 I d 005 001 241 005 002 252 g \0 \0 I h
0002500 032 032 \t \0 \0 271 g \0 \0 H g \0 \0 g \0 \0
0002520 @ H g \0 \0 \n \0 \0 h 032 032 g \0 \0 g \0
0002540 \0 h 032 032 032 032 h 032 032 g \0 \0 g \0 \0 g
0002560 \0 \0 @ H h 032 032 g \0 \0 g \0 \0 h 032 032
0002600 032 032 g \0 \0 I h 032 032 032 032 g \0 \0 h 032
0002620 032 032 h 032 032 032 h 032 032 020 \0 ( 5 4 Q
0002640 P A C K * 3 1 Q E V A L ) \r
0002660 ( 1 4 2 Q N E W V A L U E 1
0002700 3 1 Q N E W V A L U E 1 2 1
0002720 Q D A T U M 1 1 6 Q o f
0002740 1 0 6 Q f e t c h 1 0 3 Q
0002760 \ B L T 1 0 0 Q P R O G N
0003000 6 5 Q D A T U M 6 2 Q o f
0003020 5 1 Q S T A R T O F T H I S
0003040 F I E L D 4 4 Q f e t c h
0003060 4 1 Q L O C F 3 5 Q A C C
0003100 E S S F N S 2 2 Q M E S A S
0003120 I Z E ) \r ( ) \r M e s a R e c o
0003140 r d C r e a t e M e t h o d D
0003160 1 \r ( L ( 1 r e s t 0 r
0003200 e c o r d N a m e ) ) \0 G 002 \0
0003220 \0 002 A 021 021 001 H 003 265 \b h 022 262 027 h 020
0003240 001 Y 001 g \0 \0 360 225 I 265 362 i 260 357 H 002
0003260 X 260 346 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0003300 \0 \0 @ h 032 032 h 032 032 o \0 \0 \0 032 032 h
0003320 032 032 h 032 032 h 032 020 \0 N I L \r ( 5 7
0003340 Q M E S A S I Z E 5 4 Q A
0003360 D D 1 5 1 Q L R S H 4 6 Q
0003400 \ A L L O C B L O C K 4 3 Q
0003420 C R E A T E 2 3 Q C R E A
0003440 T E ) \r ( 7 2 Q ( 1 ) ) \r M
0003460 E S A A R R A Y F N D 1 \r ( P
0003500 1 0 Q i n d e x D e c l P
0003520 4 a r r a y O f f s e t s
0003540 P 3 r e s t P 2 e l e
0003560 m e n t T y p e P 1 i n d
0003600 e x D e c l a r a t i o n s P
0003620 0 a r r a y N a m e I 0
0003640 a r r a y D e c l ) \0 226 \t \0
0003660 \0 001 @ 002 001 @ 002 002 001 @ 002 002 002 001 @ 002
0003700 002 002 002 021 024 004 021 @ \b I 260 d 001 _ 020
0003720 001 \t \0 \0 O 020 002 001 \t \0 \0 032 275 N 265 \b
0003740 M h 032 _ 016 201 M & 276 002 003 265 341 O 016 022
0003760 Y d J \n \0 \0 \ g \0 \0 H g \0 \0 I L
0004000 J \v \0 \0 o \0 \0 \0 032 032 h 032 g \0 \0 g
0004020 \0 \0 g \0 \0 I h 032 032 h 032 032 g \0 \0 g
0004040 \0 \0 L h 032 032 h 032 032 g \0 \0 g \0 \0 J
0004060 h 032 032 h 032 032 h 032 032 032 h 032 032 h 032 032
0004100 032 032 K \n \0 \0 020 \0 ( 2 2 3 Q \ A
0004120 P P E N D 2 1 2 1 Q M e s a
0004140 A r r a y F i n d O f f s e t
0004160 1 0 3 Q M e s a A r r a y O f
0004200 f s e t s 5 0 Q E V A L 4
0004220 1 Q E V A L ) \r ( 1 7 4 Q Q
0004240 U O T E 1 7 1 Q E L E M E N
0004260 T T Y P E 1 5 7 Q Q U O T E
0004300 1 5 4 Q O F F S E T L I S T
0004320 1 4 2 Q Q U O T E 1 3 7 Q
0004340 I N D E X L I S T 1 3 4 Q
0004360 A C C E S S F N S 1 1 3 Q D
0004400 A T A 1 0 7 Q M E S A R E C
0004420 O R D ) \r ( 1 2 5 Q ( W O R
0004440 D ) ) \r M e s a A r r a y O f f
0004460 s e t s D 1 \r ( P 0 r e s
0004500 t O f O f f s e t s I 1 e
0004520 l e m e n t T y p e I 0 i
0004540 n d e x D e c l a r a t i o n s
0004560 ) \0 027 001 \0 \0 002 @ d 262 023 002 A \n \0
0004600 \0 021 001 \0 @ 002 H A \v \0 \0 H 032 020 \0 (
0004620 2 2 Q M e s a A r r a y F i n
0004640 d O f f s e t 1 0 Q M e s a
0004660 A r r a y O f f s e t s ) \r N I
0004700 L \r ( ) \r M e s a A r r a y F i
0004720 n d O f f s e t D 1 \r ( I 2
0004740 e l e m e n t T y p e I 1
0004760 a r r a y O f f s e t s I
0005000 0 i n d e x D e c l a r a t i
0005020 o n s ) \0 033 \0 \0 \0 003 @ 265 \r g \0
0005040 \0 B h 032 032 \t \0 \0 020 001 002 @ 001 001 331 k
0005060 330 A 001 332 020 \0 ( 1 4 Q E V A L )
0005100 \r ( 5 M E S A S I Z E ) \r ( )
0005120 \r R e m o v e L a s t D 1 \r (
0005140 P 1 l e n g t h P 0 n
0005160 e w L i s t I 0 l i s t )
0005200 \0 036 002 \0 \0 001 @ \t \0 \0 021 021 001 H \t
0005220 \0 \0 Y d k 361 241 h 020 H I k 331 \n \0 \0
0005240 h 031 H 020 \0 ( 3 0 Q F N T H 1
0005260 2 Q L E N G T H 3 C O P Y
0005300 ) \r N I L \r ( ) \r ( P R E T T Y
0005320 C O M P R I N T M E S A T Y P
0005340 E S C O M S ) \r ( R P A Q Q M
0005360 E S A T Y P E S C O M S ( ( *
0005400 D e f i n e s t h r e e n
0005420 e w r e c o r d t y p e s :
0005440 M E S A T Y P E , M E S A R
0005460 E C O R D , a n d M E S A A
0005500 R A Y . A l s o \r p r o v i
0005520 d e s a n u m b e r o f
0005540 m a c r o s t o m a n i p u
0005560 l a t e o b j e c t s o f
0005600 t h e s e r e c o r d t y p
0005620 e s . N o n e o f t h i s
0005640 p a c k a g e n e e d b e
0005660 \r p r e s e n t i n t h e
0005700 c o m p i l e d v e r s i o
0005720 n o f a c l i e n t p a
0005740 c k a g e . ) ( * P u b l i
0005760 c s t u f f ) ( M A C R O S
0006000 M E S A S I Z E M E S A S E
0006020 T Q \r M E S A E Q U A L F M
0006040 E S A E L T M E S A E L T M
0006060 E S A S E T A ) ( P R O P A
0006100 R G N A M E S M E S A S I Z E
0006120 M E S A S E T Q M E S A E Q
0006140 U A L F M E S A E L T M E S
0006160 A E L T \r M E S A S E T A )
0006200 ( * P r i v a t e s t u f f
0006220 ) ( P ( O R ( B O U N D P
0006240 ( Q U O T E \ M E S A T Y P
0006260 E S ) ) ( S E T Q \ M E S A
0006300 T Y P E S ( C O N S ( H A R
0006320 R A Y 2 0 ) ) ) ) ( \r p u s
0006340 h n e w C L I S P R E C O R D
0006360 T Y P E S ( Q U O T E M E S
0006400 A T Y P E ) ) ( p u s h n e w
0006420 C L I S P R E C O R D T Y P E
0006440 S ( Q U O T E M E S A R E C
0006460 O R D ) ) ( p u s h n e w \r
0006500 C L I S P R E C O R D T Y P E S
0006520 ( Q U O T E M E S A A R R A
0006540 Y ) ) ( M O V D ( Q U O T E
0006560 R E C O R D ) ( Q U O T E
0006600 M E S A T Y P E ) ) ( M O V D
0006620 ( Q U O T E R E C O R D )
0006640 ( Q U O T E \r M E S A R E C O
0006660 R D ) ) ( M O V D ( Q U O T
0006700 E R E C O R D ) ( Q U O T E
0006720 M E S A A R R A Y ) ) ) ( P
0006740 R O P U S E R R E C O R D T Y
0006760 P E M E S A T Y P E M E S A
0007000 R E C O R D \r M E S A A R R A
0007020 Y ) ( F N S M E S A T Y P E
0007040 F N M E S A R E C O R D F N
0007060 M e s a R e c o r d F i e l d s
0007100 M e s a R e c o r d S u b b l
0007120 o c k M e s a R e c o r d C r
0007140 e a t e M e t h o d \r M E S A
0007160 A R R A Y F N M e s a A r r a
0007200 y O f f s e t s M e s a A r r
0007220 a y F i n d O f f s e t R e m
0007240 o v e L a s t ) ) ) \r ( P U T P
0007260 R O P S M E S A S I Z E M A
0007300 C R O ( a r g s ( P R O G
0007320 ( ( r e c o r d N a m e ( C A
0007340 R a r g s ) ) ) ( * R e t
0007360 u r n s t h e s i z e o f
0007400 r e c o r d \r r e c o r d N
0007420 a m e ) ( R E T U R N ( E V
0007440 A L ( B Q U O T E ( I N D E
0007460 X F ( f e t c h ( , r e c
0007500 o r d N a m e T H I S I S T H
0007520 E L A S T F I E L D ) o f T
0007540 ) ) ) ) ) ) ) ) \r ( P U T P R O
0007560 P S M E S A S E T Q M A C R
0007600 O ( a r g s ( P R O G ( (
0007620 a ( C A R a r g s ) ) ( b
0007640 ( C A D R a r g s ) ) ( t
0007660 y p e ( C A D D R a r g s )
0007700 ) ) ( * C o p i e s \r t h
0007720 e c o n t e n t s o f " b
0007740 " i n t o " a " R e t u r
0007760 n s a . S h o u l d b e
0010000 u s e d t o t r a n s l a t
0010020 e s t a t e m e n t o f t
0010040 h e f o r m " a _ b ; "
0010060 \r w h e n a a n d b a
0010100 r e n e i t h e r n u m b e
0010120 r s n o r p o i n t e r s .
0010140 A s a f e r ( i e , m o
0010160 r e c o r r e c t ) w a y
0010200 t o d o t h i s w o u l d
0010220 b e t o \r s a y \r " ( f
0010240 o r e a c h f i e l d f i
0010260 n t y p e s t f h a s
0010300 b o t h a f e t c h a n d
0010320 a r e p l a c e m e t h o
0010340 d d o ( r e p l a c e ( t
0010360 y p e f ) o f a w i t h
0010400 ( f e t c h ( t y p e f )
0010420 o f b ) ) ) " \r ) ( R E T
0010440 U R N ( B Q U O T E ( \ B L
0010460 T , a , b ( M E S A S
0010500 I Z E , t y p e ) ) ) ) ) )
0010520 ) \r ( P U T P R O P S M E S A
0010540 E Q U A L M A C R O ( a r g
0010560 s ( P R O G ( ( a ( C A R
0010600 a r g s ) ) ( b ( C A D R
0010620 a r g s ) ) ( t y p e ( C
0010640 A D D R a r g s ) ) ) ( *
0010660 C o m p a r e s \r a a n d
0010700 b f o r e q u a l i t y ,
0010720 w h e r e a a n d b a r
0010740 e i n s t a n c e s o f r
0010760 e c o r d t y p e . a a n
0011000 d b c a n b e m u l t i
0011020 p l e w o r d s l o n g . \r
0011040 ) ( R E T U R N ( B Q U O T
0011060 E ( f o r w o r d f r o m
0011100 0 t o ( S U B 1 ( M E S
0011120 A S I Z E , t y p e ) ) a
0011140 l w a y s ( E Q ( \ G E T B
0011160 A S E , a w o r d ) ( \r
0011200 \ G E T B A S E , b w o r
0011220 d ) ) ) ) ) ) ) ) \r ( P U T P R
0011240 O P S F M E S A E L T M A C
0011260 R O ( a r g s ( P R O G (
0011300 ( a r r a y ( C A R a r g s
0011320 ) ) ( a r r a y T y p e ( C
0011340 A D R a r g s ) ) ( i n d e
0011360 x e s ( C D D R a r g s ) )
0011400 \r i n d e x R a n g e L i s t
0011420 i n d e x O f f s e t L i s t
0011440 ) ( * R e t u r n s a p
0011460 o i n t e r t o t h e i n
0011500 d i c a t e d e l e m e n t
0011520 o f a r r a y . U n s a f e
0011540 , \r b e c a u s e i t r e
0011560 t u r n s a p o i n t e r
0011600 t o t h e m i d d l e o f
0011620 t h e s t r u c t u r e ,
0011640 w h i c h w o u l d c o n f
0011660 u s e t h e g a r b a g e
0011700 c o l l e c t o r \r i f y o
0011720 u h e l d o n t o t h e
0011740 e l e m e n t p o i n t e r
0011760 l o n g e r t h a n t h e
0012000 a r r a y p o i n t e r . )
0012020 ( S E T Q i n d e x R a n g e
0012040 L i s t ( E V A L ( \r B Q U
0012060 O T E ( f e t c h ( , a r
0012100 r a y T y p e I N D E X L I S
0012120 T ) o f T ) ) ) ) ( S E T
0012140 Q i n d e x O f f s e t L i s
0012160 t ( E V A L ( B Q U O T E
0012200 ( f e t c h ( , a r r a y T
0012220 y p e \r O F F S E T L I S T )
0012240 o f T ) ) ) ) ( R E T U R
0012260 N ( L I S T ( Q U O T E \
0012300 A D D B A S E ) a r r a y (
0012320 C O N S ( Q U O T E I P L U
0012340 S ) ( f o r i n d e x i n
0012360 i n d e x e s \r a s i n d
0012400 e x R a n g e i n i n d e x
0012420 R a n g e L i s t a s o f f
0012440 s e t i n i n d e x O f f s
0012460 e t L i s t c o l l e c t (
0012500 B Q U O T E ( ( O P E N L A M
0012520 B D A ( i n d e x ) ( O R
0012540 \r ( A N D ( I L E Q , ( C
0012560 A R i n d e x R a n g e ) i
0012600 n d e x ) ( I L E Q i n d e
0012620 x , ( C D R i n d e x R a
0012640 n g e ) ) ) ( E R R O R ( Q
0012660 U O T E i n d e x O u t O f R
0012700 a n g e ) ) ) \r ( I T I M E S
0012720 , o f f s e t ( I D I F F
0012740 E R E N C E i n d e x , (
0012760 C A R i n d e x R a n g e ) )
0013000 ) ) , i n d e x ) ) ) ) ) )
0013020 ) ) ) \r ( P U T P R O P S M E
0013040 S A E L T M A C R O ( a r g
0013060 s ( P R O G ( ( a r r a y T
0013100 y p e ( C A D R a r g s ) )
0013120 e l e m e n t T y p e ) ( *
0013140 R e t u r n s t h e s e l
0013160 e c t e d \r e l e m e n t o
0013200 f t h e a r r a y . C o p
0013220 i e s i t i n t o a f r
0013240 e s h l y a l l o c a t e d
0013260 b o x t o a v o i d r e t
0013300 u r n i n g a p o i n t e r
0013320 t o t h e \r m i d d l e
0013340 o f t h e s t r u c t u r e
0013360 , w h i c h m i g h t c o
0013400 n f u s e t h e g a r b a g
0013420 e c o l l e c t o r . ) ( S
0013440 E T Q e l e m e n t T y p e
0013460 ( E V A L ( B Q U O T E ( \r
0013500 f e t c h ( , a r r a y T y
0013520 p e E L E M E N T T Y P E )
0013540 o f T ) ) ) ) ( R E T U R N
0013560 ( B Q U O T E ( M E S A S E
0013600 T Q ( c r e a t e , e l e
0013620 m e n t T y p e ) , ( C O N
0013640 S ( \r Q U O T E F M E S A E
0013660 L T ) a r g s ) , e l e m
0013700 e n t T y p e ) ) ) ) ) ) \r ( P
0013720 U T P R O P S M E S A S E T A
0013740 M A C R O ( a r g s ( P R
0013760 O G ( ( e l t A r g s ( R e
0014000 m o v e L a s t a r g s ) )
0014020 ( a r r a y T y p e ( C A D R
0014040 a r g s ) ) ( n e w V a l u
0014060 e ( \r C A R ( L A S T a r
0014100 g s ) ) ) e l e m e n t T y p
0014120 e ) ( * R e p l a c e s t
0014140 h e i n d e x ' t h e l e m
0014160 e n t o f a r r a y , p r
0014200 o v i d e d t h a t a r r a
0014220 y i s a \r c o n t i g u o
0014240 u s r u n o f o b j e c t
0014260 s o f t y p e e l e m e n
0014300 t T y p e ) ( S E T Q e l e
0014320 m e n t T y p e ( E V A L (
0014340 B Q U O T E ( f e t c h ( ,
0014360 a r r a y T y p e \r E L E M
0014400 E N T T Y P E ) o f T ) ) )
0014420 ) ( R E T U R N ( B Q U O T
0014440 E ( M E S A S E T Q , ( C
0014460 O N S ( Q U O T E F M E S A
0014500 E L T ) e l t A r g s ) ,
0014520 n e w V a l u e , \r e l e m
0014540 e n t T y p e ) ) ) ) ) ) \r ( P
0014560 U T P R O P S M E S A S I Z E
0014600 A R G N A M E S ( r e c o r
0014620 d N a m e ) ) \r ( P U T P R O P
0014640 S M E S A S E T Q A R G N A
0014660 M E S ( a b t y p e ) ) \r
0014700 ( P U T P R O P S M E S A E Q
0014720 U A L A R G N A M E S ( a
0014740 b t y p e ) ) \r ( P U T P R O
0014760 P S F M E S A E L T A R G N
0015000 A M E S ( a r r a y a r r a
0015020 y T y p e i n d e x 1 . . .
0015040 i n d e x n ) ) \r ( P U T P R
0015060 O P S M E S A E L T A R G N
0015100 A M E S ( a r r a y a r r a
0015120 y T y p e i n d e x 1 . . .
0015140 i n d e x n ) ) \r ( P U T P R
0015160 O P S M E S A S E T A A R G
0015200 N A M E S ( a r r a y a r r
0015220 a y T y p e i n d e x 1 . .
0015240 . i n d e x n n e w V a l u
0015260 e ) ) \r ( O R ( B O U N D P
0015300 ( Q U O T E \ M E S A T Y P E
0015320 S ) ) ( S E T Q \ M E S A T
0015340 Y P E S ( C O N S ( H A R R
0015360 A Y 2 0 ) ) ) ) \r ( p u s h n
0015400 e w C L I S P R E C O R D T Y
0015420 P E S ( Q U O T E M E S A T
0015440 Y P E ) ) \r ( p u s h n e w C
0015460 L I S P R E C O R D T Y P E S
0015500 ( Q U O T E M E S A R E C O R
0015520 D ) ) \r ( p u s h n e w C L I
0015540 S P R E C O R D T Y P E S ( Q
0015560 U O T E M E S A A R R A Y ) )
0015600 \r ( M O V D ( Q U O T E R E
0015620 C O R D ) ( Q U O T E M E S
0015640 A T Y P E ) ) \r ( M O V D ( Q
0015660 U O T E R E C O R D ) ( Q U
0015700 O T E M E S A R E C O R D ) )
0015720 \r ( M O V D ( Q U O T E R E
0015740 C O R D ) ( Q U O T E M E S
0015760 A A R R A Y ) ) \r ( P U T P R O
0016000 P S M E S A T Y P E U S E R
0016020 R E C O R D T Y P E M E S A T
0016040 Y P E F N ) \r ( P U T P R O P S
0016060 M E S A R E C O R D U S E R
0016100 R E C O R D T Y P E M E S A R
0016120 E C O R D F N ) \r ( P U T P R O
0016140 P S M E S A A R R A Y U S E
0016160 R R E C O R D T Y P E M E S A
0016200 A R R A Y F N ) \r ( P U T P R O
0016220 P S M E S A T Y P E S C O P
0016240 Y R I G H T ( " X e r o x C
0016260 o r p o r a t i o n " 1 9 8 4
0016300 ) ) \r N I L \r
0016307