$ od -c -N 50000 [eris]<LispCore>SOURCES>APRINT.DCOM!46
0000000 ( F I L E C R E A T E D " 3 0
0000020 - S e p - 8 6 1 2 : 2 7 : 5 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 P R I N T
0000120 . ; 4 6 ) \r " 2 7 - S e p - 8
0000140 6 0 0 : 3 3 : 5 8 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 P R I N 1 P R I N 2 P R I N
0000220 3 P R I N 4 \ L I T P R I N
0000240 i n \r " X e r o x L i s p
0000260 2 7 - S e p - 8 6 . . . "
0000300 d a t e d " 2 7 - S e p - 8 6
0000320 0 0 : 5 1 : 4 7 " ) \r ( F I L
0000340 E C R E A T E D " 3 0 - S e p
0000360 - 8 6 1 2 : 0 8 : 5 0 " { E
0000400 R I S } < L I S P C O R E > S O
0000420 U R C E S > A P R I N T . ; 4 6
0000440 7 1 5 5 9 c h a n g e s t
0000460 o : ( V A R S \r A P R I N T
0000500 C O M S ) ( M A C R O S N U
0000520 M F O R M A T C O D E ) ( F N
0000540 S P R I N 1 P R I N 2 P R
0000560 I N 3 P R I N 4 \ L I T P R
0000600 I N ) p r e v i o u s d a t
0000620 e : \r " 1 8 - S e p - 8 6 1
0000640 1 : 4 1 : 0 1 " { E R I S } <
0000660 L I S P C O R E > S O U R C E S
0000700 > A P R I N T . ; 4 4 ) \r P R I
0000720 N 1 D 1 \r ( L ( 1 F I L E
0000740 0 X ) P 1 0 Q \ T H I
0000760 S F I L E L I N E L E N G T H
0001000 P 7 * P R I N T - R A D I X
0001020 * P 6 * P R I N T - E S C
0001040 A P E * P 5 * P R I N T -
0001060 C A S E * P 4 * P R I N T
0001100 - L E N G T H * P 3 * P R
0001120 I N T - L E V E L * F 1 1 Q
0001140 * R E A D T A B L E * F 1
0001160 2 Q \ T E R M . O F D F 1
0001200 3 Q P L V L F I L E F L G F
0001220 1 4 Q * P R I N T - C A S E
0001240 * F 1 5 Q * P R I N T - L
0001260 E V E L * F 1 6 Q * P R I
0001300 N T - L E N G T H * F 1 7 Q
0001320 * I N T E R L I S P - P R I N
0001340 1 - C A S E * ) \0 S \t \a \0 002 A
0001360 g \0 \0 \n \0 \0 021 ! 002 W 022 006 \0 \0 312 002
0001400 j 360 h 360 265 \n H W 024 360 265 004 W 026 Y
0001420 264 004 W 032 I 264 004 W 034 W 036 265 004 W 030 021
0001440 3 \b H 310 037 Z d j 360 224 277 ` \0 \0 207 n
0001460 377 377 360 221 h 200 J _ 020 @ H j \v \0 \0 @
0001500 020 \0 ( 1 1 7 Q \ P R I N D A T
0001520 U M 6 \ G E T S T R E A M )
0001540 \r ( 7 6 Q \ L I N E L E N G T
0001560 H 1 6 Q R E A D T A B L E P
0001600 3 O U T P U T ) \r ( ) \r P R
0001620 I N 2 D 1 \r ( L ( 2 R D T
0001640 B L 1 F I L E 0 X ) P
0001660 1 1 Q \ T H I S F I L E L I
0001700 N E L E N G T H P 1 0 Q *
0001720 P A C K A G E * P 7 * P R
0001740 I N T - L E N G T H * P 6
0001760 * P R I N T - L E V E L * P
0002000 5 * P R I N T - R A D I X *
0002020 P 4 * P R I N T - E S C A P
0002040 E * P 3 * R E A D T A B L
0002060 E * F 1 2 Q * R E A D T A
0002100 B L E * F 1 3 Q \ T E R M
0002120 . O F D F 1 4 Q P L V L F
0002140 I L E F L G F 1 5 Q * P A
0002160 C K A G E * F 1 6 Q * P R
0002200 I N T - B A S E * F 1 7 Q
0002220 * P R I N T - L E V E L * F
0002240 2 0 Q * P R I N T - L E N G T
0002260 H * ) \0 n \n \a \0 003 A g \0 \0 \n \0
0002300 \0 021 ! 002 B 225 B d i 360 222 277 W 024 006 \0
0002320 \0 b 004 312 002 j 360 h 360 265 \n H W 026 360
0002340 265 004 W 030 271 B i W 034 l \n 360 h 360 I 264
0002360 004 W 036 I 264 004 W B 312 \0 j 360 243 `
0002400 \0 \0 201 W 032 021 026 \t H 310 037 Z d j 360 224
0002420 277 ` \0 \0 207 n 377 377 360 221 h 200 J _ 022 @
0002440 H j \v \0 \0 @ 020 \0 ( 1 5 2 Q \ P
0002460 R I N D A T U M 6 \ G E T S
0002500 T R E A M ) \r ( 1 3 1 Q \ L I
0002520 N E L E N G T H 1 0 7 Q * I
0002540 N T E R L I S P - P A C K A G E
0002560 * 2 6 Q R E A D T A B L E P
0002600 3 O U T P U T ) \r ( ) \r P R
0002620 I N 3 D 1 \r ( L ( 1 F I L
0002640 E 0 X ) P 7 \ T H I S
0002660 F I L E L I N E L E N G T H P
0002700 6 * P R I N T - R A D I X *
0002720 P 5 * P R I N T - E S C A
0002740 P E * P 4 * P R I N T - C
0002760 A S E * P 3 * P R I N T -
0003000 L E N G T H * P 2 * P R I
0003020 N T - L E V E L * F 1 0 Q
0003040 * R E A D T A B L E * F 1 1
0003060 Q \ T E R M . O F D F 1 2
0003100 Q P L V L F I L E F L G F
0003120 1 3 Q * P R I N T - C A S E *
0003140 F 1 4 Q * P R I N T - L E
0003160 V E L * F 1 5 Q * P R I N
0003200 T - L E N G T H * F 1 6 Q
0003220 * I N T E R L I S P - P R I N 1
0003240 - C A S E * ) \0 < \b \a \0 002 A g
0003260 \0 \0 \n \0 \0 021 021 001 W 020 006 \0 \0 312 002
0003300 j 360 h 360 265 \n H W 022 360 265 004 W 024 Y 264
0003320 004 W 030 I 264 004 W 032 W 034 265 004 W 026 021 3
0003340 \a @ H j \v \0 \0 @ 020 \0 ( 7 0 Q \
0003360 P R I N D A T U M 6 \ G E T
0003400 S T R E A M ) \r ( 1 6 Q R E A
0003420 D T A B L E P 3 O U T P U T
0003440 ) \r ( ) \r P R I N 4 D 1 \r ( L
0003460 ( 2 R D T B L 1 F I L E
0003500 0 X ) P 1 0 Q \ T H I
0003520 S F I L E L I N E L E N G T H
0003540 P 7 * P A C K A G E * P
0003560 6 * P R I N T - L E N G T H *
0003600 P 5 * P R I N T - L E V E
0003620 L * P 4 * P R I N T - R A
0003640 D I X * P 3 * P R I N T -
0003660 E S C A P E * P 2 * R E A
0003700 D T A B L E * F 1 1 Q * R
0003720 E A D T A B L E * F 1 2 Q
0003740 \ T E R M . O F D F 1 3 Q
0003760 P L V L F I L E F L G F 1 4
0004000 Q * P A C K A G E * F 1 5
0004020 Q * P R I N T - B A S E * F
0004040 1 6 Q * P R I N T - L E V E
0004060 L * F 1 7 Q * P R I N T -
0004100 L E N G T H * ) \0 W \t \a \0 003 A
0004120 g \0 \0 \n \0 \0 021 021 001 B 225 B d i 360 222
0004140 277 W 022 006 \0 \0 b 004 312 002 j 360 h 360 265
0004160 \n H W 024 360 265 004 W 026 271 B i W 032 l \n
0004200 360 h 360 I 264 004 W 034 I 264 004 W 036 B 312 \0
0004220 j 360 243 ` \0 \0 201 W 030 021 026 \b @ H j
0004240 \v \0 \0 @ 020 \0 ( 1 2 3 Q \ P R I
0004260 N D A T U M 6 \ G E T S T R
0004300 E A M ) \r ( 1 0 7 Q * I N T E
0004320 R L I S P - P A C K A G E * 2
0004340 6 Q R E A D T A B L E P 3
0004360 O U T P U T ) \r ( ) \r P R I N T
0004400 D 1 \r ( L ( 2 R D T B L
0004420 1 F I L E 0 X ) ) \0 ! 002
0004440 \0 \0 003 A g \0 \0 \n \0 \0 021 021 001 @ H B
0004460 \v \0 \0 H 006 \0 \0 311 271 H l \r l 002 I
0004500 016 @ 020 \0 ( 1 7 Q P R I N 2 6
0004520 \ G E T S T R E A M ) \r ( 2 3
0004540 Q S T R E A M 3 O U T P U
0004560 T ) \r ( ) \r P R I N T C C O D E
0004600 D 1 \r ( L ( 1 F I L E 0
0004620 C H A R C O D E ) ) \0 ) 003 \0
0004640 \0 002 A g \0 \0 \n \0 \0 @ d 005 001 227 277 j
0004660 @ 361 241 @ 203 @ \t \0 \0 021 022 002 H 006 \0 \0
0004700 311 272 H I l 002 J 016 020 \0 ( 2 6 Q
0004720 \ I L L E G A L . A R G 6 \
0004740 G E T S T R E A M ) \r ( 3 5 Q
0004760 S T R E A M 3 O U T P U T )
0005000 \r ( ) \r P R I N T L E V E L D
0005020 1 \r ( L ( 1 C D R V A L 0
0005040 C A R V A L ) F 0 * P R
0005060 I N T - L E V E L * F 1 *
0005100 P R I N T - L E N G T H * ) \0
0005120 6 \0 002 \0 002 @ 003 265 ( P 265 004 m 377 Q 265
0005140 004 m 377 032 @ 232 j @ 361 h 360 264 003 @ c \0
0005160 277 A 232 j A 361 h 360 264 003 A c 002 277 020 002
0005200 b 002 277 @ 001 b \0 277 260 321 \0 N I L \r N
0005220 I L \r ( ) \r R A D I X D 1 \r (
0005240 L ( 0 N ) F 1 * P R I
0005260 N T - B A S E * ) \0 # 001 001 \0 001
0005300 Q @ 262 037 @ 021 001 \0 H d 005 001 234 277 k H
0005320 361 246 H d l $ 361 224 277 H \t \0 \0 022 c 002
0005340 277 020 \0 ( 3 4 Q \ I N V A L I D
0005360 . R A D I X ) \r N I L \r ( ) \r S
0005400 P A C E S D 1 \r ( L ( 1 F
0005420 I L E 0 N ) ) \0 O 004 \0 \0 002
0005440 A g \0 \0 \n \0 \0 021 1 003 H 006 \0 \0 310 037
0005460 Z d j 360 224 277 ` \0 \0 207 n 377 377 360 221 h
0005500 200 J Y 237 @ H 006 \0 \0 310 035 330 I 361 224 H
0005520 \t \0 \0 277 @ d j 361 264 025 H 006 \0 \0 311
0005540 273 H l l 002 K 016 277 k 331 260 352 020 \0 (
0005560 6 2 Q F R E S H L I N E 6
0005600 \ G E T S T R E A M ) \r ( 7 5 Q
0005620 S T R E A M 5 0 Q S T R E
0005640 A M 3 0 Q \ L I N E L E N G
0005660 T H 1 5 Q S T R E A M 3
0005700 O U T P U T ) \r ( ) \r T E R P R
0005720 I D 1 \r ( L ( 0 F I L E )
0005740 ) \0 033 002 \0 \0 001 @ g \0 \0 \n \0 \0 021
0005760 021 001 H 006 \0 \0 311 271 H l \r l 002 I 016
0006000 h 020 \0 ( 6 \ G E T S T R E A M
0006020 ) \r ( 1 5 Q S T R E A M 3
0006040 O U T P U T ) \r ( ) \r F R E S H
0006060 L I N E D 1 \r ( L ( 0 S T
0006100 R E A M ) ) \0 d 001 \0 \0 001 @ d 004
0006120 l \v 360 262 8 d 006 \0 \0 312 004 R l 004 345 j
0006140 360 262 2 277 @ d 006 \0 \0 312 004 R l 002 345 j
0006160 360 263 032 277 @ 006 \0 \0 311 006 006 \0 \0 311 4 021
0006200 001 \0 @ k H 016 022 221 @ 210 @ g \0 \0 \n \0
0006220 \0 b \0 006 \0 \0 310 035 j 360 263 024 @ 006 \0 \0
0006240 311 021 001 \0 @ l \r l 002 H 016 i 020 h 020
0006260 \0 ( 1 0 3 Q G E T S T R E A M
0006300 ) \r ( 1 2 2 Q S T R E A M 1
0006320 1 0 Q S T R E A M 1 0 0 Q
0006340 O U T P U T 5 7 Q F D E V
0006360 5 2 Q S T R E A M 3 3 Q S
0006400 T R E A M 1 3 Q S T R E A M
0006420 ) \r ( ) \r D E F P R I N T D 1
0006440 \r ( L ( 1 F N 0 T Y P E
0006460 ) ) \0 1 001 \0 \0 002 @ d 3 224 \t \0
0006500 \0 b \0 ` \0 \0 026 021 001 \0 H 265 022 A 232 @
0006520 A 032 ` \0 \0 032 027 \0 \0 277 H 002 020 ` \0 \0
0006540 \n \0 \0 027 \0 \0 277 260 346 \0 ( 5 1 Q D
0006560 R E M O V E 7 \ T Y P E N A
0006600 M E F R O M N U M B E R ) \r ( 5
0006620 4 Q \ D E F P R I N T F N S
0006640 4 6 Q \ D E F P R I N T F N S
0006660 3 7 Q \ D E F P R I N T F N
0006700 S 3 3 Q \ D E F P R I N T F
0006720 N S 1 4 Q \ D E F P R I N T
0006740 F N S ) \r ( ) \r L I N E L E N G
0006760 T H D 1 \r ( L ( 1 F I L E
0007000 0 N ) ) \0 6 001 \0 \0 002 A g \0
0007020 \0 \n \0 \0 021 001 \0 H 006 \0 \0 310 037 @ 262 #
0007040 @ 3 020 231 k @ 361 225 @ \t \0 \0 277 020 H 006
0007060 \0 \0 @ d i 360 224 277 n 377 377 201 j 330 315 037
0007100 277 020 \0 ( 3 6 Q \ I L L E G A L
0007120 . A R G 6 \ G E T S T R E A
0007140 M ) \r ( 4 4 Q S T R E A M 1
0007160 5 Q S T R E A M 3 O U T P
0007200 U T ) \r ( ) \r P R I N T - C I R
0007220 C L E - L O O K U P D 1 \r ( L
0007240 ( 0 O B J E C T ) F 4
0007260 * P R I N T - C I R C L E - N U
0007300 M B E R * F 5 * P R I N T
0007320 - C I R C L E - H A S H T A B L
0007340 E * F 6 * R E A D T A B L
0007360 E * ) \0 k 004 003 \0 001 @ U \n \0 \0 021
0007400 1 003 H d g \0 \0 360 226 277 h d \n \0 \0 020
0007420 g \0 \0 360 262 , V 006 \0 \0 312 004 \a \t \0 \0
0007440 T o \0 \0 \0 \v \0 \0 @ 273 U 272 T 271 K J
0007460 I \v \0 \0 277 T k 324 c \b 277 i \n \0 \0 020
0007500 H 3 020 262 031 V 006 \0 \0 312 004 \a \t \0 \0 H
0007520 o \0 \0 \0 \v \0 \0 h \n \0 \0 020 o \0 \0 \0
0007540 \t \0 \0 020 \0 ( 1 5 0 Q C L : E R
0007560 R O R 1 4 0 Q V A L U E S
0007600 1 3 4 Q C O N C A T 1 2 4 Q
0007620 C H A R A C T E R 1 0 4 Q
0007640 V A L U E S 7 1 Q C L : P U
0007660 T H A S H 5 5 Q C O N C A T
0007700 4 5 Q C H A R A C T E R 2
0007720 4 Q V A L U E S 4 G E T H
0007740 A S H ) \r ( 1 1 6 Q R E A D T
0007760 A B L E P 3 7 Q R E A D T A
0010000 B L E P 3 0 Q T 2 1 4 Q
0010020 T 1 ) \r ( 1 4 5 Q " P r i n
0010040 t - c i r c l e - l o o k u p
0010060 h a s h t a b l e e r r o r !
0010100 " 1 3 1 Q " # " 5 2 Q "
0010120 = " ) \r P R I N T - C I R C L E
0010140 - L A B E L - P D 1 \r ( L (
0010160 0 O B J E C T ) F 1 * P
0010200 R I N T - C I R C L E - H A S H
0010220 T A B L E * ) \0 027 001 001 \0 001 @ Q
0010240 \n \0 \0 021 001 \0 H g \0 \0 360 265 \b H 3
0010260 264 003 H 020 \0 ( 4 G E T H A S H )
0010300 \r ( 1 3 Q T 2 ) \r ( ) \r P R I
0010320 N T - C I R C L E - S C A N D
0010340 1 \r ( L ( 0 O B J E C T )
0010360 F 4 * P R I N T - A R R A Y
0010400 * ) \0 f 004 001 \0 001 @ d 004 l 005 360 262
0010420 025 \t \0 \0 254 @ 001 \t \0 \0 @ 002 b \0 277 277
0010440 260 351 h 020 021 001 \0 H \t \0 \0 264 \b H \t \0
0010460 \0 i 360 022 264 357 T 264 354 @ \t \0 \0 263 345 @
0010500 \t \0 \0 021 1 003 @ d \t \0 \0 k 363 230 277 H
0010520 g \0 \0 @ \v \0 \0 271 H j 273 272 J K 363 264
0010540 304 I K 266 \t \0 \0 277 K k 324 273 260 360 \0 (
0010560 1 3 5 Q P R I N T - C I R C L
0010600 E - S C A N 1 1 5 Q M A K E
0010620 - A R R A Y 1 0 1 Q A R R A
0010640 Y - R A N K 7 1 Q A R R A Y
0010660 - T O T A L - S I Z E 6 3 Q
0010700 P R I N T - C I R C L E - E N T
0010720 E R 4 7 Q A R R A Y - E L E
0010740 M E N T - T Y P E 4 1 Q C L
0010760 : A R R A Y P 2 0 Q P R I N
0011000 T - C I R C L E - S C A N 1 2
0011020 Q P R I N T - C I R C L E - E
0011040 N T E R ) \r ( 1 1 1 Q : D I S
0011060 P L A C E D - T O ) \r ( ) \r P R
0011100 I N T - C I R C L E - E N T E R
0011120 D 1 \r ( L ( 0 O B J E C T
0011140 ) F 5 * P R I N T - C I R
0011160 C L E - H A S H T A B L E * F
0011200 6 T H E R E - A R E - C I R
0011220 C L E S ) \0 A 005 002 \0 001 @ U \n \0
0011240 \0 021 A 004 H 265 020 @ 272 U 271 J I g \0 \0
0011260 \v \0 \0 h 020 g \0 \0 360 262 023 @ 274 U 273 L
0011300 K g \0 \0 \v \0 \0 277 i c \f 020 H g \0 \0
0011320 360 221 i 020 o \0 \0 \0 \t \0 \0 020 \0 ( 7 6
0011340 Q C L : E R R O R 5 2 Q C
0011360 L : P U T H A S H 2 6 Q C L
0011400 : P U T H A S H 4 G E T H A
0011420 S H ) \r ( 6 3 Q T 2 4 7 Q
0011440 T 2 3 3 Q T 1 2 3 Q T 1
0011460 ) \r ( 7 3 Q " P r i n t - c
0011500 i r c l e - e n t e r h a s h
0011520 t a b l e e r r o r ! " ) \r \
0011540 P R I N D A T U M D 1 \r ( L
0011560 ( 2 C P L 1 S T R E A M
0011600 0 X ) P 1 1 Q * P R I N
0011620 T - E S C A P E * P 1 0 Q
0011640 * P R I N T - L E V E L * F
0011660 1 2 Q * R E A D T A B L E *
0011700 F 1 3 Q * P R I N T - L E N
0011720 G T H * F 1 4 Q * P R I N
0011740 T - C I R C L E - H A S H T A B
0011760 L E * F 1 5 Q * P R I N T
0012000 - L E V E L * F 1 6 Q \ T
0012020 H I S F I L E L I N E L E N G T
0012040 H F 1 7 Q * P R I N T - B
0012060 A S E * F 2 0 Q * P R I N
0012100 T - R A D I X * ) 002 235 \n \a \0 003
0012120 @ 004 d l 004 360 226 277 @ A \n \0 \0 020 d l
0012140 005 360 242 261 \0 312 277 B 243 j b 004 277 021 @ 003
0012160 W 030 235 @ \t \0 \0 \t \0 \0 Z 001 270 J 002 001
0012200 271 H 262 032 A H \n \0 \0 277 I 226 A l \n
0012220 \0 \0 277 H 226 I 264 003 202 261 \0 223 W 032 265 025
0012240 h 273 W 026 262 W 024 006 \0 \0 312 002 j 360
0012260 252 j 217 B 361 263 353 A \t \0 \0 020 W 026 B 361
0012300 262 367 B 273 B k 324 b 004 277 A l ( \n \0 \0
0012320 277 K 265 5 @ 001 A B \v \0 \0 277 @ 002 b \0
0012340 d 003 262 3 277 A l \n \0 \0 277 W 030 262 343
0012360 @ \t \0 \0 262 335 A o \0 \0 \0 \n \0 \0 277 @
0012400 A B \v \0 \0 260 037 k 324 [ W 026 361 262 307 A
0012420 i \n \0 \0 216 236 A o \0 \0 \0 \n \0 \0 277 @
0012440 A \n \0 \0 277 A l ) \n \0 \0 h 020 d k 360
0012460 245 d l 002 360 262 Z 277 ` \0 \0 265 M l & \t
0012500 \0 \0 ` \0 \0 265 < \b \0 \0 021 022 002 A @ W
0012520 036 Z d 005 001 234 277 k J 361 246 J d l $ 361
0012540 224 277 J \t \0 \0 i W 264 004 W 024 H I \r
0012560 006 \0 \0 \n \0 \0 H 027 \0 \0 277 I 027 \0 \0 277
0012600 020 h 027 \0 \0 277 260 304 h 027 \0 \0 277 260 265 d
0012620 l 003 360 262 R 277 ` \0 \0 265 1 l & \t \0 \0
0012640 ` \0 \0 265 \b \0 \0 021 002 001 A @ H I A
0012660 006 \0 \0 311 006 ` \0 \0 360 262 030 ` \0 \0 263 023
0012700 i 260 023 h 027 \0 \0 277 260 340 h 027 \0 \0 277 260
0012720 321 ` \0 \0 \f \0 \0 \n \0 \0 H 027 \0 \0 277 I
0012740 027 \0 \0 277 020 d l \a 360 226 277 @ A \n \0 \0
0012760 020 l \b 360 225 @ A \n \0 \0 020 @ d i \n \0
0013000 \0 227 277 @ A j \v \0 \0 020 \t \0 \0 021 q \a
0013020 H ` \0 \0 026 _ 016 262 # W 032 d 224 B 265 003
0013040 j 331 021 001 \b O 016 002 271 @ A j l 003 I 017
0013060 016 022 _ 016 265 003 202 261 \0 223 W 024 006 \0 \0 312
0013100 002 j 360 263 ] W 034 262 026 A d 006 \0 \0 310
0013120 035 l 002 330 W 034 361 226 277 A \t \0 \0 277 A W
0013140 024 006 \0 \0 312 004 \a 274 [ 006 \0 \0 311 272 K
0013160 L l 002 J 016 277 A 006 \0 \0 311 275 A l <
0013200 l 002 M 016 277 H 225 H A \n \0 \0 277 A o \0
0013220 \0 \0 \n \0 \0 @ A \n \0 \0 A l > \n \0 \0
0013240 020 A l { \n \0 \0 H 225 H A \n \0 \0 277 A
0013260 l } \n \0 \0 A 006 \0 \0 311 276 A l # l
0013300 002 N 016 277 @ A \n \0 \0 020 003 264 376 O 016 d
0013320 001 235 277 021 020 \t O 016 001 A \n \0 \0 023 O 016
0013340 002 264 350 O 016 002 b \0 023 261 375 g \0 ( 1 2
0013360 1 4 Q \ P R I N D A T U M 1
0013400 1 7 0 Q \ P R I N T A D D R
0013420 1 1 4 4 Q \ C K P O S B O U T
0013440 1 1 3 5 Q \ L I T P R I N
0013460 1 1 2 6 Q \ C K P O S B O U T
0013500 1 1 1 7 Q \ C K P O S B O U
0013520 T 1 1 1 1 Q \ P R I N T A D
0013540 D R 1 1 0 4 Q \ C K P O S S
0013560 O U T 1 0 7 3 Q \ L I T P R
0013600 I N 1 0 1 4 Q F R E S H L I
0013620 N E 6 7 4 Q T Y P E N A M E
0013640 6 7 0 Q P R I N T - I N S T
0013660 A N C E 6 6 0 Q \ I N S T A
0013700 N C E - P 6 5 1 Q \ P R I N
0013720 S T A C K P 6 3 7 Q \ P R I
0013740 N S T R I N G 6 1 1 Q \ C K
0013760 P O S S O U T 6 0 6 Q \ C O
0014000 N V E R T . F L O A T I N G . N
0014020 U M B E R 5 2 7 Q C O N C A
0014040 T 5 1 7 Q A L L O C S T R I
0014060 N G 4 4 5 Q \ C K P O S S O
0014100 U T 4 4 2 Q \ C O N V E R T
0014120 N U M B E R 4 2 5 Q \ I N V
0014140 A L I D . R A D I X 3 7 1 Q
0014160 C O N C A T 3 6 1 Q A L L O
0014200 C S T R I N G 3 3 2 Q \ C K
0014220 P O S B O U T 3 2 3 Q \ P R
0014240 I N D A T U M 3 1 5 Q \ C K
0014260 P O S S O U T 3 0 3 Q \ E L
0014300 I D E . P R I N T . T A I L 2
0014320 6 4 Q \ P R I N D A T U M 2
0014340 5 5 Q \ C K P O S S O U T 2
0014360 4 3 Q P R I N T - C I R C L E
0014400 - L A B E L - P 2 3 2 Q \ C
0014420 K P O S B O U T 2 1 2 Q \ P
0014440 R I N D A T U M 1 7 7 Q \ C
0014460 K P O S B O U T 1 5 2 Q \ E
0014500 L I D E . P R I N T . E L E M E
0014520 N T 1 0 1 Q \ C K P O S B O
0014540 U T 7 0 Q \ C K P O S S O U
0014560 T 5 1 Q \ M V L I S T 4 6
0014600 Q P R I N T - C I R C L E - L
0014620 O O K U P 1 4 Q \ L I T P R
0014640 I N ) \r ( 1 1 5 0 Q S T R E A
0014660 M 1 0 5 1 Q S T R E A M 1
0014700 0 3 3 Q S T R E A M 1 0 2 3
0014720 Q R E A D T A B L E P 7 7 6
0014740 Q S T R E A M 7 5 6 Q R E
0014760 A D T A B L E P 7 0 3 Q \ D
0015000 E F P R I N T F N S 6 2 2 Q
0015020 \ \ N U M S T R 1 . G L O B A L
0015040 R E S O U R C E 6 1 5 Q \ \
0015060 N U M S T R . G L O B A L R E S
0015100 O U R C E 6 0 3 Q \ F L O A
0015120 T F O R M A T 5 7 5 Q \ \ N
0015140 U M S T R . G L O B A L R E S O
0015160 U R C E 5 6 6 Q \ \ N U M S
0015200 T R 1 . G L O B A L R E S O U R
0015220 C E 5 5 5 Q P R X F L G 5
0015240 4 7 Q \ P N A M E D E V I C E
0015260 5 4 2 Q S T R E A M 5 2 2
0015300 Q \ \ N U M S T R 1 . G L O B
0015320 A L R E S O U R C E 5 1 0 Q
0015340 \ \ N U M S T R . G L O B A L R
0015360 E S O U R C E 4 7 3 Q \ \ N
0015400 U M S T R . G L O B A L R E S O
0015420 U R C E 4 6 4 Q \ \ N U M S
0015440 T R 1 . G L O B A L R E S O U R
0015460 C E 4 5 6 Q \ \ N U M S T R
0015500 1 . G L O B A L R E S O U R C E
0015520 4 5 1 Q \ \ N U M S T R . G
0015540 L O B A L R E S O U R C E 3 6
0015560 4 Q \ \ N U M S T R 1 . G L O
0015600 B A L R E S O U R C E 3 5 2 Q
0015620 \ \ N U M S T R . G L O B A L
0015640 R E S O U R C E 1 3 2 Q R E
0015660 A D T A B L E P ) \r ( 1 1 0 1
0015700 Q " @ " 3 1 2 Q " .
0015720 " 2 5 2 Q " . " ) \r \ E
0015740 L I D E . P R I N T . E L E M E
0015760 N T D 1 \r ( L ( 0 S T R E
0016000 A M ) ) \0 026 003 \0 \0 001 @ \b \0 \0 021
0016020 022 002 H 006 \0 \0 311 272 H I l 002 J 016 020
0016040 \0 ( 3 \ E L I D E . E L E M E
0016060 N T . C H A R ) \r ( 1 2 Q S T
0016100 R E A M ) \r ( ) \r \ E L I D E .
0016120 E L E M E N T . C H A R D 1 \r
0016140 ( F 0 * R E A D T A B L E *
0016160 ) \0 026 \0 001 \0 \0 P 006 \0 \0 312 002 j
0016200 360 247 P 006 \0 \0 312 004 \a 020 l & 020 \0 N I
0016220 L \r ( 1 5 Q R E A D T A B L E
0016240 P 3 R E A D T A B L E P ) \r
0016260 ( ) \r \ E L I D E . P R I N T .
0016300 T A I L D 1 \r ( L ( 1 N O
0016320 S P A C E P 0 S T R E A M )
0016340 ) \0 035 001 \0 \0 002 A 263 023 @ 006 \0 \0 311
0016360 021 001 \0 @ l l 002 H 016 023 \b \0 \0 @
0016400 \n \0 \0 020 \0 ( 3 2 Q \ S O U T
0016420 2 6 Q \ E L I D E . T A I L .
0016440 S T R I N G ) \r ( 6 S T R E A
0016460 M ) \r ( ) \r \ E L I D E . T A I
0016500 L . S T R I N G D 1 \r ( F 0
0016520 * R E A D T A B L E * ) \0 025
0016540 \0 001 \0 \0 P 006 \0 \0 312 002 j 360 244 o \0
0016560 \0 \0 020 o \0 \0 \0 020 \0 N I L \r ( 3
0016600 R E A D T A B L E P ) \r ( 2 2
0016620 Q " - - " 1 5 Q " . . . "
0016640 ) \r \ C K P O S B O U T D 1 \r
0016660 ( L ( 1 X 0 S T R E A M
0016700 ) F 1 \ T H I S F I L E L
0016720 I N E L E N G T H ) \0 & 001 001 \0
0016740 002 Q 262 024 @ d 006 \0 \0 310 035 k 330 Q 361 226
0016760 277 @ \t \0 \0 277 @ 006 \0 \0 311 021 001 \0 @
0017000 A l 002 H 016 020 \0 ( 2 3 Q F R E S
0017020 H L I N E ) \r ( 3 0 Q S T R E
0017040 A M 7 S T R E A M ) \r ( ) \r
0017060 \ C K P O S S O U T D 1 \r ( L
0017100 ( 1 X 0 S T R E A M )
0017120 F 7 \ T H I S F I L E L I N
0017140 E L E N G T H ) \0 ` \a 001 \0 002 W
0017160 016 262 030 A 006 \0 \0 310 002 @ 006 \0 \0 310 035 330
0017200 W 016 361 224 @ \t \0 \0 277 A 021 a 006 H 310 003
0017220 k 331 273 H 311 \0 274 K H 310 002 330 272 H 312 \0
0017240 C j 360 221 h 200 i ] 277 K k 330 [ J 361 263
0017260 035 M 225 L K 320 310 \0 202 L K 302 271 @ 006 \0
0017300 \0 311 276 @ I l 002 N 016 260 336 h 020 \0 (
0017320 3 0 Q F R E S H L I N E ) \r (
0017340 1 2 1 Q S T R E A M 1 5 Q
0017360 S T R E A M 7 S T R I N G P
0017400 ) \r ( ) \r \ C O N V E R T N U M
0017420 B E R D 1 \r ( L ( 5 N S B
0017440 4 N S 3 R D T B L 2
0017460 I G N O R E 1 R 0 N ) )
0017500 001 035 006 \0 \0 006 @ j 360 224 o \0 \0 \0 020
0017520 021 ` 005 j @ 363 241 @ 203 j @ 331 X 271 D 006
0017540 \0 \0 006 \0 \0 310 002 Z k 331 273 h 274 A l \b
0017560 360 222 C 265 027 D J m 377 324 Z I A 334 275 l
0017600 \n M 361 262 & M l 0 260 ' 006 \0 \0 312 002
0017620 j 360 262 343 I l \a 361 262 335 D K k 324 [ l
0017640 Q \v \0 \0 277 i 274 260 316 M l \n 331 l A 330
0017660 \v \0 \0 277 I A 333 Y j 360 262 273 H 233 D J
0017700 m 377 324 Z l - \v \0 \0 277 A l \n 360 222 261
0017720 \0 214 C 242 261 \0 207 L 222 261 \0 202 @ l \t 363
0017740 244 A @ 363 263 w A d l 020 360 232 277 D J m
0017760 377 324 Z l x 260 Q l \b 360 231 D J m 377 324
0020000 Z l o 260 C A l 002 360 231 D J m 377 324 Z
0020020 l b 260 4 D J m 377 324 Z l r \v \0 \0 277
0020040 D J m 377 324 Z A l \n \n \0 \0 l 0 330 \v
0020060 \0 \0 277 l \n A 363 263 023 D J m 377 324 Z A
0020100 l \n 333 l 0 330 \v \0 \0 277 D J m 377 324 Z
0020120 C 006 \0 \0 312 004 \a \v \0 \0 277 D J K E \f
0020140 \0 \0 020 \0 ( 4 3 2 Q S U B S T R
0020160 I N G 4 2 2 Q R P L C H A R
0020200 C O D E 4 0 1 Q R P L C H A
0020220 R C O D E 3 5 2 Q R P L C H
0020240 A R C O D E 3 4 4 Q I M O D
0020260 3 2 7 Q R P L C H A R C O D
0020300 E 2 0 1 Q R P L C H A R C O
0020320 D E 1 5 3 Q R P L C H A R C
0020340 O D E 1 3 4 Q R P L C H A R
0020360 C O D E ) \r ( 4 1 4 Q R E A D
0020400 T A B L E P 1 0 5 Q R E A D
0020420 T A B L E P 3 5 Q S T R I N
0020440 G P 3 2 Q S T R I N G P ) \r
0020460 ( 7 " 0 " ) \r \ L I T P R I
0020500 N D 1 \r ( L ( 1 S T R E A
0020520 M 0 X ) F 1 2 Q \ T H
0020540 I S F I L E L I N E L E N G T H
0020560 F 1 3 Q * R E A D T A B L
0020600 E * F 1 4 Q * P A C K A G
0020620 E * F 1 5 Q * P R I N T -
0020640 E S C A P E * F 1 6 Q * P
0020660 R I N T - C A S E * F 1 7 Q
0020700 * P R I N T - G E N S Y M * )
0020720 001 \n \n 006 \0 002 W 032 262 { W 026 021 ! 002
0020740 W 030 265 023 @ H A I d 222 \t \0 \0 J W 024
0020760 \r 006 \0 \0 020 ` \0 \0 @ 301 \b 312 \0 \a 266 Y
0021000 360 223 h 271 260 340 I 265 031 W 036 262 331 l 002 l
0021020 : \n \0 \0 Z k H 312 004 \a \v \0 \0 277 260 306
0021040 ` \0 \0 360 234 k H 312 \a \a \n \0 \0 272 h 271
0021060 260 264 @ d W 030 \n \0 \0 224 277 h 271 260 247 d
0021100 I \n \0 \0 360 221 k 201 l 002 H 312 \a \a \n \0
0021120 \0 272 260 222 W 024 262 027 @ 301 \b 311 \0 312 \0 \a
0021140 A 310 035 330 W 024 361 224 A \t \0 \0 277 j @ W
0021160 034 g \0 \0 360 264 \v W 026 312 \0 \0 j 360 h 360
0021200 021 s \t I 301 \b 311 \0 \ 312 \0 \a 275 I 301 002
0021220 312 \0 j 360 h 360 ^ 277 H k 330 X M 361 263
0021240 ? N 225 L H 320 310 \0 202 L H 302 273 A J 262
0021260 031 K l Z 363 221 h 200 i 235 l A K 363 221 h
0021300 200 i 224 K l 330 200 K _ 022 277 _ 020 311
0021320 _ 016 277 O 020 O 022 l 002 O 016 016 260 274 h 020
0021340 \0 ( 2 2 4 Q F R E S H L I N E
0021360 1 7 1 Q A L L O C S T R I N
0021400 G 1 5 4 Q F I N D - E X T E
0021420 R N A L - S Y M B O L 1 4 1 Q
0021440 F I N D - E X A C T - S Y M B
0021460 O L 1 2 5 Q A L L O C S T R
0021500 I N G 1 0 5 Q R P L C H A R
0021520 C O D E 7 4 Q A L L O C S T
0021540 R I N G 3 4 Q \ L I T P R I
0021560 N . I N T E R N A L 2 5 Q P
0021600 A C K A G E - N A M E - A S - S
0021620 Y M B O L ) \r ( 2 3 4 Q : D O
0021640 W N C A S E 1 1 3 Q * K E Y
0021660 W O R D - P A C K A G E * 4 0
0021700 Q * P A C K A G E - F R O M -
0021720 I N D E X * ) \r ( ) \r \ L I T P
0021740 R I N . I N T E R N A L D 1 \r
0021760 ( L ( 5 C H E C K L E N G T
0022000 H 4 P K G S E P R 3 P K
0022020 G N A M E 2 S T R E A M 1
0022040 R D T B L 0 S Y M B O L )
0022060 F 3 7 Q \ T H I S F I L E
0022100 L I N E L E N G T H F 4 0 Q
0022120 * P R I N T - C A S E * ) 002
0022140 254 037 002 \0 006 @ 301 \b 311 \0 312 \0 \a A 006 \0
0022160 \0 312 006 \a A 006 \0 \0 312 006 207 021 363 021 021 P
0022200 026 E 244 J j 360 263 . @ A E h 360 \v \0 \0
0022220 _ 016 m 377 360 231 k _ 016 277 i _ 022 277 260 032
0022240 j O 016 361 231 j O 016 331 _ 016 277 i 273 210 O
0022260 016 j 360 243 i _ 020 277 E 262 , W > 262 ( H
0022300 O 016 C 265 003 202 261 \0 245 j D 265 003 202 261 \0
0022320 225 j B 006 \0 \0 310 035 330 330 330 330 W > 361 224
0022340 B \t \0 \0 277 C 265 u D 265 k O 022 262 023 B
0022360 006 \0 \0 311 _ 026 277 B I l 002 O 026 016 277
0022400 K 242 261 \0 301 B 006 \0 \0 311 _ 030 277 B J
0022420 l 002 O 030 016 277 j @ 021 B 034 O 0 301 \b 311
0022440 \0 _ 4 312 \0 \a _ 6 277 O 0 301 002 312 \0
0022460 j 360 h 360 _ 8 277 O . k 330 _ . O 6 361
0022500 262 C 023 B 006 \0 \0 311 _ 036 277 B J l 002
0022520 O 036 016 020 B \n \0 \0 277 260 222 A B \v \0 \0
0022540 277 260 207 006 \0 \0 310 002 261 377 j A \n \0 \0 _
0022560 024 277 j O 024 361 244 O 024 261 377 Q j O 024 331
0022600 261 377 J O 8 227 O 4 O . 320 310 \0 204 O 4
0022620 O . 302 _ 2 J 360 245 O 2 I 360 262 023 B 006
0022640 \0 \0 311 _ 032 277 B I l 002 O 032 016 277 B
0022660 006 \0 \0 311 _ 034 277 B O 2 l 002 O 034 016
0022700 261 377 v H k 360 262 . @ \t \0 \0 l . 360 262
0022720 % B 006 \0 \0 311 _ 277 B I l 002 O
0022740 016 277 B 006 \0 \0 311 _ " 277 B l . l 002
0022760 O " 016 020 O 020 262 037 A 006 \0 \0 312 \0 \0 j
0023000 360 h 360 264 \n ` \0 \0 006 \0 \0 311 \0 274 A 006
0023020 \0 \0 311 \0 275 j @ i A 006 \0 \0 312 \0 \0 j
0023040 360 h 360 264 \b W @ g \0 \0 360 021 D 036 O 0
0023060 301 \b 311 \0 _ 8 312 \0 \a _ : 277 O 0 301 002
0023100 312 \0 j 360 h 360 _ < 277 O . k 330 _ .
0023120 O : 361 222 261 \0 272 O < 227 O 8 O . 320 310
0023140 \0 204 O 8 O . 302 _ 6 277 O 020 262 i L 235
0023160 O 6 d l 377 361 250 L O 6 302 360 262 6 O 6
0023200 l 377 361 262 030 M 006 \0 \0 311 200 234 O 6 M 006
0023220 \0 \0 311 200 \n \0 \0 265 \b j 203 M O 6 302 ^
0023240 l @ 345 j 360 263 0 O 2 247 N l $ 345 j 360
0023260 263 % B 006 \0 \0 311 _ $ 277 B I l 002 O
0023300 $ 016 277 B 006 \0 \0 311 _ & 277 B O 6 l
0023320 002 O & 260 2 B O 4 262 026 O 6 d l Z 363
0023340 256 277 l A O 6 363 245 O 6 l 330 201 O 6
0023360 _ , 277 _ * 006 \0 \0 311 _ ( 277 O * O
0023400 , l 002 O ( 016 277 h _ 2 277 261 377 ? h 020
0023420 \0 ( 1 0 6 1 Q G E T H A S H
0023440 5 4 6 Q C H C O N 1 4 1 1 Q
0023460 \ S Y M B O L . E S C A P E .
0023500 C O U N T 3 7 2 Q \ L I T P
0023520 R I N . I N T E R N A L 3 6 2
0023540 Q \ S O U T 1 7 6 Q F R E
0023560 S H L I N E 5 2 Q \ S Y M B
0023600 O L . E S C A P E . C O U N T )
0023620 \r ( 1 2 2 2 Q S T R E A M 1
0023640 1 4 1 Q S T R E A M 1 1 2 0
0023660 Q S T R E A M 1 0 5 4 Q C
0023700 H A R T A B L E 1 0 4 3 Q C
0023720 H A R T A B L E 7 0 4 Q : D
0023740 O W N C A S E 6 6 6 Q R E A
0023760 D T A B L E P 6 5 4 Q R E A
0024000 D T A B L E P 6 4 5 Q A R R
0024020 A Y P 6 4 2 Q U P P E R C A
0024040 S E A R R A Y 6 2 6 Q R E A
0024060 D T A B L E P 6 0 0 Q S T R
0024100 E A M 5 5 7 Q S T R E A M
0024120 5 1 5 Q S T R E A M 4 7 4 Q
0024140 S T R E A M 4 0 0 Q S T R
0024160 I N G P 3 4 1 Q S T R E A M
0024200 2 4 3 Q S T R E A M 2 1 5
0024220 Q S T R E A M 1 6 0 Q S T
0024240 R E A M 2 2 Q R E A D T A B
0024260 L E P 1 3 Q R E A D T A B L
0024300 E P ) \r ( ) \r \ S Y M B O L . E
0024320 S C A P E . C O U N T D 1 \r (
0024340 L ( 2 I N E X A C T O K 1
0024360 R D T B L 0 S Y M B O L )
0024400 F 1 6 Q * R E A D - B A S
0024420 E * ) 001 , 016 001 \0 003 j @ j d i A
0024440 006 \0 \0 312 006 207 A 006 \0 \0 312 006 \a A 006 \0
0024460 \0 312 \0 \0 j 360 h 360 264 \n ` \0 \0 006 \0 \0
0024500 311 \0 A 006 \0 \0 311 \0 021 Y \r I 301 \b 311 \0
0024520 _ 024 312 \0 \a _ 026 277 I 301 002 312 \0 j 360
0024540 h 360 _ 030 277 M j 360 221 h 275 H k 330 X O
0024560 026 361 222 261 \0 204 O 030 226 O 024 H 320 310 \0 203
0024600 O 024 H 302 _ 022 277 O 016 236 O 022 d l 377 361
0024620 251 O 016 O 022 302 360 262 : O 022 l 377 361 262 032
0024640 O 020 006 \0 \0 311 200 235 O 022 O 020 006 \0 \0 311
0024660 200 \n \0 \0 265 \t j 204 O 020 O 022 302 _ 032 l
0024700 @ 345 j 360 263 " L 250 O 032 l $ 345 j 360 263
0024720 027 J k 324 272 M 264 021 O 022 M 360 244 O 022 N
0024740 360 227 K k 324 273 h 274 260 203 B 264 374 J K 325
0024760 k 363 264 365 m 376 020 J j 360 262 : @ 301 \b 311
0025000 \0 312 \0 \a d j 360 225 277 M 263 352 j 020 k 360
0025020 227 O 022 l . 360 221 k 020 @ A 006 \0 \0 312 002
0025040 j 360 242 W 034 201 l \n \n \0 \0 262 340 M 263
0025060 305 m 377 020 M 234 J d K 325 k 363 226 277 m 376
0025100 K 331 020 J 020 \0 ( 4 2 1 Q \ N U M
0025120 E R I C . P N A M E P 2 3 1 Q
0025140 G E T H A S H ) \r ( 4 0 3 Q
0025160 R E A D T A B L E P 2 2 4 Q
0025200 C H A R T A B L E 2 1 2 Q C
0025220 H A R T A B L E 5 3 Q R E A
0025240 D T A B L E P 4 5 Q A R R A
0025260 Y P 4 2 Q U P P E R C A S E
0025300 A R R A Y 2 6 Q R E A D T A
0025320 B L E P 1 7 Q R E A D T A B
0025340 L E P 1 0 Q R E A D T A B L
0025360 E P ) \r ( ) \r \ N U M E R I C .
0025400 P N A M E P D 1 \r ( L ( 1
0025420 R A D I X 0 S Y M B O L )
0025440 F 1 3 Q * R E A D T A B L E
0025460 * F 1 4 Q * R E A D - B A
0025500 S E * ) 001 H \v 002 \0 002 g \0 \0 A 265
0025520 022 W 026 006 \0 \0 312 002 j 360 242 W 030 201 l
0025540 \n l \v 331 l A 330 021 2 004 j @ 021 B \n N
0025560 004 d l \a 360 262 # 277 N 311 \0 _ 020 277 N 310
0025600 003 k 331 ] N 310 002 330 _ 022 277 N 312 \0 C j
0025620 360 222 h 260 ! i 260 036 l 004 360 262 6 N 301 \b
0025640 311 \0 _ 020 312 \0 \a _ 022 277 N 301 002 312 \0
0025660 j 360 h 360 _ 024 277 M k 330 ] O 022 361 262 032
0025700 K 246 J 264 003 202 261 \0 271 H g \0 \0 360 h 360
0025720 020 N \t \0 \0 ^ 260 232 O 024 226 O 020 M 320 310
0025740 \0 203 O 020 M 302 _ 016 277 l A O 016 361 262 L
0025760 l 0 O 016 361 262 7 O 016 l - 360 247 O 016 d
0026000 l + 360 226 277 g \0 \0 261 \0 206 l . 360 234 J
0026020 225 L 264 004 h 020 272 j 271 i 260 t O 016 l /
0026040 360 264 ^ H g \0 \0 360 264 f h 020 O 016 l 9
0026060 361 263 M i 273 g \0 \0 260 V O 016 l z 361 263
0026100 ? l a O 016 361 247 O 016 l 331 _ 016 201 O
0026120 016 l Z 361 263 , O 016 I 361 263 027 i 272 H g
0026140 \0 \0 360 245 H g \0 \0 360 221 i 274 g \0 \0 260
0026160 037 H g \0 \0 360 246 H g \0 \0 360 262 360 h 020
0026200 O 016 l _ 360 246 O 016 l ^ 360 264 364 h 270 261
0026220 377 ( \0 ( 2 1 1 Q M K S T R I N
0026240 G ) \r ( 4 5 7 Q F I R S T 4
0026260 5 1 Q L E T T E R 4 4 3 Q
0026300 L E T T E R 4 3 4 Q F I R S
0026320 T 4 2 6 Q L E T T E R 3 5
0026340 4 Q D I G I T 3 3 3 Q F I
0026360 R S T 2 7 4 Q S I G N 2 0
0026400 1 Q S I G N 1 2 Q R E A D
0026420 T A B L E P 2 F I R S T ) \r
0026440 ( ) \r \ P R I N S T A C K P D
0026460 1 \r ( L ( 1 S T R E A M 0
0026500 X ) F 3 \ T H I S F I L
0026520 E L I N E L E N G T H F 4
0026540 * R E A D T A B L E * ) \0 245 003
0026560 002 \0 002 S 262 5 @ d \t \0 \0 224 277 l \b 260
0026600 030 \t \0 \0 004 l 004 360 233 @ \t \0 \0 301 \b 311
0026620 \0 312 \0 \a 201 l 006 A 006 \0 \0 310 035 l 025 330
0026640 330 S 361 224 A \t \0 \0 277 A T 006 \0 \0 312 004
0026660 \a 021 022 002 H 006 \0 \0 311 272 H I l 002 J
0026700 016 023 o \0 \0 \0 A \n \0 \0 @ A \n \0 \0 A
0026720 006 \0 \0 311 021 001 \0 A l / l 002 H 016 023
0026740 @ d \t \0 \0 226 277 o \0 \0 \0 260 026 \t \0 \0
0026760 b \0 004 l 004 360 225 @ A \n \0 \0 207 o \0 \0
0027000 \0 A \n \0 \0 277 A 006 \0 \0 311 021 001 \0 A
0027020 l > l 002 H 016 020 \0 ( 2 2 1 Q \ S
0027040 O U T 2 1 0 Q \ L I T P R I
0027060 N 1 7 4 Q S T K N A M E 1
0027100 6 1 Q R E L S T K P 1 3 3 Q
0027120 \ P R I N T A D D R 1 2 6 Q
0027140 \ S O U T 6 4 Q F R E S H
0027160 L I N E 3 1 Q S T K N A M E
0027200 2 0 Q S T K N A M E 7 R
0027220 E L S T K P ) \r ( 2 2 6 Q S T
0027240 R E A M 1 3 7 Q S T R E A M
0027260 1 0 4 Q S T R E A M 7 2 Q
0027300 R E A D T A B L E P 4 7 Q
0027320 S T R E A M ) \r ( 2 1 5 Q "
0027340 * f o r m * " 1 6 7 Q " r e
0027360 l e a s e d " 1 2 2 Q " < S
0027400 t a c k P " ) \r \ P R I N T A
0027420 D D R D 1 \r ( L ( 1 S T R
0027440 E A M 0 X ) ) \0 W 002 \0 \0 002
0027460 ` \0 \0 265 L l & \t \0 \0 ` \0 \0 265 ; \b
0027500 \0 \0 021 002 001 A @ 322 l \b h d H I \r 006
0027520 \0 \0 \n \0 \0 277 A l , \n \0 \0 277 A @ 323
0027540 l \b h d H I \r 006 \0 \0 \n \0 \0 H 027 \0
0027560 \0 277 I 027 \0 \0 277 020 h 027 \0 \0 277 260 305 h
0027600 027 \0 \0 277 260 266 \0 ( 7 4 Q \ C K P
0027620 O S S O U T 7 1 Q \ C O N V
0027640 E R T N U M B E R 5 3 Q \ C
0027660 K P O S B O U T 4 4 Q \ C K
0027700 P O S S O U T 4 1 Q \ C O N
0027720 V E R T N U M B E R 2 1 Q C
0027740 O N C A T 1 1 Q A L L O C S
0027760 T R I N G ) \r ( 1 2 2 Q \ \ N
0030000 U M S T R . G L O B A L R E S O
0030020 U R C E 1 1 3 Q \ \ N U M S
0030040 T R 1 . G L O B A L R E S O U R
0030060 C E 1 0 5 Q \ \ N U M S T R
0030100 1 . G L O B A L R E S O U R C E
0030120 1 0 0 Q \ \ N U M S T R . G
0030140 L O B A L R E S O U R C E 1 4
0030160 Q \ \ N U M S T R 1 . G L O B
0030200 A L R E S O U R C E 2 \ \ N
0030220 U M S T R . G L O B A L R E S O
0030240 U R C E ) \r ( ) \r \ P R I N S T
0030260 R I N G D 1 \r ( L ( 1 S T
0030300 R E A M 0 X ) F 1 4 Q
0030320 \ T H I S F I L E L I N E L E N
0030340 G T H F 1 5 Q * P R I N T
0030360 - E S C A P E * F 1 6 Q *
0030400 R E A D T A B L E * ) 001 5 \f 003
0030420 \0 002 W 032 242 261 001 021 W 034 006 \0 \0 312 006 \a
0030440 021 A 004 W 030 262 t @ 006 \0 \0 310 002 @ j 021
0030460 R \v M 310 003 k 331 _ 022 277 M 311 \0 _ 024 277
0030500 O 022 M 310 002 330 _ 020 277 M 312 \0 C j 360 221
0030520 h 200 i _ 026 277 O 022 k 330 _ 022 O 020 361 263
0030540 $ O 026 227 O 024 O 022 320 310 \0 204 O 024 O 022
0030560 302 _ 016 l " 360 245 O 016 H 360 262 333 N k 330
0030600 276 260 325 N 022 A 006 \0 \0 310 035 l 002 330 330 330
0030620 W 030 361 224 A \t \0 \0 277 A 006 \0 \0 311 271
0030640 A l " l 002 I 016 277 @ 021 Q \n M 310 003 k
0030660 331 _ 020 277 M 311 \0 _ 022 277 O 020 M 310 002 330
0030700 _ 016 277 M 312 \0 C j 360 221 h 200 i _ 024 277
0030720 O 020 k 330 _ 020 O 016 361 263 = O 024 227 O 022
0030740 O 020 320 310 \0 204 O 022 O 020 302 ^ l " 360 250
0030760 N l \n 360 243 N H 360 235 A 006 \0 \0 311 272
0031000 A H l 002 J 016 277 A 006 \0 \0 311 273 A N
0031020 l 002 K 016 260 273 023 A 006 \0 \0 311 274 A l
0031040 " l 002 L 016 020 W 030 262 030 @ 006 \0 \0 310 002
0031060 A 006 \0 \0 310 035 330 W 030 361 224 A \t \0 \0 277
0031100 @ A \n \0 \0 020 \0 ( 4 6 2 Q \ S O
0031120 U T 4 5 4 Q F R E S H L I N
0031140 E 2 0 5 Q F R E S H L I N E
0031160 ) \r ( 4 4 1 Q S T R E A M 4
0031200 3 3 Q S T R I N G P 4 1 0 Q
0031220 S T R E A M 3 7 0 Q S T R
0031240 E A M 3 5 2 Q S T R E A M
0031260 2 1 2 Q S T R E A M 1 6 6 Q
0031300 S T R E A M 3 0 Q S T R I
0031320 N G P 1 2 Q R E A D T A B L
0031340 E P ) \r ( ) \r \ S O U T D 1 \r
0031360 ( L ( 1 S T R E A M 0 X
0031400 ) ) \0 F \a \0 \0 002 @ 021 a 006 H 310 003
0031420 k 331 273 H 311 \0 274 K H 310 002 330 272 H 312 \0
0031440 C j 360 221 h 200 i ] 277 K k 330 [ J 361 263
0031460 035 M 225 L K 320 310 \0 202 L K 302 271 A 006 \0
0031500 \0 311 276 A I l 002 N 016 260 336 h 020 \0 N
0031520 I L \r ( 6 7 Q S T R E A M ) \r
0031540 ( ) \r \ O U T C H A R D 1 \r (
0031560 L ( 1 C H A R C O D E 0
0031600 S T R E A M ) ) \0 021 001 \0 \0 002 @
0031620 006 \0 \0 311 021 001 \0 @ A l 002 H 016 020 \0
0031640 N I L \r ( 3 S T R E A M ) \r (
0031660 ) \r \ F I L E O U T C H A R F N
0031700 D 1 \r ( L ( 1 C H A R C O
0031720 D E 0 S T R E A M ) ) \0 236
0031740 002 \0 \0 002 A l \r 360 262 S @ d 006 \0 \0 312
0031760 2 \a l 377 360 223 277 @ 260 024 312 2 \a j 360 256
0032000 @ l 377 ! 277 @ d j 317 2 \a 277 j ! 277 @
0032020 d 312 030 001 d j 360 224 277 l \r 260 031 d k 360
0032040 223 277 l \n 216 l 002 360 227 @ l \r ! 277 l \n
0032060 202 \b \0 \0 ! @ j 315 035 j 020 @ 006 \0 \0 312
0032100 2 \a l 377 360 224 @ A 343 260 037 A 343 @ 312 2
0032120 \a 360 263 030 @ l 377 ! 277 @ d A 343 021 002 001
0032140 H I 317 2 \a 277 I 022 ! 277 @ A l 377 345 !
0032160 277 @ d 310 035 k 320 323 021 002 001 H I 315 035 I
0032200 020 \0 ( 1 1 7 Q S H O U L D N T
0032220 ) \r ( 1 3 2 Q S T R E A M 1
0032240 2 Q S T R E A M ) \r ( ) \r \ T
0032260 T Y O U T C H A R F N D 1 \r (
0032300 L ( 1 C H 0 S T R E A M
0032320 ) ) \0 , 003 \0 \0 002 @ 006 \0 \0 311 $ 021
0032340 ! 002 H g \0 \0 ' Z 265 \r @ A l 002 H g
0032360 \0 \0 ' 016 020 006 \0 \0 311 271 J A l 002 I
0032400 016 277 260 350 \0 N I L \r ( 3 6 Q S T
0032420 R E A M 3 0 Q O L D - O U T
0032440 C H A R F N 1 4 Q D R I B B
0032460 L E S T R E A M 3 S T R E A
0032500 M ) \r ( ) \r \ I N V A L I D . R
0032520 A D I X D 1 \r ( L ( 0 N )
0032540 ) \0 \n \0 \0 \0 001 o \0 \0 \0 @ \n \0 \0
0032560 020 \0 ( 7 E R R O R ) \r N I L \r
0032600 ( 3 " B a d v a l u e f
0032620 o r * p r i n t - b a s e * "
0032640 ) \r \ M A P P N A M E D 1 \r (
0032660 L ( 3 R D T B L 2 F L G
0032700 1 X 0 F N ) P 5 *
0032720 P R I N T - L E N G T H * P
0032740 4 * P R I N T - L E V E L *
0032760 P 3 * P R I N T - R A D I X
0033000 * P 2 * P R I N T - B A S
0033020 E * P 1 * R E A D T A B L
0033040 E * P 0 * P R I N T - E S
0033060 C A P E * F 6 * R E A D T
0033100 A B L E * F 7 * P R I N T
0033120 - B A S E * ) \0 + 006 002 \0 004 B d
0033140 227 C 225 C d i 360 221 277 V 006 \0 \0 ` \0 \0
0033160 222 W 016 201 l \n 021 3 005 B 226 J l \n 360 241
0033200 i 273 @ A \n \0 \0 020 \0 ( 5 0 Q \ M
0033220 A P P N A M E . I N T E R N A L
0033240 ) \r ( 2 1 Q P R X F L G 1 6
0033260 Q R E A D T A B L E P ) \r ( )
0033300 \r \ M A P P N A M E . I N T E R
0033320 N A L D 1 \r ( L ( 1 X 0
0033340 F N ) P 1 \ T H I S F I
0033360 L E L I N E L E N G T H ) \0 235
0033400 002 \0 \0 002 ` \0 \0 265 003 202 261 \0 220 l \v 037
0033420 d ` \0 \0 024 006 277 d l 006 317 004 R 277 d n
0033440 377 377 315 037 277 d g \0 \0 024 . 277 d g \0 \0
0033460 024 , 277 d ` \0 \0 024 & 277 d g \0 \0 024 "
0033500 277 d g \0 \0 024 277 d j 317 030 001 277 d j
0033520 315 035 277 d ` \0 \0 315 034 277 d h 024 030 277 d
0033540 l \b 317 024 \a 277 d k 317 004 @ 277 d k 317 004
0033560 0 277 d h 024 002 277 021 001 \0 H 006 \0 \0 @ 024
0033600 277 H 006 \0 \0 @ 024 . 277 021 020 001 A H j
0033620 \v \0 \0 022 H 027 \0 \0 277 020 h 027 \0 \0 260 330
0033640 \0 ( 2 1 6 Q \ P R I N D A T U
0033660 M ) \r ( 2 3 1 Q \ \ M A P P N
0033700 A M E S T R E A M . G L O B A L
0033720 R E S O U R C E 2 2 3 Q \ \
0033740 M A P P N A M E S T R E A M . G
0033760 L O B A L R E S O U R C E 2 0
0034000 1 Q S T R E A M 1 7 1 Q S
0034020 T R E A M 1 2 2 Q \ S T R E
0034040 A M . D E F A U L T . M A X B U
0034060 F F E R S 1 0 0 Q \ F I L E
0034100 O U T C H A R F N 7 1 Q \ E
0034120 O S E R R O R 6 2 Q \ N O I
0034140 M A G E O P S 5 3 Q \ S T R
0034160 E A M . N O T . O P E N 4 4 Q
0034200 \ S T R E A M . N O T . O P E
0034220 N 1 7 Q \ P N A M E D E V I
0034240 C E 2 \ \ M A P P N A M E S
0034260 T R E A M . G L O B A L R E S O
0034300 U R C E ) \r ( ) \r P N A M E S T
0034320 R E A M P D 1 \r ( L ( 0 S
0034340 T R M ) ) \0 023 \0 \0 \0 001 @ 004 l \v
0034360 360 264 \f @ 006 \0 \0 311 006 ` \0 \0 360 020 \0 N
0034400 I L \r ( 1 7 Q \ P N A M E D E
0034420 V I C E 1 2 Q S T R E A M )
0034440 \r ( ) \r \ M A P C H A R S A 0 0
0034460 0 1 D 1 \r ( L ( 1 C H A R
0034500 0 D U M M Y ) F 0 \ M
0034520 A P C H A R F N ) \0 006 \0 001 \0 002
0034540 A k P 016 020 \0 N I L \r N I L \r ( )
0034560 \r \ M A P C H A R S D 1 \r ( L
0034600 ( 2 F L G 1 X ) I 3
0034620 R D T B L I 0 \ M A P C
0034640 H A R F N ) \0 \v \0 \0 \0 004 g \0 \0
0034660 A B C \f \0 \0 020 \0 ( 1 0 Q \ M A
0034700 P P N A M E ) \r ( 2 \ M A P C
0034720 H A R S A 0 0 0 1 ) \r ( ) \r P R
0034740 I N T N U M D 1 \r ( L ( 2
0034760 F I L E 1 N U M B E R 0
0035000 F O R M A T ) ) 001 \n \t \0 \0 003 `
0035020 \0 \0 265 ' l & \t \0 \0 ` \0 \0 265 026 \b \0
0035040 \0 021 002 001 @ 003 001 d g \0 \0 360 262 024 277 i
0035060 260 035 h 027 \0 \0 277 260 352 h 027 \0 \0 277 260 333
0035100 g \0 \0 360 221 h 205 @ l 033 \n \0 \0 @ 002 021
0035120 R \b K 001 275 A 244 ` \0 \0 265 [ J 236 A 006
0035140 \0 \0 H I @ \t \0 \0 \f \0 \0 260 J A d 3
0035160 242 \t \0 \0 K 002 001 _ 020 262 ( j O 020 361
0035200 242 O 020 203 j O 020 331 _ 016 277 l 002 O 016 361
0035220 247 O 016 d l 020 361 233 277 O 020 \t \0 \0 277 O
0035240 016 201 l \n O 020 h 360 265 006 O 020 j 361 h H
0035260 I \r 006 \0 \0 274 M 265 026 j ^ j 361 262 6 J
0035300 250 K 002 002 002 001 263 - J 231 K 002 207 L \t \0
0035320 \0 331 260 350 K 002 002 001 262 025 N d j 361 262 024
0035340 o \0 \0 \0 B \n \0 \0 277 k 331 260 360 N B \n
0035360 \0 \0 277 L B \n \0 \0 277 N j 361 235 J 253 K
0035400 002 002 002 001 225 N B \n \0 \0 277 A 022 H 027 \0
0035420 \0 277 I 027 \0 \0 277 020 \0 ( 3 7 2 Q S
0035440 P A C E S 3 5 0 Q P R I N 1
0035460 3 4 2 Q S P A C E S 3 3 0
0035500 Q P R I N 1 3 0 1 Q N C H
0035520 A R S 2 4 5 Q \ C O N V E R
0035540 T N U M B E R 2 1 6 Q \ I L
0035560 L E G A L . A R G 1 4 5 Q F
0035600 I X R 1 3 3 Q \ C O N V E R
0035620 T . F L O A T I N G . N U M B E
0035640 R 1 3 0 Q \ C H E C K F L T
0035660 F M T 7 5 Q \ L I S P E R R
0035700 O R 2 1 Q C O N C A T 1 1
0035720 Q A L L O C S T R I N G ) \r (
0035740 4 0 6 Q \ \ N U M S T R 1 . G
0035760 L O B A L R E S O U R C E 4 0
0036000 1 Q \ \ N U M S T R . G L O B
0036020 A L R E S O U R C E 1 2 2 Q
0036040 F L O A T P 1 1 2 Q N I L N
0036060 U M P R I N T F L G 6 3 Q F
0036100 I X 5 5 Q \ \ N U M S T R .
0036120 G L O B A L R E S O U R C E 4
0036140 6 Q \ \ N U M S T R 1 . G L O
0036160 B A L R E S O U R C E 3 3 Q
0036200 F L O A T 1 4 Q \ \ N U M S
0036220 T R 1 . G L O B A L R E S O U R
0036240 C E 2 \ \ N U M S T R . G L
0036260 O B A L R E S O U R C E ) \r (
0036300 3 2 4 Q " 0 " ) \r F L T F M T
0036320 D 1 \r ( L ( 0 F O R M A T
0036340 ) ) \0 021 \0 \0 \0 001 ` \0 \0 @ 231 @ \t
0036360 \0 \0 224 @ 027 \0 \0 277 020 \0 ( 1 0 Q \
0036400 C H E C K F L T F M T ) \r ( 1 5
0036420 Q \ F L O A T F O R M A T 2
0036440 \ F L O A T F O R M A T ) \r (
0036460 ) \r \ C H E C K F L T F M T D
0036500 1 \r ( L ( 0 F O R M A T ) )
0036520 \0 1 001 \0 \0 001 @ d i 360 263 $ d 001 g
0036540 \0 \0 360 262 036 216 d 001 021 001 \0 H h 360 265 005
0036560 H 3 022 225 002 003 265 357 i 201 277 h 221 @ 020
0036600 @ l 033 \n \0 \0 020 \0 ( 5 6 Q \ L I
0036620 S P E R R O R ) \r ( 1 2 Q F L
0036640 O A T ) \r ( ) \r ( P R E T T Y C
0036660 O M P R I N T A P R I N T C O
0036700 M S ) \r ( R P A Q Q A P R I N
0036720 T C O M S ( ( C O M S ( *
0036740 ; " U s e r - l e v e l p r
0036760 i n t f u n c t i o n s " )
0037000 ( F N S P R I N 1 P R I N 2
0037020 P R I N 3 P R I N 4 P R I
0037040 N T \r P R I N T C C O D E P
0037060 R I N T L E V E L R A D I X
0037100 S P A C E S T E R P R I F R
0037120 E S H L I N E D E F P R I N T
0037140 L I N E L E N G T H ) ) ( I
0037160 N I T V A R S ( P L V L F I L
0037200 E F L G N I L ) \r ( \ L I N
0037220 E L E N G T H 8 2 ) ( \ F L
0037240 O A T F O R M A T T ) ( P R
0037260 X F L G N I L ) ( * P R I N
0037300 T - B A S E * 1 0 ) ( * R E
0037320 A D - B A S E * 1 0 ) ( * P
0037340 R I N T - R A D I X * N I L )
0037360 \r ( * P R I N T - E S C A P E
0037400 * T ) ( * P R I N T - C A S
0037420 E * ( Q U O T E : U P C A S
0037440 E ) ) ( * P R I N T - G E N S
0037460 Y M * T ) ( * P R I N T - L
0037500 E V E L * N I L ) ( \r * P R
0037520 I N T - L E N G T H * N I L )
0037540 ( * P R I N T - P R E T T Y *
0037560 N I L ) ( * P R I N T - C I
0037600 R C L E * N I L ) ( * P R I
0037620 N T - A R R A Y * N I L ) (
0037640 \r * P R I N T - C I R C L E - H
0037660 A S H T A B L E * N I L ) (
0037700 * P A C K A G E * N I L ) (
0037720 * K E Y W O R D - P A C K A G E
0037740 * N I L ) ( * I N T E R L I
0037760 S P - P R I N 1 - C A S E * (
0040000 Q U O T E \r : U P C A S E ) )
0040020 ( \ D E F P R I N T F N S N
0040040 I L ) ) ( C O M S ( * ;
0040060 " P R I N T i n t e r n a l s
0040100 " ) ( F N S P R I N T - C I
0040120 R C L E - L O O K U P \r P R I
0040140 N T - C I R C L E - L A B E L -
0040160 P P R I N T - C I R C L E - S
0040200 C A N P R I N T - C I R C L E
0040220 - E N T E R ) ( F N S \ P R
0040240 I N D A T U M \ E L I D E . P
0040260 R I N T . E L E M E N T \r \ E
0040300 L I D E . E L E M E N T . C H A
0040320 R \ E L I D E . P R I N T . T
0040340 A I L \ E L I D E . T A I L .
0040360 S T R I N G \ C K P O S B O U
0040400 T \ C K P O S S O U T \ C O
0040420 N V E R T N U M B E R \ L I T
0040440 P R I N \r \ L I T P R I N . I
0040460 N T E R N A L \ S Y M B O L .
0040500 E S C A P E . C O U N T \ N U
0040520 M E R I C . P N A M E P \ P R
0040540 I N S T A C K P \ P R I N T A
0040560 D D R \ P R I N S T R I N G
0040600 \ S O U T \r \ O U T C H A R
0040620 \ F I L E O U T C H A R F N \
0040640 T T Y O U T C H A R F N ) ( D
0040660 E C L A R E : E V A L @ C O M
0040700 P I L E D O N T C O P Y ( M
0040720 A C R O S . F I L E L I N E L
0040740 E N G T H . ) ( \r E X P O R T
0040760 ( M A C R O S . S P A C E C
0041000 H E C K . \ C H E C K R A D I
0041020 X ) ) ) ( F N S \ I N V A L
0041040 I D . R A D I X ) ( S P E C V
0041060 A R S \ T H I S F I L E L I N
0041100 E L E N G T H ) ) ( C O M S
0041120 \r ( * ; " I n t e r n a l
0041140 p r i n t i n g " ) ( F N S
0041160 \ M A P P N A M E \ M A P P N
0041200 A M E . I N T E R N A L P N A
0041220 M E S T R E A M P ) ( D E C L
0041240 A R E : D O N T C O P Y ( \r
0041260 R E S O U R C E S \ M A P P N
0041300 A M E S T R E A M ) ( M A C R
0041320 O S P N A M E S T R E A M P )
0041340 ) ( I N I T R E S O U R C E S
0041360 \ M A P P N A M E S T R E A M
0041400 ) ( I N I T V A R S ( \r \ P
0041420 N A M E D E V I C E ( N C R E
0041440 A T E ( Q U O T E F D E V )
0041460 ( \ G E T D E V I C E F R O M
0041500 H O S T N A M E ( Q U O T E
0041520 N U L L ) T ) ) ) ) ( G L O
0041540 B A L V A R S \ P N A M E D E
0041560 V I C E \r ) ) ( C O M S ( *
0041600 ; " O b s o l e t e " ) (
0041620 F N S \ M A P C H A R S ) )
0041640 ( D E C L A R E : E V A L @ C
0041660 O M P I L E D O C O P Y ( A
0041700 D D V A R S ( S Y S S P E C V
0041720 A R S \r * P R I N T - B A S E
0041740 * * R E A D - B A S E * * P
0041760 R I N T - R A D I X * * P R I
0042000 N T - E S C A P E * * P R I N
0042020 T - C A S E * * P R I N T - G
0042040 E N S Y M * * P R I N T - L E
0042060 V E L * \r * P R I N T - L E N
0042100 G T H * * P R I N T - P R E T
0042120 T Y * * P R I N T - C I R C L
0042140 E * * P R I N T - A R R A Y *
0042160 * P A C K A G E * ) ) ) ( C
0042200 O M S ( * ; \r " P R I N T
0042220 N U M a n d f r i e n d s "
0042240 ) ( F N S P R I N T N U M
0042260 F L T F M T \ C H E C K F L T
0042300 F M T ) ( M A C R O S N U M
0042320 F O R M A T C O D E ) ( I N I
0042340 T V A R S ( \r N I L N U M P R
0042360 I N T F L G ) ) ) ( L O C A L
0042400 V A R S . T ) ( G L O B A
0042420 L V A R S \ L I N E L E N G T
0042440 H \ F L O A T F O R M A T P
0042460 R X F L G \ D E F P R I N T F
0042500 N S ) ( D E C L A R E : \r D
0042520 O N T E V A L @ L O A D D O E
0042540 V A L @ C O M P I L E D O N T
0042560 C O P Y C O M P I L E R V A R
0042600 S ( A D D V A R S ( N L A M
0042620 A ) ( N L A M L ) ( L A M A
0042640 P R I N T - C I R C L E - E N
0042660 T E R \r P R I N T - C I R C L
0042700 E - S C A N P R I N T - C I R
0042720 C L E - L A B E L - P P R I N
0042740 T - C I R C L E - L O O K U P )
0042760 ) ) ) ) \r ( R P A Q ? P L V L
0043000 F I L E F L G N I L ) \r ( R P
0043020 A Q ? \ L I N E L E N G T H
0043040 8 2 ) \r ( R P A Q ? \ F L O A
0043060 T F O R M A T T ) \r ( R P A Q
0043100 ? P R X F L G N I L ) \r ( R
0043120 P A Q ? * P R I N T - B A S E
0043140 * 1 0 ) \r ( R P A Q ? * R E
0043160 A D - B A S E * 1 0 ) \r ( R P
0043200 A Q ? * P R I N T - R A D I X
0043220 * N I L ) \r ( R P A Q ? * P
0043240 R I N T - E S C A P E * T ) \r
0043260 ( R P A Q ? * P R I N T - C A
0043300 S E * ( Q U O T E : U P C A
0043320 S E ) ) \r ( R P A Q ? * P R I
0043340 N T - G E N S Y M * T ) \r ( R
0043360 P A Q ? * P R I N T - L E V E
0043400 L * N I L ) \r ( R P A Q ? *
0043420 P R I N T - L E N G T H * N I
0043440 L ) \r ( R P A Q ? * P R I N T
0043460 - P R E T T Y * N I L ) \r ( R
0043500 P A Q ? * P R I N T - C I R C
0043520 L E * N I L ) \r ( R P A Q ?
0043540 * P R I N T - A R R A Y * N I
0043560 L ) \r ( R P A Q ? * P R I N T
0043600 - C I R C L E - H A S H T A B L
0043620 E * N I L ) \r ( R P A Q ? *
0043640 P A C K A G E * N I L ) \r ( R
0043660 P A Q ? * K E Y W O R D - P A
0043700 C K A G E * N I L ) \r ( R P A
0043720 Q ? * I N T E R L I S P - P R
0043740 I N 1 - C A S E * ( Q U O T E
0043760 : U P C A S E ) ) \r ( R P A Q
0044000 ? \ D E F P R I N T F N S N
0044020 I L ) \r ( / S E T T O P V A L
0044040 ( Q U O T E \ \ M A P P N A M
0044060 E S T R E A M . G L O B A L R E
0044100 S O U R C E ) ) \r ( R P A Q ?
0044120 \ P N A M E D E V I C E ( N C
0044140 R E A T E ( Q U O T E F D E
0044160 V ) ( \ G E T D E V I C E F R
0044200 O M H O S T N A M E ( Q U O T
0044220 E N U L L ) T ) ) ) \r ( A D
0044240 D T O V A R S Y S S P E C V A
0044260 R S * P R I N T - B A S E *
0044300 * R E A D - B A S E * * P R I
0044320 N T - R A D I X * * P R I N T
0044340 - E S C A P E * * P R I N T -
0044360 C A S E * \r * P R I N T - G E
0044400 N S Y M * * P R I N T - L E V
0044420 E L * * P R I N T - L E N G T
0044440 H * * P R I N T - P R E T T Y
0044460 * * P R I N T - C I R C L E *
0044500 * P R I N T - A R R A Y * *
0044520 P A C K A G E * ) \r ( P R O G N
0044540 ( P U T P R O P S N U M F O
0044560 R M A T C O D E B Y T E M A C
0044600 R O ( = . P R O G 1 ) )
0044620 ( P U T P R O P S N U M F O R
0044640 M A T C O D E D M A C R O (
0044660 = . P R O G 1 ) ) ) \r ( R P
0044700 A Q ? N I L N U M P R I N T F
0044720 L G ) \r ( P U T P R O P S A P
0044740 R I N T C O P Y R I G H T (
0044760 " X e r o x C o r p o r a t i
0045000 o n " 1 9 8 2 1 9 8 3 1 9
0045020 8 4 1 9 8 5 1 9 8 6 ) ) \r N
0045040 I L \r
0045043