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