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