$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>TINYTIDY!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 4 - D e c - 8 6 0 7 : 4 1 : 1
0000140 1 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > T
0000200 I N Y T I D Y . ; 1 006 001 6 2 5
0000220 3 \r \r c h a n
0000240 g e s t o % : ( F N S M
0000260 O V E I C O N T I N Y T I D Y
0000300 ) \r \r p r e v i o u
0000320 s d a t e % : " 1 6 - D e c
0000340 - 8 5 1 6 : 5 6 : 2 2 " { E
0000360 R I S } < L I S P > K O T O > L
0000400 I S P U S E R S > T I N Y T I D
0000420 Y . ; 1 ) \r \r \r ( * " \r C o p
0000440 y r i g h t ( c ) 1 9 8 4 ,
0000460 1 9 8 5 , 1 9 8 6 b y X
0000500 e r o x C o r p o r a t i o n
0000520 . A l l r i g h t s r e
0000540 s e r v e d . \r " ) \r \r ( P R E
0000560 T T Y C O M P R I N T T I N Y
0000600 T I D Y C O M S ) \r \r ( R P A Q
0000620 Q 006 002 T I N Y T I D Y C O M S
0000640 006 001 [ ( F N S M O V E I C O
0000660 N T I N Y T I D Y ) \r
0000700
0000720 ( I N I T V A R S ( T I N Y
0000740 T I D Y . D E F A U L T ' R I
0000760 G H T B O T T O M ) \r
0001000
0001020 ( T I N Y T I D Y
0001040 . D E F A U L T . A L L ' L E
0001060 F T ) ) \r
0001100 ( P ( C O
0001120 N D ( ( N O T ( F A S S O C
0001140 ' T i n y T i d y B a c k g
0001160 r o u n d M e n u C o m m a n d
0001200 s ) ) \r
0001220
0001240 ( P U S H B a c k g r o
0001260 u n d M e n u C o m m a n d s
0001300 ' ( T i n y T i d y ( T I N Y
0001320 T I D Y ) \r
0001340
*
0001420 " a l i g n
0001440 s a l l i c o n s o n s
0001460 c r e e n e d g e " \r
0001500
*
0001600 ) ) \r
0001620
0001640 ( S E T Q B a c k g r o u
0001660 n d M e n u N I L ] ) \r ( D E
0001700 F I N E Q \r \r ( 006 004 M O V E I C
0001720 O N 006 001 \r [ L A M B D A (
0001740 W I N D O W I C O N X Y )
0001760 006 006 006 001
0002000
0002020 006 006 ( * ; " E d
0002040 i t e d 4 - D e c - 8 6 0
0002060 7 : 3 8 b y l m m " ) 006 001 \r
0002100 ( 006 002 i f 006 001 ( N E Q
0002120 W I N D O W I C O N ) \r
0002140 006 002 t h e n 006 001 (
0002160 P U T W I N D O W P R O P W I
0002200 N D O W ' I C O N P O S I T I
0002220 O N ( C O N S X Y ) ) ) \r
0002240 ( L E T ( ( R E G I O
0002260 N ( W I N D O W R E G I O N
0002300 I C O N ) ) ) \r
0002320 ( 006 002 i f 006 001 ( G E T W I N
0002340 D O W P R O P I C O N ' A T
0002360 T A C H E D W I N D O W S ) \r
0002400 006 002 t h
0002420 e n 006 001 \r
0002440 \r 006 006 ( *
0002460 ; ; " t h i s i s a w o
0002500 r k a r o u n d f o r w h a
0002520 t I t h i n k i s a b
0002540 u g i n a t t a c h e d w
0002560 i n d o w s , n a m e l y t
0002600 h a t M O V E W c o o r d i
0002620 n a t e s m o v e t h e m
0002640 a i n w i n d o w , n o t
0002660 t h e a t t a c h e d w i n
0002700 d o w s " ) 006 001 \r \r
0002720 [ R E L
0002740 M O V E W I C O N ( C O N S
0002760 ( I D I F F E R E N C E X
0003000 ( 006 002 f e t c h 006 001 ( R E G I
0003020 O N L E F T ) 006 002 o f 006 001
0003040 R E G I O N ) ) \r
0003060
*
0003120 ( I D I F F E R E N C E Y (
0003140 006 002 f e t c h 006 001 ( R E G I O
0003160 N B O T T O M ) 006 002 o f 006 001
0003200 R E G I O N ] \r
0003220 006 002 e l s e i f 006 001 (
0003240 O P E N W P I C O N ) \r
0003260 006 002 t h e n
0003300 006 001 ( M O V E W I C O N X
0003320 Y ) \r 006
0003340 002 e l s e 006 001 ( W I N D O W P
0003360 R O P I C O N ' R E G I O N
0003400 ( C R E A T E R E G I O N X
0003420 Y ( 006 002 f e t c h 006 001 ( R
0003440 E G I O N L E F T ) 006 002 o f
0003460 006 001 R E G I O N ) \r
0003500
*
0003540 ( 006 002 f e
0003560 t c h 006 001 ( R E G I O N B O
0003600 T T O M ) 006 002 o f 006 001 R E G
0003620 I O N ] ) \r \r ( 006 004 T I N Y T I
0003640 D Y 006 001 \r [ L A M B D A (
0003660 E D G E S P A C I N G A L L
0003700 ) 006 006 006 001
0003720
0003740 006 006 ( * ; " E d
0003760 i t e d 4 - D e c - 8 6 0
0004000 7 : 4 0 b y l m m " ) 006 001 \r
0004020 ( O R S P A C I N G
0004040 ( S E T Q S P A C I N G 4 )
0004060 ) \r ( O R E D G E (
0004100 S E T Q E D G E ( 006 002 i f 006
0004120 001 A L L \r
0004140
0004160 006 002 t h e n 006 001 T I N Y T
0004200 I D Y . D E F A U L T . A L L \r
0004220
0004240 006 002 e l s e
0004260 006 001 T I N Y T I D Y . D E F A
0004300 U L T ) ) ) \r ( 006 002 f o
0004320 r 006 001 O W 006 002 i n 006 001 ( R
0004340 E V E R S E ( O P E N W I N D
0004360 O W S ) ) 006 002 b i n d 006 001 I
0004400 C O N ( X _ 0 ) \r
0004420
*
0004460 ( Y _ 0 ) \r
0004500
*
0004540 ( M A X
0004560 Y _ 0 ) \r
0004600
*
0004640 W H R E G I O N \r
0004660 006 002 w h e n 006 001 ( C
0004700 O N D \r
0004720 ( ( G E T W I N D O W P R
0004740 O P O W ' I C O N F O R )
0004760
0005000 006 006 ( * ; " I ' m a n
0005020 i c o n " ) 006 001 \r
0005040 ( S E T Q I
0005060 C O N O W ) ) \r
0005100 [ ( S E T Q I
0005120 C O N ( G E T W I N D O W P R
0005140 O P O W ' I C O N W I N D O
0005160 W ) ) 006 006 ( * ; " I '
0005200 v e g o t a n i c o n w
0005220 i n d o w " ) 006 001 \r
0005240 ( A N D (
0005260 W I N D O W P I C O N ) \r
0005300
0005320 ( N O T ( O P E N W P
0005340 I C O N ] \r
0005360 ( [ O R ( G E T W I
0005400 N D O W P R O P O W ' I C O
0005420 N P ) \r
0005440 ( A N D A L L
0005460 ( N O T ( G E T W I N D O W
0005500 P R O P O W ' M A I N W I N
0005520 D O W ] \r
0005540
*
0005620 006 006 ( * ; \r 006 001
0005640 006 006
0005660 " I h a v e a n I C O N P
0005700 p r o p e r t y o r e l s
0005720 e A L L i s s p e c i f i
0005740 e d ( u n l e s s I ' m a
0005760 n a t t a c h e d w i n d o
0006000 w ) " ) 006 001 \r
0006020
*
0006100 006 006 ( * ; " t r e a
0006120 t a s i c o n e v e n t
0006140 h o u g h n o t " ) 006 001 \r
0006160 ( S
0006200 E T Q I C O N O W ) ) ) 006
0006220 002 d o 006 001 ( S E T Q R E G I
0006240 O N ( W I N D O W R E G I O N
0006260 I C O N ) ) \r
0006300
0006320 ( S E T
0006340 Q H ( 006 002 f e t c h 006 001 (
0006360 R E G I O N H E I G H T ) 006
0006400 002 o f 006 001 R E G I O N ) ) \r
0006420
*
0006460 ( S E T Q W ( 006 002 f e
0006500 t c h 006 001 ( R E G I O N W I
0006520 D T H ) 006 002 o f 006 001 R E G I
0006540 O N ) ) \r
0006560
0006600 ( 006 002 i f 006 001
0006620 ( I L E Q ( S E L E C T Q
0006640 E D G E \r
0006660
*
0006720 ( ( B O T T O M
0006740 T O P B O T T O M R I G H T
0006760 T O P R I G H T ) \r
0007000
*
0007060 S C R E E N W I D T H ) \r
0007100
*
0007160 ( P R O G N ( 006 002 s w a p 006
0007200 001 W H ) \r
0007220
*
0007300 S C R E E N H E I G H T ) ) \r
0007320
*
0007360 ( I P
0007400 L U S X W ) ) \r
0007420
*
0007460 006 002 t h e n 006 001 ( S E T Q
0007500 X 0 ) \r
0007520
*
0007560 ( 006 002 a d d 006 001 Y M A
0007600 X Y S P A C I N G ) \r
0007620
*
0007660 ( S E T Q M
0007700 A X Y 0 ) ) \r
0007720
0007740 ( S E L
0007760 E C T Q E D G E \r
0010000
*
0010040 ( B O T T O M ( 006 002 M O V
0010060 E I C O N 006 001 O W I C O N
0010100 X Y ) ) \r
0010120
0010140 ( B
0010160 O T T O M R I G H T ( 006 002 M O
0010200 V E I C O N 006 001 O W I C O N
0010220 ( I D I F F E R E N C E S C
0010240 R E E N W I D T H \r
0010260
*
0010360 ( I P L U S X
0010400 W ) ) \r
0010420
*
0010500 Y ) ) \r
0010520
0010540 ( L E
0010560 F T ( 006 002 M O V E I C O N 006 001
0010600 O W I C O N Y ( I D I F
0010620 F E R E N C E S C R E E N H E
0010640 I G H T \r
0010660
*
0010740 ( I
0010760 P L U S X W ) ) ) ) \r
0011000
*
0011040 ( L E F T B O T T O M
0011060 ( 006 002 M O V E I C O N 006 001 O
0011100 W I C O N Y X ) ) \r
0011120
*
0011160 ( T O P ( 006 002 M O V
0011200 E I C O N 006 001 O W I C O N
0011220 X ( I D I F F E R E N C E S
0011240 C R E E N H E I G H T \r
0011260
*
0011360 ( I P L U S Y H ) )
0011400 ) ) \r
0011420
0011440 ( T O P R
0011460 I G H T ( 006 002 M O V E I C O N
0011500 006 001 O W I C O N ( I D I F
0011520 F E R E N C E S C R E E N W I
0011540 D T H \r
0011560
*
0011640 (
0011660 I P L U S X W ) ) \r
0011700
*
0011760 ( I D I F F E R E N C
0012000 E S C R E E N H E I G H T (
0012020 I P L U S Y H ) ) ) ) \r
0012040
*
0012100 ( R I G H T ( 006 002
0012120 M O V E I C O N 006 001 O W I C
0012140 O N ( I D I F F E R E N C E
0012160 S C R E E N W I D T H \r
0012200
*
0012300 ( I P L U S Y H ) )
0012320 \r
0012340
*
0012400 ( I D I F F E R E
0012420 N C E S C R E E N H E I G H T
0012440 ( I P L U S X W ) ) ) ) \r
0012460
*
0012520 ( R I G H T B O
0012540 T T O M ( 006 002 M O V E I C O N
0012560 006 001 O W I C O N ( I D I F
0012600 F E R E N C E S C R E E N W I
0012620 D T H \r
0012640
*
0012740 ( I P L U S Y H ) ) \r
0012760
*
0013040 X ) ) \r
0013060
*
0013120 ( S H O U L D N T
0013140 ) ) \r
0013160
0013200 ( 006 002 a d d 006 001
0013220 X W S P A C I N G ) \r
0013240
*
0013300 ( S E T Q M A X Y ( I M A
0013320 X M A X Y H ] ) \r ) \r \r ( R
0013340 P A Q ? 006 002 T I N Y T I D Y .
0013360 D E F A U L T 006 001 ' R I G H T
0013400 B O T T O M ) \r \r ( R P A Q ?
0013420 006 002 T I N Y T I D Y . D E F A U
0013440 L T . A L L 006 001 ' L E F T ) \r
0013460 ( C O N D ( ( N O T ( F A S
0013500 S O C ' T i n y T i d y B a
0013520 c k g r o u n d M e n u C o m m
0013540 a n d s ) ) \r ( P
0013560 U S H B a c k g r o u n d M e
0013600 n u C o m m a n d s ' ( T i n
0013620 y T i d y ( T I N Y T I D Y )
0013640 \r
0013660
0013700 " a l
0013720 i g n s a l l i c o n s o
0013740 n s c r e e n e d g e " ) )
0013760 \r ( S E T Q B a
0014000 c k g r o u n d M e n u N I L
0014020 ) ) ) \r ( P U T P R O P S T I
0014040 N Y T I D Y C O P Y R I G H T
0014060 ( " X e r o x C o r p o r a
0014100 t i o n " 1 9 8 4 1 9 8 5
0014120 1 9 8 6 ) ) \r ( D E C L A R E %
0014140 : D O N T C O P Y \r ( F I
0014160 L E M A P ( N I L ( 9 5 7
0014200 5 8 5 2 ( M O V E I C O N 9
0014220 6 7 . 1 9 4 1 ) ( T I N Y
0014240 T I D Y 1 9 4 3 . 5 8 5 0
0014260 ) ) ) ) ) \r S T O P \r
0014273