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