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