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