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