$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>LISPUSERS>KEYOBJ.TEDIT!1 0000000 X E R O X \t L i s p U s e 0000020 r s P a c k a g e s \r 2 \r \r 4 0000040 \r 1 \r \r 1 \r \r K E Y O B J \r 1 \r 0000060 4 \r 4 \r \r 4 \r \r B y : G r e g 0000100 N u y e n s \r K E Y O B J p 0000120 r o v i d e s a n I n t e r 0000140 l i s p - D i m a g e o b j e 0000160 c t w h i c h m i m i c s 0000200 a k e y . T h e d e f a 0000220 u l t i m a g e l o o k s 0000240 l i k e t h i s : \r \0 001 \0 \0 \0 0000260 ` \0 : \0 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0000300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0000320 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 377 377 377 377 377 377 0000340 377 377 377 376 \0 001 377 377 377 377 377 377 377 377 377 376 0000360 \0 001 376 \0 \0 \0 \0 \0 \0 \0 001 376 \0 001 360 \0 0000400 \0 \0 \0 \0 \0 \0 \0 > \0 001 360 \0 \0 \0 \0 \0 0000420 \0 \0 \0 > \0 001 330 \0 \0 \0 \0 \0 \0 \0 \0 N 0000440 \0 001 354 177 377 377 377 377 377 377 370 216 \0 001 326 300 0000460 \0 \0 \0 \0 \0 \0 \r 016 \0 001 253 \0 \0 \0 \0 \0 0000500 \0 \0 002 006 \0 001 326 \0 \0 \0 \0 \0 \0 \0 001 006 0000520 \0 001 256 \0 \0 \0 \0 \0 \0 \0 001 206 \0 001 324 \0 0000540 \0 \0 \0 \0 \0 \0 \0 206 \0 001 254 \0 \0 \0 \0 \0 0000560 \0 \0 \0 206 \0 001 324 \0 \0 \0 \0 \0 \0 \0 \0 206 0000600 \0 001 254 \0 \0 \0 \0 \0 \0 \0 \0 206 \0 001 324 \0 0000620 \0 \0 \0 \0 \0 \0 \0 206 \0 001 254 \0 \0 \0 \0 \0 0000640 \0 \0 \0 206 \0 001 324 \0 \0 \0 \0 \0 \0 \0 \0 206 0000660 \0 001 254 \0 \0 \0 \0 \0 \0 \0 \0 206 \0 001 324 \0 0000700 \0 \0 \0 \0 \0 \0 \0 206 \0 001 254 \0 \0 \0 \0 \0 0000720 \0 \0 \0 206 \0 001 324 \0 \0 \0 \0 \0 \0 \0 \0 206 0000740 \0 001 254 \0 \0 \0 \0 \0 \0 \0 \0 206 \0 001 324 \0 0000760 361 374 202 177 177 ? \0 206 \0 001 254 001 \t \0 302 \b 0001000 @ 200 206 \0 001 324 002 001 \0 242 \b @ 200 206 0001020 \0 001 254 002 001 370 222 \b ~ 200 206 \0 001 324 002 0001040 001 \0 222 \b @ ? \0 206 \0 001 254 002 001 \0 212 \b 0001060 @ 200 206 \0 001 324 001 \t \0 206 \b @ 200 206 0001100 \0 001 254 \0 361 374 202 \b 177 200 206 \0 001 324 \0 0001120 \0 \0 \0 \0 \0 \0 \0 206 \0 001 254 \0 \0 \0 \0 \0 0001140 \0 \0 \0 206 \0 001 324 \0 \0 \0 \0 \0 \0 \0 \0 206 0001160 \0 001 254 \0 \0 \0 \0 \0 \0 \0 \0 206 \0 001 324 \0 0001200 \0 \0 \0 \0 \0 \0 \0 206 \0 001 254 \0 \0 \0 \0 \0 0001220 \0 \0 \0 206 \0 001 324 \0 \0 \0 \0 \0 \0 \0 \0 206 0001240 \0 001 254 \0 \0 \0 \0 \0 \0 \0 \0 206 \0 001 326 \0 0001260 \0 \0 \0 \0 \0 \0 001 206 \0 001 252 \0 \0 \0 \0 \0 0001300 \0 \0 001 006 \0 001 327 \0 \0 \0 \0 \0 \0 \0 002 006 0001320 \0 001 345 300 \0 \0 \0 \0 \0 \0 017 016 \0 001 311 177 0001340 377 377 377 377 377 377 375 216 \0 001 362 * 252 252 252 252 0001360 252 252 252 316 \0 001 344 U U U U U U U U ~ 0001400 \0 001 370 252 252 252 252 252 252 252 252 276 \0 001 374 U 0001420 U U U U U U U 376 \0 001 377 377 377 377 377 377 0001440 377 377 377 376 \0 001 377 377 377 377 377 377 377 377 377 376 0001460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 * 0001540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \r T h 0001560 e s e k e y s a r e p r e 0001600 s s e d b y c l i c k i n g 0001620 t h e m o u s e i n s i d 0001640 e t h e k e y ' s i m a g 0001660 e . T h e r e s u l t o 0001700 f p r e s s i n g a k e y 0001720 i s d e t e r m i n e d ( 0001740 j u s t l i k e t h e p h 0001760 y s i c a l k e y ) b y t 0002000 h e I n t e r l i s p - D s 0002020 y s t e m f u n c t i o n K 0002040 E Y A C T I O N . T o 0002060 e n t e r a K E Y O B J 0002100 i n t o T E d i t t y p e 0002120 ^ o . I n s i d e t h e 0002140 w i n d o w t h a t p o p s 0002160 u p , c a l l t h e f o 0002200 l l o w i n g f u n c t i o n 0002220 : \r ( K E Y O B J . C R E A T E 0002240 K e y N a m e K e y L a b 0002260 e l ) \t [ F u n c t i o n ] \r K 0002300 e y N a m e i s t h e k e 0002320 y t h a t y o u w a n t 0002340 t h e o b j e c t t o b e 0002360 h a v e l i k e . ( C E N 0002400 T E R i n t h e e x a m p 0002420 l e a b o v e ) . K e y L 0002440 a b e l i s a n o p t i o 0002460 n a l l a b e l o t h e r 0002500 t h a n t h e k e y w h o 0002520 s e a c t i o n i t m i m 0002540 i c s . I f K e y L a b e l 0002560 i s a l i s t o f t w 0002600 o e l e m e n t s , t h e 0002620 f i r s t i s d i s p l a y 0002640 e d a b o v e t h e s e c 0002660 o n d . \r K E Y O B J . F O N T 0002700 \t [ V a r i a b l e ] \r D e t e 0002720 r m i n e s t h e f o n t 0002740 i n w h i c h t h e l a b 0002760 e l i s c r e a t e d i n 0003000 s i d e t h e k e y o b j . 0003020 D e f a u l t i s H e l 0003040 v e t i c a 1 \r \r \0 \0 \0 \0 \0 0003060 003 ( L I S T ( ( P A G E N I 0003100 L N I L ( 0 0 6 1 2 7 0003120 9 2 ) ( ( F O L I O N I L 0003140 ( P A R A L O O K S ( Q U A D 0003160 C E N T E R E D ) C H A R L 0003200 O O K S ( S U P E R S C R I P 0003220 T 0 S I Z E 1 0 F A M I 0003240 L Y G A C H A O V E R L I N 0003260 E O F F S T R I K E O U T 0003300 O F F U N D E R L I N E O F 0003320 F S L O P E R E G U L A R 0003340 W E I G H T M E D I U M ) ) 0003360 ( 2 8 2 2 4 7 2 3 6 ) N 0003400 I L ) ( H E A D I N G N I L 0003420 ( H E A D I N G T Y P E B O 0003440 O ) ( 8 4 7 2 0 4 4 4 3 0003460 6 ) N I L ) ( T E X T N I 0003500 L N I L ( 8 4 7 8 4 5 6 0003520 6 0 0 ) N I L ) ) ) ( P A 0003540 G E N I L N I L ( 0 0 0003560 6 1 2 7 9 2 ) ( ( F O L I O 0003600 N I L ( P A R A L O O K S 0003620 ( Q U A D C E N T E R E D ) 0003640 C H A R L O O K S ( S U P E R 0003660 S C R I P T 0 S I Z E 1 0 0003700 F A M I L Y G A C H A O V 0003720 E R L I N E O F F S T R I K 0003740 E O U T O F F U N D E R L I 0003760 N E O F F S L O P E R E G 0004000 U L A R W E I G H T M E D I 0004020 U M ) ) ( 2 8 2 2 4 7 2 0004040 3 6 ) N I L ) ( H E A D I N 0004060 G N I L ( H E A D I N G T Y 0004100 P E B O O ) ( 8 4 7 2 0 0004120 4 4 4 3 6 ) N I L ) ( T E 0004140 X T N I L N I L ( 8 4 7 0004160 8 4 5 6 6 0 0 ) N I L ) ) 0004200 ) ( P A G E N I L N I L 0004220 ( 0 0 6 1 2 7 9 2 ) ( ( 0004240 F O L I O N I L ( P A R A L 0004260 O O K S ( Q U A D C E N T E 0004300 R E D ) C H A R L O O K S ( 0004320 S U P E R S C R I P T 0 S I 0004340 Z E 1 0 F A M I L Y G A C 0004360 H A O V E R L I N E O F F 0004400 S T R I K E O U T O F F U N 0004420 D E R L I N E O F F S L O P 0004440 E R E G U L A R W E I G H T 0004460 M E D I U M ) ) ( 2 8 2 2 0004500 4 7 2 3 6 ) N I L ) ( H 0004520 E A D I N G N I L ( H E A D 0004540 I N G T Y P E B O O ) ( 8 4 0004560 7 2 0 4 4 4 3 6 ) N I L 0004600 ) ( T E X T N I L N I L 0004620 ( 8 4 7 8 4 5 6 6 0 0 ) 0004640 N I L ) ) ) ) ) \0 \0 \0 \0 \0 005 \0 \b 0004660 \0 \0 \0 \0 001 310 \0 \f \0 \0 \0 005 003 004 \0 \0 0004700 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 310 \0 \f \0 \0 0004740 \0 005 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004760 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 310 \0 \f \0 \0 0005000 \0 005 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005020 \0 \0 \0 \0 \0 \0 \0 212 \0 212 001 8 \0 005 \0 \0 0005040 \0 \0 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005060 \0 \0 \0 \0 \0 \0 \0 212 \0 212 001 8 \0 \v \0 \0 0005100 \0 \0 003 003 \0 \0 001 002 4 001 \0 \0 \0 \0 \0 \0 0005120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 212 \0 212 0005140 001 8 \0 \0 \0 \0 \0 \0 002 004 \0 \0 \0 \0 \0 \0 0005160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 212 \0 212 0005200 001 8 \0 \0 \0 \0 \0 \0 003 004 \0 \0 001 001 310 001 0005220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005240 \0 \0 \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 003 004 0005260 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v P A 0005300 G E H E A D I N G \0 003 B O O \0 \0 0005320 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 \b \0 \t 0005340 H E L V E T I C A \0 \n \0 \0 \0 \0 \0 0005360 \0 \0 \0 \0 \n T I M E S R O M A N \0 0005400 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \t H E L V E 0005420 T I C A \0 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \t 0005440 H E L V E T I C A \0 \n \0 \0 \0 \0 \0 0005460 \0 \0 \0 \0 \t H E L V E T I C A \0 \f 0005500 \0 \0 \0 \0 \0 \0 002 \0 \0 004 L O G O \0 030 0005520 \0 \0 \0 \0 \0 \0 \0 \0 \0 \t H E L V E T 0005540 I C A \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \t H 0005560 E L V E T I C A \0 004 \0 \0 \0 \0 \0 \0 0005600 \0 \0 \0 \0 \0 \0 \0 002 \0 \b \0 \0 \0 001 \0 \0 0005620 \0 \0 \a \0 \0 \0 \a \0 \0 \0 \0 006 \0 \0 \0 023 0005640 \0 \0 \0 \0 \a \0 \0 \0 001 \0 \0 \0 \0 \b \0 \0 0005660 \0 \0 \0 002 \0 \b \0 \0 \0 002 \0 001 \0 \v H R 0005700 U L E . G E T F N 001 \0 \t H E L V 0005720 E T I C A \0 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005740 \0 \0 001 \0 \0 \0 \0 \b \0 \0 \0 \0 \0 002 \0 \a 0005760 \0 \0 \0 002 \0 001 \0 \v H R U L E . G E 0006000 T F N 001 \0 \t H E L V E T I C A \0 0006020 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 001 \0 0006040 \v H R U L E . G E T F N \0 \0 \0 \0 0006060 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 0006100 \0 002 \0 001 \0 \v H R U L E . G E T F 0006120 N 001 \0 \t H E L V E T I C A \0 004 \0 0006140 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 003 0006160 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \a \0 \0 \0 \0 0006200 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 0006220 \v H R U L E . G E T F N 001 \0 \t H 0006240 E L V E T I C A \0 004 \0 \0 \0 \0 \0 \0 0006260 \0 \0 \0 \0 \0 002 \0 001 \0 \v H R U L E . 0006300 G E T F N \0 \0 \0 \0 002 \0 001 \0 \v H R 0006320 U L E . G E T F N \0 \0 \0 \0 001 \0 \0 0006340 \0 \0 003 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 0006360 001 \0 \v H R U L E . G E T F N 001 \0 0006400 \t H E L V E T I C A \0 004 \0 \0 \0 \0 0006420 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 0006440 \0 \0 002 \0 002 \0 \0 \0 020 \0 \0 \0 \0 001 \0 \0 0006460 \0 \0 \0 002 \0 003 \0 \0 \0 c \0 \0 \0 \0 001 \0 0006500 \0 \0 \0 \0 002 \0 002 \0 \0 002 302 \0 001 \0 \f B 0006520 M O B J . G E T F N 2 001 \0 \n T I 0006540 M E S R O M A N \0 \n \0 \0 \0 \0 \0 \0 0006560 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 001 \0 \0 \0 \0 \0 0006600 002 \0 001 \0 \0 001 $ \0 \0 \0 \0 001 \0 \0 \0 \0 0006620 \0 002 \0 001 \0 \0 \0 - \0 \0 \0 \0 001 \0 \0 \0 0006640 \0 \0 002 \0 001 \0 \0 \0 366 \0 \0 \0 \0 001 \0 \0 0006660 \0 \0 \0 002 \0 001 \0 \0 \0 027 \0 \0 \0 \0 001 \0 0006700 \0 \0 \0 \0 002 \0 001 \0 \0 \0 ] \0 \0 \0 \0 001 0006720 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 001 \0 \0 \0 \0 0006740 004 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 001 \0 \0 \0 0006760 \0 004 \0 \0 006 + \0 / z 271 0006772