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