$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>FILEPERCENT.DCOM!1
0000000 ( F I L E C R E A T E D " 1
0000020 - A u g - 8 5 1 8 : 3 4 : 3 1
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L A N N I
0000100 N G > L I S P > U S E R S > F I
0000120 L E P E R C E N T . ; 4 ) \r "
0000140 1 9 - M a r - 8 5 1 4 : 3 4 :
0000160 1 7 " r e c o m p i l e d c
0000200 h a n g e s : C l o s e P e r
0000220 c e n t W i n d o w G e t P e
0000240 r c e n t W i n d o w S h o w
0000260 P e r c e n t N e w L o a d
0000300 \r R e a d I n L o a d i n "
0000320 S M A L L L O O P S 1 - A u
0000340 g - 8 5 . . . " d a t e d
0000360 " 1 - A u g - 8 5 0 9 : 5 7
0000400 : 3 7 " ) \r ( F I L E C R E A T
0000420 E D " 1 - A u g - 8 5 1 8
0000440 : 3 4 : 1 8 " { P H Y L U M }
0000460 < L A N N I N G > L I S P > U S
0000500 E R S > F I L E P E R C E N T .
0000520 ; 4 5 5 1 7 c h a n g e s
0000540 t o : ( F N S \r G e t P e r
0000560 c e n t W i n d o w S h o w P
0000600 e r c e n t C l o s e P e r c
0000620 e n t W i n d o w N e w L o a
0000640 d R e a d I n L o a d ) p r
0000660 e v i o u s d a t e : \r " 2
0000700 6 - J u l - 8 5 1 8 : 5 6 : 5
0000720 3 " { P H Y L U M } < L A N N
0000740 I N G > L I S P > U S E R S > F
0000760 I L E P E R C E N T . ; 3 ) \r C
0001000 l o s e P e r c e n t W i n d o
0001020 w D 1 \r ( I 0 w i n d o w
0001040 ) \0 035 \0 \0 \0 001 @ \t \0 \0 264 027 @ \t
0001060 \0 \0 @ \t \0 \0 311 006 002 001 ` \0 \0 \n \0 \0
0001100 027 \0 \0 020 \0 ( 2 7 Q D R E M O V
0001120 E 1 5 Q \ I N S U R E W I N
0001140 D O W 1 1 Q C L O S E W 3
0001160 W I N D O W P ) \r ( 3 2 Q P
0001200 e r c e n t W i n d o w B o t t
0001220 o m s 2 4 Q P e r c e n t W
0001240 i n d o w B o t t o m s ) \r ( )
0001260 \r G e t P e r c e n t W i n d o
0001300 w D 1 \r ( P 2 w i n d o w
0001320 P 1 p e r c e n t W i n d
0001340 o w W i d t h P 0 p e r c
0001360 e n t W i n d o w H e i g h t
0001400 I 1 m a x i m u m I 0
0001420 t i t l e ) \0 W 003 \0 \0 002 l \n i
0001440 \n \0 \0 l d \t \0 \0 021 002 001 ` \0 \0 k 331
0001460 I 325 ` \0 \0 001 H 325 ` \0 \0 032 027 \0 \0 001
0001500 I H \f \0 \0 @ \n \0 \0 021 001 002 h d d J
0001520 h d d d g \0 \0 g \0 \0 ` \0 \0 \r \v \0
0001540 \0 J g \0 \0 j \v \0 \0 J g \0 \0 A \v \0
0001560 \0 J 020 \0 ( 1 2 3 Q P U T W I N
0001600 D O W P R O P 1 1 3 Q P U T
0001620 W I N D O W P R O P 1 0 3 Q
0001640 B I T B L T 5 3 Q C R E A T
0001660 E W 4 7 Q C R E A T E R E G
0001700 I O N 1 2 Q W I D T H I F W
0001720 I N D O W 5 H E I G H T I F
0001740 W I N D O W ) \r ( 1 1 7 Q m a
0001760 x i m u m 1 0 7 Q P e r c e
0002000 n t 7 7 Q G R A Y S H A D E
0002020 7 4 Q I N P U T 7 1 Q T
0002040 E X T U R E 4 1 Q P e r c e
0002060 n t W i n d o w B o t t o m s
0002100 3 5 Q P e r c e n t W i n d o
0002120 w B o t t o m s 2 7 Q P e r
0002140 c e n t W i n d o w B o t t o m
0002160 s 2 0 Q S C R E E N W I D T
0002200 H ) \r ( ) \r S h o w P e r c e n
0002220 t D 1 \r ( P 0 p e r c e n
0002240 t I 1 s t a t u s W i n d
0002260 o w I 0 c u r r e n t S i
0002300 z e ) \0 R 001 \0 \0 002 A \t \0 \0 264 L
0002320 A g \0 \0 \n \0 \0 264 C @ l d 326 A g \0
0002340 \0 \n \0 \0 327 021 001 \0 h d d A h d H h
0002360 g \0 \0 g \0 \0 n 377 377 \r \v \0 \0 h d d
0002400 A H h d d g \0 \0 g \0 \0 ` \0 \0 \r \v
0002420 \0 \0 A g \0 \0 H \v \0 \0 020 \0 ( 1 1 7
0002440 Q P U T W I N D O W P R O P
0002460 1 0 7 Q B I T B L T 6 2 Q
0002500 B I T B L T 3 1 Q G E T W I
0002520 N D O W U S E R P R O P 1 4 Q
0002540 G E T W I N D O W U S E R P R
0002560 O P 3 W I N D O W P ) \r ( 1
0002600 1 3 Q P e r c e n t 1 0 3 Q
0002620 G R A Y S H A D E 1 0 0 Q
0002640 I N P U T 7 5 Q T E X T U R
0002660 E 5 3 Q I N P U T 5 0 Q
0002700 T E X T U R E 2 6 Q m a x i
0002720 m u m 1 1 Q P e r c e n t )
0002740 \r ( ) \r N e w L o a d A 0 0 0 1
0002760 D 1 \r ( N A M E E R R O R S
0003000 E T F 0 f u l l F i l e N
0003020 a m e F 1 L o a d S t a t
0003040 u s W i n d o w F 2 l o a
0003060 d F i l e L e n g t h F 3
0003100 R E S E T V A R S L S T F 4
0003120 R E S E T Y F 5 F I L E
0003140 F 6 L D F L G F 7 P
0003160 R I N T F L G ) \0 B \0 \b 002 \0 g
0003200 \0 \0 R 264 024 o \0 \0 \0 P g \0 \0 \n \0 \0
0003220 \n \0 \0 R \n \0 \0 c 002 h 032 032 Q \t \0 \0
0003240 264 \n Q g \0 \0 P \v \0 \0 h 032 032 S 032 c
0003260 006 277 P 265 003 U V W 016 \v \0 \0 c \b i 020
0003300 \0 ( 7 4 Q O l d L o a d B e f
0003320 o r e P e r c e n t S t u f f
0003340 5 2 Q P U T W I N D O W P R O
0003360 P 4 0 Q W I N D O W P 2 7
0003400 Q G e t P e r c e n t W i n d
0003420 o w 2 3 Q C O N C A T 2 0
0003440 Q F I L E N A M E F I E L D )
0003460 \r ( 4 6 Q l o a d F i l e 1
0003500 5 Q N A M E 2 C l o s e P
0003520 e r c e n t W i n d o w ) \r (
0003540 1 1 Q " f i l e " ) \r N e w
0003560 L o a d D 1 \r ( P 5 R E S
0003600 E T Z P 4 R E S E T Y P
0003620 3 L I S P X H I S T P 2
0003640 L o a d S t a t u s W i n d o
0003660 w P 1 l o a d F i l e L e
0003700 n g t h P 0 f u l l F i l
0003720 e N a m e I 2 P R I N T F
0003740 L G I 1 L D F L G I 0
0003760 F I L E F 6 L I S P X H
0004000 I S T F 7 R E S E T V A R
0004020 S L S T ) \0 6 006 002 \0 003 @ \t \0 \0
0004040 021 001 \0 H d 225 g \0 \0 \n \0 \0 021 021 002 V
0004060 021 ! 005 W 016 o \0 \0 \0 g \0 \0 \n \0 \0 221
0004100 h 202 g \0 \0 ] \n \0 \0 M 223 \b \0 \0 020 L
0004120 020 \0 ( 6 1 Q E R R O R ! 5 4
0004140 Q R E S E T R E S T O R E 4
0004160 2 Q N e w L o a d A 0 0 0 1
0004200 1 7 Q G E T F I L E I N F O
0004220 3 F I N D F I L E ) \r ( 5 0 Q
0004240 E R R O R 3 7 Q I N T E R
0004260 N A L 1 4 Q L E N G T H ) \r
0004300 ( 3 4 Q ( N e w L o a d A 0
0004320 0 0 1 ) ) \r R e a d I n L o a d
0004340 D 1 \r ( I 2 F L G I 1
0004360 R D T B L I 0 F I L E
0004400 F 0 L o a d S t a t u s W i
0004420 n d o w ) \0 030 \0 001 \0 003 g \0 \0 \t
0004440 \0 \0 230 @ \t \0 \0 P \n \0 \0 277 @ A B \v
0004460 \0 \0 020 \0 ( 2 5 Q R E A D 1 6
0004500 Q S h o w P e r c e n t 1 2
0004520 Q G E T F I L E P T R 5 B
0004540 O U N D P ) \r ( 2 L o a d S t
0004560 a t u s W i n d o w ) \r ( ) \r (
0004600 P R E T T Y C O M P R I N T F
0004620 I L E P E R C E N T C O M S ) \r
0004640 ( R P A Q Q F I L E P E R C E
0004660 N T C O M S ( ( * * F i r
0004700 s t s o m e g e n e r i c
0004720 s t u f f t o s h o w p e
0004740 r c e n t w i n d o w s ) (
0004760 F N S C l o s e P e r c e n t
0005000 W i n d o w \r G e t P e r c e
0005020 n t W i n d o w S h o w P e r
0005040 c e n t ) ( V A R S ( P e r
0005060 c e n t W i n d o w B o t t o m
0005100 s ( L I S T S C R E E N H E
0005120 I G H T ) ) ) ( * * E n a
0005140 b l e t h e \r p e r c e n t
0005160 w i n d o w f o r L O A D
0005200 i n g f i l e s ) ( F N S
0005220 N e w L o a d R e a d I n L o
0005240 a d ) ( P ( * T h i s r
0005260 i d i c u l o u s s t u f f
0005300 i s n e e d e d i n \r c a
0005320 s e L O A D i s a l r e a
0005340 d y a d v i s e d ! ) ( L E
0005360 T ( ( f n ( O R ( G E T P
0005400 R O P ( Q U O T E L O A D )
0005420 ( Q U O T E A D V I S E D )
0005440 ) ( Q U O T E L O A D ) ) )
0005460 ) ( \r M O V D ? f n ( Q U
0005500 O T E O l d L o a d B e f o r
0005520 e P e r c e n t S t u f f ) )
0005540 ( / M O V D ( Q U O T E N e
0005560 w L o a d ) f n ) ( C H A N
0005600 G E N A M E ( Q U O T E \r O
0005620 l d L o a d B e f o r e P e r c
0005640 e n t S t u f f ) ( Q U O T E
0005660 R E A D ) ( Q U O T E R e
0005700 a d I n L o a d ) ) ( U N D O
0005720 S A V E ( Q U O T E ( C H A
0005740 N G E N A M E \r O l d L o a d
0005760 B e f o r e P e r c e n t S t u
0006000 f f R e a d I n L o a d R E
0006020 A D ) ) ) ( C H A N G E N A M
0006040 E ( Q U O T E L A P R D )
0006060 ( Q U O T E R E A D ) ( Q U
0006100 O T E R e a d I n L o a d ) \r
0006120 ) ( U N D O S A V E ( Q U O
0006140 T E ( C H A N G E N A M E L
0006160 A P R D R e a d I n L o a d
0006200 R E A D ) ) ) ) ) ) ) \r ( R P A
0006220 Q P e r c e n t W i n d o w B
0006240 o t t o m s ( L I S T S C R
0006260 E E N H E I G H T ) ) \r ( L E T
0006300 ( ( f n ( O R ( G E T P R
0006320 O P ( Q U O T E L O A D )
0006340 ( Q U O T E A D V I S E D ) )
0006360 ( Q U O T E L O A D ) ) ) )
0006400 ( M O V D ? f n ( Q U O T
0006420 E \r O l d L o a d B e f o r e
0006440 P e r c e n t S t u f f ) ) (
0006460 / M O V D ( Q U O T E N e w
0006500 L o a d ) f n ) ( C H A N G
0006520 E N A M E ( Q U O T E O l d
0006540 L o a d B e f o r e P e r c e n
0006560 t S t u f f ) ( \r Q U O T E
0006600 R E A D ) ( Q U O T E R e a
0006620 d I n L o a d ) ) ( U N D O S
0006640 A V E ( Q U O T E ( C H A N
0006660 G E N A M E O l d L o a d B e
0006700 f o r e P e r c e n t S t u f f
0006720 R e a d I n L o a d R E A D
0006740 \r ) ) ) ( C H A N G E N A M E
0006760 ( Q U O T E L A P R D ) (
0007000 Q U O T E R E A D ) ( Q U O
0007020 T E R e a d I n L o a d ) )
0007040 ( U N D O S A V E ( Q U O T E
0007060 ( C H A N G E N A M E L A P
0007100 R D \r R e a d I n L o a d R
0007120 E A D ) ) ) ) \r ( P U T P R O P
0007140 S F I L E P E R C E N T C O
0007160 P Y R I G H T ( " X e r o x
0007200 C o r p o r a t i o n " 1 9 8
0007220 5 ) ) \r N I L \r
0007230