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