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