$ od -c -N 50000 [qv]<notecards>1.3lnext>RGPATCH071.LCOM!2 0000000 ( D E F I N E - F I L E - I N F 0000020 O 036 P A C K A G E " I L " 0000040 036 R E A D T A B L E " I N T E 0000060 R L I S P " 036 B A S E 1 0 ) 0000100 \r ( F I L E C R E A T E D " 1 0000120 3 - J a n - 8 8 1 4 : 4 4 : 2 0000140 1 " ( " c o m p i l e d o n 0000160 " { Q V } < N O T E C A R D 0000200 S > 1 . 3 L N E X T > R G P A T 0000220 C H 0 7 1 . ; 2 ) \r " 2 7 - A 0000240 p r - 8 7 1 6 : 4 8 : 4 9 " 0000260 t c o m p l ' d i n " X e r 0000300 o x L i s p 3 - N o v - 8 0000320 7 . . . " d a t e d " 3 0000340 - N o v - 8 7 1 6 : 5 6 : 4 1 0000360 " ) \r ( F I L E C R E A T E D 0000400 " 1 3 - J a n - 8 8 1 4 : 4 2 0000420 : 2 8 " { Q V } < N O T E C A 0000440 R D S > 1 . 3 L N E X T > R G P 0000460 A T C H 0 7 1 . ; 2 2 6 0 3 4 0000500 c h a n g e s t o % : ( V 0000520 A R S \r R G P A T C H 0 7 1 C 0000540 O M S ) ( F N S \ T E D I T 0000560 . C O M M A N D . L O O P ) p 0000600 r e v i o u s d a t e % : " 0000620 1 3 - J a n - 8 8 1 2 : 4 2 : 0000640 4 6 " \r { Q V } < N O T E C A 0000660 R D S > 1 . 3 L N E X T > R G P 0000700 A T C H 0 7 1 . ; 1 ) \r \ T E D 0000720 I T . C O M M A N D . L O O P A 0000740 0 0 0 1 A 0 0 0 2 A 0 0 0 3 : 0000760 D 4 \r ( P 1 S I : : * C A T 0001000 C H - R E T U R N - F R O M * 0001020 P 0 S I : : * D U M M Y - F 0001040 O R - C A T C H * F 2 S T 0001060 R E A M F 3 L O O P F N 0001100 F 4 S I : : N L S E T Q - V 0001120 A L U E ) \0 023 002 003 002 \0 i @ 021 002 0001140 001 R k S 017 016 h 032 c \b g \0 \0 020 \0 N 0001160 I L \r ( 1 6 : N O R M A L ) \r 0001200 ( ) \r \ T E D I T . C O M M A N 0001220 D . L O O P A 0 0 0 1 A 0 0 0 2 0001240 A 0 0 0 4 : D 4 \r ( P 1 S 0001260 I : : * C A T C H - R E T U R N 0001300 - F R O M * P 0 S I : : * 0001320 D U M M Y - F O R - C A T C H * 0001340 F 2 T E X T O B J F 3 0001360 S I : : N L S E T Q - V A L U 0001400 E ) \0 035 002 002 002 \0 i @ 021 002 001 R 006 0001420 \0 \0 311 R 006 \0 \0 311 032 \n \0 \0 h 032 c 0001440 006 g \0 \0 020 \0 ( 1 9 T E D I T . 0001460 C O P Y ) \r ( 2 6 : N O R M A 0001500 L 1 4 T E X T O B J 8 T 0001520 E X T O B J ) \r ( ) \r \ T E D I 0001540 T . C O M M A N D . L O O P A 0 0001560 0 0 1 A 0 0 0 2 A 0 0 0 7 : D 0001600 4 \r ( P 1 S I : : * C A T C 0001620 H - R E T U R N - F R O M * P 0001640 0 S I : : * D U M M Y - F O 0001660 R - C A T C H * F 2 T E X 0001700 T O B J F 3 S I : : N L S 0001720 E T Q - V A L U E ) \0 @ 002 002 002 0001740 \0 i @ 021 002 001 R 006 \0 \0 311 006 \0 \0 311 0001760 030 g \0 \0 360 262 023 R d 006 \0 \0 311 R 006 0002000 \0 \0 311 032 \v \0 \0 217 R d 006 \0 \0 311 R 0002020 006 \0 \0 311 032 \v \0 \0 h 032 c 006 g \0 \0 020 0002040 \0 ( 5 4 T E D I T . C O P Y . 0002060 L O O K S 3 7 T E D I T . C 0002100 O P Y . P A R A L O O K S ) \r ( 0002120 6 1 : N O R M A L 4 9 T E 0002140 X T O B J 4 3 T E X T O B J 0002160 3 2 T E X T O B J 2 6 T 0002200 E X T O B J 1 8 P A R A 1 0002220 3 S E L E C T I O N 8 T E 0002240 X T O B J ) \r ( ) \r \ T E D I T 0002260 . C O M M A N D . L O O P A 0 0 0002300 0 1 A 0 0 0 2 A 0 0 1 0 : D 4 0002320 \r ( P 1 S I : : * C A T C H 0002340 - R E T U R N - F R O M * P 0002360 0 S I : : * D U M M Y - F O R 0002400 - C A T C H * F 2 T E X T 0002420 O B J F 3 S I : : N L S E 0002440 T Q - V A L U E ) \0 035 002 002 002 \0 0002460 i @ 021 002 001 R 006 \0 \0 311 036 R 006 \0 \0 311 0002500 032 \n \0 \0 h 032 c 006 g \0 \0 020 \0 ( 1 9 0002520 T E D I T . M O V E ) \r ( 2 6 0002540 : N O R M A L 1 4 T E X T 0002560 O B J 8 T E X T O B J ) \r ( 0002600 ) \r \ T E D I T . C O M M A N D 0002620 . L O O P A 0 0 0 1 A 0 0 0 2 A 0002640 0 0 1 3 : D 4 \r ( P 1 S I 0002660 : : * C A T C H - R E T U R N - 0002700 F R O M * P 0 S I : : * D 0002720 U M M Y - F O R - C A T C H * 0002740 F 2 T E X T O B J F 3 0002760 T E D I T . D E L E T E S E L E 0003000 C T I O N F 4 S I : : N L 0003020 S E T Q - V A L U E ) \0 ~ 002 003 0003040 002 \0 i @ 021 002 001 S 006 \0 \0 312 024 \0 j 360 0003060 263 f R 006 \0 \0 311 " h d \v \0 \0 277 R 006 0003100 \0 \0 311 032 h d \v \0 \0 277 R 006 \0 \0 311 " 0003120 006 \0 \0 j 317 024 \0 277 S R 006 \0 \0 311 032 \n 0003140 \0 \0 277 R 006 \0 \0 311 032 g \0 \0 \n \0 \0 277 0003160 R 006 \0 \0 311 032 R 006 \0 \0 311 032 006 \0 \0 311 0003200 026 h \v \0 \0 277 S 006 \0 \0 h 024 016 277 S 006 0003220 \0 \0 h 024 020 277 h d 032 c \b g \0 \0 020 \0 0003240 ( 9 8 \ T E D I T . D E L E T 0003260 E 7 6 \ T E D I T . S E T . 0003300 S E L . L O O K S 6 3 \ C O 0003320 P Y S E L 3 8 \ S H O W S E 0003340 L 2 6 \ S H O W S E L ) \r ( 0003360 1 2 3 : N O R M A L 1 1 1 0003400 S E L E C T I O N 1 0 3 S E 0003420 L E C T I O N 9 2 S E L E C 0003440 T I O N 8 7 T E X T O B J 0003460 8 1 T E X T O B J 7 3 N O 0003500 R M A L 6 8 T E X T O B J 0003520 5 8 T E X T O B J 4 8 S E 0003540 L E C T I O N 4 3 T E X T O 0003560 B J 3 1 T E X T O B J 1 9 0003600 T E X T O B J 8 S E L E C 0003620 T I O N ) \r ( ) \r \ T E D I T . 0003640 C O M M A N D . L O O P A 0 0 0 0003660 1 A 0 0 0 2 : D 4 \r ( P 5 0003700 \ I N T E R R U P T A B L E P 0003720 4 S I : : * N L S E T Q F L 0003740 A G * P 3 * P R O C E E D 0003760 - C A S E S * P 2 S I : : 0004000 N L S E T Q - V A L U E P 1 0004020 S I : : * C A T C H - R E T U 0004040 R N - F R O M * P 0 S I : 0004060 : * D U M M Y - F O R - C A T C 0004100 H * F 6 T E X T O B J F 0004120 7 S E L F 8 C H F 0004140 9 I S C R S T R I N G F 1 0004160 0 * P R O C E E D - C A S E S 0004200 * F 1 1 T E D I T . S H I 0004220 F T E D S E L E C T I O N F 0004240 1 2 T E D I T . C O P Y L O O 0004260 K S S E L E C T I O N F 1 3 0004300 T E D I T . M O V E S E L E C 0004320 T I O N F 1 4 T E R M S A 0004340 F 1 5 T E D I T S A F 0004360 1 6 T E D I T . S E L P E N D 0004400 I N G F 1 7 C H A R F N 0004420 F 1 8 T C H F 1 9 F N 0004440 F 2 0 L O O P F N F 2 0004460 1 B L A N K S E E N F 2 2 0004500 S T R E A M F 2 3 C R S 0004520 E E N F 2 4 T E D I T F N 0004540 H A S H F 2 5 S I : : N L 0004560 S E T Q - V A L U E ) 003 264 006 024 0004600 002 \0 i @ 021 002 001 l 031 V \n \0 \0 277 V 006 0004620 \0 \0 311 0 222 261 003 217 W 265 003 202 261 \0 277 0004640 V 006 \0 \0 311 > 222 261 \0 263 V 006 \0 \0 312 T 0004660 \0 j 360 263 W 016 h d \v \0 \0 277 V h i 0004700 \v \0 \0 277 W 016 V \n \0 \0 277 W 016 h i \v 0004720 \0 \0 277 ` \0 \0 227 ` \0 \0 ` \0 \0 360 231 V 0004740 006 \0 \0 311 2 \t \0 \0 277 V 006 \0 \0 i 024 > 0004760 277 W ( 262 024 021 020 002 ` \0 \0 W 024 032 021 021 0005000 004 K \t \0 \0 022 023 ` \0 \0 262 s h 027 \0 \0 0005020 277 W 026 V 006 \0 \0 311 \n \0 \0 277 021 020 002 0005040 ` \0 \0 W 024 032 021 021 004 K \t \0 \0 022 023 W 0005060 026 006 \0 \0 j 317 024 \0 277 W 026 006 \0 \0 h 024 0005100 016 277 W 026 006 \0 \0 h 024 020 277 W 026 V 006 \0 0005120 \0 311 \n \0 \0 277 261 \0 371 W V 360 262 030 0005140 ` \0 \0 227 ` \0 \0 ` \0 \0 360 231 V 006 \0 \0 0005160 311 2 \t \0 \0 277 \b \0 \0 277 261 377 036 ` \0 \0 0005200 262 [ h 027 \0 \0 277 W 030 V 006 \0 \0 311 \n 0005220 \0 \0 277 021 020 002 ` \0 \0 W 024 032 021 021 004 K 0005240 \t \0 \0 022 023 V 006 \0 \0 311 h d \v \0 \0 0005260 277 W 030 006 \0 \0 j 317 024 \0 277 W 030 006 \0 \0 0005300 h 024 016 277 W 030 006 \0 \0 h 024 020 277 W 030 V 0005320 006 \0 \0 311 \n \0 \0 277 260 w ` \0 \0 262 V 0005340 h 027 \0 \0 277 W 032 V 006 \0 \0 311 036 \n \0 \0 0005360 277 W 016 V \n \0 \0 277 021 020 002 ` \0 \0 W 024 0005400 032 021 021 004 K \t \0 \0 022 023 W 032 006 \0 \0 j 0005420 317 024 \0 277 W 032 006 \0 \0 h 024 016 277 W 032 006 0005440 \0 \0 h 024 020 277 W 032 V 006 \0 \0 311 036 \n \0 0005460 \0 277 260 036 ` \0 \0 262 031 h 027 \0 \0 277 021 020 0005500 002 ` \0 \0 W 024 032 021 021 004 K \t \0 \0 022 023 0005520 021 020 005 W 022 312 002 020 j 360 246 W 022 j \n \0 0005540 \0 204 W 022 j 315 003 277 W 022 l @ 315 004 277 W 0005560 022 l @ 315 005 277 W 022 005 020 230 W 022 l @ h 0005600 032 024 006 277 023 \b \0 \0 242 261 001 233 \b \0 \0 c 0005620 020 277 W " 262 026 W , W 020 l 002 W " 017 016 0005640 c $ i 360 244 W $ c 020 201 W 020 264 & W 020 0005660 l 377 361 262 032 W 036 006 \0 \0 311 200 235 W 020 W 0005700 036 006 \0 \0 311 200 \n \0 \0 265 \t j 204 W 036 W 0005720 020 302 d k 360 262 024 277 V W 022 W 016 \v \0 \0 0005740 277 W 016 \t \0 \0 277 260 236 d l 002 360 235 277 V 0005760 \t \0 \0 277 W 016 \t \0 \0 277 260 213 d l 003 360 0006000 262 023 277 W 016 V \n \0 \0 277 W 016 \t \0 \0 277 0006020 261 377 u d l 006 360 236 277 V \t \0 \0 277 W 016 0006040 \t \0 \0 277 261 377 a d l 005 360 236 277 V \t \0 0006060 \0 277 W 016 \t \0 \0 277 261 377 M d l 004 360 262 0006100 9 277 W 020 W 0 \n \0 \0 c & 242 261 377 9 V 0006120 006 \0 \0 311 . V W 016 l 003 W & 017 016 277 W 0006140 016 h d \v \0 \0 277 W 016 \t \0 \0 277 W 016 h 0006160 i \v \0 \0 277 261 377 020 d l \b 360 230 277 V \t 0006200 \0 \0 277 261 377 002 l \t 360 234 V 006 \0 \0 311 . 0006220 \t \0 \0 277 261 376 361 W 034 264 , W 020 d 262 ' 0006240 l 377 361 262 032 W 034 006 \0 \0 311 200 235 W 020 W 0006260 034 006 \0 \0 311 200 \n \0 \0 265 \t j 204 W 034 W 0006300 020 302 l \a 345 d l 002 360 262 025 277 V W 022 W 0006320 016 \v \0 \0 277 W 016 \t \0 \0 277 261 376 252 d l 0006340 006 360 236 277 V \t \0 \0 277 W 016 \t \0 \0 277 261 0006360 376 226 l 003 360 237 W 016 V \n \0 \0 277 W 016 \t 0006400 \0 \0 277 261 376 202 W 020 242 261 376 | W 016 V \n 0006420 \0 \0 277 W 020 W 016 V W * W . \r 005 \0 \0 0006440 277 261 376 d V 006 \0 \0 h 024 > 277 h d 032 c 0006460 2 g \0 \0 020 \0 ( 9 2 5 T E D I T 0006500 . \ I N S E R T 9 1 1 T E D 0006520 I T . D O . B L U E P E N D I N 0006540 G D E L E T E 8 9 5 T E D I 0006560 T . R E S E T . E X T E N D . P 0006600 E N D I N G . D E L E T E 8 8 0006620 9 \ T E D I T . D E L E T E 0006640 8 7 5 T E D I T . R E S E T . 0006660 E X T E N D . P E N D I N G . D 0006700 E L E T E 8 6 9 \ T E D I T 0006720 . W O R D D E L E T E 8 5 5 0006740 T E D I T . R E S E T . E X T E 0006760 N D . P E N D I N G . D E L E T 0007000 E 8 4 9 \ T E D I T . C H A 0007020 R D E L E T E 8 2 2 G E T H 0007040 A S H 7 8 4 \ T E D I T . A 0007060 B B R E V . E X P A N D 7 6 7 0007100 T E D I T . N E X T 7 5 3 0007120 \ S H O W S E L 7 4 5 T E D 0007140 I T . R E S E T . E X T E N D . 0007160 P E N D I N G . D E L E T E 7 0007200 3 9 \ S H O W S E L 7 1 0 0007220 G E T H A S H 6 9 2 T E D I 0007240 T . R E S E T . E X T E N D . P 0007260 E N D I N G . D E L E T E 6 8 0007300 6 T E D I T . R E D O 6 7 2 0007320 T E D I T . R E S E T . E X T 0007340 E N D . P E N D I N G . D E L E 0007360 T E 6 6 6 T E D I T . U N D 0007400 O 6 5 2 T E D I T . R E S E 0007420 T . E X T E N D . P E N D I N G 0007440 . D E L E T E 6 4 6 \ T E D 0007460 I T . D E L E T E 6 3 0 T E 0007500 D I T . R E S E T . E X T E N D 0007520 . P E N D I N G . D E L E T E 0007540 6 2 4 \ T E D I T . W O R D D 0007560 E L E T E 6 1 1 T E D I T . 0007600 R E S E T . E X T E N D . P E N 0007620 D I N G . D E L E T E 6 0 5 0007640 \ T E D I T . C H A R D E L E T 0007660 E 5 8 2 G E T H A S H 5 2 0007700 4 \ G E T K E Y 5 1 7 \ S 0007720 Y S B U F P 4 7 8 % % S E T 0007740 - A R R A Y - O F F S E T 4 5 0007760 9 \ T E D I T . C O M M A N D 0010000 . L O O P A 0 0 0 1 A 0 0 0 2 A 0010020 0 0 1 3 4 3 0 \ C O P Y S E 0010040 L 3 8 9 \ T E D I T . C O M 0010060 M A N D . L O O P A 0 0 0 1 A 0 0010100 0 0 2 A 0 0 1 0 3 7 2 T E D 0010120 I T . D O . B L U E P E N D I N 0010140 G D E L E T E 3 6 5 \ C O P 0010160 Y S E L 3 4 1 \ C O P Y S E 0010200 L 3 0 1 \ S H O W S E L 2 0010220 8 8 \ T E D I T . C O M M A N 0010240 D . L O O P A 0 0 0 1 A 0 0 0 2 0010260 A 0 0 0 7 2 7 1 \ C O P Y S 0010300 E L 2 4 6 B L O C K 2 4 2 0010320 T E D I T . F L A S H C A R E 0010340 T 2 1 1 \ C O P Y S E L 1 0010360 7 0 \ T E D I T . C O M M A N 0010400 D . L O O P A 0 0 0 1 A 0 0 0 2 0010420 A 0 0 0 4 1 5 3 \ C O P Y S 0010440 E L 1 3 0 \ T E D I T . C O 0010460 M M A N D . L O O P A 0 0 0 1 A 0010500 0 0 0 2 A 0 0 0 3 1 0 1 T E 0010520 D I T . F L A S H C A R E T 7 0010540 9 \ S H O W S E L 7 1 \ F 0010560 I X S E L 6 4 T E D I T . U 0010600 P D A T E . S C R E E N 5 7 0010620 \ S H O W S E L 1 0 \ T E D 0010640 I T . W A I T F O R S Y S B U F 0010660 P ) \r ( 9 4 5 : N O R M A L 0010700 9 3 3 T E X T O B J 8 1 7 0010720 C H A R T A B L E 8 0 7 C H 0010740 A R T A B L E 7 7 9 T E X T 0010760 O B J 7 2 0 T E X T O B J 0011000 5 7 7 C H A R T A B L E 5 6 0011020 7 C H A R T A B L E 4 4 9 0011040 S I : : N L S E T Q - P R O C E 0011060 E D - C A S E 4 4 2 T E D I 0011100 T . D E L . P E N D I N G 4 3 0011120 6 T E D I T . D E L . P E N D 0011140 I N G 4 2 5 T E X T O B J 0011160 4 1 5 S E L E C T I O N 4 0 0011200 6 S E L E C T I O N 3 9 6 0011220 S E L E C T I O N 3 7 9 S I 0011240 : : N L S E T Q - P R O C E E D 0011260 - C A S E 3 6 0 T E X T O B 0011300 J 3 5 3 T E D I T . M O V E 0011320 . P E N D I N G 3 4 7 T E D 0011340 I T . M O V E . P E N D I N G 0011360 3 3 6 T E X T O B J 3 2 6 0011400 S E L E C T I O N 3 1 7 S E 0011420 L E C T I O N 3 0 7 S E L E 0011440 C T I O N 2 9 4 T E X T O B 0011460 J 2 7 8 S I : : N L S E T Q 0011500 - P R O C E E D - C A S E 2 6 0011520 6 T E X T O B J 2 5 9 T E 0011540 D I T . C O P Y L O O K S . P E 0011560 N D I N G 2 5 3 T E D I T . 0011600 C O P Y L O O K S . P E N D I N 0011620 G 2 3 7 T E X T O B J 2 3 0011640 1 \ T T Y . P R O C E S S 2 0011660 2 8 \ R U N N I N G . P R O C 0011700 E S S 2 2 4 \ R U N N I N G 0011720 . P R O C E S S 2 0 6 T E X 0011740 T O B J 1 9 6 S E L E C T I 0011760 O N 1 8 7 S E L E C T I O N 0012000 1 7 7 S E L E C T I O N 1 0012020 6 0 S I : : N L S E T Q - P R 0012040 O C E E D - C A S E 1 4 8 T 0012060 E X T O B J 1 4 1 T E D I T 0012100 . C O P Y . P E N D I N G 1 3 0012120 5 T E D I T . C O P Y . P E N 0012140 D I N G 1 2 0 S I : : N L S 0012160 E T Q - P R O C E E D - C A S E 0012200 1 0 6 T E X T O B J 9 6 0012220 T E X T O B J 9 0 \ T T Y . 0012240 P R O C E S S 8 7 \ R U N N 0012260 I N G . P R O C E S S 8 3 \ 0012300 R U N N I N G . P R O C E S S 0012320 4 3 T E X T O B J 3 3 T E 0012340 X T O B J 1 5 T E X T O B J 0012360 ) \r ( ) \r \ T E D I T . C O M M 0012400 A N D . L O O P A 0 0 0 1 : D 0012420 4 \r ( N A M E S I : : * U N W 0012440 I N D - P R O T E C T * P 1 0012460 8 S I : : * N L S E T Q F L A 0012500 G * P 1 7 * P R O C E E D 0012520 - C A S E S * P 1 6 S I : 0012540 : N L S E T Q - V A L U E P 0012560 1 5 C O M M A N D F N P 1 0012600 4 C H N O P 1 3 T L E N 0012620 P 1 2 C R S E E N P 1 0012640 1 I N S C H # P 1 0 B L 0012660 A N K S E E N P 9 D I R T 0012700 Y P 8 T C H P 7 F N 0012720 P 6 C H P 5 C H A R 0012740 F N P 4 L O O P F N P 0012760 3 T E D I T F N H A S H P 0013000 2 T E D I T S A P 1 T E 0013020 R M S A P 0 R E A D S A 0013040 I 0 S I : : * C L E A N U P 0013060 - F O R M S * F 1 9 T E X 0013100 T O B J F 2 0 S I : : * R 0013120 E S E T F O R M S * F 2 1 0013140 R T B L F 2 2 W I N D O W 0013160 F 2 3 % # C U R R E N T R 0013200 D T B L # F 2 4 \ P R I M 0013220 T E R M S A F 2 5 * P R O 0013240 C E E D - C A S E S * ) \0 201 023 0013260 \a \0 001 g \0 \0 W & W , h 032 032 i \n \0 0013300 \0 h 032 032 h 032 W ( 032 c ( W . 006 \0 \0 0013320 311 \0 W & 006 \0 \0 311 < 265 004 W 0 W * 006 0013340 \0 \0 311 \0 W * 006 \0 \0 311 002 W & \t \0 \0 0013360 006 \0 \0 311 F g \0 \0 ' W & \t \0 \0 006 \0 0013400 \0 311 F g \0 \0 ' 021 246 017 W & 006 \0 \0 311 0013420 0 263 021 020 020 ` \0 \0 W 2 032 021 021 022 O 0013440 " \t \0 \0 022 023 W & 006 \0 \0 h 024 > 277 260 0013460 333 h 020 \0 ( 1 1 2 \ T E D I T . 0013500 C O M M A N D . L O O P A 0 0 0 0013520 1 A 0 0 0 2 7 4 T E X T O B 0013540 J 6 0 T E X T O B J 1 3 0013560 \ T E D I T . C O M M A N D . R 0013600 E S E T . S E T U P ) \r ( 1 1 9 0013620 T E X T O B J 1 0 1 S I : 0013640 : N L S E T Q - P R O C E E D - 0013660 C A S E 9 1 T E X T O B J 0013700 8 2 C H A R F N 7 7 T E X 0013720 T O B J 6 8 L O O P F N 6 0013740 3 T E X T O B J 5 3 R E A 0013760 D T A B L E P 4 6 R E A D T 0014000 A B L E P 3 5 T E X T O B J 0014020 2 8 R E A D T A B L E P 2 0014040 \ T E D I T . C O M M A N D . 0014060 R E S E T . S E T U P ) \r ( ) \r 0014100 \ T E D I T . C O M M A N D . L 0014120 O O P : D 4 \r ( P 1 0 S I 0014140 : : * R E S E T F O R M S * P 0014160 9 L I S P X H I S T P 8 0014200 W W P 6 T T Y W I N D O 0014220 W P 5 I P A S S S T R I N 0014240 G P 4 L I N E S P 3 0014260 W I N D O W P 2 S E L P 0014300 1 I S C R S T R I N G P 0014320 0 T E X T O B J I 1 R T 0014340 B L I 0 S T R E A M F 0014360 1 1 L I S P X H I S T ) \0 235 0014400 \v 001 \0 002 @ 303 \0 \0 226 @ 006 \0 \0 311 030 200 0014420 @ l @ o \0 \0 \0 \n \0 \0 021 R 006 H 006 \0 0014440 \0 311 032 Z H 006 \0 \0 311 022 [ H 006 \0 \0 311 0014460 026 \ I k \n \0 \0 ] A 265 \r H 006 \0 \0 311 0014500 B 265 005 ` \0 \0 b 002 K 021 021 \b O 016 265 ' 0014520 023 ` \0 \0 230 ` \0 \0 ` \0 \0 360 262 < W 026 0014540 021 021 \n g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 0014560 \t \0 \0 h 020 003 246 O 016 _ 020 277 h 210 O 016 0014600 001 _ 020 277 O 016 002 _ 016 277 O 020 g \0 \0 ` 0014620 \0 \0 \v \0 \0 277 260 266 l 372 \t \0 \0 277 260 263 0014640 \0 ( 1 5 2 D I S M I S S 1 4 0014660 4 P U T W I N D O W P R O P 0014700 1 1 0 C L : V A L U E S - L I 0014720 S T 1 0 6 S I : : R E S E T 0014740 U N W I N D 1 0 3 \ M V L I 0014760 S T 1 0 0 \ T E D I T . C O 0015000 M M A N D . L O O P A 0 0 0 1 0015020 5 0 S U B S T R I N G 2 1 0015040 A L L O C S T R I N G ) \r ( 1 4 0015060 1 \ R U N N I N G . P R O C E 0015100 S S 1 3 8 P R O C E S S 9 0015120 7 S I : : R E S E T U N W I N 0015140 D 8 6 \ T T Y . P R O C E S 0015160 S 8 3 \ R U N N I N G . P R 0015200 O C E S S 7 9 \ R U N N I N 0015220 G . P R O C E S S 6 5 T E D 0015240 I T . R E A D T A B L E 5 8 0015260 T E X T O B J 4 2 T E X T O 0015300 B J 3 5 T E X T O B J 2 8 0015320 T E X T O B J 8 S T R E A 0015340 M 3 S T R E A M ) \r ( 1 8 0015360 " " ) \r \ T E D I T . W A I 0015400 T F O R S Y S B U F P : D 4 \r 0015420 ( P 1 N O W P 0 \ D I 0015440 S M I S S T I M E R I 1 T 0015460 E X T O B J I 0 N ) \0 l 0015500 002 \0 \0 002 @ 3 262 a ` \0 \0 265 033 l 002 0015520 037 \t \0 \0 j 366 021 001 \0 H \t \0 \0 021 001 001 0015540 \b \0 \0 231 i 260 026 h 027 \0 \0 277 260 352 ` \0 0015560 \0 265 021 I @ \n \0 \0 262 037 h 022 H 027 \0 \0 0015600 277 020 ` \0 \0 360 263 355 @ \t \0 \0 277 A 006 \0 0015620 \0 311 0 262 315 260 345 \b \0 \0 277 260 305 \b \0 \0 0015640 277 ` \0 \0 \t \0 \0 277 \b \0 \0 262 362 h 020 \0 0015660 ( 1 0 2 \ S Y S B U F P 9 8 0015700 A W A I T . E V E N T 9 1 0015720 B L O C K 8 5 B L O C K 7 0015740 1 \ W A I T . F O R . T T Y 0015760 5 1 \ C L O C K G R E A T E R 0016000 P 3 0 \ S Y S B U F P 2 4 0016020 \ C L O C K 0 1 5 \ C L O 0016040 C K 0 ) \r ( 9 5 \ T T Y . P R 0016060 O C E S S . E V E N T 7 6 T 0016100 E X T O B J 6 4 \ T T Y . P 0016120 R O C E S S 5 9 \ \ D I S M 0016140 I S S T I M E R . G L O B A L R 0016160 E S O U R C E 4 4 \ R U N N 0016200 I N G . P R O C E S S 3 8 \ 0016220 \ D I S M I S S T I M E R . G L 0016240 O B A L R E S O U R C E 7 \ 0016260 \ D I S M I S S T I M E R . G L 0016300 O B A L R E S O U R C E ) \r ( ) 0016320 \r ( P R E T T Y C O M P R I N T 0016340 R G P A T C H 0 7 1 C O M S ) 0016360 \r ( R P A Q Q R G P A T C H 0 0016400 7 1 C O M S ( ( * ; ; ; " 0016420 r g 1 / 1 3 / 8 8 : f i x e 0016440 s t w o b u g s : " ) ( 0016460 * ; ; \r " 1 ) \ T E D I T 0016500 . C O M M A N D . L O O P n o 0016520 w c h e c k s E D I T F I N 0016540 I S H E D F L G w h i l e w 0016560 a i t i n g f o r T T Y , 0016600 s o c a n ' t g e t h u n 0016620 g f o r e v e r . " ) \r ( * 0016640 ; ; \r " 2 ) N o w c h e 0016660 c k s T T Y . P R O C E S S P 0016700 b e f o r e c a l l i n g 0016720 F L A S H C A R E T , t o e 0016740 l i m i n a t e s p u r i o u 0016760 s c a r e t i m a g e s h 0017000 a n g i n g a r o u n d . " \r 0017020 ) ( * ; ; \r " ( D E C L A 0017040 R E % % : D O N T C O P Y D 0017060 O N T E V A L @ L O A D E V A 0017100 L @ C O M P I L E ( F I L E S 0017120 ( F R O M { E R I S } < T E 0017140 D I T > ) T E D I T D E C L S 0017160 ( F R O M L I S P U S E R S 0017200 ) E X P O R T S . A L L ) ) " 0017220 \r ) ( F N S \ T E D I T . C 0017240 O M M A N D . L O O P \ T E D 0017260 I T . W A I T F O R S Y S B U F 0017300 P ) ( P R O P ( F I L E T Y 0017320 P E M A K E F I L E - E N V I 0017340 R O N M E N T ) R G P A T C H 0017360 0 7 1 ) ) ) \r ( P U T P R O P S 0017400 R G P A T C H 0 7 1 F I L E 0017420 T Y P E : T C O M P L ) \r ( P 0017440 U T P R O P S R G P A T C H 0 0017460 7 1 M A K E F I L E - E N V I 0017500 R O N M E N T ( : P A C K A G 0017520 E " I L " : R E A D T A B L 0017540 E " I N T E R L I S P " : B 0017560 A S E 1 0 ) ) \r ( P U T P R O 0017600 P S R G P A T C H 0 7 1 C O 0017620 P Y R I G H T ( " X e r o x 0017640 C o r p o r a t i o n " 1 9 8 0017660 8 ) ) \r N I L \r 0017670