$ od -c -N 50000 [eris]<LispUsers>PRINTOUT.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - J u l - 8 4 1 4 : 4 3 : 3 4
0000040 " ( " c o m p i l e d o n
0000060 " { R U T G E R S } R E D : <
0000100 S H U L M A N . X E R O X > P R
0000120 I N T O U T . ; 1 ) \r \n " 8
0000140 - J u n - 8 4 1 1 : 1 7 : 2 0
0000160 " t c o m p l ' d i n W O
0000200 R K d a t e d " 3 0 - J u n
0000220 - 8 4 1 3 : 1 9 : 0 0 " ) \r \n
0000240 ( F I L E C R E A T E D " 1 1
0000260 - M A R - 8 4 1 7 : 2 4 : 3 2
0000300 " { D S K } P R I N T O U T .
0000320 ; 4 1 7 3 9 2 c h a n g e s
0000340 t o : ( F N S P R I N T B
0000360 M ) p r e v i o u s d a t e
0000400 : \r \n " 2 7 - F E B - 8 4 1
0000420 8 : 5 5 : 3 9 " { R U T G E R
0000440 S } R E D : < S H U L M A N . X
0000460 E R O X > P R I N T O U T . ; 1
0000500 1 ) \r \n P R I N T C O M S T R A
0000520 N D 1 \r \n ( P 2 4 Q B M
0000540 P 2 3 Q R E S E T O U T P
0000560 2 2 Q T E M P P 2 1 Q
0000600 A R G P 1 5 Q W I D T H
0000620 P 1 4 Q P O I N T P 1 3
0000640 Q T Y P E P 1 2 Q A R G
0000660 P 4 F O R M A T L I S T
0000700 P 3 V A R S I 4 F R O
0000720 M D W I M I 3 F I L E F O
0000740 R M I 2 M A C R O S I
0000760 1 T A I L I 0 F O R M
0001000 F 2 5 Q C L I S P C H A N G
0001020 E F 2 6 Q P R I N T O U T
0001040 T O K E N S F 2 7 Q V A R
0001060 S F 3 0 Q F A U L T F N )
0001100 005 R 025 004 \0 005 D 223 i c * 277 021 0 002
0001120 B 217 d 001 001 270 I 265 \a H h 032 Z 201 H &
0001140 271 002 003 265 357 J 022 W , W . \n \0 \0 \n \0
0001160 \0 021 Q \b @ 002 021 A \r O 022 003 265 j 023 D
0001200 234 @ 002 @ h d d W 0 \r 006 \0 \0 277 C 265
0001220 M @ k A 017 016 b 002 021 p 024 A 265 003 202 261
0001240 001 036 C d 001 242 261 004 224 277 O & 242 261 004 214
0001260 g \0 \0 g \0 \0 C 001 C h 030 277 h 032 032 O
0001300 ( 242 261 004 r g \0 \0 o \0 \0 \0 o \0 \0 \0
0001320 O 034 032 032 032 h 032 h 032 261 004 ] i 360 242 261
0001340 \0 321 i 261 \0 322 001 _ 024 004 l 004 360 242 261 \0
0001360 272 O 024 L \n \0 \0 222 261 \0 260 O 024 \t \0 \0
0001400 l . 360 242 261 \0 244 O 024 l 002 ) _ 026 l I
0001420 360 250 O 026 l F 360 242 261 \0 220 O 024 l 003 g
0001440 \0 \0 O 024 l 003 \v \0 \0 _ 030 d 221 k 331 \v
0001460 \0 \0 _ 032 d 005 001 241 005 002 262 n O 024 K 032
0001500 273 O 024 O 026 l I 360 223 g \0 \0 202 g \0 \0
0001520 O 032 021 0 002 O 030 262 - O 024 O 030 k 330 g
0001540 \0 \0 O 024 O 030 k 330 \v \0 \0 _ 030 d 221 k
0001560 331 \v \0 \0 272 I 265 \t J h 032 Y 270 260 330 J
0001600 & 271 260 323 H 022 032 032 ] d 262 032 d i 360 263
0001620 025 d 005 001 245 d 005 002 241 005 003 265 \t g \0 \0
0001640 M h 032 032 032 L 032 274 O 022 002 _ 022 261 376 316
0001660 @ k C 017 016 h 032 b 006 277 261 376 327 001 B \n
0001700 \0 \0 _ $ 265 ! A 001 A 002 b 002 277 _ " d
0001720 g \0 \0 360 262 $ 277 g \0 \0 A 001 A 002 b 002
0001740 277 j 261 003 2 002 001 276 A k N 017 016 b 002 001
0001760 A 002 b 002 277 261 003 # g \0 \0 360 234 g \0 \0
0002000 A 001 A 002 b 002 277 261 003 \f O " j 360 247 O
0002020 " d i 360 262 024 277 O ( 226 g \0 \0 C 261 002
0002040 371 g \0 \0 C 261 002 362 g \0 \0 360 232 g \0 \0
0002060 o \0 \0 \0 C 261 002 341 O " d g \0 \0 360 236
0002100 277 i _ & 277 A 001 A 002 b 002 277 261 002 314 g
0002120 \0 \0 360 235 g \0 \0 A 001 A 002 b 002 277 C 261
0002140 002 267 O " g \0 \0 360 263 033 O " g \0 \0 360
0002160 263 023 O " g \0 \0 360 251 O " d g \0 \0 360
0002200 262 6 277 g \0 \0 A 001 A 002 b 002 277 g \0 \0
0002220 C 032 O " g \0 \0 360 265 \b O " g \0 \0 360
0002240 O " g \0 \0 360 265 \b O " g \0 \0 360 h C
0002260 032 032 032 261 002 b g \0 \0 360 262 & A 001 A 002
0002300 b 002 277 _ " 277 g \0 \0 O " d d 005 001 241
0002320 005 002 230 277 g \0 \0 O " \n \0 \0 C 261 002 9
0002340 O " g \0 \0 360 263 023 O " g \0 \0 360 251 O
0002360 " d g \0 \0 360 262 d 277 g \0 \0 g \0 \0 g
0002400 \0 \0 g \0 \0 g \0 \0 C 032 032 g \0 \0 O "
0002420 d g \0 \0 360 225 277 g \0 \0 260 026 g \0 \0 360
0002440 223 g \0 \0 212 O " g \0 \0 360 264 005 g \0 \0
0002460 _ 016 d 262 033 d i 360 263 026 d 005 001 245 d 005
0002500 002 241 005 003 265 \n g \0 \0 O 016 h 032 032 C 032
0002520 032 h 032 032 032 h 032 261 001 277 g \0 \0 360 227 g
0002540 \0 \0 k C 261 001 262 O " d g \0 \0 360 231 277
0002560 g \0 \0 l 002 C 261 001 240 g \0 \0 360 230 g \0
0002600 \0 l 003 C 261 001 222 O " d g \0 \0 360 236 277
0002620 g \0 \0 A 001 A 002 b 002 277 C 261 001 { g \0
0002640 \0 360 262 026 g \0 \0 A 001 A 002 b 002 277 g \0
0002660 \0 C 032 h 032 261 001 a O " d g \0 \0 360 262
0002700 025 277 g \0 \0 A 001 A 002 b 002 001 A 002 b 002
0002720 277 261 001 C g \0 \0 360 263 033 O " g \0 \0 360
0002740 263 023 O " g \0 \0 360 251 O " d g \0 \0 360
0002760 262 : 277 g \0 \0 A 001 A 002 b 002 001 A 002 b
0003000 002 277 j O " g \0 \0 360 247 O " g \0 \0 360
0003020 264 003 i O " g \0 \0 360 247 O " g \0 \0 360
0003040 264 003 i C 032 032 032 261 \0 356 g \0 \0 360 251 O
0003060 " d g \0 \0 360 262 % 277 g \0 \0 A 001 A 002
0003100 b 002 001 A 002 b 002 001 A 002 b 002 277 O " g
0003120 \0 \0 360 h C 032 032 032 261 \0 275 g \0 \0 360 262
0003140 @ g \0 \0 g \0 \0 l \f \t \0 \0 _ 020 d 262
0003160 033 d i 360 263 026 d 005 001 245 d 005 002 241 005 003
0003200 265 \n g \0 \0 O 020 h 032 032 C 032 032 g \0 \0
0003220 g \0 \0 C 032 o \0 \0 \0 032 032 h 032 260 y O
0003240 " d g \0 \0 360 262 3 277 i _ ( 277 g \0 \0
0003260 g \0 \0 g \0 \0 g \0 \0 A 001 A 002 b 002 001
0003300 A 002 b 002 001 A 002 b 002 277 C 032 032 032 032 o
0003320 \0 \0 \0 032 032 h 032 260 ? L \n \0 \0 002 _ $
0003340 235 g \0 \0 O $ A 001 A 002 b 002 277 260 ' O
0003360 " d 005 001 241 005 002 247 g \0 \0 O " C 260 030
0003400 j O " 363 230 g \0 \0 j O " 331 C 207 g \0
0003420 \0 O " h C 032 032 032 _ 277 O 036 265 016 O
0003440 h 032 _ 036 _ 034 277 261 373 s O & _ 036
0003460 277 261 373 j O 034 032 032 020 C 001 003 262 > O (
0003500 262 036 g \0 \0 o \0 \0 \0 o \0 \0 \0 O 034 032
0003520 032 032 C 001 C g \0 \0 030 277 h 032 032 020 g \0
0003540 \0 o \0 \0 \0 o \0 \0 \0 O 034 032 032 032 C 001
0003560 C g \0 \0 030 277 h 032 032 020 O ( 262 025 g \0
0003600 \0 o \0 \0 \0 o \0 \0 \0 O 034 032 032 032 h 032
0003620 020 g \0 \0 O 034 032 020 \0 ( 2 2 2 5 Q
0003640 F A S S O C 2 0 4 4 Q C H A
0003660 R A C T E R 1 2 2 4 Q P A C
0003700 K * 5 7 2 Q A S S O C 4 5
0003720 4 Q S U B A T O M 4 4 3 Q
0003740 S T R P O S 3 5 2 Q S U B A
0003760 T O M 3 4 1 Q S T R P O S
0004000 2 7 0 Q C H C O N 1 2 5 7 Q
0004020 F A S S O C 1 0 5 Q D W I
0004040 M I F Y 0 ? 5 1 Q \ A P P E
0004060 N D 2 4 6 Q \ A P P E N D 2
0004100 ) \r \n ( 2 5 1 4 Q P R O G N
0004120 2 4 7 1 Q L A M B D A 2 4 5
0004140 4 Q $ $ O U T P U T 2 4 3 1
0004160 Q L A M B D A 2 4 2 0 Q $
0004200 $ O U T P U T 2 3 7 5 Q L A
0004220 M B D A 2 3 1 1 Q T A B 2
0004240 3 0 0 Q S P A C E S 2 2 6 3
0004260 Q P R I N 1 2 2 3 4 Q P R
0004300 I N T N U M 2 1 6 1 Q P R I
0004320 N T B M 2 1 5 6 Q I M A X 2
0004340 2 1 5 3 Q $ $ A F T E R B M
0004360 2 1 5 0 Q S E T Q 2 1 3 5
0004400 Q . B M 2 1 1 3 Q P R O G
0004420 N 2 1 1 0 Q P O S I T I O N
0004440 2 0 7 5 Q Q U O T E 2 0 3
0004460 7 Q P R I N 3 2 0 3 4 Q P
0004500 R O G N 2 0 2 6 Q . P A G E
0004520 2 0 1 2 Q . P A R A 2 1 7
0004540 6 4 Q P R I N T P A R A 1 7
0004560 5 5 Q . P A R A 2 1 7 4 5 Q
0004600 . P A R A 1 7 2 7 Q . C E
0004620 N T E R 2 1 7 2 0 Q . C E N
0004640 T E R 1 7 0 7 Q . C E N T E
0004660 R 2 1 7 0 0 Q . F R 2 1 6
0004700 5 6 Q F L U S H R I G H T 1
0004720 6 4 7 Q . C E N T E R 2 1 6
0004740 3 7 Q . C E N T E R 1 6 2 7
0004760 Q . F R 2 1 6 1 7 Q . F R
0005000 1 5 7 5 Q P R I N T N U M
0005020 1 5 6 6 Q . N 1 5 5 1 Q T
0005040 E R P R I 1 5 3 7 Q F R P T
0005060 Q 1 5 3 1 Q . S K I P 1 5
0005100 1 3 Q S P A C E S 1 5 0 5 Q
0005120 . S P 1 4 7 1 Q S P A C E
0005140 S 1 4 6 4 Q , , , 1 4 5 3
0005160 Q S P A C E S 1 4 4 5 Q ,
0005200 , 1 4 3 2 Q S P A C E S 1
0005220 4 2 5 Q , 1 4 0 1 Q Q U O
0005240 T E 1 3 5 0 Q 016 1 3 4 2 Q
0005260 . B A S E 1 3 3 4 Q \b 1
0005300 3 2 7 Q . S U P 1 3 2 2 Q
0005320 024 1 3 1 4 Q . S U B 1 3 0
0005340 6 Q P R I N 3 1 3 0 0 Q S
0005360 U P E R S C R I P T F O N T 1
0005400 2 7 5 Q C H A N G E F O N T
0005420 1 2 7 2 Q P R O G N 1 2 6 7
0005440 Q F O N T C H A N G E F L G
0005460 1 2 6 4 Q A N D 1 2 5 5 Q
0005500 . B A S E 1 2 4 5 Q . S U P
0005520 1 2 3 5 Q . S U B 1 2 1 7
0005540 Q F O N T 1 2 0 1 Q C H A
0005560 N G E F O N T 1 1 6 1 Q . F
0005600 O N T 1 1 4 5 Q . P P F T L
0005620 1 1 3 5 Q . P P V T L 1 1
0005640 2 7 Q . P P F T L 1 1 1 7 Q
0005660 . P P F 1 1 1 0 Q P O S I
0005700 T I O N 1 0 7 6 Q P R I N T
0005720 D E F 1 0 6 7 Q . P P V T L
0005740 1 0 5 7 Q . P P F T L 1 0
0005760 4 7 Q . P P V 1 0 3 7 Q .
0006000 P P F 1 0 1 7 Q P R I N 2
0006020 1 0 1 2 Q . P 2 7 6 6 Q #
0006040 7 5 0 Q P R I N 1 7 4 3 Q
0006060 . R E S E T 7 3 4 Q T E R
0006100 P R I 7 2 5 Q \ B M T E R P
0006120 R I 6 7 0 Q T A B 6 6 3 Q
0006140 . T A B 6 2 2 Q T A B 6
0006160 1 3 Q . T A B 0 5 3 0 Q Q
0006200 U O T E 4 3 2 Q % . 4 1 0
0006220 Q F L O A T 4 0 4 Q F I X
0006240 3 3 2 Q % . 2 0 0 Q L A
0006260 M B D A 1 5 6 Q O U T P U T
0006300 1 5 3 Q R E S E T F O R M )
0006320 \r \n ( 2 5 0 1 Q ( D E C L A
0006340 R E ( S P E C V A R S $ $ A
0006360 F T E R B M ) ) 2 4 7 5 Q (
0006400 $ $ A F T E R B M ) 2 4 4 1 Q
0006420 ( D E C L A R E ( L O C A L
0006440 V A R S $ $ O U T P U T ) )
0006460 2 4 3 5 Q ( $ $ O U T P U T )
0006500 2 4 0 5 Q ( D E C L A R E
0006520 ( L O C A L V A R S $ $ O U T
0006540 P U T $ $ A F T E R B M ) (
0006560 S P E C V A R S $ $ A F T E R
0006600 B M ) ) 2 4 0 1 Q ( $ $ O U
0006620 T P U T $ $ A F T E R B M )
0006640 2 2 1 3 Q ( ( C O N D ( ( N
0006660 U M B E R P $ $ A F T E R B M
0006700 ) $ $ A F T E R B M ) ( T
0006720 0 ) ) ) 2 1 2 1 Q ( 0 ) 7
0006740 5 4 Q ( C O N S T A N T ( C
0006760 H A R A C T E R ( C H A R C O
0007000 D E C R ) ) ) 2 1 0 Q ( D
0007020 E C L A R E ( S P E C V A R S
0007040 $ $ A F T E R B M ) ) 2 0 4
0007060 Q ( $ $ A F T E R B M ) ) \r \n
0007100 P R I N T O U T T R A N D 1 \r
0007120 \n ( I 0 F O R M F 0 P
0007140 R I N T O U T M A C R O S F
0007160 1 L C A S E F L G ) \0 & \0 002
0007200 \0 001 @ d g \0 \0 P g \0 \0 i \r 005 \0 \0
0007220 \n \0 \0 Q 237 @ d 001 g \0 \0 360 250 g \0 \0
0007240 @ 002 \v \0 \0 @ 020 \0 ( 4 2 Q / R P
0007260 L N O D E 2 0 Q C L I S P T
0007300 R A N 1 5 Q P R I N T C O M
0007320 S T R A N ) \r \n ( 3 5 Q p r i
0007340 n t o u t 3 0 Q p r i n t o
0007360 u t 1 0 Q C A D R 4 C D
0007400 D R ) \r \n ( ) \r \n F L U S H R I
0007420 G H T D 1 \r \n ( I 5 F I L
0007440 E I 4 C E N T E R F L A G
0007460 I 3 P 2 F L A G I 2
0007500 M I N I 1 X I 0 P O
0007520 S ) \0 ? \0 \0 \0 006 j @ 363 226 E \t \0
0007540 \0 @ 331 212 @ d j 360 225 277 h E \n \0 \0 A
0007560 C \n \0 \0 331 b \0 D 231 d E \t \0 \0 330 342
0007600 b \0 200 @ B E \v \0 \0 C 225 A E \n \0 \0
0007620 020 A E \n \0 \0 020 \0 ( 7 4 Q P R I
0007640 N 1 6 6 Q P R I N 2 5 7 Q
0007660 T A B 4 4 Q P O S I T I O
0007700 N 3 2 Q N C H A R S 2 5 Q
0007720 L I N E L E N G T H 7 P O
0007740 S I T I O N ) \r \n N I L \r \n ( )
0007760 \r \n P R I N T P A R A D 1 \r \n
0010000 ( P 0 D I S P L A Y S T R E
0010020 A M I 5 F I L E I 4
0010040 P A R E N F L A G I 3 P 2
0010060 F L A G I 2 L I S T I
0010100 1 R M A R G I 0 L M A R
0010120 G ) \0 210 001 \0 \0 006 021 020 \0 E \t \0 \0
0010140 \t \0 \0 X d 262 A b \n @ 245 h E \n \0 \0
0010160 212 j @ 363 231 h E \n \0 \0 @ 331 b \0 277 A
0010200 j 361 251 A h E \n \0 \0 330 b 002 277 B h E
0010220 \n \0 \0 D 221 k 200 j D 221 k 200 j \f \0 \0
0010240 E \n \0 \0 260 : @ 244 E \t \0 \0 211 j @ 363
0010260 230 E \t \0 \0 @ 331 b \0 277 A j 361 251 A h
0010300 E \n \0 \0 330 b 002 277 E B E \t \0 \0 D 221
0010320 k 200 j D 221 k 200 j \f \0 \0 \n \0 \0 h 020
0010340 \0 ( 2 0 4 Q P O S I T I O N
0010360 2 0 1 Q P R I N T P A R A 1
0010400 1 6 4 Q P O S I T I O N 1 5
0010420 2 Q L I N E L E N G T H 1 3
0010440 3 Q P O S I T I O N 1 2 2 Q
0010460 P O S I T I O N 1 1 2 Q D
0010500 S P X P O S I T I O N 1 0 6 Q
0010520 P R I N T P A R A 1 7 1 Q
0010540 D S P X P O S I T I O N 5 7 Q
0010560 D S P R I G H T M A R G I N
0010600 4 0 Q D S P X P O S I T I O N
0010620 2 6 Q D S P X P O S I T I O
0010640 N 1 1 Q I M A G E S T R E A
0010660 M P 6 G E T S T R E A M ) \r
0010700 \n N I L \r \n ( ) \r \n P R I N T B
0010720 M D 1 \r \n ( P 3 Y P O S
0010740 P 2 A S C E N T P 1 X
0010760 P O S P 0 R M A R G I N
0011000 I 3 W H E R E I 2 B I
0011020 T M A P I 1 D E S C E N T
0011040 I 0 B E F O R E F 5
0011060 $ $ A F T E R B M ) 001 340 005 001 \0
0011100 004 h C \n \0 \0 h C \n \0 \0 h C \n \0 \0
0011120 \t \0 \0 021 # 004 C \t \0 \0 \t \0 \0 241 j 020
0011140 B 004 ` \0 \0 360 250 o \0 \0 \0 B \n \0 \0 277
0011160 A d 005 001 245 d 005 002 241 005 003 243 j b 002 277
0011200 I B \t \0 \0 330 H 361 262 M j 271 g \0 \0 \t
0011220 \0 \0 262 > U d 005 001 245 d 005 002 241 005 003 262
0011240 # h C \n \0 \0 U 331 C \n \0 \0 c \n 277 C
0011260 \t \0 \0 277 U C \n \0 \0 \t \0 \0 277 h c \n
0011300 260 024 C \t \0 \0 277 h C \n \0 \0 \t \0 \0 203
0011320 C \t \0 \0 277 A h C \n \0 \0 361 262 Q j g
0011340 \0 \0 \t \0 \0 262 > U d 005 001 245 d 005 002 241
0011360 005 003 262 # h C \n \0 \0 U 331 C \n \0 \0 c
0011400 \n 277 C \t \0 \0 277 U C \n \0 \0 \t \0 \0 h
0011420 c \n 277 260 024 C \t \0 \0 277 h C \n \0 \0 \t
0011440 \0 \0 203 C \t \0 \0 C \v \0 \0 260 251 @ 265 003
0011460 202 261 \0 206 I C \n \0 \0 j A \t \0 \0 C \v
0011500 \0 \0 B j d C I h C \n \0 \0 \r 006 \0 \0
0011520 B \t \0 \0 A C \v \0 \0 H h C \n \0 \0 331
0011540 j 360 242 261 \0 273 A U d 005 001 245 d 005 002 241
0011560 005 003 265 003 j 274 d L 361 241 277 L c \n 277 g
0011600 \0 \0 \t \0 \0 242 261 \0 222 U d 005 001 245 d 005
0011620 002 241 005 003 262 v h C \n \0 \0 U 331 C \n \0
0011640 \0 c \n 277 C \t \0 \0 277 U C \n \0 \0 \t \0
0011660 \0 277 h c \n 260 g d 005 001 245 d 005 002 241 005
0011700 003 252 B \t \0 \0 A J 330 331 b \0 277 j @ 363
0011720 264 \a j b \0 277 h C \n \0 \0 273 C j K J
0011740 330 C j K J @ k 330 330 330 \r 006 \0 \0 277 h
0011760 d d C j K J 330 H @ k 330 g \0 \0 g \0
0012000 \0 j \r \v \0 \0 277 261 377 - C \t \0 \0 277 h
0012020 C \n \0 \0 \t \0 \0 203 C \t \0 \0 j 020 A 020
0012040 \0 ( 7 3 2 Q T E R P R I 7 2
0012060 5 Q A B S 7 2 2 Q D S P L
0012100 I N E F E E D 7 1 4 Q T E R
0012120 P R I 7 0 4 Q B I T B L T
0012140 6 5 4 Q B I T B L T 6 3 1 Q
0012160 D S P Y P O S I T I O N 6 0
0012200 4 Q B I T M A P H E I G H T
0012220 5 5 7 Q A B S 5 5 4 Q D S
0012240 P L I N E F E E D 5 4 6 Q T
0012260 E R P R I 5 3 7 Q D S P L I
0012300 N E F E E D 5 3 1 Q D S P L
0012320 I N E F E E D 5 0 3 Q B O U
0012340 N D P 4 3 5 Q D S P X P O S
0012360 I T I O N 4 2 7 Q R E L M O
0012400 V E T O 4 2 2 Q B I T M A P
0012420 W I D T H 4 1 6 Q B I T B L
0012440 T 4 1 2 Q D S P Y P O S I T
0012460 I O N 4 0 0 Q R E L M O V E
0012500 T O 3 7 4 Q M I N U S 3 6
0012520 7 Q D S P X P O S I T I O N
0012540 3 5 1 Q R E L M O V E T O 3
0012560 4 5 Q T E R P R I 3 4 0 Q
0012600 A B S 3 3 5 Q D S P L I N E
0012620 F E E D 3 2 7 Q T E R P R I
0012640 3 1 5 Q A B S 3 1 2 Q D
0012660 S P L I N E F E E D 3 0 4 Q
0012700 T E R P R I 2 7 5 Q D S P L
0012720 I N E F E E D 2 6 7 Q D S P
0012740 L I N E F E E D 2 4 3 Q B O
0012760 U N D P 2 3 1 Q D S P Y P O
0013000 S I T I O N 2 2 2 Q T E R P
0013020 R I 2 1 5 Q A B S 2 1 2 Q
0013040 D S P L I N E F E E D 2 0 4
0013060 Q T E R P R I 1 7 2 Q A B
0013100 S 1 6 7 Q D S P L I N E F E
0013120 E D 1 6 1 Q T E R P R I 1
0013140 5 2 Q D S P L I N E F E E D
0013160 1 4 4 Q D S P L I N E F E E D
0013200 1 2 0 Q B O U N D P 1 0 3
0013220 Q B I T M A P W I D T H 5 5
0013240 Q E R R O R 3 3 Q I M A G
0013260 E S T R E A M P 3 0 Q G E T
0013300 S T R E A M 2 1 Q F O N T A
0013320 S C E N T 1 6 Q D S P F O N
0013340 T 1 1 Q D S P X P O S I T I
0013360 O N 4 D S P R I G H T M A R
0013400 G I N ) \r \n ( 6 7 7 Q R E P L
0013420 A C E 6 7 4 Q T E X T U R E
0013440 5 0 0 Q $ $ A F T E R B M
0013460 2 4 0 Q $ $ A F T E R B M 1
0013500 1 5 Q $ $ A F T E R B M 4 3
0013520 Q 004 003 B I T M A P T Y P E # )
0013540 \r \n ( 5 1 Q " N o t a b
0013560 i t m a p " ) \r \n P R I N T P A
0013600 R A 1 D 1 \r \n ( P 5 L E N
0013620 P 4 L P 3 S P A C E
0013640 S I Z E P 2 P A R E N S I
0013660 Z E P 1 F O N T P 0
0013700 C C I 3 C L O S E C O U N
0013720 T I 2 O P E N C O U N T
0013740 I 1 P O S I 0 L I S T
0013760 F 1 2 Q F I L E F 1 3
0014000 Q D I S P L A Y S T R E A M
0014020 F 1 4 Q $ $ A F T E R B M
0014040 F 1 5 Q L M A R G F 1 6
0014060 Q R M A R G F 1 7 Q P 2
0014100 F L A G ) 002 037 \n 006 \0 004 j W 026 264
0014120 \b h W 026 \n \0 \0 W 026 235 o \0 \0 \0 h W
0014140 026 \n \0 \0 \n \0 \0 200 k W 026 235 o \0 \0 \0
0014160 h W 026 \n \0 \0 \n \0 \0 200 k 021 d \t @ 003
0014200 265 Z H _ 022 j 361 242 261 001 340 W 034 A K 330
0014220 b 002 375 361 242 261 001 303 g \0 \0 \t \0 \0 242 261
0014240 001 n W 030 d 005 001 245 d 005 002 241 005 003 242 261
0014260 001 N h W 024 \n \0 \0 W 030 331 W 024 \n \0 \0
0014300 c 030 277 W 024 \t \0 \0 277 W 030 W 024 \n \0 \0
0014320 \t \0 \0 277 h c 030 261 001 ; 001 274 @ 002 003 241
0014340 C 270 L 003 265 030 W 034 B J 332 H J 332 A W
0014360 026 262 037 L I W 036 \v \0 \0 260 034 A B k 330
0014400 H k 330 \f \0 \0 b 002 277 j b 004 X 261 \0 312
0014420 L W 036 \n \0 \0 ] 330 b 002 330 330 375 361 262 h
0014440 g \0 \0 \t \0 \0 262 G W 030 d 005 001 245 d 005
0014460 002 241 005 003 262 ) h W 024 \n \0 \0 W 030 331 W
0014500 024 \n \0 \0 c 030 277 W 024 \t \0 \0 277 W 030 W
0014520 024 \n \0 \0 \t \0 \0 277 h c 030 260 027 W 024 \t
0014540 \0 \0 277 h W 024 \n \0 \0 \t \0 \0 204 W 024 \t
0014560 \0 \0 277 W 026 262 , W 032 W 024 \n \0 \0 277 W
0014600 032 M 330 b 002 277 B j 361 262 > B _ 016 j 361
0014620 262 & g \0 \0 W 024 \n \0 \0 277 O 016 k 331 260
0014640 355 W 032 ^ j 361 262 331 g \0 \0 W 024 \n \0 \0
0014660 277 N k 331 260 357 A W 026 223 B J 332 200 B 330
0014700 b 002 277 j b 004 277 W 036 226 L W 024 \n \0 \0
0014720 205 L W 024 \n \0 \0 277 W 034 A K 330 361 262 030
0014740 @ d 002 003 262 023 277 g \0 \0 W 024 \n \0 \0 277
0014760 A K 330 b 002 277 @ 002 b \0 261 376 205 W 024 \t
0015000 \0 \0 277 h W 024 \n \0 \0 \t \0 \0 204 W 024 \t
0015020 \0 \0 277 W 026 262 035 W 032 W 024 \n \0 \0 277 g
0015040 \0 \0 W 024 \n \0 \0 277 h W 024 \n \0 \0 b 002
0015060 260 0 W 032 _ 020 j 361 236 g \0 \0 W 024 \n \0
0015100 \0 277 O 020 k 331 260 356 g \0 \0 W 024 \n \0 \0
0015120 277 W 032 k 330 b 002 207 g \0 \0 W 024 \n \0 \0
0015140 277 O 022 k 331 261 376 036 A 020 \0 ( 1 0 2 3
0015160 Q P R I N 3 1 0 0 3 Q P R
0015200 I N 3 7 6 4 Q P R I N 3 7
0015220 4 1 Q D S P X P O S I T I O N
0015240 7 3 2 Q P R I N 3 7 2 1 Q
0015260 D S P X P O S I T I O N 7 0
0015300 5 Q T E R P R I 6 7 7 Q A
0015320 B S 6 7 4 Q D S P L I N E F
0015340 E E D 6 6 5 Q T E R P R I
0015360 6 4 2 Q P R I N 3 6 1 2 Q
0015400 P R I N 3 6 0 3 Q P R I N 4
0015420 5 4 3 Q P R I N 3 5 1 5 Q
0015440 P R I N 3 4 6 1 Q D S P X
0015460 P O S I T I O N 4 4 5 Q T E
0015500 R P R I 4 3 7 Q A B S 4 3
0015520 4 Q D S P L I N E F E E D 4
0015540 2 5 Q T E R P R I 4 1 2 Q
0015560 A B S 4 0 7 Q D S P L I N E
0015600 F E E D 3 7 7 Q T E R P R I
0015620 3 6 7 Q D S P L I N E F E E
0015640 D 3 5 7 Q D S P L I N E F E
0015660 E D 3 3 1 Q B O U N D P 3
0015700 1 1 Q N C H A R S 2 7 1 Q
0015720 P R I N T P A R A 1 2 5 5 Q
0015740 S T R I N G W I D T H 2 0 6 Q
0015760 A B S 2 0 3 Q D S P L I N
0016000 E F E E D 1 7 3 Q T E R P R
0016020 I 1 6 3 Q D S P L I N E F E
0016040 E D 1 5 3 Q D S P L I N E F
0016060 E E D 1 2 1 Q B O U N D P
0016100 5 4 Q S T R I N G W I D T H
0016120 5 1 Q D S P F O N T 3 2 Q
0016140 S T R I N G W I D T H 2 7 Q
0016160 D S P F O N T 1 2 Q D S P F
0016200 O N T ) \r \n ( 1 0 1 6 Q % )
0016220 7 7 6 Q % ) 7 5 7 Q %
0016240 7 2 5 Q % ) 6 3 5 Q %
0016260 5 3 6 Q % 5 1 0 Q % (
0016300 3 2 6 Q $ $ A F T E R B M 1
0016320 1 6 Q $ $ A F T E R B M ) \r \n
0016340 ( 4 3 Q " " 2 1 Q " (
0016360 " ) \r \n ( P R E T T Y C O M P R
0016400 I N T P R I N T O U T C O M S
0016420 ) \r ( R P A Q Q P R I N T O U
0016440 T C O M S ( ( F N S P R I N
0016460 T C O M S T R A N P R I N T O
0016500 U T T R A N ) ( B L O C K S
0016520 ( N I L P R I N T C O M S T R
0016540 A N P R I N T O U T T R A N
0016560 ( \r L O C A L V A R S . T )
0016600 ( G L O B A L V A R S C O M
0016620 M E N T F L G L C A S E F L G
0016640 P R I N T O U T M A C R O S )
0016660 ) ) ( A D D V A R S ( P R I
0016700 N T O U T M A C R O S ) ) ( V
0016720 A R S \r P R I N T O U T T O K
0016740 E N S ) ( P R O P C L I S P
0016760 W O R D P R I N T O U T p r
0017000 i n t o u t ) ( * U S E D
0017020 I N T R A N S L A T I O N S )
0017040 ( F N S F L U S H R I G H T
0017060 P R I N T P A R A \r P R I N
0017100 T B M P R I N T P A R A 1 )
0017120 ( M A C R O S \ B M T E R P R
0017140 I ) ) ) \r ( A D D T O V A R P
0017160 R I N T O U T M A C R O S ) \r (
0017200 R P A Q Q P R I N T O U T T O
0017220 K E N S ( . R E S E T . T A
0017240 B # , , , , , , . P 2
0017260 . P P F . P P V . P P F T
0017300 L . P P V T L . T A B 0 .
0017320 F R . F R 2 . C E N T E R
0017340 \r . C E N T E R 2 . P A R A
0017360 . P A R A 2 . P A G E . F O
0017400 N T . S U P . S U B . B A
0017420 S E . S P . S K I P . N
0017440 . B M ) ) \r ( P U T P R O P S
0017460 P R I N T O U T C L I S P W O
0017500 R D ( P R I N T O U T T R A N
0017520 . p r i n t o u t ) ) \r ( P
0017540 U T P R O P S p r i n t o u t
0017560 C L I S P W O R D ( P R I N
0017600 T O U T T R A N . p r i n t
0017620 o u t ) ) \r ( P U T P R O P S
0017640 \ B M T E R P R I M A C R O
0017660 ( ( F I L E ) ( * j s s :
0017700 " 2 6 - F E B - 8 4 2 0 : 5 9
0017720 " ) ( * * D o e s t h e
0017740 e q u i v a l e n t o f a
0017760 T E R P R I t o \r F I L E
0020000 b u t a l s o a d d s i
0020020 n $ $ A F T E R B M . $ $ A
0020040 F T E R B M i s h o w f a
0020060 r b e l o w t h e b o t t
0020100 o m o f t h i s l i n e
0020120 a b i t m a p m a y h a v
0020140 e \r b e e n p r i n t e d .
0020160 R e t u r n s t h e Y i
0020200 n c r e m e n t a m o u n t .
0020220 ) ( C O N D ( ( B O U N D P
0020240 ( Q U O T E $ $ A F T E R B
0020260 M ) ) ( C O N D ( ( N U M B
0020300 E R P \r $ $ A F T E R B M )
0020320 ( S E T Q $ $ A F T E R B M
0020340 ( D S P L I N E F E E D ( I D
0020360 I F F E R E N C E ( D S P L I
0020400 N E F E E D N I L F I L E )
0020420 $ $ A F T E R B M ) F I L E
0020440 ) ) ( T E R P R I \r F I L E
0020460 ) ( P R O G 1 ( A B S ( D
0020500 S P L I N E F E E D $ $ A F T
0020520 E R B M F I L E ) ) ( S E T
0020540 Q $ $ A F T E R B M N I L )
0020560 ) ) ( T ( T E R P R I F I
0020600 L E ) ( A B S ( \r D S P L I
0020620 N E F E E D N I L F I L E )
0020640 ) ) ) ) ( T ( T E R P R I
0020660 F I L E ) ) ) ) ) \r ( P U T P R
0020700 O P S P R I N T O U T C O P
0020720 Y R I G H T ( " X e r o x C
0020740 o r p o r a t i o n " 1 9 8 4
0020760 ) ) \r N I L \r
0020767