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