$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>APRINT.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - S e p - 8 5 1 7 : 2 2 : 4 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P > K O
0000100 T O > S O U R C E S > A P R I N
0000120 T . ; 1 ) \r " 1 8 - S e p - 8
0000140 5 2 3 : 3 4 : 0 8 " b c o m
0000160 p l ' d i n " I N T E R L I
0000200 S P - D 1 8 - S e p - 8 5 .
0000220 . . " d a t e d " 1 8 - S e
0000240 p - 8 5 2 3 : 3 9 : 2 6 " ) \r
0000260 ( F I L E C R E A T E D " 7
0000300 - J u l - 8 5 1 3 : 1 5 : 2 4
0000320 " { E R I S } < L I S P C O R
0000340 E > S O U R C E S > A P R I N T
0000360 . ; 1 2 2 6 3 0 8 c h a n g
0000400 e s t o : ( F N S R A D I
0000420 X ) \r p r e v i o u s d a t
0000440 e : " 6 - J u l - 8 5 2 2
0000460 : 1 5 : 5 6 " { E R I S } < L
0000500 I S P C O R E > S O U R C E S >
0000520 A P R I N T . ; 1 1 ) \r P R I N
0000540 1 D 1 \r ( L ( 1 F I L E
0000560 0 X ) P 1 \ T H I S F I
0000600 L E L I N E L E N G T H F 2
0000620 \ T E R M . O F D F 3 P
0000640 L V L F I L E F L G ) \0 ; 002 002
0000660 \0 002 A g \0 \0 \n \0 \0 021 021 001 H 006 \0 \0
0000700 310 037 j 361 226 H 006 \0 \0 310 037 202 ` \0 \0 Y
0000720 ` \0 \0 027 \0 \0 ` \0 \0 027 \0 \0 @ H h H
0000740 R 360 242 S 264 003 j \f \0 \0 @ 020 \0 ( 6 7
0000760 Q \ P R I N D A T U M 6 \
0001000 G E T S T R E A M ) \r ( 5 1 Q
0001020 \ T C D R P R I N T L E V E L
0001040 4 6 Q \ C D R P R I N T L E V
0001060 E L 4 3 Q \ T C A R P R I N
0001100 T L E V E L 4 0 Q \ C A R P
0001120 R I N T L E V E L 3 4 Q \ L
0001140 I N E L E N G T H 2 6 Q S T
0001160 R E A M 1 5 Q S T R E A M
0001200 3 O U T P U T ) \r ( ) \r P R I
0001220 N 2 D 1 \r ( L ( 2 R D T B
0001240 L 1 F I L E 0 X ) P
0001260 1 \ T H I S F I L E L I N E L
0001300 E N G T H F 2 \ P R I M R
0001320 E A D T A B L E F 3 \ T E
0001340 R M . O F D F 4 P L V L F
0001360 I L E F L G ) \0 O 002 003 \0 003 A g
0001400 \0 \0 \n \0 \0 021 021 001 H 006 \0 \0 310 037 j 361
0001420 226 H 006 \0 \0 310 037 202 ` \0 \0 Y ` \0 \0 027
0001440 \0 \0 ` \0 \0 027 \0 \0 @ H B 265 004 R 212 i
0001460 360 223 ` \0 \0 203 B 006 \0 \0 006 \0 \0 311 \0 H
0001500 S 360 242 T 264 003 j \f \0 \0 @ 020 \0 ( 1 1
0001520 3 Q \ P R I N D A T U M 6
0001540 \ G E T S T R E A M ) \r ( 7 6 Q
0001560 R E A D T A B L E P 7 3 Q
0001600 R E A D T A B L E P 6 6 Q \
0001620 S Y S R E A D T A B L E 5 1 Q
0001640 \ T C D R P R I N T L E V E L
0001660 4 6 Q \ C D R P R I N T L E
0001700 V E L 4 3 Q \ T C A R P R I
0001720 N T L E V E L 4 0 Q \ C A R
0001740 P R I N T L E V E L 3 4 Q \
0001760 L I N E L E N G T H 2 6 Q S
0002000 T R E A M 1 5 Q S T R E A M
0002020 3 O U T P U T ) \r ( ) \r P R
0002040 I N 3 D 1 \r ( L ( 1 F I L
0002060 E 0 X ) P 1 \ T H I S
0002100 F I L E L I N E L E N G T H F
0002120 2 \ T E R M . O F D F 3
0002140 P L V L F I L E F L G ) \0 4
0002160 002 002 \0 002 A g \0 \0 \n \0 \0 021 021 001 ` \0
0002200 \0 027 \0 \0 ` \0 \0 027 \0 \0 H 006 \0 \0 H 006
0002220 \0 \0 310 035 @ H h H R 360 242 S 264 003 j \f
0002240 \0 \0 277 315 035 @ 020 \0 ( 5 5 Q \ P R
0002260 I N D A T U M 6 \ G E T S T
0002300 R E A M ) \r ( 3 5 Q S T R E A
0002320 M 3 1 Q S T R E A M 2 5 Q
0002340 \ T C D R P R I N T L E V E L
0002360 2 2 Q \ C D R P R I N T L E
0002400 V E L 1 7 Q \ T C A R P R I
0002420 N T L E V E L 1 4 Q \ C A R
0002440 P R I N T L E V E L 3 O U T
0002460 P U T ) \r ( ) \r P R I N 4 D 1
0002500 \r ( L ( 2 R D T B L 1 F
0002520 I L E 0 X ) P 1 \ T H
0002540 I S F I L E L I N E L E N G T H
0002560 F 2 \ P R I M R E A D T A
0002600 B L E F 3 \ T E R M . O F
0002620 D F 4 P L V L F I L E F L
0002640 G ) \0 H 002 003 \0 003 A g \0 \0 \n \0 \0
0002660 021 021 001 ` \0 \0 027 \0 \0 ` \0 \0 027 \0 \0 H
0002700 006 \0 \0 H 006 \0 \0 310 035 @ H B 265 004 R 212
0002720 i 360 223 ` \0 \0 203 B 006 \0 \0 006 \0 \0 311 \0
0002740 H S 360 242 T 264 003 j \f \0 \0 277 315 035 @ 020
0002760 \0 ( 1 0 1 Q \ P R I N D A T U
0003000 M 6 \ G E T S T R E A M ) \r
0003020 ( 6 4 Q R E A D T A B L E P
0003040 6 1 Q R E A D T A B L E P 5
0003060 4 Q \ S Y S R E A D T A B L E
0003100 3 5 Q S T R E A M 3 1 Q
0003120 S T R E A M 2 5 Q \ T C D R
0003140 P R I N T L E V E L 2 2 Q \
0003160 C D R P R I N T L E V E L 1 7
0003200 Q \ T C A R P R I N T L E V E
0003220 L 1 4 Q \ C A R P R I N T L
0003240 E V E L 3 O U T P U T ) \r (
0003260 ) \r P R I N T D 1 \r ( L ( 2
0003300 R D T B L 1 F I L E 0
0003320 X ) P 1 \ T H I S F I L E
0003340 L I N E L E N G T H F 3 \
0003360 P R I M R E A D T A B L E F
0003400 4 \ T E R M . O F D F 5
0003420 P L V L F I L E F L G ) \0 ] 003
0003440 003 \0 003 A g \0 \0 \n \0 \0 021 ! 002 H 006 \0
0003460 \0 310 037 j 361 226 H 006 \0 \0 310 037 202 ` \0 \0
0003500 Y ` \0 \0 027 \0 \0 ` \0 \0 027 \0 \0 @ H B
0003520 265 004 S 212 i 360 223 ` \0 \0 203 B 006 \0 \0 006
0003540 \0 \0 311 \0 H T 360 242 U 264 003 j \f \0 \0 H
0003560 006 \0 \0 311 272 H l \r l 002 J 016 @ 020 \0
0003600 ( 1 1 3 Q \ P R I N D A T U M
0003620 6 \ G E T S T R E A M ) \r (
0003640 1 1 7 Q S T R E A M 7 6 Q
0003660 R E A D T A B L E P 7 3 Q R
0003700 E A D T A B L E P 6 6 Q \ S
0003720 Y S R E A D T A B L E 5 1 Q
0003740 \ T C D R P R I N T L E V E L
0003760 4 6 Q \ C D R P R I N T L E V
0004000 E L 4 3 Q \ T C A R P R I N
0004020 T L E V E L 4 0 Q \ C A R P
0004040 R I N T L E V E L 3 4 Q \ L
0004060 I N E L E N G T H 2 6 Q S T
0004100 R E A M 1 5 Q S T R E A M
0004120 3 O U T P U T ) \r ( ) \r P R I
0004140 N T C C O D E D 1 \r ( L ( 1
0004160 F I L E 0 C H A R C O D E
0004200 ) ) \0 ) 003 \0 \0 002 A g \0 \0 \n \0 \0
0004220 @ d 005 001 227 277 j @ 361 241 @ 203 @ \t \0 \0
0004240 021 022 002 H 006 \0 \0 311 272 H I l 002 J 016
0004260 020 \0 ( 2 6 Q \ I L L E G A L .
0004300 A R G 6 \ G E T S T R E A M
0004320 ) \r ( 3 5 Q S T R E A M 3
0004340 O U T P U T ) \r ( ) \r P R I N T
0004360 L E V E L D 1 \r ( L ( 1 C
0004400 D R V A L 0 C A R V A L ) )
0004420 \0 H 002 \0 \0 002 @ 003 265 \r ` \0 \0 262 023
0004440 j ` \0 \0 331 215 002 b 002 277 @ 001 b \0 277 260
0004460 354 ` \0 \0 ` \0 \0 032 021 021 001 @ 262 025 j @
0004500 j 330 Y 361 027 \0 \0 223 j I 331 200 I 027 \0 \0
0004520 277 A 265 004 H 020 j 330 027 \0 \0 277 260 370 \0 N
0004540 I L \r ( 1 0 3 Q \ C D R P R I
0004560 N T L E V E L 7 0 Q \ C A R
0004600 P R I N T L E V E L 5 7 Q \
0004620 P R I N T C R F L A G 3 7 Q
0004640 \ C D R P R I N T L E V E L 3
0004660 4 Q \ C A R P R I N T L E V E
0004700 L 1 4 Q \ C A R P R I N T L
0004720 E V E L 6 \ P R I N T C R F
0004740 L A G ) \r ( ) \r R A D I X D 1
0004760 \r ( L ( 0 N ) ) \0 $ \0 \0 \0
0005000 001 ` \0 \0 @ 262 036 @ d 3 235 277 l 002 @
0005020 361 246 @ d l $ 361 226 277 @ \t \0 \0 277 @ 027
0005040 \0 \0 277 020 \0 ( 3 3 Q \ I L L E G
0005060 A L . A R G ) \r ( 4 0 Q \ P R
0005100 I N T R A D I X 2 \ P R I N
0005120 T R A D I X ) \r ( ) \r S P A C E
0005140 S D 1 \r ( L ( 1 F I L E
0005160 0 N ) P 1 \ T H I S F I
0005200 L E L I N E L E N G T H ) \0 J
0005220 003 \0 \0 002 A g \0 \0 \n \0 \0 021 ! 002 H 006
0005240 \0 \0 310 037 j 361 226 H 006 \0 \0 310 037 202 ` \0
0005260 \0 Y 237 @ H 006 \0 \0 310 035 330 I 361 224 H \t
0005300 \0 \0 277 @ d j 361 264 025 H 006 \0 \0 311 272
0005320 H l l 002 J 016 277 k 331 260 352 020 \0 ( 5
0005340 5 Q F R E S H L I N E 6 \
0005360 G E T S T R E A M ) \r ( 7 0 Q
0005400 S T R E A M 4 3 Q S T R E A
0005420 M 3 4 Q \ L I N E L E N G T
0005440 H 2 6 Q S T R E A M 1 5 Q
0005460 S T R E A M 3 O U T P U T
0005500 ) \r ( ) \r T E R P R I D 1 \r (
0005520 L ( 0 F I L E ) ) \0 033 002 \0
0005540 \0 001 @ g \0 \0 \n \0 \0 021 021 001 H 006 \0 \0
0005560 311 271 H l \r l 002 I 016 h 020 \0 ( 6
0005600 \ G E T S T R E A M ) \r ( 1 5 Q
0005620 S T R E A M 3 O U T P U T
0005640 ) \r ( ) \r F R E S H L I N E D
0005660 1 \r ( L ( 0 S T R E A M ) )
0005700 \0 e 001 \0 \0 001 @ d 004 ` \0 \0 360 262 8
0005720 d 006 \0 \0 312 004 R l 004 345 j 360 262 2 277 @
0005740 d 006 \0 \0 312 004 R l 002 345 j 360 263 032 277 @
0005760 006 \0 \0 311 006 006 \0 \0 311 4 021 001 \0 @ k H
0006000 016 022 221 @ 210 @ g \0 \0 \n \0 \0 b \0 006 \0
0006020 \0 310 035 j 360 263 024 @ 006 \0 \0 311 021 001 \0
0006040 @ l \r l 002 H 016 i 020 h 020 \0 ( 1 0 4
0006060 Q G E T S T R E A M ) \r ( 1 2
0006100 3 Q S T R E A M 1 1 1 Q S
0006120 T R E A M 1 0 1 Q O U T P U
0006140 T 6 0 Q F D E V 5 3 Q S
0006160 T R E A M 3 4 Q S T R E A M
0006200 1 4 Q S T R E A M 5 004 003
0006220 S T R E A M T Y P E # ) \r ( ) \r
0006240 D E F P R I N T D 1 \r ( L (
0006260 1 F N 0 T Y P E ) ) \0 1
0006300 001 \0 \0 002 @ d 3 224 \t \0 \0 b \0 ` \0
0006320 \0 026 021 001 \0 H 265 022 A 232 @ A 032 ` \0 \0
0006340 032 027 \0 \0 277 H 002 020 ` \0 \0 \n \0 \0 027 \0
0006360 \0 277 260 346 \0 ( 5 1 Q D R E M O V
0006400 E 7 \ T Y P E N A M E F R O
0006420 M N U M B E R ) \r ( 5 4 Q \ D
0006440 E F P R I N T F N S 4 6 Q \
0006460 D E F P R I N T F N S 3 7 Q
0006500 \ D E F P R I N T F N S 3 3 Q
0006520 \ D E F P R I N T F N S 1 4
0006540 Q \ D E F P R I N T F N S ) \r
0006560 ( ) \r L I N E L E N G T H D 1
0006600 \r ( L ( 1 F I L E 0 N )
0006620 ) \0 ) 001 \0 \0 002 A g \0 \0 \n \0 \0 021
0006640 001 \0 H 006 \0 \0 310 037 @ 262 026 k @ 361 225 @
0006660 \t \0 \0 277 020 H 006 \0 \0 @ j 330 315 037 277 020
0006700 \0 ( 3 2 Q \ I L L E G A L . A
0006720 R G 6 \ G E T S T R E A M )
0006740 \r ( 4 0 Q S T R E A M 1 5 Q
0006760 S T R E A M 3 O U T P U T
0007000 ) \r ( ) \r \ C K P O S B O U T
0007020 D 1 \r ( L ( 1 X 0 S T R
0007040 E A M ) F 1 \ T H I S F I
0007060 L E L I N E L E N G T H ) \0 &
0007100 001 001 \0 002 Q 262 024 @ d 006 \0 \0 310 035 k 330
0007120 Q 361 226 277 @ \t \0 \0 277 @ 006 \0 \0 311 021
0007140 001 \0 @ A l 002 H 016 020 \0 ( 2 3 Q F
0007160 R E S H L I N E ) \r ( 3 0 Q S
0007200 T R E A M 7 S T R E A M ) \r
0007220 ( ) \r \ C K P O S S O U T D 1
0007240 \r ( L ( 1 X 0 S T R E A
0007260 M ) F 7 \ T H I S F I L E
0007300 L I N E L E N G T H ) \0 ` \a 001
0007320 \0 002 W 016 262 030 A 006 \0 \0 310 002 @ 006 \0 \0
0007340 310 035 330 W 016 361 224 @ \t \0 \0 277 A 021 a 006
0007360 H 310 003 k 331 273 H 311 \0 274 K H 310 002 330 272
0007400 H 312 \0 C j 360 221 h 200 i ] 277 K k 330 [
0007420 J 361 263 035 M 225 L K 320 310 \0 202 L K 302 271
0007440 @ 006 \0 \0 311 276 @ I l 002 N 016 260 336 h
0007460 020 \0 ( 3 0 Q F R E S H L I N E
0007500 ) \r ( 1 2 1 Q S T R E A M 1
0007520 5 Q S T R E A M 7 S T R I
0007540 N G P ) \r ( ) \r \ C O N V E R T
0007560 N U M B E R D 1 \r ( L ( 5
0007600 N S B 4 N S 3 Q F L A G
0007620 2 S F L A G 1 R 0 N
0007640 ) ) \0 317 005 \0 \0 006 @ j 360 224 o \0 \0
0007660 \0 020 021 P 004 j @ 363 241 @ 203 j @ 331 X 271
0007700 D \t \0 \0 Z k 331 273 A l \b 360 237 C 235 I
0007720 l \a 361 230 D K k 324 [ l Q + 277 D J m
0007740 377 324 Z I A 334 274 l \n L 361 223 L l 0 205
0007760 L l \n 331 l A 330 + 277 I A 333 Y j 360 262
0010000 336 H 231 D J m 377 324 Z l - + 277 A l \b
0010020 360 263 ^ A l \n 360 263 X C 262 U @ l \t 363
0010040 244 A @ 363 263 K A l 020 360 231 D J m 377 324
0010060 Z l x 260 / D J m 377 324 Z l r + 277 D
0010100 J m 377 324 Z A l \n \n \0 \0 l 0 330 + 277
0010120 l \n A 363 256 D J m 377 324 Z A l \n 333 l
0010140 0 330 + 277 D J m 377 324 Z ` \0 \0 + 277 D
0010160 J K E \f \0 \0 020 \0 ( 3 1 4 Q S U
0010200 B S T R I N G 2 4 1 Q I M O
0010220 D 3 2 Q N C H A R S ) \r ( 3
0010240 0 3 Q \ R A D I X . P R E F I
0010260 X ) \r ( 7 " 0 " ) \r \ L I T
0010300 P R I N D 1 \r ( L ( 2 S T
0010320 R E A M 1 S A 0 X ) F
0010340 2 4 Q \ T H I S F I L E L I
0010360 N E L E N G T H ) 002 027 024 001 \0 003
0010400 @ g \0 \0 360 262 X A 262 - W ( 262 026 B d
0010420 006 \0 \0 310 035 l 002 330 W ( 361 226 277 B \t \0
0010440 \0 277 B 006 \0 \0 311 021 001 \0 B l % l 002
0010460 H 016 023 260 031 W ( 262 025 B d 006 \0 \0 310 035
0010500 k 330 W ( 361 226 277 B \t \0 \0 277 B 006 \0 \0
0010520 311 021 001 \0 B l . l 002 H 016 020 A 242 261
0010540 001 X 021 0 002 W ( 242 261 \0 237 @ 301 \b 311 \0
0010560 312 \0 \a j @ i j 021 T \v L 301 \b 311 \0 _
0010600 020 277 L 301 \b 311 \0 312 \0 \a _ 022 277 L 301 002
0010620 312 \0 j 360 h 360 _ 024 277 K k 330 [ O 022
0010640 361 263 R O 024 226 O 020 K 320 310 \0 203 O 020 K
0010660 302 _ 016 l 377 361 262 030 A 006 \0 \0 311 200 234 O
0010700 016 A 006 \0 \0 311 200 035 265 \n j 205 j 203 A O
0010720 016 302 _ 026 l @ 345 j 360 h 360 264 016 M 265 \v
0010740 O 026 l $ 345 j 360 h 360 h 275 262 257 N k 330
0010760 276 260 251 N 022 X B 006 \0 \0 310 035 330 330 W (
0011000 361 224 B \t \0 \0 277 H d j 360 222 277 h 201 241
0011020 i 270 j @ i 021 S 023 O 032 301 \b 311 \0 _
0011040 277 O 032 301 \b 311 \0 312 \0 \a _ " 277 O 032 301
0011060 002 312 \0 j 360 h 360 _ $ 277 O 030 k 330 _
0011100 030 O " 361 263 q O $ 227 O O 030 320 310 \0
0011120 204 O O 030 302 _ 036 277 H 262 F O 036 l 377
0011140 361 262 030 A 006 \0 \0 311 200 234 O 036 A 006 \0 \0
0011160 311 200 035 265 \n j 205 j 203 A O 036 302 _ & l
0011200 @ 345 j 360 263 034 O 034 247 O & l $ 345 j 360
0011220 256 B 006 \0 \0 311 271 B l % l 002 I 016 277
0011240 B 006 \0 \0 311 272 B O 036 l 002 J 016 277 h
0011260 _ 034 277 260 210 h 020 W ( 262 032 @ 301 \b 311 \0
0011300 312 \0 \a B 006 \0 \0 310 035 330 W ( 361 224 B \t
0011320 \0 \0 277 j @ 021 R 006 I 301 \b 311 \0 273 I 301
0011340 \b 311 \0 312 \0 \a 274 I 301 002 312 \0 j 360 h
0011360 360 ] 277 H k 330 X L 361 263 274 M 225 K H 320
0011400 310 \0 202 K H 302 272 B 006 \0 \0 311 276 B J
0011420 l 002 N 016 260 336 \0 ( 7 2 1 Q F R E
0011440 S H L I N E 4 0 5 Q F R E S
0011460 H L I N E 1 1 2 Q F R E S H
0011500 L I N E 4 0 Q F R E S H L I
0011520 N E ) \r ( 1 0 1 2 Q S T R E A
0011540 M 7 0 6 Q S T R E A M 6 4
0011560 3 Q S T R E A M 6 2 4 Q S
0011600 T R E A M 5 5 7 Q C H A R T
0011620 A B L E 5 4 6 Q C H A R T A
0011640 B L E 3 7 1 Q S T R E A M
0011660 3 0 4 Q C H A R T A B L E 2
0011700 7 3 Q C H A R T A B L E 1 1
0011720 7 Q S T R E A M 7 5 Q S T
0011740 R E A M 4 5 Q S T R E A M
0011760 2 2 Q S T R E A M 3 % . )
0012000 \r ( ) \r \ O U T C H A R D 1 \r
0012020 ( L ( 1 C H A R C O D E 0
0012040 S T R E A M ) ) \0 021 001 \0 \0 002
0012060 @ 006 \0 \0 311 021 001 \0 @ A l 002 H 016 020
0012100 \0 N I L \r ( 3 S T R E A M ) \r
0012120 ( ) \r \ S O U T D 1 \r ( L (
0012140 1 S T R E A M 0 X ) ) \0
0012160 F \a \0 \0 002 @ 021 a 006 H 310 003 k 331 273 H
0012200 311 \0 274 K H 310 002 330 272 H 312 \0 C j 360 221
0012220 h 200 i ] 277 K k 330 [ J 361 263 035 M 225 L
0012240 K 320 310 \0 202 L K 302 271 A 006 \0 \0 311 276
0012260 A I l 002 N 016 260 336 h 020 \0 N I L \r (
0012300 6 7 Q S T R E A M ) \r ( ) \r \
0012320 P R I N D A T U M D 1 \r ( L
0012340 ( 3 C P L 2 S A 1 S T
0012360 R E A M 0 X ) F 2 \ T
0012400 H I S F I L E L I N E L E N G T
0012420 H ) 001 253 002 001 \0 004 @ 004 d l 004 360 227
0012440 277 @ B A \v \0 \0 020 d l 005 360 242 261 \0 264
0012460 277 021 001 C 265 : A l ( \n \0 \0 277 C 230
0012500 ` \0 \0 m 377 361 221 C 270 @ 001 A B C \f \0
0012520 \0 277 @ 002 003 263 , @ 002 b \0 262 g A o \0
0012540 \0 \0 \n \0 \0 277 @ A B C \f \0 \0 260 T k
0012560 330 b 006 ` \0 \0 361 262 300 A l & \n \0 \0 h
0012600 020 C 265 ( ` \0 \0 262 C C 262 @ @ 001 003 262
0012620 ; R 262 8 @ 002 001 003 262 2 A 006 \0 \0 311
0012640 271 A l \r l 002 I 016 260 ( ` \0 \0 361 251 H
0012660 262 324 ` \0 \0 H 361 263 315 A o \0 \0 \0 \n \0
0012700 \0 277 A l ) \n \0 \0 h 020 A l \n \0 \0
0012720 277 @ 002 b \0 277 H 242 261 377 q H k 330 261 377
0012740 j d k 360 245 d l 002 360 262 A 277 ` \0 \0 265
0012760 4 l & \t \0 \0 ` \0 \0 265 # \b \0 \0 021 002
0013000 001 A @ ` \0 \0 i B H I \r 006 \0 \0 \n \0
0013020 \0 H 027 \0 \0 277 I 027 \0 \0 277 020 h 027 \0 \0
0013040 277 260 335 h 027 \0 \0 277 260 316 d l 003 360 262 ;
0013060 277 ` \0 \0 265 . l & \t \0 \0 ` \0 \0 265 035
0013100 \b \0 \0 021 002 001 A @ H I \v \0 \0 \n \0 \0
0013120 H 027 \0 \0 277 I 027 \0 \0 277 020 h 027 \0 \0 277
0013140 260 343 h 027 \0 \0 277 260 324 d l \a 360 227 277 @
0013160 A B \v \0 \0 020 l \b 360 225 @ A \n \0 \0 020
0013200 @ \t \0 \0 ` \0 \0 026 002 021 001 \0 H 262 024 @
0013220 A 006 \0 \0 311 004 265 003 A l 002 H 017 016 X 265
0013240 \t @ A B \v \0 \0 020 003 264 376 H d 001 230 001
0013260 A h C \f \0 \0 277 H 002 264 356 H 002 b \0 023
0013300 261 376 Y \0 ( 6 3 4 Q \ P R I N D
0013320 A T U M 6 1 5 Q \ P R I N O
0013340 T H E R 5 5 2 Q T Y P E N A
0013360 M E 5 4 5 Q \ P R I N S T A
0013400 C K P 5 3 3 Q \ P R I N S T
0013420 R I N G 4 6 6 Q \ C K P O S
0013440 S O U T 4 6 3 Q \ C O N V E
0013460 R T . F L O A T I N G . N U M B
0013500 E R 4 5 1 Q C O N C A T 4
0013520 4 1 Q A L L O C S T R I N G
0013540 3 6 7 Q \ C K P O S S O U T
0013560 3 6 4 Q \ C O N V E R T N U M
0013600 B E R 3 4 4 Q C O N C A T
0013620 3 3 4 Q A L L O C S T R I N G
0013640 2 6 6 Q \ C K P O S B O U T
0013660 2 5 6 Q \ C K P O S B O U T
0013700 2 4 7 Q \ C K P O S S O U T
0013720 1 4 5 Q \ C K P O S B O U T
0013740 1 2 3 Q \ P R I N D A T U M
0013760 1 1 3 Q \ C K P O S S O U T
0014000 6 7 Q \ P R I N D A T U M
0014020 4 3 Q \ C K P O S B O U T 1
0014040 5 Q \ L I T P R I N ) \r ( 5 7
0014060 2 Q S T R E A M 5 5 5 Q \
0014100 D E F P R I N T F N S 5 1 4 Q
0014120 \ \ N U M S T R . G L O B A L
0014140 R E S O U R C E 5 0 5 Q \ \
0014160 N U M S T R 1 . G L O B A L R E
0014200 S O U R C E 4 7 7 Q \ \ N U
0014220 M S T R 1 . G L O B A L R E S O
0014240 U R C E 4 7 2 Q \ \ N U M S
0014260 T R . G L O B A L R E S O U R C
0014300 E 4 4 4 Q \ \ N U M S T R 1
0014320 . G L O B A L R E S O U R C E
0014340 4 3 2 Q \ \ N U M S T R . G L
0014360 O B A L R E S O U R C E 4 1 5
0014400 Q \ \ N U M S T R . G L O B A
0014420 L R E S O U R C E 4 0 6 Q \
0014440 \ N U M S T R 1 . G L O B A L R
0014460 E S O U R C E 4 0 0 Q \ \ N
0014500 U M S T R 1 . G L O B A L R E S
0014520 O U R C E 3 7 3 Q \ \ N U M
0014540 S T R . G L O B A L R E S O U R
0014560 C E 3 5 4 Q \ P R I N T R A
0014600 D I X 3 3 7 Q \ \ N U M S T
0014620 R 1 . G L O B A L R E S O U R C
0014640 E 3 2 5 Q \ \ N U M S T R .
0014660 G L O B A L R E S O U R C E 2
0014700 3 3 Q \ T C D R P R I N T L E
0014720 V E L 2 2 3 Q \ T C A R P R
0014740 I N T L E V E L 2 0 4 Q S T
0014760 R E A M 1 5 5 Q \ P R I N T
0015000 C R F L A G 1 3 4 Q \ T C A
0015020 R P R I N T L E V E L 5 1 Q
0015040 \ T C D R P R I N T L E V E L )
0015060 \r ( 2 4 4 Q " - - " 1 1
0015100 0 Q " . " ) \r \ P R I N O
0015120 T H E R A 0 0 0 1 D 1 \r ( L
0015140 ( 0 C H ) F 1 O F D \ P
0015160 R I N O T H E R ) \0 021 001 001 \0 001
0015200 Q 006 \0 \0 311 021 001 \0 Q @ l 002 H 016 020
0015220 \0 N I L \r ( 3 S T R E A M ) \r
0015240 ( ) \r \ P R I N O T H E R D 1
0015260 \r ( L ( 2 S A 0 X ) I
0015300 1 O F D \ P R I N O T H E R
0015320 F 0 \ T H I S F I L E L I
0015340 N E L E N G T H ) \0 037 \0 001 \0 003
0015360 P 262 025 @ \t \0 \0 A 006 \0 \0 310 035 330 P 361
0015400 224 A \t \0 \0 277 g \0 \0 @ \n \0 \0 020 \0 (
0015420 3 4 Q \ M A P C H A R S 2 4
0015440 Q F R E S H L I N E 6 N C
0015460 H A R S ) \r ( 3 0 Q \ P R I N
0015500 O T H E R A 0 0 0 1 1 2 Q S
0015520 T R E A M ) \r ( ) \r \ P R I N S
0015540 T A C K P A 0 0 0 1 D 1 \r ( L
0015560 ( 0 X ) F 1 O F D \ P
0015600 R I N S T A C K P ) \0 021 001 001 \0
0015620 001 Q 006 \0 \0 311 021 001 \0 Q @ l 002 H 016
0015640 020 \0 N I L \r ( 3 S T R E A M )
0015660 \r ( ) \r \ P R I N S T A C K P
0015700 D 1 \r ( L ( 0 X ) I 1
0015720 O F D \ P R I N S T A C K P F
0015740 0 \ T H I S F I L E L I N E
0015760 L E N G T H ) \0 ? \0 001 \0 002 P 262
0016000 5 @ d \t \0 \0 224 277 l 002 260 030 \t \0 \0 004
0016020 l 004 360 233 @ \t \0 \0 301 \b 311 \0 312 \0 \a 201
0016040 l 006 A 006 \0 \0 310 035 l \t 330 330 P 361 224 A
0016060 \t \0 \0 277 g \0 \0 @ \n \0 \0 020 \0 ( 7 4
0016100 Q \ M A P C H A R S 6 4 Q
0016120 F R E S H L I N E 3 1 Q S T
0016140 K N A M E 2 0 Q S T K N A M
0016160 E 7 R E L S T K P ) \r ( 7 0
0016200 Q \ P R I N S T A C K P A 0 0
0016220 0 1 4 7 Q S T R E A M ) \r (
0016240 ) \r \ P R I N S T R I N G D 1
0016260 \r ( L ( 2 S A 1 S T R E
0016300 A M 0 X ) F 1 0 Q \ T
0016320 H I S F I L E L I N E L E N G T
0016340 H ) \0 373 \b 001 \0 003 B 242 261 \0 330 W 020
0016360 262 M @ 006 \0 \0 310 002 @ 021 A 004 H 310 003 k
0016400 331 272 H 311 \0 273 J H 310 002 330 271 H 312 \0 C
0016420 j 360 221 h 200 i \ 277 J k 330 Z I 361 247 L
0016440 263 370 K J 302 260 362 023 j A 006 \0 \0 310 035 l
0016460 002 330 330 330 W 020 361 224 A \t \0 \0 277 A 006 \0
0016500 \0 311 021 001 \0 A l " l 002 H 016 023 @ 021
0016520 q \a H 310 003 k 331 273 H 311 \0 274 K H 310 002
0016540 330 272 H 312 \0 C j 360 221 h 200 i ] 277 K k
0016560 330 [ J 361 263 = M 225 L K 320 310 \0 202 L K
0016600 302 Y l " 360 251 I l % 360 244 I l \n 360 236
0016620 A 006 \0 \0 311 276 A l % l 002 N 016 277 A
0016640 006 \0 \0 311 _ 016 277 A I l 002 O 016 016 260
0016660 276 023 A 006 \0 \0 311 021 001 \0 A l " l 002
0016700 H 016 020 W 020 262 030 @ 006 \0 \0 310 002 A 006 \0
0016720 \0 310 035 330 W 020 361 224 A \t \0 \0 277 @ A \n
0016740 \0 \0 020 \0 ( 3 7 0 Q \ S O U T
0016760 3 6 2 Q F R E S H L I N E 1
0017000 2 2 Q F R E S H L I N E ) \r (
0017020 3 4 7 Q S T R E A M 3 4 1 Q
0017040 S T R I N G P 3 1 4 Q S T
0017060 R E A M 2 7 1 Q S T R E A M
0017100 2 5 2 Q S T R E A M 1 2 7
0017120 Q S T R E A M 1 0 3 Q S T
0017140 R E A M 1 4 Q S T R I N G P
0017160 ) \r ( ) \r \ F I L E O U T C H A
0017200 R F N D 1 \r ( L ( 1 C H A
0017220 R C O D E 0 S T R E A M ) )
0017240 \0 227 002 \0 \0 002 A l \r 360 262 L @ d 006
0017260 \0 \0 312 2 \a l 377 360 256 277 A 343 @ 312 2 \a
0017300 360 250 @ l 377 ! 277 @ j ! 277 @ d 312 030 001
0017320 d j 360 224 277 l \r 260 031 d k 360 223 277 l \n
0017340 216 l 002 360 227 @ l \r ! 277 l \n 202 \b \0 \0
0017360 ! @ j 315 035 j 020 @ 006 \0 \0 312 2 \a l 377
0017400 360 224 @ A 343 260 037 A 343 @ 312 2 \a 360 263 030
0017420 @ l 377 ! 277 @ d A 343 021 002 001 H I 317 2
0017440 \a 277 I 022 ! 277 @ A l 377 345 ! 277 @ d 310
0017460 035 k 320 323 021 002 001 H I 315 035 I 020 \0 ( 1
0017500 1 0 Q S H O U L D N T ) \r ( 1
0017520 2 3 Q S T R E A M 1 2 Q S
0017540 T R E A M ) \r ( ) \r \ T T Y O U
0017560 T C H A R F N D 1 \r ( L ( 1
0017600 C H 0 S T R E A M ) F
0017620 1 \ D R I B B L E . O F D )
0017640 \0 % 001 001 \0 002 Q 006 \0 \0 311 021 001 \0 Q
0017660 A l 002 H 016 023 @ 006 \0 \0 311 $ g \0 \0 '
0017700 021 001 \0 @ A l 002 H 016 020 \0 N I L \r (
0017720 3 0 Q \ O U T C H A R 2 3 Q
0017740 S T R E A M 3 S T R E A M
0017760 ) \r ( ) \r \ M A P C H A R S D
0020000 1 \r ( L ( 3 R D T B L 2
0020020 F L G 1 X 0 F N ) F
0020040 0 \ P R I M R E A D T A B L E
0020060 ) \0 037 \0 001 \0 004 A B 264 027 C 265 004 P
0020100 212 i 360 223 ` \0 \0 203 C 006 \0 \0 006 \0 \0 311
0020120 \0 @ \v \0 \0 020 \0 ( 3 4 Q \ M A P
0020140 C H A R S 1 ) \r ( 2 6 Q R E A
0020160 D T A B L E P 2 3 Q R E A D
0020200 T A B L E P 1 6 Q \ S Y S R
0020220 E A D T A B L E ) \r ( ) \r \ M A
0020240 P C H A R S 1 D 1 \r ( L ( 1
0020260 S A 0 X ) I 2 F N )
0020300 001 270 006 \0 \0 003 @ 004 d l 004 360 262 # 277
0020320 A 262 030 @ d g \0 \0 360 230 277 o \0 \0 \0 \t
0020340 \0 \0 020 A B \v \0 \0 020 @ h B \v \0 \0 020
0020360 d l 005 360 262 ; 277 l ( k B 016 @ 001 A B
0020400 \v \0 \0 277 @ 002 003 263 034 @ 002 b \0 236 o \0
0020420 \0 \0 \t \0 \0 277 @ A B \v \0 \0 277 l ) k
0020440 B 016 020 l k B 016 277 @ 002 b \0 260 320 d
0020460 k 360 245 d l 002 360 262 030 277 @ ` \0 \0 223 `
0020500 \0 \0 201 l \n ` \0 \0 h 360 A \f \0 \0 020 d
0020520 l 003 360 262 D 277 ` \0 \0 265 % l & \t \0 \0
0020540 ` \0 \0 265 024 \b \0 \0 021 002 001 @ H I ` \0
0020560 \0 262 024 ` \0 \0 216 h 027 \0 \0 277 260 354 h 027
0020600 \0 \0 277 260 335 i \f \0 \0 \t \0 \0 H 027 \0 \0
0020620 277 I 027 \0 \0 277 020 d l \a 360 262 g 277 A 262
0020640 ^ l " k B 016 @ 021 Q 005 H 310 003 k 331 273
0020660 H 311 \0 274 K H 310 002 330 272 H 312 \0 C j 360
0020700 221 h 200 i ] 277 K k 330 [ J 361 263 * M 225
0020720 L K 320 310 \0 202 L K 302 Y l " 360 253 I l
0020740 % 360 246 I d l \n 360 227 277 l % k B 016 277
0020760 I k B 016 260 321 023 l " k B 016 020 @ \t \0
0021000 \0 020 l \b 360 262 + @ \t \0 \0 l / k B 016
0021020 @ d \t \0 \0 224 277 g \0 \0 216 \t \0 \0 b \0
0021040 004 l 004 360 221 @ 202 g \0 \0 A B \v \0 \0 020
0021060 @ \t \0 \0 ` \0 \0 026 002 021 001 \0 H 227 @ k
0021100 H 017 016 X 265 l { k B 016 @ \t \0 \0 231
0021120 @ \t \0 \0 A B \v \0 \0 277 l } k B 016 @
0021140 \t \0 \0 020 003 264 376 H d 001 227 001 h B \v \0
0021160 \0 277 H 002 264 357 H 002 b \0 023 261 376 L \0 (
0021200 6 5 1 Q \ M A P C H A R S 1
0021220 6 3 3 Q \ P R O D U C E A D D
0021240 R 6 2 1 Q \ M A P C H A R S
0021260 L I T 6 1 4 Q T Y P E N A M
0021300 E 6 0 7 Q T Y P E N A M E
0021320 5 5 4 Q T Y P E N A M E 5 4
0021340 7 Q \ M A P C H A R S L I T
0021360 5 2 6 Q S T K N A M E 5 1 5
0021400 Q R E L S T K P 5 0 3 Q \
0021420 P R O D U C E A D D R 4 7 1 Q
0021440 \ P R O D U C E S T R I N G
0021460 3 0 4 Q \ P R O D U C E S T R
0021500 I N G 3 0 1 Q \ C O N V E R
0021520 T . F L O A T I N G . N U M B E
0021540 R 2 4 0 Q C O N C A T 2 3
0021560 0 Q A L L O C S T R I N G 2
0021600 0 6 Q \ P R O D U C E N U M
0021620 1 2 4 Q \ M A P C H A R S 1
0021640 1 1 5 Q \ P R O D U C E S T R
0021660 I N G 7 3 Q \ M A P C H A R
0021700 S 1 4 7 Q \ M A P C H A R S
0021720 L I T 4 0 Q \ M A P C H A R
0021740 S L I T 3 2 Q \ P R O D U C
0021760 E S T R I N G ) \r ( 5 5 7 Q \
0022000 D E F P R I N T F N S 5 4 2 Q
0022020 * f o r m * 5 2 2 Q # 0
0022040 3 1 5 Q \ \ N U M S T R 1 . G
0022060 L O B A L R E S O U R C E 3 1
0022100 0 Q \ \ N U M S T R . G L O B
0022120 A L R E S O U R C E 2 7 2 Q
0022140 \ \ N U M S T R . G L O B A L R
0022160 E S O U R C E 2 6 3 Q \ \ N
0022200 U M S T R 1 . G L O B A L R E S
0022220 O U R C E 2 5 6 Q \ F L O A
0022240 T F O R M A T 2 5 1 Q P R X
0022260 F L G 2 3 3 Q \ \ N U M S T
0022300 R 1 . G L O B A L R E S O U R C
0022320 E 2 2 1 Q \ \ N U M S T R .
0022340 G L O B A L R E S O U R C E 2
0022360 0 0 Q P R X F L G 1 7 2 Q
0022400 \ P R I N T R A D I X 1 6 6 Q
0022420 P R X F L G 2 0 Q % . ) \r
0022440 ( 1 1 2 Q " . " 2 7 Q
0022460 " % % . " ) \r \ P R O D U C E
0022500 S T R I N G D 1 \r ( L ( 0
0022520 X ) F 5 F N ) \0 : 005 001 \0
0022540 001 @ 021 A 004 H 310 003 k 331 272 H 311 \0 273 J
0022560 H 310 002 330 271 H 312 \0 C j 360 221 h 200 i \
0022600 277 J k 330 Z I 361 257 L 225 K J 320 310 \0 202
0022620 K J 302 k U 016 260 352 h 020 \0 N I L \r N
0022640 I L \r ( ) \r \ P R O D U C E N U
0022660 M D 1 \r ( L ( 3 Q F L A G
0022700 2 S F L A G 1 R 0 N
0022720 ) F 6 F N ) \0 _ 006 001 \0 004
0022740 ` \0 \0 265 L l & \t \0 \0 ` \0 \0 265 ; \b
0022760 \0 \0 021 002 001 @ A B C H I \r 006 \0 \0 021
0023000 1 005 J 310 003 k 331 274 J 311 \0 275 L J 310 002
0023020 330 [ 277 L k 330 \ K 361 262 035 023 h H 027 \0
0023040 \0 277 I 027 \0 \0 277 020 h 027 \0 \0 277 260 305 h
0023060 027 \0 \0 277 260 266 M L 302 k V 016 260 326 \0 (
0023100 3 6 Q \ C O N V E R T N U M B
0023120 E R 2 1 Q C O N C A T 1 1
0023140 Q A L L O C S T R I N G ) \r (
0023160 1 2 2 Q \ \ N U M S T R . G L
0023200 O B A L R E S O U R C E 1 1 3
0023220 Q \ \ N U M S T R 1 . G L O B
0023240 A L R E S O U R C E 1 0 5 Q
0023260 \ \ N U M S T R 1 . G L O B A L
0023300 R E S O U R C E 1 0 0 Q \ \
0023320 N U M S T R . G L O B A L R E S
0023340 O U R C E 1 4 Q \ \ N U M S
0023360 T R 1 . G L O B A L R E S O U R
0023400 C E 2 \ \ N U M S T R . G L
0023420 O B A L R E S O U R C E ) \r ( )
0023440 \r \ P R O D U C E A D D R D 1
0023460 \r ( L ( 0 A D D R ) F 0
0023500 F N ) \0 032 \0 001 \0 001 l # k P 016
0023520 @ 322 l \b \n \0 \0 l , k P 016 @ 323 l \b
0023540 \n \0 \0 020 \0 ( 2 7 Q \ P R O D U
0023560 C E N U M 1 3 Q \ P R O D U
0023600 C E N U M ) \r N I L \r ( ) \r \ M
0023620 A P C H A R S L I T D 1 \r ( L
0023640 ( 2 F N 1 S A 0 X )
0023660 ) \0 y \b \0 \0 003 j @ i 021 S \a I 301
0023700 \b 311 \0 274 I 301 \b 311 \0 312 \0 \a 275 I 301 002
0023720 312 \0 j 360 h 360 276 H k 330 X M 361 263 P
0023740 N 225 L H 320 310 \0 202 L H 302 273 A 262 8 K
0023760 l 377 361 262 027 A 006 \0 \0 311 200 233 K A 006 \0
0024000 \0 311 200 035 265 \t j 204 j 202 A K 302 _ 016 l
0024020 @ 345 j 360 257 J 247 O 016 l $ 345 j 360 245 l
0024040 % k B 016 277 K k B 016 277 h 272 260 254 h 020
0024060 \0 N I L \r ( 1 1 0 Q C H A R T
0024100 A B L E 1 0 0 Q C H A R T A
0024120 B L E ) \r ( ) \r F L T F M T D
0024140 1 \r ( L ( 0 F O R M A T ) )
0024160 \0 021 \0 \0 \0 001 ` \0 \0 @ 231 @ \t \0 \0
0024200 224 @ 027 \0 \0 277 020 \0 ( 1 0 Q \ C H
0024220 E C K F L T F M T ) \r ( 1 5 Q
0024240 \ F L O A T F O R M A T 2 \
0024260 F L O A T F O R M A T ) \r ( ) \r
0024300 \ C H E C K F L T F M T D 1 \r
0024320 ( L ( 0 F O R M A T ) ) \0
0024340 1 001 \0 \0 001 @ d i 360 263 $ d 001 g \0 \0
0024360 360 262 036 216 d 001 021 001 \0 H h 360 265 005 H 3
0024400 022 225 002 003 265 357 i 201 277 h 221 @ 020 @ l
0024420 033 \n \0 \0 020 \0 ( 5 6 Q \ L I S P
0024440 E R R O R ) \r ( 1 2 Q F L O A
0024460 T ) \r ( ) \r N U M F O R M A T C
0024500 O D E D 1 \r ( L ( 1 S M A
0024520 S H C O D E 0 F O R M A T )
0024540 ) \0 003 \0 \0 \0 002 @ 020 \0 N I L \r N
0024560 I L \r ( ) \r P R I N T N U M D
0024600 1 \r ( L ( 2 F I L E 1 N
0024620 U M B E R 0 F O R M A T ) )
0024640 001 \n \t \0 \0 003 ` \0 \0 265 ' l & \t \0
0024660 \0 ` \0 \0 265 026 \b \0 \0 021 002 001 @ 003 001 d
0024700 g \0 \0 360 262 024 277 i 260 035 h 027 \0 \0 277 260
0024720 352 h 027 \0 \0 277 260 333 g \0 \0 360 221 h 205 @
0024740 l 033 \n \0 \0 @ 002 021 R \b K 001 275 A 244 `
0024760 \0 \0 265 [ J 236 A 006 \0 \0 H I @ \t \0 \0
0025000 \f \0 \0 260 J A d 3 242 \t \0 \0 K 002 001
0025020 _ 020 262 ( j O 020 361 242 O 020 203 j O 020 331
0025040 _ 016 277 l 002 O 016 361 247 O 016 d l 020 361 233
0025060 277 O 020 \t \0 \0 277 O 016 201 l \n O 020 h 360
0025100 265 006 O 020 j 361 h H I \r 006 \0 \0 274 M 265
0025120 026 j ^ j 361 262 6 J 250 K 002 002 002 001 263 -
0025140 J 231 K 002 207 L \t \0 \0 331 260 350 K 002 002 001
0025160 262 025 N d j 361 262 024 o \0 \0 \0 B \n \0 \0
0025200 277 k 331 260 360 N B \n \0 \0 277 L B \n \0 \0
0025220 277 N j 361 235 J 253 K 002 002 002 001 225 N B \n
0025240 \0 \0 277 A 022 H 027 \0 \0 277 I 027 \0 \0 277 020
0025260 \0 ( 3 7 2 Q S P A C E S 3 5
0025300 0 Q P R I N 1 3 4 2 Q S P
0025320 A C E S 3 3 0 Q P R I N 1
0025340 3 0 1 Q N C H A R S 2 4 5 Q
0025360 \ C O N V E R T N U M B E R
0025400 2 1 6 Q \ I L L E G A L . A R
0025420 G 1 4 5 Q F I X R 1 3 3 Q
0025440 \ C O N V E R T . F L O A T I
0025460 N G . N U M B E R 1 3 0 Q \
0025500 C H E C K F L T F M T 7 5 Q
0025520 \ L I S P E R R O R 2 1 Q C
0025540 O N C A T 1 1 Q A L L O C S
0025560 T R I N G ) \r ( 4 0 6 Q \ \ N
0025600 U M S T R 1 . G L O B A L R E S
0025620 O U R C E 4 0 1 Q \ \ N U M
0025640 S T R . G L O B A L R E S O U R
0025660 C E 1 2 2 Q F L O A T P 1
0025700 1 2 Q N I L N U M P R I N T F
0025720 L G 6 3 Q F I X 5 5 Q \
0025740 \ N U M S T R . G L O B A L R E
0025760 S O U R C E 4 6 Q \ \ N U M
0026000 S T R 1 . G L O B A L R E S O U
0026020 R C E 3 3 Q F L O A T 1 4
0026040 Q \ \ N U M S T R 1 . G L O B
0026060 A L R E S O U R C E 2 \ \ N
0026100 U M S T R . G L O B A L R E S O
0026120 U R C E ) \r ( 3 2 4 Q " 0 "
0026140 ) \r ( P R E T T Y C O M P R I N
0026160 T A P R I N T C O M S ) \r ( R
0026200 P A Q Q A P R I N T C O M S
0026220 ( ( F N S P R I N 1 P R I N
0026240 2 P R I N 3 P R I N 4 P R
0026260 I N T P R I N T C C O D E P
0026300 R I N T L E V E L R A D I X
0026320 S P A C E S T E R P R I \r F
0026340 R E S H L I N E D E F P R I N
0026360 T L I N E L E N G T H \ C K
0026400 P O S B O U T \ C K P O S S O
0026420 U T \ C O N V E R T N U M B E
0026440 R \ L I T P R I N \ O U T C
0026460 H A R \ S O U T \ P R I N D
0026500 A T U M \r \ P R I N O T H E R
0026520 \ P R I N S T A C K P \ P R
0026540 I N S T R I N G ) ( F N S \
0026560 F I L E O U T C H A R F N \ T
0026600 T Y O U T C H A R F N ) ( F N
0026620 S \ M A P C H A R S \ M A P
0026640 C H A R S 1 \r \ P R O D U C E
0026660 S T R I N G \ P R O D U C E N
0026700 U M \ P R O D U C E A D D R
0026720 \ M A P C H A R S L I T ) ( I
0026740 N I T V A R S ( \ C A R P R I
0026760 N T L E V E L 1 0 0 0 ) ( \
0027000 P R I N T C R F L A G \r N I L
0027020 ) ( \ C D R P R I N T L E V E
0027040 L - 1 ) ( P L V L F I L E F
0027060 L G N I L ) ( \ L I N E L E
0027100 N G T H 8 2 ) ( \ F L O A T
0027120 F O R M A T T ) ( P R X F L
0027140 G N I L ) ( \ P R I N T R A
0027160 D I X \r 1 0 ) ( \ S I G N F
0027200 L A G T ) ( \ D E F P R I N
0027220 T F N S N I L ) ( \ R A D I
0027240 X . P R E F I X ( C H C O N 1
0027260 " | " ) ) ) ( C O M S ( F
0027300 N S F L T F M T \ C H E C K
0027320 F L T F M T \r N U M F O R M A
0027340 T C O D E P R I N T N U M )
0027360 ( M A C R O S N U M F O R M A
0027400 T C O D E ) ( I N I T V A R S
0027420 ( N I L N U M P R I N T F L G
0027440 ) ) ( P ( M O V D ? ( Q U
0027460 O T E P R I N T N U M ) \r (
0027500 Q U O T E F P R I N T N U M )
0027520 ) ) ) ( D E C L A R E : D O
0027540 N T C O P Y ( M A C R O S .
0027560 F I L E L I N E L E N G T H .
0027600 . S P A C E C H E C K . \ P R
0027620 O D U C E C H A R ) ) ( \r L O
0027640 C A L V A R S . T ) ( S P
0027660 E C V A R S \ T H I S F I L E
0027700 L I N E L E N G T H ) ( G L O
0027720 B A L V A R S \ C A R P R I N
0027740 T L E V E L \ T C A R P R I N
0027760 T L E V E L \ P R I N T C R F
0030000 L A G \r \ C D R P R I N T L E
0030020 V E L \ T C D R P R I N T L E
0030040 V E L \ L I N E L E N G T H
0030060 \ F L O A T F O R M A T \ P R
0030100 I N T R A D I X \ S I G N F L
0030120 A G P R X F L G \ D E F P R
0030140 I N T F N S \r \ R A D I X . P
0030160 R E F I X ) ) ) \r ( R P A Q ?
0030200 \ C A R P R I N T L E V E L 1
0030220 0 0 0 ) \r ( R P A Q ? \ P R I
0030240 N T C R F L A G N I L ) \r ( R
0030260 P A Q ? \ C D R P R I N T L E
0030300 V E L - 1 ) \r ( R P A Q ? P
0030320 L V L F I L E F L G N I L ) \r
0030340 ( R P A Q ? \ L I N E L E N G
0030360 T H 8 2 ) \r ( R P A Q ? \ F
0030400 L O A T F O R M A T T ) \r ( R
0030420 P A Q ? P R X F L G N I L )
0030440 \r ( R P A Q ? \ P R I N T R A
0030460 D I X 1 0 ) \r ( R P A Q ? \
0030500 S I G N F L A G T ) \r ( R P A
0030520 Q ? \ D E F P R I N T F N S
0030540 N I L ) \r ( R P A Q ? \ R A D
0030560 I X . P R E F I X ( C H C O N
0030600 1 " | " ) ) \r ( P U T P R O P
0030620 S N U M F O R M A T C O D E
0030640 B Y T E M A C R O ( = . P
0030660 R O G 1 ) ) \r ( R P A Q ? N I
0030700 L N U M P R I N T F L G ) \r ( M
0030720 O V D ? ( Q U O T E P R I N
0030740 T N U M ) ( Q U O T E F P R
0030760 I N T N U M ) ) \r ( P U T P R O
0031000 P S A P R I N T C O P Y R I
0031020 G H T ( " X e r o x C o r p
0031040 o r a t i o n " 1 9 8 2 1 9
0031060 8 3 1 9 8 4 1 9 8 5 ) ) \r N
0031100 I L \r
0031103