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