$ od -c -N 50000 [eris]<LispCore>SOURCES>APRINT.DCOM!38
0000000 ( F I L E C R E A T E D " 7
0000020 - A u g - 8 6 0 1 : 3 4 : 0 9
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 1 ) \r " 6 - A u g - 8
0000140 6 1 9 : 2 4 : 4 2 " 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 1 9 : 4 1
0000300 : 4 1 " ) \r ( F I L E C R E A T
0000320 E D " 7 - A u g - 8 6 0 1
0000340 : 3 3 : 3 5 " { 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 1 7 0 8 2 7
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 4 - A u g - 8 6 1 6 : 2 6 : 4
0000520 6 " { 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 . ; 2 9 ) \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 * F 2 1 Q S U P E
0012420 R ) 002 236 \n \b \0 003 @ 004 d l 004 360 226
0012440 277 @ A \n \0 \0 020 d l 005 360 242 261 \0 312 277
0012460 B 243 j b 004 277 021 @ 003 W 030 235 @ \t \0 \0
0012500 \t \0 \0 Z 001 270 J 002 001 271 H 262 032 A H \n
0012520 \0 \0 277 I 226 A l \n \0 \0 277 H 226 I 264
0012540 003 202 261 \0 223 W 032 265 025 h 273 W 026 262 W
0012560 024 006 \0 \0 312 002 j 360 252 j 217 B 361 263 353
0012600 A \t \0 \0 020 W 026 B 361 262 367 B 273 B k 324
0012620 b 004 277 A l ( \n \0 \0 277 K 265 5 @ 001 A
0012640 B \v \0 \0 277 @ 002 b \0 d 003 262 3 277 A l
0012660 \n \0 \0 277 W 030 262 343 @ \t \0 \0 262 335 A
0012700 o \0 \0 \0 \n \0 \0 277 @ A B \v \0 \0 260 037
0012720 k 324 [ W 026 361 262 307 A i \n \0 \0 216 236 A
0012740 o \0 \0 \0 \n \0 \0 277 @ A \n \0 \0 277 A l
0012760 ) \n \0 \0 h 020 d k 360 245 d l 002 360 262 Z
0013000 277 ` \0 \0 265 M l & \t \0 \0 ` \0 \0 265 <
0013020 \b \0 \0 021 022 002 A @ W 036 Z d 005 001 234 277
0013040 k J 361 246 J d l $ 361 224 277 J \t \0 \0 i
0013060 W 264 004 W 024 H I \r 006 \0 \0 \n \0 \0 H
0013100 027 \0 \0 277 I 027 \0 \0 277 020 h 027 \0 \0 277 260
0013120 304 h 027 \0 \0 277 260 265 d l 003 360 262 R 277 `
0013140 \0 \0 265 1 l & \t \0 \0 ` \0 \0 265 \b \0
0013160 \0 021 002 001 A @ H I A 006 \0 \0 311 006 ` \0
0013200 \0 360 262 030 ` \0 \0 263 023 i 260 023 h 027 \0 \0
0013220 277 260 340 h 027 \0 \0 277 260 321 ` \0 \0 \f \0 \0
0013240 \n \0 \0 H 027 \0 \0 277 I 027 \0 \0 277 020 d l
0013260 \a 360 226 277 @ A \n \0 \0 020 l \b 360 225 @ A
0013300 \n \0 \0 020 @ d i \n \0 \0 227 277 @ A j \v
0013320 \0 \0 020 \t \0 \0 021 q \a W " ` \0 \0 026 _
0013340 016 262 # W 032 d 224 B 265 003 j 331 021 001 \b O
0013360 016 002 271 @ A j l 003 I 017 016 022 _ 016 265 003
0013400 202 261 \0 223 W 024 006 \0 \0 312 002 j 360 263 ]
0013420 W 034 262 026 A d 006 \0 \0 310 035 l 002 330 W 034
0013440 361 226 277 A \t \0 \0 277 A W 024 006 \0 \0 312 004
0013460 \a 274 [ 006 \0 \0 311 272 K L l 002 J 016 277
0013500 A 006 \0 \0 311 275 A l < l 002 M 016 277 H
0013520 225 H A \n \0 \0 277 A o \0 \0 \0 \n \0 \0 @
0013540 A \n \0 \0 A l > \n \0 \0 020 A l { \n \0
0013560 \0 H 225 H A \n \0 \0 277 A l } \n \0 \0 A
0013600 006 \0 \0 311 276 A l # l 002 N 016 277 @ A
0013620 \n \0 \0 020 003 264 376 O 016 d 001 235 277 021 020 \t
0013640 O 016 001 A \n \0 \0 023 O 016 002 264 350 O 016 002
0013660 b \0 023 261 375 f \0 ( 1 2 1 5 Q \ P
0013700 R I N D A T U M 1 1 7 1 Q \
0013720 P R I N T A D D R 1 1 4 5 Q
0013740 \ C K P O S B O U T 1 1 3 6 Q
0013760 \ L I T P R I N 1 1 2 7 Q
0014000 \ C K P O S B O U T 1 1 2 0 Q
0014020 \ C K P O S B O U T 1 1 1 2
0014040 Q \ P R I N T A D D R 1 1 0
0014060 5 Q \ C K P O S S O U T 1 0
0014100 7 4 Q \ L I T P R I N 1 0 1
0014120 5 Q F R E S H L I N E 6 7 4
0014140 Q T Y P E N A M E 6 7 0 Q
0014160 P R I N T - I N S T A N C E 6
0014200 6 0 Q \ I N S T A N C E - P
0014220 6 5 1 Q \ P R I N S T A C K P
0014240 6 3 7 Q \ P R I N S T R I N
0014260 G 6 1 1 Q \ C K P O S S O U
0014300 T 6 0 6 Q \ C O N V E R T .
0014320 F L O A T I N G . N U M B E R
0014340 5 2 7 Q C O N C A T 5 1 7 Q
0014360 A L L O C S T R I N G 4 4 5
0014400 Q \ C K P O S S O U T 4 4 2
0014420 Q \ C O N V E R T N U M B E R
0014440 4 2 5 Q \ I N V A L I D . R
0014460 A D I X 3 7 1 Q C O N C A T
0014500 3 6 1 Q A L L O C S T R I N
0014520 G 3 3 2 Q \ C K P O S B O U
0014540 T 3 2 3 Q \ P R I N D A T U
0014560 M 3 1 5 Q \ C K P O S S O U
0014600 T 3 0 3 Q \ E L I D E . P R
0014620 I N T . T A I L 2 6 4 Q \ P
0014640 R I N D A T U M 2 5 5 Q \ C
0014660 K P O S S O U T 2 4 3 Q P R
0014700 I N T - C I R C L E - L A B E L
0014720 - P 2 3 2 Q \ C K P O S B O
0014740 U T 2 1 2 Q \ P R I N D A T
0014760 U M 1 7 7 Q \ C K P O S B O
0015000 U T 1 5 2 Q \ E L I D E . P
0015020 R I N T . E L E M E N T 1 0 1
0015040 Q \ C K P O S B O U T 7 0 Q
0015060 \ C K P O S S O U T 5 1 Q
0015100 \ M V L I S T 4 6 Q P R I N
0015120 T - C I R C L E - L O O K U P
0015140 1 4 Q \ L I T P R I N ) \r ( 1
0015160 1 5 1 Q S T R E A M 1 0 5 2
0015200 Q S T R E A M 1 0 3 4 Q S
0015220 T R E A M 1 0 2 4 Q R E A D
0015240 T A B L E P 7 7 7 Q S T R E
0015260 A M 7 5 7 Q R E A D T A B L
0015300 E P 7 0 4 Q \ D E F P R I N
0015320 T F N S 6 2 2 Q \ \ N U M S
0015340 T R 1 . G L O B A L R E S O U R
0015360 C E 6 1 5 Q \ \ N U M S T R
0015400 . G L O B A L R E S O U R C E
0015420 6 0 3 Q \ F L O A T F O R M A
0015440 T 5 7 5 Q \ \ N U M S T R .
0015460 G L O B A L R E S O U R C E 5
0015500 6 6 Q \ \ N U M S T R 1 . G L
0015520 O B A L R E S O U R C E 5 5 5
0015540 Q P R X F L G 5 4 7 Q \ P
0015560 N A M E D E V I C E 5 4 2 Q
0015600 S T R E A M 5 2 2 Q \ \ N U
0015620 M S T R 1 . G L O B A L R E S O
0015640 U R C E 5 1 0 Q \ \ N U M S
0015660 T R . G L O B A L R E S O U R C
0015700 E 4 7 3 Q \ \ N U M S T R .
0015720 G L O B A L R E S O U R C E 4
0015740 6 4 Q \ \ N U M S T R 1 . G L
0015760 O B A L R E S O U R C E 4 5 6
0016000 Q \ \ N U M S T R 1 . G L O B
0016020 A L R E S O U R C E 4 5 1 Q
0016040 \ \ N U M S T R . G L O B A L R
0016060 E S O U R C E 3 6 4 Q \ \ N
0016100 U M S T R 1 . G L O B A L R E S
0016120 O U R C E 3 5 2 Q \ \ N U M
0016140 S T R . G L O B A L R E S O U R
0016160 C E 1 3 2 Q R E A D T A B L
0016200 E P ) \r ( 1 1 0 2 Q " @
0016220 " 3 1 2 Q " . " 2 5 2
0016240 Q " . " ) \r \ E L I D E . P
0016260 R I N T . E L E M E N T D 1 \r
0016300 ( L ( 0 S T R E A M ) ) \0
0016320 026 003 \0 \0 001 @ \b \0 \0 021 022 002 H 006 \0 \0
0016340 311 272 H I l 002 J 016 020 \0 ( 3 \ E
0016360 L I D E . E L E M E N T . C H A
0016400 R ) \r ( 1 2 Q S T R E A M ) \r
0016420 ( ) \r \ E L I D E . E L E M E N
0016440 T . C H A R D 1 \r ( F 0 *
0016460 R E A D T A B L E * ) \0 026 \0 001
0016500 \0 \0 P 006 \0 \0 312 002 j 360 247 P 006 \0 \0
0016520 312 004 \a 020 l & 020 \0 N I L \r ( 1 5 Q
0016540 R E A D T A B L E P 3 R E
0016560 A D T A B L E P ) \r ( ) \r \ E L
0016600 I D E . P R I N T . T A I L D
0016620 1 \r ( L ( 1 N O S P A C E P
0016640 0 S T R E A M ) ) \0 035 001 \0
0016660 \0 002 A 263 023 @ 006 \0 \0 311 021 001 \0 @ l
0016700 l 002 H 016 023 \b \0 \0 @ \n \0 \0 020 \0 (
0016720 3 2 Q \ S O U T 2 6 Q \ E
0016740 L I D E . T A I L . S T R I N G
0016760 ) \r ( 6 S T R E A M ) \r ( ) \r
0017000 \ E L I D E . T A I L . S T R I
0017020 N G D 1 \r ( F 0 * R E A D
0017040 T A B L E * ) \0 025 \0 001 \0 \0 P 006
0017060 \0 \0 312 002 j 360 244 o \0 \0 \0 020 o \0 \0
0017100 \0 020 \0 N I L \r ( 3 R E A D T A
0017120 B L E P ) \r ( 2 2 Q " - - "
0017140 1 5 Q " . . . " ) \r \ C K P
0017160 O S B O U T D 1 \r ( L ( 1
0017200 X 0 S T R E A M ) F 1
0017220 \ T H I S F I L E L I N E L E N
0017240 G T H ) \0 & 001 001 \0 002 Q 262 024 @ d
0017260 006 \0 \0 310 035 k 330 Q 361 226 277 @ \t \0 \0 277
0017300 @ 006 \0 \0 311 021 001 \0 @ A l 002 H 016 020
0017320 \0 ( 2 3 Q F R E S H L I N E )
0017340 \r ( 3 0 Q S T R E A M 7 S
0017360 T R E A M ) \r ( ) \r \ C K P O S
0017400 S O U T D 1 \r ( L ( 1 X
0017420 0 S T R E A M ) F 7 \ T
0017440 H I S F I L E L I N E L E N G T
0017460 H ) \0 ` \a 001 \0 002 W 016 262 030 A 006 \0
0017500 \0 310 002 @ 006 \0 \0 310 035 330 W 016 361 224 @ \t
0017520 \0 \0 277 A 021 a 006 H 310 003 k 331 273 H 311 \0
0017540 274 K H 310 002 330 272 H 312 \0 C j 360 221 h 200
0017560 i ] 277 K k 330 [ J 361 263 035 M 225 L K 320
0017600 310 \0 202 L K 302 271 @ 006 \0 \0 311 276 @ I
0017620 l 002 N 016 260 336 h 020 \0 ( 3 0 Q F R
0017640 E S H L I N E ) \r ( 1 2 1 Q S
0017660 T R E A M 1 5 Q S T R E A M
0017700 7 S T R I N G P ) \r ( ) \r \
0017720 C O N V E R T N U M B E R D 1
0017740 \r ( L ( 5 N S B 4 N S
0017760 3 R D T B L 2 I G N O R E
0020000 1 R 0 N ) ) 001 035 006 \0 \0
0020020 006 @ j 360 224 o \0 \0 \0 020 021 ` 005 j @ 363
0020040 241 @ 203 j @ 331 X 271 D 006 \0 \0 006 \0 \0 310
0020060 002 Z k 331 273 h 274 A l \b 360 222 C 265 027 D
0020100 J m 377 324 Z I A 334 275 l \n M 361 262 & M
0020120 l 0 260 ' 006 \0 \0 312 002 j 360 262 343 I l
0020140 \a 361 262 335 D K k 324 [ l Q \v \0 \0 277 i
0020160 274 260 316 M l \n 331 l A 330 \v \0 \0 277 I A
0020200 333 Y j 360 262 273 H 233 D J m 377 324 Z l -
0020220 \v \0 \0 277 A l \n 360 222 261 \0 214 C 242 261 \0
0020240 207 L 222 261 \0 202 @ l \t 363 244 A @ 363 263 w
0020260 A d l 020 360 232 277 D J m 377 324 Z l x 260
0020300 Q l \b 360 231 D J m 377 324 Z l o 260 C A
0020320 l 002 360 231 D J m 377 324 Z l b 260 4 D J
0020340 m 377 324 Z l r \v \0 \0 277 D J m 377 324 Z
0020360 A l \n \n \0 \0 l 0 330 \v \0 \0 277 l \n A
0020400 363 263 023 D J m 377 324 Z A l \n 333 l 0 330
0020420 \v \0 \0 277 D J m 377 324 Z C 006 \0 \0 312 004
0020440 \a \v \0 \0 277 D J K E \f \0 \0 020 \0 ( 4
0020460 3 2 Q S U B S T R I N G 4 2
0020500 2 Q R P L C H A R C O D E 4
0020520 0 1 Q R P L C H A R C O D E
0020540 3 5 2 Q R P L C H A R C O D E
0020560 3 4 4 Q I M O D 3 2 7 Q
0020600 R P L C H A R C O D E 2 0 1 Q
0020620 R P L C H A R C O D E 1 5 3
0020640 Q R P L C H A R C O D E 1 3
0020660 4 Q R P L C H A R C O D E ) \r
0020700 ( 4 1 4 Q R E A D T A B L E P
0020720 1 0 5 Q R E A D T A B L E P
0020740 3 5 Q S T R I N G P 3 2 Q
0020760 S T R I N G P ) \r ( 7 " 0
0021000 " ) \r \ L I T P R I N D 1 \r (
0021020 L ( 1 S T R E A M 0 X )
0021040 F 1 2 Q \ T H I S F I L E
0021060 L I N E L E N G T H F 1 3 Q
0021100 * R E A D T A B L E * F 1
0021120 4 Q * P A C K A G E * F 1
0021140 5 Q * P R I N T - E S C A P E
0021160 * F 1 6 Q * P R I N T - C
0021200 A S E * F 1 7 Q * P R I N
0021220 T - G E N S Y M * F 2 0 Q
0021240 * K E Y W O R D - P A C K A G E
0021260 * ) 001 034 \n \a \0 002 W 032 242 261 \0 211 W
0021300 026 021 ! 002 W 030 265 023 @ H A I d 222 \t \0
0021320 \0 J W 024 \r 006 \0 \0 020 ` \0 \0 @ 301 \b 312
0021340 \0 \a 266 Y 360 223 h 271 260 340 I 265 ! W 036 262
0021360 331 l 002 H 006 \0 \0 312 \a \a \n \0 \0 Z k H
0021400 006 \0 \0 312 004 \a \v \0 \0 277 260 276 W 360 237
0021420 k H 006 \0 \0 312 \a \a \n \0 \0 272 h 271 260 252
0021440 @ d W 030 \n \0 \0 224 277 h 271 260 235 d I \n
0021460 \0 \0 360 221 k 201 l 002 H 006 \0 \0 312 \a \a \n
0021500 \0 \0 272 260 205 W 024 262 032 @ 301 \b 311 \0 312 \0
0021520 \a A 006 \0 \0 310 035 330 W 024 361 224 A \t \0 \0
0021540 277 j @ W 034 g \0 \0 360 264 016 W 026 006 \0 \0
0021560 312 \0 \0 j 360 h 360 021 s \t I 301 \b 311 \0 \
0021600 312 \0 \a 275 I 301 002 312 \0 j 360 h 360 ^ 277
0021620 H k 330 X M 361 263 < N 225 L H 320 310 \0 202
0021640 L H 302 273 A J 262 023 K d l Z 363 253 277 l
0021660 A K 363 244 K l 330 200 K _ 022 277 _ 020 006
0021700 \0 \0 311 _ 016 277 O 020 O 022 l 002 O 016 016
0021720 260 277 h 020 \0 ( 2 4 6 Q F R E S H
0021740 L I N E 2 1 0 Q A L L O C S
0021760 T R I N G 1 7 0 Q F I N D -
0022000 E X T E R N A L - S Y M B O L
0022020 1 5 5 Q F I N D - E X A C T -
0022040 S Y M B O L 1 4 1 Q A L L O
0022060 C S T R I N G 1 1 7 Q R P L
0022100 C H A R C O D E 1 0 3 Q A L
0022120 L O C S T R I N G 3 6 Q \ L
0022140 I T P R I N . I N T E R N A L
0022160 2 7 Q P A C K A G E - N A M E
0022200 - A S - S Y M B O L ) \r ( 4 1 0
0022220 Q S T R E A M 2 6 6 Q R E
0022240 A D T A B L E P 2 5 6 Q : D
0022260 O W N C A S E 2 3 3 Q S T R
0022300 E A M 2 0 2 Q R E A D T A B
0022320 L E P 1 3 3 Q R E A D T A B
0022340 L E P 1 1 1 Q R E A D T A B
0022360 L E P 7 5 Q R E A D T A B L
0022400 E P 4 2 Q \ P K G - I N D E
0022420 X - T O - P A C K A G E - V E C
0022440 T O R ) \r ( ) \r \ L I T P R I N
0022460 . I N T E R N A L D 1 \r ( L
0022500 ( 5 C H E C K L E N G T H 4
0022520 P K G S E P R 3 P K G N A
0022540 M E 2 S T R E A M 1 R D
0022560 T B L 0 S Y M B O L ) F
0022600 3 7 Q \ T H I S F I L E L I N
0022620 E L E N G T H F 4 0 Q * P
0022640 R I N T - C A S E * ) 002 254 037 002
0022660 \0 006 @ 301 \b 311 \0 312 \0 \a A 006 \0 \0 312 006
0022700 \a A 006 \0 \0 312 006 207 021 363 021 021 P 026 E 244
0022720 J j 360 263 . @ A E h 360 \v \0 \0 _ 016 m
0022740 377 360 231 k _ 016 277 i _ 022 277 260 032 j O 016
0022760 361 231 j O 016 331 _ 016 277 i 273 210 O 016 j 360
0023000 243 i _ 020 277 E 262 , W > 262 ( H O 016 C
0023020 265 003 202 261 \0 245 j D 265 003 202 261 \0 225 j B
0023040 006 \0 \0 310 035 330 330 330 330 W > 361 224 B \t \0
0023060 \0 277 C 265 u D 265 k O 022 262 023 B 006 \0 \0
0023100 311 _ 026 277 B I l 002 O 026 016 277 K 242 261
0023120 \0 301 B 006 \0 \0 311 _ 030 277 B J l 002 O
0023140 030 016 277 j @ 021 B 034 O 0 301 \b 311 \0 _ 4
0023160 312 \0 \a _ 6 277 O 0 301 002 312 \0 j 360 h
0023200 360 _ 8 277 O . k 330 _ . O 6 361 262 C 023
0023220 B 006 \0 \0 311 _ 036 277 B J l 002 O 036 016
0023240 020 B \n \0 \0 277 260 222 A B \v \0 \0 277 260 207
0023260 006 \0 \0 310 002 261 377 j A \n \0 \0 _ 024 277 j
0023300 O 024 361 244 O 024 261 377 Q j O 024 331 261 377 J
0023320 O 8 227 O 4 O . 320 310 \0 204 O 4 O . 302
0023340 _ 2 J 360 245 O 2 I 360 262 023 B 006 \0 \0 311
0023360 _ 032 277 B I l 002 O 032 016 277 B 006 \0 \0
0023400 311 _ 034 277 B O 2 l 002 O 034 016 261 377 v
0023420 H k 360 262 . @ \t \0 \0 l . 360 262 % B 006
0023440 \0 \0 311 _ 277 B I l 002 O 016 277 B
0023460 006 \0 \0 311 _ " 277 B l . l 002 O " 016
0023500 020 O 020 262 037 A 006 \0 \0 312 \0 \0 j 360 h 360
0023520 264 \n ` \0 \0 006 \0 \0 311 \0 274 A 006 \0 \0 311
0023540 \0 275 j @ i A 006 \0 \0 312 \0 \0 j 360 h 360
0023560 264 \b W @ g \0 \0 360 021 D 036 O 0 301 \b 311
0023600 \0 _ 8 312 \0 \a _ : 277 O 0 301 002 312 \0
0023620 j 360 h 360 _ < 277 O . k 330 _ . O : 361
0023640 222 261 \0 272 O < 227 O 8 O . 320 310 \0 204 O
0023660 8 O . 302 _ 6 277 O 020 262 i L 235 O 6 d
0023700 l 377 361 250 L O 6 302 360 262 6 O 6 l 377 361
0023720 262 030 M 006 \0 \0 311 200 234 O 6 M 006 \0 \0 311
0023740 200 \n \0 \0 265 \b j 203 M O 6 302 ^ l @ 345
0023760 j 360 263 0 O 2 247 N l $ 345 j 360 263 % B
0024000 006 \0 \0 311 _ $ 277 B I l 002 O $ 016 277
0024020 B 006 \0 \0 311 _ & 277 B O 6 l 002 O &
0024040 260 2 B O 4 262 026 O 6 d l Z 363 256 277 l
0024060 A O 6 363 245 O 6 l 330 201 O 6 _ , 277
0024100 _ * 006 \0 \0 311 _ ( 277 O * O , l 002
0024120 O ( 016 277 h _ 2 277 261 377 ? h 020 \0 ( 1
0024140 0 6 1 Q G E T H A S H 5 4 6
0024160 Q C H C O N 1 4 1 1 Q \ S
0024200 Y M B O L . E S C A P E . C O U
0024220 N T 3 7 2 Q \ L I T P R I N
0024240 . I N T E R N A L 3 6 2 Q \
0024260 S O U T 1 7 6 Q F R E S H L
0024300 I N E 5 2 Q \ S Y M B O L .
0024320 E S C A P E . C O U N T ) \r ( 1
0024340 2 2 2 Q S T R E A M 1 1 4 1
0024360 Q S T R E A M 1 1 2 0 Q S
0024400 T R E A M 1 0 5 4 Q C H A R
0024420 T A B L E 1 0 4 3 Q C H A R
0024440 T A B L E 7 0 4 Q : D O W N
0024460 C A S E 6 6 6 Q R E A D T A
0024500 B L E P 6 5 4 Q R E A D T A
0024520 B L E P 6 4 5 Q A R R A Y P
0024540 6 4 2 Q U P P E R C A S E A
0024560 R R A Y 6 2 6 Q R E A D T A
0024600 B L E P 6 0 0 Q S T R E A M
0024620 5 5 7 Q S T R E A M 5 1 5
0024640 Q S T R E A M 4 7 4 Q S T
0024660 R E A M 4 0 0 Q S T R I N G
0024700 P 3 4 1 Q S T R E A M 2 4
0024720 3 Q S T R E A M 2 1 5 Q S
0024740 T R E A M 1 6 0 Q S T R E A
0024760 M 2 2 Q R E A D T A B L E P
0025000 1 3 Q R E A D T A B L E P )
0025020 \r ( ) \r \ S Y M B O L . E S C A
0025040 P E . C O U N T D 1 \r ( L (
0025060 2 I N E X A C T O K 1 R D
0025100 T B L 0 S Y M B O L ) F
0025120 1 6 Q * R E A D - B A S E * )
0025140 001 \r 016 001 \0 003 j @ j d i A 312 006 207
0025160 A 312 006 \a A 312 \0 \0 j 360 h 360 264 \a ` \0
0025200 \0 311 \0 A 311 \0 021 Y \r I 301 \b 311 \0 _ 024
0025220 312 \0 \a _ 026 277 I 301 002 312 \0 j 360 h 360
0025240 _ 030 277 M j 360 221 h 275 H k 330 X O 026 361
0025260 222 261 \0 225 O 030 226 O 024 H 320 310 \0 203 O 024
0025300 H 302 _ 022 277 L 262 025 O 022 l . 360 234 @ 301
0025320 \b 311 \0 312 \0 \a k 360 221 k 020 O 016 236 O 022
0025340 d l 377 361 251 O 016 O 022 302 360 262 4 O 022 l
0025360 377 361 262 024 O 020 311 200 232 O 022 O 020 311 200 \n
0025400 \0 \0 265 \t j 204 O 020 O 022 302 _ 032 l @ 345
0025420 j 360 263 " L 250 O 032 l $ 345 j 360 263 027 J
0025440 k 324 272 M 264 021 O 022 M 360 244 O 022 N 360 230
0025460 K k 324 273 h 274 261 377 s B 264 373 J K 325 k
0025500 363 264 364 m 376 020 J j 360 262 031 @ A 312 002
0025520 j 360 242 W 034 201 l \n \n \0 \0 225 M 263 346 m
0025540 377 020 M 234 J d K 325 k 363 226 277 m 376 K 331
0025560 020 J 020 \0 ( 3 6 3 Q \ N U M E R
0025600 I C . P N A M E P 2 3 2 Q G
0025620 E T H A S H ) \r ( 3 1 Q U P P
0025640 E R C A S E A R R A Y ) \r ( ) \r
0025660 \ N U M E R I C . P N A M E P
0025700 D 1 \r ( L ( 1 R A D I X 0
0025720 S Y M B O L ) F 1 3 Q *
0025740 R E A D T A B L E * F 1 4 Q
0025760 * R E A D - B A S E * ) 001 E
0026000 \v 002 \0 002 g \0 \0 A 265 017 W 026 312 002 j
0026020 360 242 W 030 201 l \n l \v 331 l A 330 021 2 004
0026040 j @ 021 B \n N 004 d l \a 360 262 # 277 N 311
0026060 \0 _ 020 277 N 310 003 k 331 ] N 310 002 330 _ 022
0026100 277 N 312 \0 C j 360 222 h 260 ! i 260 036 l 004
0026120 360 262 6 N 301 \b 311 \0 _ 020 312 \0 \a _ 022 277
0026140 N 301 002 312 \0 j 360 h 360 _ 024 277 M k 330
0026160 ] O 022 361 262 032 K 246 J 264 003 202 261 \0 271 H
0026200 g \0 \0 360 h 360 020 N \t \0 \0 ^ 260 232 O 024
0026220 226 O 020 M 320 310 \0 203 O 020 M 302 _ 016 277 l
0026240 A O 016 361 262 L l 0 O 016 361 262 7 O 016 l
0026260 - 360 247 O 016 d l + 360 226 277 g \0 \0 261 \0
0026300 206 l . 360 234 J 225 L 264 004 h 020 272 j 271 i
0026320 260 t O 016 l / 360 264 ^ H g \0 \0 360 264 f
0026340 h 020 O 016 l 9 361 263 M i 273 g \0 \0 260 V
0026360 O 016 l z 361 263 ? l a O 016 361 247 O 016 l
0026400 331 _ 016 201 O 016 l Z 361 263 , O 016 I 361
0026420 263 027 i 272 H g \0 \0 360 245 H g \0 \0 360 221
0026440 i 274 g \0 \0 260 037 H g \0 \0 360 246 H g \0
0026460 \0 360 262 360 h 020 O 016 l _ 360 246 O 016 l ^
0026500 360 264 364 h 270 261 377 ( \0 ( 2 0 6 Q M
0026520 K S T R I N G ) \r ( 4 5 4 Q F
0026540 I R S T 4 4 6 Q L E T T E R
0026560 4 4 0 Q L E T T E R 4 3 1
0026600 Q F I R S T 4 2 3 Q L E T
0026620 T E R 3 5 1 Q D I G I T 3
0026640 3 0 Q F I R S T 2 7 1 Q S
0026660 I G N 1 7 6 Q S I G N 2
0026700 F I R S T ) \r ( ) \r \ P R I N S
0026720 T A C K P D 1 \r ( L ( 1 S
0026740 T R E A M 0 X ) F 3 \
0026760 T H I S F I L E L I N E L E N G
0027000 T H F 4 * R E A D T A B L
0027020 E * ) \0 245 003 002 \0 002 S 262 5 @ d \t
0027040 \0 \0 224 277 l \b 260 030 \t \0 \0 004 l 004 360 233
0027060 @ \t \0 \0 301 \b 311 \0 312 \0 \a 201 l 006 A 006
0027100 \0 \0 310 035 l 025 330 330 S 361 224 A \t \0 \0 277
0027120 A T 006 \0 \0 312 004 \a 021 022 002 H 006 \0 \0 311
0027140 272 H I l 002 J 016 023 o \0 \0 \0 A \n \0
0027160 \0 @ A \n \0 \0 A 006 \0 \0 311 021 001 \0 A
0027200 l / l 002 H 016 023 @ d \t \0 \0 226 277 o \0
0027220 \0 \0 260 026 \t \0 \0 b \0 004 l 004 360 225 @ A
0027240 \n \0 \0 207 o \0 \0 \0 A \n \0 \0 277 A 006 \0
0027260 \0 311 021 001 \0 A l > l 002 H 016 020 \0 (
0027300 2 2 1 Q \ S O U T 2 1 0 Q
0027320 \ L I T P R I N 1 7 4 Q S T
0027340 K N A M E 1 6 1 Q R E L S T
0027360 K P 1 3 3 Q \ P R I N T A D
0027400 D R 1 2 6 Q \ S O U T 6 4
0027420 Q F R E S H L I N E 3 1 Q
0027440 S T K N A M E 2 0 Q S T K N
0027460 A M E 7 R E L S T K P ) \r (
0027500 2 2 6 Q S T R E A M 1 3 7 Q
0027520 S T R E A M 1 0 4 Q S T R
0027540 E A M 7 2 Q R E A D T A B L
0027560 E P 4 7 Q S T R E A M ) \r (
0027600 2 1 5 Q " * f o r m * " 1
0027620 6 7 Q " r e l e a s e d " 1
0027640 2 2 Q " < S t a c k P " ) \r
0027660 \ P R I N T A D D R D 1 \r ( L
0027700 ( 1 S T R E A M 0 X ) )
0027720 \0 W 002 \0 \0 002 ` \0 \0 265 L l & \t \0
0027740 \0 ` \0 \0 265 ; \b \0 \0 021 002 001 A @ 322 l
0027760 \b h d H I \r 006 \0 \0 \n \0 \0 277 A l ,
0030000 \n \0 \0 277 A @ 323 l \b h d H I \r 006 \0
0030020 \0 \n \0 \0 H 027 \0 \0 277 I 027 \0 \0 277 020 h
0030040 027 \0 \0 277 260 305 h 027 \0 \0 277 260 266 \0 ( 7
0030060 4 Q \ C K P O S S O U T 7 1
0030100 Q \ C O N V E R T N U M B E R
0030120 5 3 Q \ C K P O S B O U T
0030140 4 4 Q \ C K P O S S O U T 4
0030160 1 Q \ C O N V E R T N U M B E
0030200 R 2 1 Q C O N C A T 1 1 Q
0030220 A L L O C S T R I N G ) \r ( 1
0030240 2 2 Q \ \ N U M S T R . G L O
0030260 B A L R E S O U R C E 1 1 3 Q
0030300 \ \ N U M S T R 1 . G L O B A
0030320 L R E S O U R C E 1 0 5 Q \
0030340 \ N U M S T R 1 . G L O B A L R
0030360 E S O U R C E 1 0 0 Q \ \ N
0030400 U M S T R . G L O B A L R E S O
0030420 U R C E 1 4 Q \ \ N U M S T
0030440 R 1 . G L O B A L R E S O U R C
0030460 E 2 \ \ N U M S T R . G L O
0030500 B A L R E S O U R C E ) \r ( ) \r
0030520 \ P R I N S T R I N G D 1 \r (
0030540 L ( 1 S T R E A M 0 X )
0030560 F 1 4 Q \ T H I S F I L E
0030600 L I N E L E N G T H F 1 5 Q
0030620 * P R I N T - E S C A P E *
0030640 F 1 6 Q * R E A D T A B L E
0030660 * ) 001 5 \f 003 \0 002 W 032 242 261 001 021 W
0030700 034 006 \0 \0 312 006 \a 021 A 004 W 030 262 t @ 006
0030720 \0 \0 310 002 @ j 021 R \v M 310 003 k 331 _ 022
0030740 277 M 311 \0 _ 024 277 O 022 M 310 002 330 _ 020 277
0030760 M 312 \0 C j 360 221 h 200 i _ 026 277 O 022 k
0031000 330 _ 022 O 020 361 263 $ O 026 227 O 024 O 022 320
0031020 310 \0 204 O 024 O 022 302 _ 016 l " 360 245 O 016
0031040 H 360 262 333 N k 330 276 260 325 N 022 A 006 \0 \0
0031060 310 035 l 002 330 330 330 W 030 361 224 A \t \0 \0 277
0031100 A 006 \0 \0 311 271 A l " l 002 I 016 277 @
0031120 021 Q \n M 310 003 k 331 _ 020 277 M 311 \0 _ 022
0031140 277 O 020 M 310 002 330 _ 016 277 M 312 \0 C j 360
0031160 221 h 200 i _ 024 277 O 020 k 330 _ 020 O 016 361
0031200 263 = O 024 227 O 022 O 020 320 310 \0 204 O 022 O
0031220 020 302 ^ l " 360 250 N l \n 360 243 N H 360 235
0031240 A 006 \0 \0 311 272 A H l 002 J 016 277 A 006
0031260 \0 \0 311 273 A N l 002 K 016 260 273 023 A 006
0031300 \0 \0 311 274 A l " l 002 L 016 020 W 030 262
0031320 030 @ 006 \0 \0 310 002 A 006 \0 \0 310 035 330 W 030
0031340 361 224 A \t \0 \0 277 @ A \n \0 \0 020 \0 ( 4
0031360 6 2 Q \ S O U T 4 5 4 Q F
0031400 R E S H L I N E 2 0 5 Q F R
0031420 E S H L I N E ) \r ( 4 4 1 Q S
0031440 T R E A M 4 3 3 Q S T R I N
0031460 G P 4 1 0 Q S T R E A M 3
0031500 7 0 Q S T R E A M 3 5 2 Q
0031520 S T R E A M 2 1 2 Q S T R E
0031540 A M 1 6 6 Q S T R E A M 3
0031560 0 Q S T R I N G P 1 2 Q R
0031600 E A D T A B L E P ) \r ( ) \r \ S
0031620 O U T D 1 \r ( L ( 1 S T R
0031640 E A M 0 X ) ) \0 F \a \0 \0 002
0031660 @ 021 a 006 H 310 003 k 331 273 H 311 \0 274 K H
0031700 310 002 330 272 H 312 \0 C j 360 221 h 200 i ] 277
0031720 K k 330 [ J 361 263 035 M 225 L K 320 310 \0 202
0031740 L K 302 271 A 006 \0 \0 311 276 A I l 002 N
0031760 016 260 336 h 020 \0 N I L \r ( 6 7 Q S
0032000 T R E A M ) \r ( ) \r \ O U T C H
0032020 A R D 1 \r ( L ( 1 C H A R
0032040 C O D E 0 S T R E A M ) )
0032060 \0 021 001 \0 \0 002 @ 006 \0 \0 311 021 001 \0 @
0032100 A l 002 H 016 020 \0 N I L \r ( 3 S T
0032120 R E A M ) \r ( ) \r \ F I L E O U
0032140 T C H A R F N D 1 \r ( L ( 1
0032160 C H A R C O D E 0 S T R E
0032200 A M ) ) \0 236 002 \0 \0 002 A l \r 360 262
0032220 S @ d 006 \0 \0 312 2 \a l 377 360 223 277 @ 260
0032240 024 312 2 \a j 360 256 @ l 377 ! 277 @ d j 317
0032260 2 \a 277 j ! 277 @ d 312 030 001 d j 360 224 277
0032300 l \r 260 031 d k 360 223 277 l \n 216 l 002 360 227
0032320 @ l \r ! 277 l \n 202 \b \0 \0 ! @ j 315 035
0032340 j 020 @ 006 \0 \0 312 2 \a l 377 360 224 @ A 343
0032360 260 037 A 343 @ 312 2 \a 360 263 030 @ l 377 ! 277
0032400 @ d A 343 021 002 001 H I 317 2 \a 277 I 022 !
0032420 277 @ A l 377 345 ! 277 @ d 310 035 k 320 323 021
0032440 002 001 H I 315 035 I 020 \0 ( 1 1 7 Q S
0032460 H O U L D N T ) \r ( 1 3 2 Q S
0032500 T R E A M 1 2 Q S T R E A M
0032520 ) \r ( ) \r \ T T Y O U T C H A R
0032540 F N D 1 \r ( L ( 1 C H 0
0032560 S T R E A M ) F 1 \ D R
0032600 I B B L E . O F D ) \0 % 001 001 \0
0032620 002 Q 006 \0 \0 311 021 001 \0 Q A l 002 H 016
0032640 023 @ 006 \0 \0 311 $ g \0 \0 ' 021 001 \0 @ A
0032660 l 002 H 016 020 \0 N I L \r ( 3 0 Q \
0032700 O U T C H A R 2 3 Q S T R E
0032720 A M 3 S T R E A M ) \r ( ) \r
0032740 \ I N V A L I D . R A D I X D
0032760 1 \r ( L ( 0 N ) ) \0 \n \0 \0
0033000 \0 001 o \0 \0 \0 @ \n \0 \0 020 \0 ( 7 E
0033020 R R O R ) \r N I L \r ( 3 " B
0033040 a d v a l u e f o r * p r
0033060 i n t - b a s e * " ) \r \ M A P
0033100 P N A M E D 1 \r ( L ( 3 R
0033120 D T B L 2 F L G 1 X 0
0033140 F N ) P 5 * P R I N T -
0033160 L E N G T H * P 4 * P R I
0033200 N T - L E V E L * P 3 * P
0033220 R I N T - R A D I X * P 2
0033240 * P R I N T - B A S E * P 1
0033260 * R E A D T A B L E * P 0
0033300 * P R I N T - E S C A P E *
0033320 F 6 * R E A D T A B L E *
0033340 F 7 * P R I N T - B A S E *
0033360 ) \0 + 006 002 \0 004 B d 227 C 225 C d i
0033400 360 221 277 V 006 \0 \0 ` \0 \0 222 W 016 201 l \n
0033420 021 3 005 B 226 J l \n 360 241 i 273 @ A \n \0
0033440 \0 020 \0 ( 5 0 Q \ M A P P N A M
0033460 E . I N T E R N A L ) \r ( 2 1 Q
0033500 P R X F L G 1 6 Q R E A D
0033520 T A B L E P ) \r ( ) \r \ M A P P
0033540 N A M E . I N T E R N A L D 1
0033560 \r ( L ( 1 X 0 F N ) P
0033600 1 \ T H I S F I L E L I N E
0033620 L E N G T H ) \0 235 002 \0 \0 002 ` \0
0033640 \0 265 003 202 261 \0 220 l \v 037 d ` \0 \0 024 006
0033660 277 d l 006 317 004 R 277 d n 377 377 315 037 277 d
0033700 g \0 \0 024 . 277 d g \0 \0 024 , 277 d ` \0
0033720 \0 024 & 277 d g \0 \0 024 " 277 d g \0 \0 024
0033740 277 d j 317 030 001 277 d j 315 035 277 d ` \0
0033760 \0 315 034 277 d h 024 030 277 d l \b 317 024 \a 277
0034000 d k 317 004 @ 277 d k 317 004 0 277 d h 024 002
0034020 277 021 001 \0 H 006 \0 \0 @ 024 277 H 006 \0 \0
0034040 @ 024 . 277 021 020 001 A H j \v \0 \0 022 H 027
0034060 \0 \0 277 020 h 027 \0 \0 260 330 \0 ( 2 1 6 Q
0034100 \ P R I N D A T U M ) \r ( 2 3
0034120 1 Q \ \ M A P P N A M E S T R
0034140 E A M . G L O B A L R E S O U R
0034160 C E 2 2 3 Q \ \ M A P P N A
0034200 M E S T R E A M . G L O B A L R
0034220 E S O U R C E 2 0 1 Q S T R
0034240 E A M 1 7 1 Q S T R E A M
0034260 1 2 2 Q \ S T R E A M . D E F
0034300 A U L T . M A X B U F F E R S
0034320 1 0 0 Q \ F I L E O U T C H A
0034340 R F N 7 1 Q \ E O S E R R O
0034360 R 6 2 Q \ N O I M A G E O P
0034400 S 5 3 Q \ S T R E A M . N O
0034420 T . O P E N 4 4 Q \ S T R E
0034440 A M . N O T . O P E N 1 7 Q
0034460 \ P N A M E D E V I C E 2 \
0034500 \ M A P P N A M E S T R E A M .
0034520 G L O B A L R E S O U R C E ) \r
0034540 ( ) \r P N A M E S T R E A M P
0034560 D 1 \r ( L ( 0 S T R M ) )
0034600 \0 023 \0 \0 \0 001 @ 004 l \v 360 264 \f @ 006 \0
0034620 \0 311 006 ` \0 \0 360 020 \0 N I L \r ( 1 7
0034640 Q \ P N A M E D E V I C E 1
0034660 2 Q S T R E A M ) \r ( ) \r \ M
0034700 A P C H A R S A 0 0 0 1 D 1 \r
0034720 ( L ( 1 C H A R 0 D U M
0034740 M Y ) F 0 \ M A P C H A R
0034760 F N ) \0 006 \0 001 \0 002 A k P 016 020 \0
0035000 N I L \r N I L \r ( ) \r \ M A P C
0035020 H A R S D 1 \r ( L ( 2 F L
0035040 G 1 X ) I 3 R D T B L
0035060 I 0 \ M A P C H A R F N )
0035100 \0 \v \0 \0 \0 004 g \0 \0 A B C \f \0 \0
0035120 020 \0 ( 1 0 Q \ M A P P N A M E
0035140 ) \r ( 2 \ M A P C H A R S A 0
0035160 0 0 1 ) \r ( ) \r P R I N T N U M
0035200 D 1 \r ( L ( 2 F I L E 1
0035220 N U M B E R 0 F O R M A T
0035240 ) ) 001 \n \t \0 \0 003 ` \0 \0 265 ' l &
0035260 \t \0 \0 ` \0 \0 265 026 \b \0 \0 021 002 001 @ 003
0035300 001 d g \0 \0 360 262 024 277 i 260 035 h 027 \0 \0
0035320 277 260 352 h 027 \0 \0 277 260 333 g \0 \0 360 221 h
0035340 205 @ l 033 \n \0 \0 @ 002 021 R \b K 001 275 A
0035360 244 ` \0 \0 265 [ J 236 A 006 \0 \0 H I @ \t
0035400 \0 \0 \f \0 \0 260 J A d 3 242 \t \0 \0 K
0035420 002 001 _ 020 262 ( j O 020 361 242 O 020 203 j O
0035440 020 331 _ 016 277 l 002 O 016 361 247 O 016 d l 020
0035460 361 233 277 O 020 \t \0 \0 277 O 016 201 l \n O 020
0035500 h 360 265 006 O 020 j 361 h H I \r 006 \0 \0 274
0035520 M 265 026 j ^ j 361 262 6 J 250 K 002 002 002 001
0035540 263 - J 231 K 002 207 L \t \0 \0 331 260 350 K 002
0035560 002 001 262 025 N d j 361 262 024 o \0 \0 \0 B \n
0035600 \0 \0 277 k 331 260 360 N B \n \0 \0 277 L B \n
0035620 \0 \0 277 N j 361 235 J 253 K 002 002 002 001 225 N
0035640 B \n \0 \0 277 A 022 H 027 \0 \0 277 I 027 \0 \0
0035660 277 020 \0 ( 3 7 2 Q S P A C E S
0035700 3 5 0 Q P R I N 1 3 4 2 Q
0035720 S P A C E S 3 3 0 Q P R I N
0035740 1 3 0 1 Q N C H A R S 2 4
0035760 5 Q \ C O N V E R T N U M B E
0036000 R 2 1 6 Q \ I L L E G A L .
0036020 A R G 1 4 5 Q F I X R 1 3
0036040 3 Q \ C O N V E R T . F L O A
0036060 T I N G . N U M B E R 1 3 0 Q
0036100 \ C H E C K F L T F M T 7 5
0036120 Q \ L I S P E R R O R 2 1 Q
0036140 C O N C A T 1 1 Q A L L O
0036160 C S T R I N G ) \r ( 4 0 6 Q \
0036200 \ N U M S T R 1 . G L O B A L R
0036220 E S O U R C E 4 0 1 Q \ \ N
0036240 U M S T R . G L O B A L R E S O
0036260 U R C E 1 2 2 Q F L O A T P
0036300 1 1 2 Q N I L N U M P R I N
0036320 T F L G 6 3 Q F I X 5 5 Q
0036340 \ \ N U M S T R . G L O B A L
0036360 R E S O U R C E 4 6 Q \ \ N
0036400 U M S T R 1 . G L O B A L R E S
0036420 O U R C E 3 3 Q F L O A T
0036440 1 4 Q \ \ N U M S T R 1 . G L
0036460 O B A L R E S O U R C E 2 \
0036500 \ N U M S T R . G L O B A L R E
0036520 S O U R C E ) \r ( 3 2 4 Q "
0036540 0 " ) \r F L T F M T D 1 \r ( L
0036560 ( 0 F O R M A T ) ) \0 021 \0
0036600 \0 \0 001 ` \0 \0 @ 231 @ \t \0 \0 224 @ 027 \0
0036620 \0 277 020 \0 ( 1 0 Q \ C H E C K F
0036640 L T F M T ) \r ( 1 5 Q \ F L O
0036660 A T F O R M A T 2 \ F L O A
0036700 T F O R M A T ) \r ( ) \r \ C H E
0036720 C K F L T F M T D 1 \r ( L (
0036740 0 F O R M A T ) ) \0 1 001 \0 \0
0036760 001 @ d i 360 263 $ d 001 g \0 \0 360 262 036 216
0037000 d 001 021 001 \0 H h 360 265 005 H 3 022 225 002
0037020 003 265 357 i 201 277 h 221 @ 020 @ l 033 \n \0 \0
0037040 020 \0 ( 5 6 Q \ L I S P E R R O
0037060 R ) \r ( 1 2 Q F L O A T ) \r (
0037100 ) \r N U M F O R M A T C O D E
0037120 D 1 \r ( L ( 1 S M A S H C O
0037140 D E 0 F O R M A T ) ) \0 003
0037160 \0 \0 \0 002 @ 020 \0 N I L \r N I L \r (
0037200 ) \r ( P R E T T Y C O M P R I N
0037220 T A P R I N T C O M S ) \r ( R
0037240 P A Q Q A P R I N T C O M S
0037260 ( ( C O M S ( * U s e r - l
0037300 e v e l p r i n t f u n c t
0037320 i o n s ) ( F N S P R I N 1
0037340 P R I N 2 P R I N 3 P R I
0037360 N 4 P R I N T P R I N T C C
0037400 O D E \r P R I N T L E V E L
0037420 R A D I X S P A C E S T E R
0037440 P R I F R E S H L I N E D E
0037460 F P R I N T L I N E L E N G T
0037500 H ) ) ( * J R B : I d o
0037520 n ' t u n d e r s t a n d h
0037540 o w t h i s \r e v e r w o
0037560 r k e d w i t h o u t a F
0037600 I R S T . . . ) ( D E C L A R
0037620 E : F I R S T ( I N I T V A
0037640 R S ( P L V L F I L E F L G
0037660 N I L ) ( \ L I N E L E N G T
0037700 H 8 2 ) ( \r \ F L O A T F O
0037720 R M A T T ) ( P R X F L G
0037740 N I L ) ( * P R I N T - B A S
0037760 E * 1 0 ) ( * R E A D - B A
0040000 S E * 1 0 ) ( * P R I N T -
0040020 R A D I X * N I L ) ( * P R
0040040 I N T - E S C A P E * T ) \r
0040060 ( * P R I N T - C A S E * ( Q
0040100 U O T E : U P C A S E ) ) (
0040120 * P R I N T - G E N S Y M * T
0040140 ) ( * P R I N T - L E V E L *
0040160 N I L ) ( * P R I N T - L E
0040200 N G T H * N I L ) ( \r * P R
0040220 I N T - P R E T T Y * N I L )
0040240 ( * P R I N T - C I R C L E *
0040260 N I L ) ( * P R I N T - A R
0040300 R A Y * N I L ) ( * P R I N
0040320 T - C I R C L E - H A S H T A B
0040340 L E * N I L ) ( * P A C K A
0040360 G E * \r N I L ) ( * K E Y W
0040400 O R D - P A C K A G E * N I L
0040420 ) ( \ D E F P R I N T F N S
0040440 N I L ) ) ) ( C O M S ( *
0040460 P R I N T i n t e r n a l s )
0040500 ( F N S P R I N T - C I R C
0040520 L E - L O O K U P \r P R I N T
0040540 - C I R C L E - L A B E L - P
0040560 P R I N T - C I R C L E - S C A
0040600 N P R I N T - C I R C L E - E
0040620 N T E R ) ( F N S \ P R I N
0040640 D A T U M \ E L I D E . P R I
0040660 N T . E L E M E N T \r \ E L I
0040700 D E . E L E M E N T . C H A R
0040720 \ E L I D E . P R I N T . T A I
0040740 L \ E L I D E . T A I L . S T
0040760 R I N G \ C K P O S B O U T
0041000 \ C K P O S S O U T \ C O N V
0041020 E R T N U M B E R \ L I T P R
0041040 I N \r \ L I T P R I N . I N T
0041060 E R N A L \ S Y M B O L . E S
0041100 C A P E . C O U N T \ N U M E
0041120 R I C . P N A M E P \ P R I N
0041140 S T A C K P \ P R I N T A D D
0041160 R \ P R I N S T R I N G \ S
0041200 O U T \r \ O U T C H A R \ F
0041220 I L E O U T C H A R F N \ T T
0041240 Y O U T C H A R F N ) ( D E C
0041260 L A R E : D O N T C O P Y (
0041300 M A C R O S . F I L E L I N E
0041320 L E N G T H . ) ) ( D E C L A
0041340 R E : \r E V A L @ C O M P I L
0041360 E D O N T C O P Y ( E X P O
0041400 R T ( M A C R O S . S P A C
0041420 E C H E C K . \ C H E C K R A
0041440 D I X ) ) ) ( F N S \ I N V
0041460 A L I D . R A D I X ) ( S P E
0041500 C V A R S \r \ T H I S F I L E
0041520 L I N E L E N G T H ) ) ( C O
0041540 M S ( * I n t e r n a l p
0041560 r i n t i n g ) ( F N S \ M
0041600 A P P N A M E \ M A P P N A M
0041620 E . I N T E R N A L P N A M E
0041640 S T R E A M P ) ( \r D E C L A
0041660 R E : D O N T C O P Y ( R E
0041700 S O U R C E S \ M A P P N A M
0041720 E S T R E A M ) ( M A C R O S
0041740 P N A M E S T R E A M P ) )
0041760 ( I N I T R E S O U R C E S \
0042000 M A P P N A M E S T R E A M )
0042020 ( \r I N I T V A R S ( \ P N A
0042040 M E D E V I C E ( N C R E A T
0042060 E ( Q U O T E F D E V ) (
0042100 \ G E T D E V I C E F R O M H O
0042120 S T N A M E ( Q U O T E N U
0042140 L L ) T ) ) ) ) ( G L O B A
0042160 L V A R S \r \ P N A M E D E V
0042200 I C E ) ) ( C O M S ( * O
0042220 b s o l e t e ) ( F N S \ M
0042240 A P C H A R S ) ) ( D E C L A
0042260 R E : E V A L @ C O M P I L E
0042300 D O C O P Y ( A D D V A R S
0042320 ( S Y S S P E C V A R S \r *
0042340 P R I N T - B A S E * * R E A
0042360 D - B A S E * * P R I N T - R
0042400 A D I X * * P R I N T - E S C
0042420 A P E * * P R I N T - C A S E
0042440 * * P R I N T - G E N S Y M *
0042460 * P R I N T - L E V E L * \r
0042500 * P R I N T - L E N G T H * *
0042520 P R I N T - P R E T T Y * * P
0042540 R I N T - C I R C L E * * P R
0042560 I N T - A R R A Y * * P A C K
0042600 A G E * ) ) ) ( C O M S ( *
0042620 P R I N T N U M a n d f r
0042640 i e n d s ) \r ( F N S P R I
0042660 N T N U M F L T F M T \ C H
0042700 E C K F L T F M T N U M F O R
0042720 M A T C O D E ) ( M A C R O S
0042740 N U M F O R M A T C O D E )
0042760 ( I N I T V A R S ( N I L N U
0043000 M P R I N T F L G ) ) ) \r ( L
0043020 O C A L V A R S . T ) ( G
0043040 L O B A L V A R S \ L I N E L
0043060 E N G T H \ F L O A T F O R M
0043100 A T P R X F L G \ D E F P R
0043120 I N T F N S ) ( D E C L A R E
0043140 : D O N T E V A L @ L O A D
0043160 \r D O E V A L @ C O M P I L E
0043200 D O N T C O P Y C O M P I L E
0043220 R V A R S ( A D D V A R S (
0043240 N L A M A ) ( N L A M L ) (
0043260 L A M A ) ) ) ) ) \r ( / S E T T
0043300 O P V A L ( Q U O T E \ \ M
0043320 A P P N A M E S T R E A M . G L
0043340 O B A L R E S O U R C E ) ) \r (
0043360 R P A Q ? \ P N A M E D E V I
0043400 C E ( N C R E A T E ( Q U O
0043420 T E F D E V ) ( \ G E T D E
0043440 V I C E F R O M H O S T N A M E
0043460 ( Q U O T E N U L L ) T )
0043500 ) ) \r ( A D D T O V A R S Y S
0043520 S P E C V A R S * P R I N T -
0043540 B A S E * * R E A D - B A S E
0043560 * * P R I N T - R A D I X *
0043600 * P R I N T - E S C A P E * *
0043620 P R I N T - C A S E * \r * P R
0043640 I N T - G E N S Y M * * P R I
0043660 N T - L E V E L * * P R I N T
0043700 - L E N G T H * * P R I N T -
0043720 P R E T T Y * * P R I N T - C
0043740 I R C L E * * P R I N T - A R
0043760 R A Y * * P A C K A G E * ) \r
0044000 ( P U T P R O P S N U M F O R
0044020 M A T C O D E B Y T E M A C R
0044040 O ( = . P R O G 1 ) ) \r (
0044060 R P A Q ? N I L N U M P R I N
0044100 T F L G ) \r ( P U T P R O P S
0044120 A P R I N T C O P Y R I G H T
0044140 ( " X e r o x C o r p o r a
0044160 t i o n " 1 9 8 2 1 9 8 3
0044200 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0044220 \r N I L \r
0044225