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