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