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