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