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