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