$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>TMAX-DATE.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " X C L " 036 B A S E 1 0
0000100 ) \r ( F I L E C R E A T E D "
0000120 1 2 - M a r - 8 8 1 6 : 1 6 :
0000140 0 4 " ( " c o m p i l e d o
0000160 n " { E R I N Y E S } < L I
0000200 S P U S E R S > L Y R I C > T M
0000220 A X - D A T E . \ ; 2 ) \r " 2
0000240 7 - A p r - 8 7 1 6 : 4 8 : 4
0000260 9 " | b r e c o m p i l e d |
0000300 | e x p l i c i t l y : | C
0000320 U R R E N T . D I S P L A Y . F
0000340 O N T | i n | " X e r o x
0000360 L i s p 2 5 - J a n - 8 8 .
0000400 . . " \r | d a t e d | " 2 5
0000420 - J a n - 8 8 1 6 : 0 4 : 0 1
0000440 " ) \r ( F I L E C R E A T E D
0000460 " 1 2 - M a r - 8 8 1 5 : 4 2
0000500 : 4 6 " { E R I N Y E S } < L
0000520 I S P U S E R S > L Y R I C > T
0000540 M A X - D A T E . \ ; 2 1 5 2
0000560 5 4 | c h a n g e s | | t o
0000600 : | ( F N S \r C U R R E N T
0000620 . D I S P L A Y . F O N T ) |
0000640 p r e v i o u s | | d a t e :
0000660 | " 3 0 - D e c - 8 7 1 1 :
0000700 3 9 : 1 8 " { E R I N Y E S }
0000720 < L I S P U S E R S > L Y R I C
0000740 > T M A X - D A T E . \ ; 1 ) \r
0000760 D A T E O B J : D 4 \r ( p 3
0001000 n e w o b j p 2 d i s p
0001020 l a y d a t e p 1 d a t e
0001040 a n d t i m e p 0 t e m p
0001060 l a t e . t y p e i 2 t e
0001100 m p l a t e i 1 d a t e .
0001120 s t r i n g i 0 d a t e /
0001140 t i m e f 4 \ \ d a t e o
0001160 b j . i m a g e f n s ) \0 < 004
0001200 001 \0 003 B 265 006 o \0 \0 \0 021 001 \0 @ 265 \b
0001220 \b \0 \0 \t \0 \0 021 001 001 A 265 \a I H \n \0
0001240 \0 021 001 002 I J H h 032 032 032 T \n \0 \0 021
0001260 001 003 K g \0 \0 g \0 \0 \v \0 \0 K 020 \0 (
0001300 5 6 i m a g e o b j p r o p
0001320 4 3 i m a g e o b j c r e a t
0001340 e 2 9 c h a n g e . d a t e
0001360 . f o r m a t 1 8 m k s t r
0001400 i n g 1 5 d a t e ) \r ( 5 3
0001420 d a t e o b j 5 0 t y p e
0001440 ) \r ( 6 ( m d y f ) )
0001460 \r D A T E O B J P : D 4 \r ( i
0001500 0 i m o b j ) \0 017 \0 \0 \0 001
0001520 @ d 231 g \0 \0 \n \0 \0 g \0 \0 360 020 \0 (
0001540 8 i m a g e o b j p r o p ) \r
0001560 ( 1 1 d a t e o b j 5 t y
0001600 p e ) \r ( ) \r D A T E . D I S P
0001620 L A Y F N : D 4 \r ( i 3 h
0001640 o s t s t r e a m i 2 s t
0001660 r e a m t y p e i 1 s t r
0001700 e a m i 0 o b j ) \0 023 \0
0001720 \0 \0 004 @ A \n \0 \0 @ 006 \0 \0 311 \0 002 001
0001740 A \n \0 \0 020 \0 ( 1 6 p r i n 1
0001760 4 t m a x . s h a d e o b j )
0002000 \r ( 8 i m a g e o b j ) \r ( )
0002020 \r D A T E . I M A G E B O X F N
0002040 : D 4 \r ( i 3 r i g h t m
0002060 a r g i n i 2 c u r r e n
0002100 t x i 1 s t r e a m i
0002120 0 o b j ) \0 ( \0 \0 \0 004 A \t \0
0002140 \0 A \n \0 \0 @ 006 \0 \0 311 \0 002 001 A \n \0
0002160 \0 A 006 \0 \0 310 024 A 006 \0 \0 310 023 j h 032
0002200 032 032 032 020 \0 ( 1 9 s t r i n g w
0002220 i d t h 7 d s p f o n t 3
0002240 c u r r e n t . d i s p l a y
0002260 . f o n t ) \r ( 2 9 f o n t d
0002300 e s c r i p t o r 2 3 f o n
0002320 t d e s c r i p t o r 1 1 i
0002340 m a g e o b j ) \r ( ) \r D A T E
0002360 . P U T F N : D 4 \r ( i 1
0002400 s t r e a m i 0 o b j )
0002420 \0 022 \0 \0 \0 002 g \0 \0 @ 006 \0 \0 311 \0 h
0002440 032 032 A \n \0 \0 020 \0 ( 1 5 p r i n
0002460 2 ) \r ( 6 i m a g e o b j 2
0002500 | D a t e | ) \r ( ) \r D A T E
0002520 . G E T F N : D 4 \r ( p 0
0002540 w i n d o w i 1 c o p y .
0002560 o b j e c t i 0 s t r e a
0002600 m f 1 t e x t o b j ) \0
0002620 001 001 \0 002 Q 006 \0 \0 311 022 001 021 001 \0 H
0002640 \t \0 \0 023 g \0 \0 A 265 \b @ \t \0 \0 002 001
0002660 \n \0 \0 020 \0 ( 2 9 a p p l y 2
0002700 4 r e a d 1 3 t s p . s e
0002720 t u p . f m m e n u ) \r ( 1 7
0002740 d a t e o b j 3 t e x t o b
0002760 j ) \r ( ) \r D A T E . C O P Y F
0003000 N : D 4 \r ( p 0 t e x t o
0003020 b j i 2 t a r g e t . s t
0003040 r e a m i 1 s o u r c e .
0003060 s t r e a m i 0 i m a g e
0003100 . o b j ) \0 3 002 \0 \0 003 B \t \0 \0
0003120 g \0 \0 360 262 036 B \t \0 \0 021 021 001 @ g \0
0003140 \0 \n \0 \0 271 B @ 006 \0 \0 311 \0 l 002 I 017
0003160 016 020 o \0 \0 \0 B \t \0 \0 \n \0 \0 020 \0 (
0003200 4 8 e r r o r 4 5 i m a g
0003220 e s t r e a m t y p e 2 3 i
0003240 m a g e o b j p r o p 1 3 t
0003260 e x t o b j 3 i m a g e s t
0003300 r e a m t y p e ) \r ( 2 9 i m
0003320 a g e o b j 2 0 g e t f n
0003340 6 t e x t ) \r ( 4 1 " U n
0003360 k n o w n T A R G E T s t r
0003400 e a m t y p e " ) \r D A T E .
0003420 B U T T O N E V E N T I N F N
0003440 : D 4 \r ( p 3 n e w . d a t
0003460 e p 2 o l d . d a t e i
0003500 7 b u t t o n i 6 h o
0003520 s t s t r e a m i 5 w i n
0003540 d o w i 4 r e l y i 3
0003560 r e l x i 2 s e l e c t
0003600 i o n i 1 w i n d o w s t
0003620 r e a m i 0 o b j f 4
0003640 d a t e . f o r m a t . i t e
0003660 m s ) \0 215 004 001 \0 \b \b \0 \0 277 ` \0
0003700 \0 k 345 j 360 h 360 264 ~ @ 006 \0 \0 311 \0 `
0003720 \0 \0 037 d g \0 \0 024 022 277 d T 024 004 277 d
0003740 i 024 \f 277 d g \0 \0 024 277 d g \0 \0 024
0003760 034 277 j d n 177 377 d h 032 032 032 032 021 002 001
0004000 H d I 024 \n 277 022 \t \0 \0 021 002 003 K 264 7
0004020 J 002 002 001 K 364 h 360 264 - K 003 237 J 002 J
0004040 001 K \n \0 \0 030 277 J 002 002 K 260 026 J \b \0
0004060 \0 \t \0 \0 030 277 J 002 J 001 J 002 002 001 \n \0
0004100 \0 030 g \0 \0 020 \0 ( 1 3 4 c h a n
0004120 g e . d a t e . f o r m a t 1
0004140 2 1 m k s t r i n g 1 1 8
0004160 d a t e 1 0 6 c h a n g e .
0004200 d a t e . f o r m a t 7 9 m
0004220 e n u 2 g e t m o u s e s t
0004240 a t e ) \r ( 1 3 8 c h a n g e
0004260 d 5 2 d e f a u l t m e n u
0004300 h e l d f n 4 5 c l r p r o
0004320 m p t 2 8 | D a t e / T i m
0004340 e M e n u | 2 3 | 004 003 M E
0004360 N U T Y P E # | 1 8 i m a g
0004400 e o b j 6 l a s t m o u s e
0004420 b u t t o n s ) \r ( ) \r C U R R
0004440 E N T . D I S P L A Y . F O N T
0004460 : D 4 \r ( P 0 C U R R E N
0004500 T . F O N T I 0 S T R E A
0004520 M F 1 T E X T O B J ) \0
0004540 - 001 001 \0 001 Q \t \0 \0 006 \0 \0 311 " 006 \0
0004560 \0 311 \0 021 001 \0 H 303 \0 \0 221 H 020 H 303 \0
0004600 \0 226 H 006 \0 \0 311 \0 020 o \0 \0 \0 \t \0 \0
0004620 020 \0 ( 4 2 S H O U L D N T 3
0004640 T E X T S T R E A M ) \r ( 3 2
0004660 F O N T C L A S S 2 7 F O
0004700 N T C L A S S 2 0 F O N T D
0004720 E S C R I P T O R 1 1 C H A
0004740 R L O O K S 6 S T R E A M )
0004760 \r ( 3 9 " C a n ' t g e t
0005000 c u r r e n t f o n t " ) \r
0005020 C H A N G E . D A T E . F O R M
0005040 A T : D 4 \r ( p 2 c h p
0005060 1 f u n c l s t p 0 v
0005100 e r s i o n i 1 t e m p l
0005120 a t e i 0 d a t e ) \0 213
0005140 003 \0 \0 002 A 265 006 \b \0 \0 020 \t \0 \0 o \0
0005160 \0 \0 364 224 g \0 \0 260 023 A \t \0 \0 o \0 \0
0005200 \0 364 223 g \0 \0 202 g \0 \0 o \0 \0 \0 021 002
0005220 001 A 001 i 360 225 @ H \n \0 \0 020 H g \0 \0
0005240 360 224 o \0 \0 \0 203 o \0 \0 \0 021 001 002 A 001
0005260 I 026 002 001 @ H h 032 032 \n \0 \0 J A 002 001
0005300 I 026 002 001 @ H h 032 032 \n \0 \0 J o \0 \0
0005320 \0 364 224 o \0 \0 \0 200 J A 002 002 001 I 026 002
0005340 001 @ H h 032 032 \n \0 \0 \r 005 \0 \0 020 \0 (
0005360 1 3 6 c o n c a t 1 3 2 a
0005400 p p l y 1 0 3 a p p l y 8
0005420 7 a p p l y 5 4 f i n d t
0005440 i m e 2 4 l a s t 9 l a
0005460 s t 5 d a t e ) \r ( 5 9 a
0005500 b b r e v 3 7 e u r o 3 3
0005520 f u l l 1 8 a b b r e v )
0005540 \r ( 1 1 4 " , " 1 0 8
0005560 " " 7 0 " " 6 5 " /
0005600 " 4 1 ( ( d f i n d d a y
0005620 ) ( m f i n d m o n t h )
0005640 ( y f i n d y e a r ) ) 2 8
0005660 ( f ) 1 3 ( a ) ) \r F I N
0005700 D T I M E : D 4 \r ( p 1 m
0005720 i n u t e s p 0 h o u r
0005740 i 1 v e r s i o n i 0
0005760 o l d d a t e ) 001 7 002 \0 \0 002 @
0006000 l \v l \f \v \0 \0 @ l 016 l 017 \v \0 \0 021
0006020 002 001 A d g \0 \0 360 262 031 277 H \t \0 \0 o
0006040 \0 \0 \0 I o \0 \0 \0 H \t \0 \0 \r 005 \0 \0
0006060 020 g \0 \0 360 230 @ l \v l 017 \v \0 \0 020 l
0006100 . I \t \0 \0 363 227 H \t \0 \0 \t \0 \0 210 H
0006120 \t \0 \0 \t \0 \0 k 324 d k 360 227 277 o \0 \0
0006140 \0 261 \0 203 d l 002 360 226 277 o \0 \0 \0 260 v
0006160 d l 003 360 226 277 o \0 \0 \0 260 j d l 004 360
0006200 226 277 o \0 \0 \0 260 ^ d l 005 360 226 277 o \0
0006220 \0 \0 260 R d l 006 360 226 277 o \0 \0 \0 260 F
0006240 d l \a 360 226 277 o \0 \0 \0 260 : d l \b 360
0006260 226 277 o \0 \0 \0 260 . d l \t 360 226 277 o \0
0006300 \0 \0 260 " d l \n 360 226 277 o \0 \0 \0 260 026
0006320 d l \v 360 225 277 o \0 \0 \0 210 l \f 360 264 006
0006340 o \0 \0 \0 o \0 \0 \0 I \t \0 \0 l 017 363 234
0006360 l - I \t \0 \0 363 224 o \0 \0 \0 203 o \0 \0
0006400 \0 o \0 \0 \0 I \t \0 \0 l , 363 242 261 377 033
0006420 H \t \0 \0 o \0 \0 \0 364 242 261 377 016 H \t \0
0006440 \0 o \0 \0 \0 364 226 o \0 \0 \0 261 377 001 o \0
0006460 \0 \0 261 376 372 \0 ( 2 8 9 a m p m
0006500 2 7 6 f i n d h o u r 2 6 5
0006520 m k a t o m 2 4 6 m k a t
0006540 o m 2 3 6 m k a t o m 8 6
0006560 m k a t o m 8 3 f i n d h
0006600 o u r 7 8 m k a t o m 7 5
0006620 f i n d h o u r 6 9 m k a
0006640 t o m 6 2 s u b s t r i n g
0006660 4 8 c o n c a t 4 4 a m
0006700 p m 3 1 f i n d h o u r 1
0006720 5 s u b s t r i n g 7 s u
0006740 b s t r i n g ) \r ( 5 2 e u r
0006760 o 2 3 a b b r e v ) \r ( 3
0007000 0 6 " a . m . " 2 9 9 " p
0007020 . m . " 2 9 3 " a . m . "
0007040 2 8 0 " 1 1 " 2 6 1 " "
0007060 2 5 7 " o ' c l o c k " 2
0007100 5 2 " t h i r t y " 2 3 2
0007120 " " 2 2 8 " t w e l v e "
0007140 2 1 8 \r " e l e v e n " 2
0007160 0 6 " t e n " 1 9 4 " n i
0007200 n e " 1 8 2 " e i g h t "
0007220 1 7 0 " s e v e n " 1 5 8
0007240 " s i x " 1 4 6 " f i v e "
0007260 1 3 4 " f o u r " 1 2 2
0007300 " t h r e e " 1 1 0 \r " t w
0007320 o " 9 7 " o n e " 4 0 "
0007340 " 3 5 " : " ) \r F I N D H
0007360 O U R : D 4 \r ( i 0 h o u
0007400 r ) \0 230 \0 \0 \0 001 l \r @ \t \0 \0 363
0007420 262 026 l \n @ \t \0 \0 363 231 @ \t \0 \0 002 001
0007440 \t \0 \0 020 @ 020 @ \t \0 \0 d l \r 360 223 277
0007460 k 260 k d l 016 360 224 277 l 002 260 a d l 017
0007500 360 224 277 l 003 260 W d l 020 360 224 277 l 004 260
0007520 M d l 021 360 224 277 l 005 260 C d l 022 360 224
0007540 277 l 006 260 9 d l 023 360 224 277 l \a 260 / d
0007560 l 024 360 224 277 l \b 260 % d l 025 360 224 277 l
0007600 \t 260 033 d l 026 360 223 277 l \n 217 d l 027 360
0007620 223 277 l \v 206 l 030 360 264 004 l \f \t \0 \0 020
0007640 \0 ( 1 4 9 m k s t r i n g 3
0007660 2 m k a t o m 2 5 m k s t
0007700 r i n g 2 0 u n p a c k 1
0007720 4 m k a t o m 5 m k a t o
0007740 m ) \r n i l \r ( ) \r A M P M :
0007760 D 4 \r ( i 0 h o u r ) \0 033
0010000 \0 \0 \0 001 l \f @ \t \0 \0 363 247 @ \t \0 \0
0010020 l 030 364 224 o \0 \0 \0 020 o \0 \0 \0 020 \0 (
0010040 1 1 m k a t o m 5 m k a t
0010060 o m ) \r n i l \r ( 2 4 " p .
0010100 m . " 1 9 " a . m . " ) \r F
0010120 I N D D A Y : D 4 \r ( i 1
0010140 v e r s i o n i 0 o l d d
0010160 a t e ) \0 034 \0 \0 \0 002 @ k l 002 \v
0010200 \0 \0 \t \0 \0 224 @ k l 002 203 @ l 002 d \v
0010220 \0 \0 \t \0 \0 020 \0 ( 2 5 m k a t o
0010240 m 2 2 s u b s t r i n g 9
0010260 n u m p 6 s u b s t r i n
0010300 g ) \r n i l \r ( ) \r N U M P :
0010320 D 4 \r ( i 0 n ) \0 \f \0 \0 \0
0010340 001 @ \t \0 \0 3 020 h 360 h 360 020 \0 ( 3
0010360 m k a t o m ) \r n i l \r ( ) \r F
0010400 I N D M O N T H : D 4 \r ( p
0010420 1 o u t p u t p 0 d a t
0010440 e s i 1 v e r s i o n i
0010460 0 o l d d a t e ) \0 / 002 \0
0010500 \0 002 o \0 \0 \0 021 021 001 A g \0 \0 360 237 @
0010520 l 004 l 006 \v \0 \0 \t \0 \0 H 026 002 001 020 @
0010540 l 004 l 006 \v \0 \0 \t \0 \0 H 026 002 002 001 020
0010560 \0 ( 3 9 m k a t o m 3 6 s
0010600 u b s t r i n g 2 3 m k a t
0010620 o m 2 0 s u b s t r i n g )
0010640 \r ( 1 0 a b b r e v ) \r ( 3
0010660 ( ( | J a n | 1 | J a n u
0010700 a r y | ) ( | F e b | 2 |
0010720 F e b r u a r y | ) ( | M a r
0010740 | 3 | M a r c h | ) ( | A
0010760 p r | 4 | A p r i l | ) (
0011000 | M a y | 5 | M a y | ) (
0011020 | J u n | 6 | J u n e | )
0011040 ( | J u l | 7 | J u l y | )
0011060 ( | A u g | 8 | A u g u s
0011100 t | ) ( | S e p | 9 | S e
0011120 p t e m b e r | ) ( | O c t |
0011140 1 0 | O c t o b e r | ) (
0011160 | N o v | 1 1 | N o v e m b
0011200 e r | ) ( | D e c | 1 2 |
0011220 D e c e m b e r | ) ) ) \r F I N
0011240 D Y E A R : D 4 \r ( i 1 v
0011260 e r s i o n i 0 o l d d a
0011300 t e ) \0 & \0 \0 \0 002 A g \0 \0 360 233
0011320 @ l \b l \t \v \0 \0 \t \0 \0 020 o \0 \0 \0
0011340 @ l \b l \t \v \0 \0 \n \0 \0 \t \0 \0 020 \0
0011360 ( 3 5 m k a t o m 3 2 c o
0011400 n c a t 2 9 s u b s t r i n
0011420 g 1 6 m k a t o m 1 3 s
0011440 u b s t r i n g ) \r ( 3 a b b
0011460 r e v ) \r ( 2 1 " 1 9 " ) \r
0011500 ( R P A Q Q T M A X - D A T E
0011520 C O M S ( ( * | D e v e l o
0011540 p e d | | u n d e r | | s u
0011560 p p o r t | | f r o m | N I
0011600 H | g r a n t | R R - 0 0 7
0011620 8 5 . ) ( * | W r i t t e n
0011640 | | b y | \r | F r a n k |
0011660 | G i l m u r r a y | | a n d
0011700 | | S a m i | | S h a i o .
0011720 | ) ( * * T M A X - D A T
0011740 E N I L | I m a g e O b j e c
0011760 t | | f u n c t i o n s | )
0012000 ( F N S D A T E O B J \r D A
0012020 T E O B J P D A T E . D I S P
0012040 L A Y F N D A T E . I M A G E
0012060 B O X F N D A T E . P U T F N
0012100 D A T E . G E T F N D A T E
0012120 . C O P Y F N D A T E . B U T
0012140 T O N E V E N T I N F N ) ( *
0012160 * \r | D a t e | | s u p p
0012200 o r t | | f u n c t i o n s |
0012220 ) ( F N S C U R R E N T . D
0012240 I S P L A Y . F O N T C H A N
0012260 G E . D A T E . F O R M A T )
0012300 ( * * | F u n c t i o n s |
0012320 | t o | \r | c h a n g e |
0012340 | d a t e | | f o r m a t | )
0012360 ( F N S F I N D T I M E F
0012400 I N D H O U R A M P M F I N
0012420 D D A Y N U M P F I N D M O
0012440 N T H F I N D Y E A R ) ( V
0012460 A R S \r D A T E . F O R M A T
0012500 . I T E M S ) ( R E C O R D S
0012520 D A T E R E C O R D ) ) ) \r (
0012540 R P A Q Q D A T E . F O R M A
0012560 T . I T E M S ( ( | M o n t h
0012600 D a y , Y e a r | ( Q U O
0012620 T E ( M D Y F ) ) \r "
0012640 I n s e r t c u r r e n t d
0012660 a t e a s \ " M a r c h 8
0012700 , 1 9 5 2 \ " " ) ( | M o n
0012720 t h / D a y / Y e a r | ( Q U
0012740 O T E ( M D Y A ) ) \r
0012760 " I n s e r t c u r r e n t
0013000 d a t e a s \ " 3 / 8 / 5 2
0013020 \ " " ) ( | D a y M o n t h
0013040 , Y e a r | ( Q U O T E (
0013060 D M Y F ) ) \r " I n s e
0013100 r t c u r r e n t d a t e
0013120 a s \ " 8 M a r c h , 1 9
0013140 5 2 \ " " ) ( | D a y / M o n
0013160 t h / Y e a r | ( Q U O T E
0013200 ( D M Y A ) ) \r " I n s
0013220 e r t c u r r e n t d a t e
0013240 a s \ " 8 / 3 / 5 2 \ " " )
0013260 ( | T i m e | ( Q U O T E
0013300 ( T F ) ) \r " I n s e r t
0013320 c u r r e n t t i m e a s
0013340 \ " f o u r t h i r t y p .
0013360 m . \ " " ) ( | N u m b e r e
0013400 d T i m e | ( Q U O T E (
0013420 T A ) ) \r " I n s e r t c
0013440 u r r e n t t i m e a s \
0013460 " 4 : 3 0 p . m . \ " " ) (
0013500 | M i l i t a r y T i m e |
0013520 ( Q U O T E ( T E ) ) \r "
0013540 I n s e r t c u r r e n t t
0013560 i m e a s \ " 1 6 : 3 0 \ "
0013600 " ) ( | U p d a t e | T "
0013620 C o n v e r t t o c u r r e
0013640 n t d a t e / t i m e " ) ) )
0013660 \r ( R E C O R D D A T E R E C
0013700 O R D ( D A T E S T R I N G
0013720 D I S P L A Y . D A T E T E M
0013740 P L A T E . D A T E ) ) \r ( P U
0013760 T P R O P S T M A X - D A T E
0014000 C O P Y R I G H T ( " X e r
0014020 o x C o r p o r a t i o n "
0014040 1 9 8 7 1 9 8 8 ) ) \r N I L \r
0014060