$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>TRANSOR.LCOM!1 0000000 ( D E F I N E - F I L E - I N F 0000020 O 247 R E A D T A B L E " I N 0000040 T E R L I S P " 247 P A C K A G 0000060 E " I N T E R L I S P " ) \r ( 0000100 F I L E C R E A T E D " 1 7 - 0000120 M a r - 8 7 1 7 : 0 4 : 3 8 " 0000140 ( " c o m p i l e d o n " 0000160 { D S K } < X A V I E R > T R 0000200 A N S O R . ; 1 6 { D S K } < 0000220 X A V I E R > T S E T . ; 1 ) 0000240 \r " 2 1 - J a n - 8 7 2 1 : 1 0000260 3 : 0 9 " b r e c o m p i l e 0000300 d e x p r s % : T R A N S O 0000320 U T P R E C H 1 i n " X e 0000340 r o x L i s p 4 - M a r - 0000360 8 7 . . . " d a t e d \r " 0000400 4 - M a r - 8 7 1 1 : 3 7 : 0000420 0 5 " ) \r ( F I L E C R E A T E 0000440 D " 1 7 - M a r - 8 7 1 7 : 0000460 0 3 : 5 4 " { D S K } < X A V 0000500 I E R > T R A N S O R . ; 1 6 0000520 4 4 7 7 8 c h a n g e s t o 0000540 % : ( V A R S T R A N S O R 0000560 C O M S ) ( F N S \r P R E C 0000600 H 1 T R A N S O U T ) p r e 0000620 v i o u s d a t e % : " 1 7 0000640 - M a r - 8 7 1 7 : 0 0 : 0 4 0000660 " { D S K } < X A V I E R > T 0000700 R A N S O R . ; 1 5 ) \r ( F I L 0000720 E C R E A T E D " 3 - J U N 0000740 - 7 9 0 9 : 4 9 : 5 7 " < N 0000760 E W L I S P > T S E T . ; 2 1 0001000 8 6 9 3 c h a n g e s t o % 0001020 : T R A N S O R S E T L I S 0001040 P X U S E R F N T S E T C O M 0001060 S \r T S E T F N S T R A N S 0001100 O R S E T U S E R F N p r e v 0001120 i o u s d a t e % : " 8 - 0001140 J u l - 7 6 2 3 : 2 2 : 2 1 " 0001160 < L I S P > T S E T . ; 6 ) \r 0001200 P R E C H : D 4 \r ( L ( 3 0001220 P R T Y F L G 2 F I L E 1 0001240 O L D E C H 0 E C H ) ) 0001260 \0 - 002 \0 \0 004 B \t \0 \0 021 021 001 A 225 @ 0001300 A \n \0 \0 200 @ \t \0 \0 \t \0 \0 Y C 224 d 0001320 \t \0 \0 203 I \t \0 \0 277 \b \0 \0 H \t \0 \0 0001340 h 020 \0 ( 4 1 O U T P U T 3 7 0001360 T E R P R I 3 3 P R I N T 0001400 2 8 P R I N T D E F 2 1 0001420 \ P R E C H B L O C K / P R E C 0001440 H 1 1 8 \ P R E C H B L O C 0001460 K / R E T A I L 1 3 \ P R E 0001500 C H B L O C K / L N C 3 O U 0001520 T P U T ) \r N I L \r ( ) \r \ P R 0001540 E C H B L O C K / P R E C H 1 0001560 : D 4 \r ( L ( 0 R E C H ) ) 0001600 \0 275 004 \0 \0 001 m 376 021 1 003 @ d 002 251 0001620 001 l 004 \n \0 \0 \t \0 \0 020 001 215 d 001 273 H 0001640 k 330 270 K @ 002 001 360 244 002 003 265 361 h 271 j 0001660 H 363 263 { @ d 001 001 003 242 001 001 206 001 001 l 0001700 003 \n \0 \0 J 032 272 H d j 360 263 a k 360 262 0001720 023 @ 001 002 001 003 245 @ 001 002 001 260 N g \0 \0 0001740 260 I @ 001 001 g \0 \0 360 262 6 @ 001 002 001 004 0001760 l 004 360 262 , H l 002 360 262 023 @ 001 002 002 001 0002000 003 245 @ 001 002 002 001 217 g \0 \0 213 g \0 \0 H 0002020 k 331 g \0 \0 \v \0 \0 @ 001 002 001 J 032 212 g 0002040 \0 \0 H g \0 \0 \v \0 \0 J 032 Z 277 @ 002 \t 0002060 \0 \0 J 032 272 I 002 225 g \0 \0 J 032 200 J \t 0002100 \0 \0 020 \0 ( 1 8 6 D R E V E R S 0002120 E 1 7 0 \ P R E C H B L O C 0002140 K / P R E C H 1 1 6 1 P A C 0002160 K * 1 4 4 P A C K * 6 0 0002200 \ P R E C H B L O C K / P R E C 0002220 H 2 1 7 M K S T R I N G 1 0002240 4 \ P R E C H B L O C K / P R 0002260 E C H 2 ) \r ( 1 7 9 - - 1 5 0002300 8 | . . . | 1 5 4 | . . . 0002320 | 1 4 1 | . . . | 1 3 5 0002340 | . . . | 1 3 1 & 9 6 D 0002360 E F U N 8 8 & ) \r ( ) \r \ P 0002400 R E C H B L O C K / P R E C H 2 0002420 : D 4 \r ( L ( 1 L E V E L 0002440 0 X ) F 5 C O M M E N 0002460 T F L G ) \0 R 005 001 \0 002 @ d 003 262 0002500 M 001 U 360 224 o \0 \0 \0 020 k A 361 223 g \0 0002520 \0 020 021 P 004 @ 260 2 d 001 273 A k 331 b 002 0002540 277 j A 363 223 g \0 \0 204 K A \n \0 \0 270 I 0002560 265 \b H h 032 Z Y 204 H h 032 Y 031 277 274 j 0002600 A 363 h 360 264 004 L 002 003 265 317 J 020 \0 ( 4 0002620 9 \ P R E C H B L O C K / P R 0002640 E C H 2 ) \r ( 4 3 - - 2 0 0002660 & ) \r ( 1 2 " * * C O M M E 0002700 N T * * " ) \r \ P R E C H B L O 0002720 C K / R E T A I L : D 4 \r ( L 0002740 ( 0 L ) ) \0 8 002 \0 \0 001 o \0 0002760 \0 \0 \t \0 \0 021 001 @ d 001 @ 002 001 \n \0 0003000 \0 220 001 001 h 032 X @ 260 027 d Y d 002 242 001 0003020 001 206 001 I 002 001 \n \0 \0 224 I 001 H 032 270 002 0003040 003 265 351 H 020 \0 ( 4 2 M E M B 1 0003060 8 T A I L P 6 D E C L A R 0003100 E % : ) \r N I L \r ( 3 ( ( S 0003120 P E C V A R S L ) ) ) \r \ P R 0003140 E C H B L O C K / L N C : D 4 0003160 \r ( L ( 1 L 2 0 L 1 ) ) 0003200 \0 ( 001 \0 \0 002 021 020 \0 @ 003 265 017 \b \0 0003220 \0 277 @ 002 A \n \0 \0 236 @ 020 \t \0 \0 X A 0003240 \t \0 \0 360 263 356 H 020 @ 002 b \0 260 347 \0 ( 0003260 2 7 L A S T 2 2 L A S T 0003300 1 6 T A I L P 9 H E L P ) 0003320 \r N I L \r ( ) \r T R A N S I T 0003340 : D 4 \r ( F 1 L F 2 T 0003360 R A N S I T A I L F 3 S T 0003400 O P P E D U P F 4 L A S T 0003420 A I L F 5 C U R R E N T C 0003440 O M S F 6 C U R R E N T F 0003460 O R M F 7 O L D L E N G T 0003500 H F 8 C O N T I N U E L 0003520 F 9 W H E R E T O G O N E X 0003540 T F 1 0 T R A N S I T L ) 0003560 \0 275 001 \n \0 \0 Q 001 021 001 \0 \b \0 \0 H 0003600 d Q 002 001 \n \0 \0 262 034 277 g \0 \0 o \0 \0 0003620 \0 o \0 \0 \0 \v \0 \0 277 H 001 X Q 002 032 c 0003640 002 277 H c \f h c 020 o \0 \0 \0 c 022 Q 002 0003660 001 \t \0 \0 c 016 Q c 024 T 265 H Q 002 001 0003700 \n \0 \0 c 004 227 H R 002 \n \0 \0 262 027 o \0 0003720 \0 \0 o \0 \0 \0 \n \0 \0 207 001 H 360 262 337 T 0003740 c 004 277 S 262 035 H d S 001 360 262 027 003 251 S 0003760 o \0 \0 \0 \t \0 \0 360 227 g \0 \0 \t \0 \0 260 0004000 % H 003 244 ` \0 \0 260 035 H d 001 004 l 004 360 0004020 227 001 g \0 \0 \n \0 \0 212 001 003 223 ` \0 \0 203 0004040 o \0 \0 \0 c \n d 264 \v ` \0 \0 002 U 030 ` 0004060 \0 \0 020 \0 ( 1 6 0 G E T P 1 3 0004100 5 R E T F R O M 1 2 7 % # 0004120 # 9 7 H E L P 8 4 M E M 0004140 B 7 5 M E M B 6 0 L E N 0004160 G T H 3 2 T R A N S E R R 0004200 1 5 T A I L P 7 W A C H A 0004220 D O O N ) \r ( 1 8 6 T R A N S 0004240 I T C O N S E S 1 8 0 T R A 0004260 N S I T C O N S E S 1 6 7 L 0004300 A M B D A C O M S 1 5 7 X F 0004320 O R M 1 4 3 N L I S T P C O 0004340 M S 1 3 2 T R A N S O R - P 0004360 R O C E E D 2 1 T R A N S E 0004400 R R O R ) \r ( 1 7 2 ( ( C O 0004420 M S Q ( R E M A R K I L L C 0004440 A R ) D O T H E S E ) ) 1 2 0004460 4 ( U P ) 9 4 " S h o w 0004500 J i m G o o d w i n . " 9 0 0004520 " T h e e d i t o r l o s 0004540 t L A S T A I L , a n d w 0004560 i t h i t i t s s e n s e 0004600 o f d i r e c t i o n . " \r 0004620 5 2 ( O R R 2 N X ! N 0004640 X ( ( E ( T R A N S E X I T 0004660 ) ) ) ) 2 9 ( C U R R E N T 0004700 F O R M C U R R E N T C O M S 0004720 ) 2 5 " T h e f u n c t i 0004740 o n T R A N S I T r e a c h 0004760 e d a T A I L P p o s i t 0005000 i o n ; s h o w J i m G o 0005020 o d w i n . " ) \r W A C H A D O 0005040 O N : D 4 \r ( L ( 0 F L G 0005060 ) F 1 L F 2 T E S T 0005100 R A N ) \0 5 001 002 \0 001 R 265 2 \b \0 0005120 \0 021 001 \0 @ 232 h 027 \0 \0 277 H 027 \0 \0 h 0005140 020 ` \0 \0 H 361 263 027 Q ` \0 \0 i \v \0 \0 0005160 Q 027 \0 \0 H o \0 \0 \0 330 027 \0 \0 h 020 \0 0005200 ( 3 6 P R E C H 5 C L O C 0005220 K ) \r ( 4 9 W H E N T O D O I 0005240 T 4 0 W A C H A D I D 3 2 0005260 W A C H A D I D 2 4 W H E 0005300 N T O D O I T 1 9 W H E N T 0005320 O D O I T 1 4 W A C H A D I 0005340 D ) \r ( 4 5 1 8 0 0 0 0 ) \r 0005360 T R A N X T : D 4 \r ( F 3 0005400 W H E R E T O G O N E X T F 0005420 4 T R A N S I T A I L F 5 0005440 L F 6 C U R R E N T F O 0005460 R M F 7 T R A N S I T L 0005500 F 8 O L D L E N G T H F 0005520 9 L A S T A I L F 1 0 C 0005540 O N T I N U E L F 1 1 C O 0005560 N T I N U E T A I L ) \0 215 003 \t 0005600 \0 \0 021 0 002 W 024 265 * T 001 270 W 016 002 001 0005620 \t \0 \0 Y W 020 360 263 # W 020 k 331 I 360 263 0005640 _ g \0 \0 o \0 \0 \0 o \0 \0 \0 \v \0 \0 h 0005660 020 c \n 277 W 026 c 022 h 020 H V 360 263 026 S 0005700 g \0 \0 360 255 H 003 265 & V 003 265 024 g \0 \0 0005720 c 006 277 W 016 H 030 c \n 277 T c 022 S 020 g 0005740 \0 \0 H 032 i \v \0 \0 262 345 h 260 345 g \0 \0 0005760 V 032 Z i \v \0 \0 262 322 J S 032 260 324 T U 0006000 002 001 \n \0 \0 244 o \0 \0 \0 020 h 260 304 \0 ( 0006020 1 3 0 T A I L P 1 1 6 E D 0006040 I T F I N D P 1 0 1 E D I T 0006060 F I N D P 4 4 T R A N S E R 0006100 R 1 6 L E N G T H ) \r ( 1 0 0006120 9 = = 9 5 = = 7 7 N L 0006140 A M 6 4 N L A M I T 3 3 0006160 O U T O F B O U N D S ) \r ( 1 0006200 3 5 ( O R R ! N X ( ( E 0006220 ( T R A N S E X I T ) ) ) ) 4 0006240 1 ( C U R R E N T F O R M C 0006260 U R R E N T C O M S ) 3 7 " 0006300 Y o u r t r a n s f o r m a t 0006320 i o n s c h e a t e d a n d 0006340 c h a n g e d s o m e t h i 0006360 n g o u t o f b o u n d s 0006400 . " ) \r P R E S C A N : D 4 \r 0006420 ( P 5 A T P 4 A C P 0006440 2 I P 1 O U T F P 0006460 0 I N F I 2 P R E S C A 0006500 N F N I 1 C H A R L S T 0006520 I 0 F I L E ) \0 240 006 \0 \0 003 0006540 @ \t \0 \0 \t \0 \0 @ i \n \0 \0 \t \0 \0 \t 0006560 \0 \0 l 177 021 023 003 J j 360 263 032 J 005 003 224 0006600 J \t \0 \0 256 ` \0 \0 J d \v \0 \0 277 J k 0006620 331 Z 260 346 A 260 024 d 001 273 ` \0 \0 K 001 K 0006640 002 265 003 j \v \0 \0 277 002 003 265 355 H g \0 \0 0006660 \n \0 \0 270 I g \0 \0 \n \0 \0 271 021 005 H 0006700 \t \0 \0 263 1 H \ j 360 263 365 L 005 003 265 0006720 023 ` \0 \0 L \n \0 \0 ] 236 I M \n \0 \0 277 0006740 260 337 \t \0 \0 262 354 260 330 L H I l 003 B 017 0006760 016 277 260 315 023 H \t \0 \0 277 I \t \0 \0 020 \0 0007000 ( 1 5 7 C L O S E F 1 5 2 0007020 C L O S E F 1 3 2 \ F Z E R 0007040 O P 1 2 6 B O U T 1 1 9 0007060 E L T 9 8 E O F P 9 0 G 0007100 E T S T R E A M 8 2 G E T S 0007120 T R E A M 7 0 S E T A 4 4 0007140 S E T A 3 5 \ F Z E R O P 0007160 1 7 O U T P U T 1 4 O U 0007200 T F I L E 1 1 N A M E F I E 0007220 L D 6 I N P U T 3 I N F 0007240 I L E ) \r ( 1 1 5 P R E S C A 0007260 R R A Y 8 7 O U T P U T 7 0007300 9 I N P U T 6 0 P R E S C 0007320 A R R A Y 3 9 P R E S C A R 0007340 R A Y ) \r ( ) \r T R A N S O R A 0007360 0 0 0 1 A 0 0 0 2 : D 4 \r ( P 0007400 4 S I : : * N L S E T Q F L 0007420 A G * P 3 * C O N D I T I 0007440 O N - H A N D L E R - B I N D I 0007460 N G S * P 2 * P R O C E E 0007500 D - C A S E S * P 1 S I : 0007520 : * C A T C H - R E T U R N - F 0007540 R O M * P 0 S I : : * D U 0007560 M M Y - F O R - C A T C H * F 0007600 5 P R O C E E D - C A S E 0 0007620 0 9 8 F 6 * P R O C E E D 0007640 - C A S E S * F 7 E X P R 0007660 E S S I O N F 8 * C O N D 0007700 I T I O N - H A N D L E R - B I 0007720 N D I N G S * F 9 I N P U 0007740 T F I L E ) \0 N 005 005 002 \0 i @ 021 0007760 002 001 g \0 \0 g \0 \0 g \0 \0 g \0 \0 U g 0010000 \0 \0 j g \0 \0 h g \0 \0 g \0 \0 \t \0 \0 0010020 \r \n \0 \0 V 032 021 001 002 g \0 \0 g \0 \0 032 0010040 W 020 032 021 021 004 i 274 W 022 \t \0 \0 c 016 277 0010060 h d 032 022 \t \0 \0 022 032 020 \0 ( 7 3 \ 0010100 M V L I S T 6 3 R E A D 3 0010120 8 M A K E - P R O C E E D - C 0010140 A S E 3 4 C L : S Y M B O L 0010160 - F U N C T I O N ) \r ( 4 9 S 0010200 I : : N L S E T Q H A N D L E R 0010220 4 6 C L : E R R O R 3 1 0010240 S I : : E R R O R S E T - P R I 0010260 N T - F U N C T I O N 2 8 : 0010300 R E P O R T 2 4 : T E S T 0010320 2 0 : S E L E C T O R 1 6 0010340 : T A G 1 3 A B O R T 1 0 0010360 : N A M E 7 : N O R M A L 0010400 ) \r ( ) \r T R A N S O R A 0 0 0 0010420 1 : D 4 \r ( N A M E S I : : 0010440 * U N W I N D - P R O T E C T * 0010460 P 1 1 P R O C E E D - C A 0010500 S E 0 0 9 6 P 1 0 A 0 1 0 0010520 0 P 9 P R O C E E D - C A 0010540 S E 0 0 9 7 P 8 A 0 0 9 9 0010560 P 7 P R O C E E D - C A S 0010600 E 0 0 9 8 P 6 T M P P 0010620 5 E X P R E S S I O N P 4 0010640 N A M E F I E L D P 3 L 0010660 I S T I N G P 2 L I S T F 0010700 I L E P 1 O U T P U T F I 0010720 L E P 0 I N P U T F I L E 0010740 I 0 S I : : * C L E A N U 0010760 P - F O R M S * F 1 2 S O 0011000 U R C E F I L E ) 001 [ \f 001 \0 001 0011020 021 p 006 o \0 \0 \0 \t \0 \0 277 ` \0 \0 003 250 0011040 o \0 \0 \0 o \0 \0 \0 215 W 030 \t \0 \0 X 265 0011060 016 o \0 \0 \0 W 030 i \v \0 \0 277 H g \0 \0 0011100 \n \0 \0 274 g \0 \0 L g \0 \0 o \0 \0 \0 \f 0011120 \0 \0 ^ g \0 \0 \n \0 \0 Y 245 o \0 \0 \0 260 0011140 035 g \0 \0 L g \0 \0 o \0 \0 \0 \f \0 \0 ^ 0011160 g \0 \0 \n \0 \0 Z 251 o \0 \0 \0 N i \v \0 0011200 \0 277 H g \0 \0 \n \0 \0 270 o \0 \0 \0 I \n 0011220 \0 \0 277 H \t \0 \0 I \n \0 \0 277 o \0 \0 \0 0011240 I \n \0 \0 277 \b \0 \0 I \n \0 \0 277 o \0 \0 0011260 \0 I \n \0 \0 277 I \t \0 \0 277 I \t \0 \0 277 0011300 o \0 \0 \0 J \n \0 \0 277 H \t \0 \0 J \n \0 0011320 \0 277 o \0 \0 \0 J \n \0 \0 277 \b \0 \0 J \n 0011340 \0 \0 277 J \t \0 \0 277 J \t \0 \0 277 h d 032 0011360 021 001 \a O 016 \t \0 \0 022 021 1 \v O 020 001 _ 0011400 026 277 O 020 002 _ 024 _ 022 277 O 026 d g \0 \0 0011420 360 226 277 O 022 \t \0 \0 204 j : 264 003 h 022 230 0011440 M d g \0 \0 360 262 ) 277 H \t \0 \0 224 H \t 0011460 \0 \0 277 I \t \0 \0 277 K J \n \0 \0 277 J \t 0011500 \0 \0 277 I \t \0 \0 J \t \0 \0 h 032 032 020 003 0011520 255 h o \0 \0 \0 o \0 \0 \0 \v \0 \0 260 217 M 0011540 \t \0 \0 ] I \n \0 \0 260 204 \0 ( 3 4 3 0011560 T R A N S O U T 3 3 8 T R A 0011600 N S F O R M 3 3 2 T R A N S 0011620 E R R 3 1 4 F U L L N A M E 0011640 3 1 0 F U L L N A M E 3 0 0011660 5 C L O S E F 3 0 0 T R A 0011700 N S L I S T 2 9 4 E N D F I 0011720 L E 2 8 9 C L O S E F 2 8 0011740 4 O P E N P 2 6 3 C L : V 0011760 A L U E S - L I S T 2 3 1 T 0012000 R A N S O R A 0 0 0 1 A 0 0 0 2 0012020 2 1 9 T E R P R I 2 1 4 0012040 T E R P R I 2 0 9 P R I N 1 0012060 2 0 5 D A T E 2 0 1 P R 0012100 I N 1 1 9 2 P R I N T 1 8 0012120 8 F U L L N A M E 1 8 3 P 0012140 R I N 1 1 7 4 T E R P R I 0012160 1 6 9 T E R P R I 1 6 4 P 0012200 R I N 1 1 5 5 P R I N 1 1 0012220 5 1 D A T E 1 4 7 P R I N 0012240 1 1 3 8 P R I N T 1 3 4 0012260 F U L L N A M E 1 2 9 P R I 0012300 N 1 1 2 0 O P E N S T R E A 0012320 M 1 1 2 E R R O R 1 0 1 0012340 O P E N S T R E A M 9 4 P A 0012360 C K F I L E N A M E 7 2 O P 0012400 E N S T R E A M 6 5 P A C K 0012420 F I L E N A M E 5 0 F I L E 0012440 N A M E F I E L D 4 2 E R R 0012460 O R 2 9 I N F I L E P 9 0012500 D E C L A R E % : ) \r ( 2 7 6 0012520 S T O P 2 5 5 : N O R M A L 0012540 1 1 7 I N P U T 9 8 O U 0012560 T P U T 8 7 E X T E N S I O 0012600 N 8 3 N A M E 6 9 O U T 0012620 P U T 5 8 E X T E N S I O N 0012640 5 4 N A M E 4 7 N A M E 0012660 1 3 T R A N S F O R M A T I 0012700 O N S ) \r ( 3 2 9 ( E X P R 0012720 E S S I O N ) 3 2 5 " N L I 0012740 S T P e x p r e s s i o n o 0012760 n f i l e - e x p r e s s 0013000 i o n d i s c a r d e d : " 0013020 1 9 7 " d o n e 0013040 o n " 1 7 9 " 0013060 L i s t i n g f r o m T R A 0013100 N S O R i n g o f f i l e 0013120 " \r 1 6 0 " % " ) T ) " 0013140 1 4 3 " d o n e o n " 0013160 1 2 5 " ( P R I N 1 ( Q U O T 0013200 E % " \r T r a n s o r i n g 0013220 o f " 1 0 7 " C a n n o t 0013240 o p e n f i l e . " 9 1 " 0013260 L S T R A N " 7 8 " C a n n 0013300 o t o p e n f i l e : " 6 0013320 2 " T R A N " 3 6 " C a n 0013340 n o t f i n d f i l e : " \r 0013360 2 3 " " 1 9 " N o t r 0013400 a n s f o r m a t i o n s l o 0013420 a d e d . " 6 ( ( S P E C V 0013440 A R S L I S T F I L E L I S 0013460 T I N G ) ) ) \r T R A N S O R 0013500 : D 4 \r ( P 0 S I : : * R E 0013520 S E T F O R M S * I 0 S O 0013540 U R C E F I L E ) \0 % 001 \0 \0 001 0013560 g \0 \0 ` \0 \0 \t \0 \0 h 032 032 h 032 h 032 0013600 021 001 \0 g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 0013620 \t \0 \0 020 \0 ( 3 4 C L : V A L U 0013640 E S - L I S T 3 0 S I : : R 0013660 E S E T U N W I N D 2 7 \ M 0013700 V L I S T 2 4 T R A N S O R 0013720 A 0 0 0 1 8 S E T R E A D T 0013740 A B L E ) \r ( 2 1 S I : : R E 0013760 S E T U N W I N D 5 F I L E 0014000 R D T B L 2 S E T R E A D T 0014020 A B L E ) \r ( ) \r T R A N S O R 0014040 - P R O C E E D A 0 0 0 1 : D 0014060 4 \r ( P 3 S I : : * N L S E 0014100 T Q F L A G * P 2 * P R O 0014120 C E E D - C A S E S * P 1 0014140 S I : : * C A T C H - R E T U R 0014160 N - F R O M * P 0 S I : : 0014200 * D U M M Y - F O R - C A T C H 0014220 * F 4 L F 5 P R O C 0014240 E E D - C A S E 0 1 0 4 F 6 0014260 * P R O C E E D - C A S E S * 0014300 F 7 F L G ) \0 t 004 004 002 \0 0014320 i @ 021 002 001 g \0 \0 g \0 \0 g \0 \0 g \0 0014340 \0 U g \0 \0 j g \0 \0 h g \0 \0 g \0 \0 0014360 \t \0 \0 \r \n \0 \0 V 032 021 001 002 021 020 003 T 0014400 W 016 d g \0 \0 360 226 277 o \0 \0 \0 260 ( d 0014420 g \0 \0 360 226 277 o \0 \0 \0 260 033 d g \0 \0 0014440 360 225 277 o \0 \0 \0 214 g \0 \0 360 224 o \0 \0 0014460 \0 202 \b \0 \0 \n \0 \0 c \b h 032 022 \t \0 \0 0014500 022 032 020 \0 ( 1 1 1 \ M V L I S T 0014520 1 0 3 E D I T L 1 0 0 H 0014540 E L P 3 8 M A K E - P R O C 0014560 E E D - C A S E 3 4 C L : S 0014600 Y M B O L - F U N C T I O N ) \r 0014620 ( 9 0 O K C O M S 7 9 T R 0014640 A N S F O R M 6 6 D O T H E 0014660 S E 5 3 D O T H I S 3 1 0014700 S I : : E R R O R S E T - P R I 0014720 N T - F U N C T I O N 2 8 : 0014740 R E P O R T 2 4 : T E S T 0014760 2 0 : S E L E C T O R 1 6 0015000 : T A G 1 3 A B O R T 1 0 0015020 : N A M E 7 : N O R M A L 0015040 ) \r ( 9 6 ( ( L P Q ( C O 0015060 M S ( T R A N X T ) ( T R A 0015100 N S I T ) ) ) ) 8 6 ( ( L P 0015120 Q ( C O M S ( T R A N S I T 0015140 ) ( T R A N X T ) ) ) ) 7 3 0015160 ( M A R K ( O R R ( ( I F 0015200 ( N O T ( T A I L P ( C A 0015220 R L ) ( C A D R L ) ) ) ) 0015240 N X U P ( E ( P R O G 0015260 ( L I S P X H I S T ) ( S E T 0015300 Q S T O P P E D U P ( % # # 0015320 ) ) ) T ) ) ( ! N X U P 0015340 ( E ( P R O G ( L I S P X H 0015360 I S T ) ( S E T Q S T O P P 0015400 E D U P ( % # # ) ) ) T ) ) 0015420 N I L ) _ _ 1 ( L P Q 0015440 ( C O M S ( T R A N S I T ) 0015460 ( T R A N X T ) ) ) ) \r 6 0 0015500 ( ( I F ( T A I L P ( C A R 0015520 L ) ( C A D R L ) ) ( ( 0015540 R E M A R K T A I L P / D O T 0015560 H I S ) 1 ) N I L ) M A R 0015600 K ( O R R ( N X U P ( E 0015620 ( P R O G ( L I S P X H I S 0015640 T ) ( S E T Q S T O P P E D 0015660 U P ( % # # ) ) ) T ) ) ( 0015700 ! N X U P ( E ( P R O G 0015720 ( L I S P X H I S T ) ( S E T 0015740 Q S T O P P E D U P ( % # # 0015760 ) ) ) T ) ) N I L ) _ _ 0016000 ( L P Q ( C O M S ( T R A N 0016020 S I T ) ( T R A N X T ) ) ) ) 0016040 ) \r T R A N S O R - P R O C E E 0016060 D : D 4 \r ( P 1 2 P R O C 0016100 E E D - C A S E 0 1 0 2 P 1 0016120 1 A 0 1 0 6 P 1 0 P R O 0016140 C E E D - C A S E 0 1 0 3 P 0016160 9 A 0 1 0 5 P 8 P R O C 0016200 E E D - C A S E 0 1 0 4 P 7 0016220 O L D L E N G T H P 6 T 0016240 R A N S I T A I L P 5 T R 0016260 A N S I T L P 4 C O N T I 0016300 N U E T A I L P 3 C O N T 0016320 I N U E L P 2 W H E R E T 0016340 O G O N E X T P 1 S T O P 0016360 P E D U P P 0 L I 0 0016400 F L G F 1 3 L ) \0 X \r 001 0016420 001 001 W 032 021 q \a o \0 \0 \0 \t \0 \0 277 h 0016440 d 032 021 001 \b O 020 \t \0 \0 022 021 1 \f O 022 0016460 001 _ 030 277 O 022 002 _ 026 _ 024 277 O 030 d g 0016500 \0 \0 360 226 277 O 024 \t \0 \0 204 j : 264 003 h 0016520 022 226 g \0 \0 b \0 260 307 g \0 \0 o \0 \0 \0 0016540 o \0 \0 \0 \v \0 \0 h 020 \0 ( 8 4 T R 0016560 A N S E R R 5 5 C L : V A L 0016600 U E S - L I S T 2 3 T R A N 0016620 S O R - P R O C E E D A 0 0 0 1 0016640 1 1 D E C L A R E % : ) \r ( 0016660 7 3 T R A N S E R R O R 6 6 0016700 O K C O M S 4 7 : N O R M 0016720 A L ) \r ( 8 1 ( C U R R E N 0016740 T F O R M C U R R E N T C O M 0016760 S ) 7 7 " F a i l r e t u 0017000 r n t o T R A N S O R f r 0017020 o m E D I T O R . S h o w 0017040 J i m G o o d w i n . " 8 0017060 ( ( S P E C V A R S L S T O 0017100 P P E D U P W H E R E T O G O 0017120 N E X T C O N T I N U E L C 0017140 O N T I N U E T A I L T R A N 0017160 S I T L T R A N S I T A I L 0017200 O L D L E N G T H ) ) ) \r T R A 0017220 N S O R F O R M A 0 0 0 1 : D 0017240 4 \r ( P 3 S I : : * N L S E 0017260 T Q F L A G * P 2 * P R O 0017300 C E E D - C A S E S * P 1 0017320 S I : : * C A T C H - R E T U R 0017340 N - F R O M * P 0 S I : : 0017360 * D U M M Y - F O R - C A T C H 0017400 * F 4 P R O C E E D - C A 0017420 S E 0 1 1 0 F 5 * P R O C 0017440 E E D - C A S E S * F 6 L 0017460 I S T I N G ) \0 = 004 003 002 \0 i @ 0017500 021 002 001 g \0 \0 g \0 \0 g \0 \0 g \0 \0 T 0017520 g \0 \0 j g \0 \0 h g \0 \0 g \0 \0 \t \0 0017540 \0 \r \n \0 \0 U 032 021 001 002 021 020 003 V \t \0 0017560 \0 h 032 022 \t \0 \0 022 032 020 \0 ( 5 6 \ 0017600 M V L I S T 5 0 T R A N S L 0017620 I S T 3 8 M A K E - P R O C 0017640 E E D - C A S E 3 4 C L : S 0017660 Y M B O L - F U N C T I O N ) \r 0017700 ( 3 1 S I : : E R R O R S E T 0017720 - P R I N T - F U N C T I O N 0017740 2 8 : R E P O R T 2 4 : T 0017760 E S T 2 0 : S E L E C T O R 0020000 1 6 : T A G 1 3 A B O R 0020020 T 1 0 : N A M E 7 : N O 0020040 R M A L ) \r ( ) \r T R A N S O R 0020060 F O R M : D 4 \r ( P 6 P R 0020100 O C E E D - C A S E 0 1 0 8 P 0020120 5 A 0 1 1 2 P 4 P R O 0020140 C E E D - C A S E 0 1 0 9 P 0020160 3 A 0 1 1 1 P 2 P R O C 0020200 E E D - C A S E 0 1 1 0 P 1 0020220 L I S T I N G P 0 L I S 0020240 T F I L E I 0 F O R M ) 0020260 \0 : \a \0 \0 001 021 001 o \0 \0 \0 \t \0 \0 0020300 @ \t \0 \0 b \0 I 262 & h d 032 021 001 002 J 0020320 \t \0 \0 022 021 1 006 K 001 276 K 002 ] 274 N d 0020340 g \0 \0 360 225 277 L \t \0 \0 201 j : @ 020 \0 0020360 ( 5 1 C L : V A L U E S - L I 0020400 S T 2 8 T R A N S O R F O R 0020420 M A 0 0 0 1 1 3 T R A N S F 0020440 O R M 9 D E C L A R E % : ) 0020460 \r ( 4 4 : N O R M A L ) \r ( 0020500 6 ( ( S P E C V A R S L I S 0020520 T F I L E L I S T I N G ) ) ) 0020540 \r T R A N S O R F N S A 0 0 0 1 0020560 : D 4 \r ( P 3 S I : : * N 0020600 L S E T Q F L A G * P 2 * 0020620 P R O C E E D - C A S E S * P 0020640 1 S I : : * C A T C H - R E 0020660 T U R N - F R O M * P 0 S 0020700 I : : * D U M M Y - F O R - C A 0020720 T C H * F 4 P R O C E E D 0020740 - C A S E 0 1 1 6 F 5 * P 0020760 R O C E E D - C A S E S * F 0021000 6 L I S T I N G ) \0 = 004 003 002 0021020 \0 i @ 021 002 001 g \0 \0 g \0 \0 g \0 \0 g 0021040 \0 \0 T g \0 \0 j g \0 \0 h g \0 \0 g \0 0021060 \0 \t \0 \0 \r \n \0 \0 U 032 021 001 002 021 020 003 0021100 V \t \0 \0 h 032 022 \t \0 \0 022 032 020 \0 ( 5 0021120 6 \ M V L I S T 5 0 T R A 0021140 N S L I S T 3 8 M A K E - P 0021160 R O C E E D - C A S E 3 4 C 0021200 L : S Y M B O L - F U N C T I O 0021220 N ) \r ( 3 1 S I : : E R R O R 0021240 S E T - P R I N T - F U N C T I 0021260 O N 2 8 : R E P O R T 2 4 0021300 : T E S T 2 0 : S E L E C 0021320 T O R 1 6 : T A G 1 3 A 0021340 B O R T 1 0 : N A M E 7 0021360 : N O R M A L ) \r ( ) \r T R A N 0021400 S O R F N S : D 4 \r ( P 8 0021420 P R O C E E D - C A S E 0 1 1 4 0021440 P 7 A 0 1 1 8 P 6 P 0021460 R O C E E D - C A S E 0 1 1 5 0021500 P 5 A 0 1 1 7 P 4 P R 0021520 O C E E D - C A S E 0 1 1 6 P 0021540 3 F N P 2 D E F P 0021560 1 L I S T F I L E P 0 L 0021600 I S T I N G I 0 F N L I S 0021620 T ) \0 b \t \0 \0 001 021 0 002 o \0 \0 \0 0021640 \t \0 \0 @ 260 ) d 001 021 001 003 K d 004 l 004 0021660 360 236 \t \0 \0 Z \t \0 \0 225 J K \n \0 \0 212 0021700 K o \0 \0 \0 032 i d \v \0 \0 023 002 003 265 330 0021720 h d 032 021 001 004 L \t \0 \0 022 021 1 \b M 001 0021740 _ 020 277 M 002 _ 016 276 O 020 d g \0 \0 360 225 0021760 277 N \t \0 \0 201 j : @ 020 \0 ( 9 1 C 0022000 L : V A L U E S - L I S T 6 4 0022020 T R A N S O R F N S A 0 0 0 1 0022040 4 9 P R I N T 3 7 T R A 0022060 N S F O R M 3 1 E X P R P 0022100 2 7 V I R G I N F N 9 D E 0022120 C L A R E % : ) \r ( 8 4 : N O 0022140 R M A L ) \r ( 4 3 ( N O T 0022160 F O U N D ) 6 ( ( S P E C V 0022200 A R S L I S T I N G L I S T 0022220 F I L E ) ) ) \r T R A N S F O R 0022240 M : D 4 \r ( P 2 H E L P C 0022260 L O C K P 1 P A S S 1 P 0022300 0 L I 1 F N A M E I 0022320 0 S O U R C E X P R ) \0 F 0022340 003 \0 \0 002 021 0 002 o \0 \0 \0 \t \0 \0 A 234 0022360 @ 002 002 001 @ A @ h 032 032 h 032 206 @ h @ 0022400 h 032 032 h 032 032 270 i \t \0 \0 g \0 \0 \t \0 0022420 \0 I \t \0 \0 206 d 001 \t \0 \0 277 002 003 265 370 0022440 A 223 H 002 001 020 H 001 020 \0 ( 5 4 P P 0022460 A S S 1 4 8 D R E V E R S E 0022500 4 4 T R A N S O R - P R O C 0022520 E E D 3 8 W A C H A D O O N 0022540 9 D E C L A R E % : ) \r ( 4 0022560 1 T R A N S F O R M ) \r ( 6 0022600 ( ( S P E C V A R S L P A 0022620 S S 1 ) ) ) \r T R A N S E X I T 0022640 : D 4 \r ( F 0 S T O P P E 0022660 D U P ) \0 031 \0 001 \0 \0 P 236 g \0 \0 0022700 o \0 \0 \0 o \0 \0 \0 \v \0 \0 277 g \0 \0 \t 0022720 \0 \0 020 \0 ( 2 2 R E T F R O M 0022740 1 5 T R A N S E R R ) \r ( 1 9 0022760 T R A N S O R - P R O C E E D 0023000 4 T R A N S E R R O R ) \r ( 0023020 1 2 ( C U R R E N T F O R M 0023040 C U R R E N T C O M S ) 8 0023060 " T h e f u n c t i o n T R 0023100 A N S E X I T m i s s e d t 0023120 h e e x i t . S h o w J i 0023140 m G o o d w i n . " ) \r K E E 0023160 P L I S T : D 4 \r ( P 0 T 0023200 M P I 0 R E M N A M E F 0023220 1 L I S T I N G F 2 P 0023240 A S S 1 F 3 L F 4 T 0023260 E S T R A N ) \0 9 001 004 001 001 021 020 0023300 \0 Q 003 265 \b k h 032 c 002 206 d 001 k 330 030 0023320 277 Q 001 @ S 032 032 R 032 c 004 T 263 030 @ Q 0023340 002 026 X 265 \n Q @ Q 001 h 032 032 201 Q 001 h 0023360 032 \n \0 \0 h 020 \0 ( 5 3 \ N C O N 0023400 C 2 ) \r N I L \r ( ) \r T R A N S 0023420 E R R A 0 0 0 1 : D 4 \r ( P 0023440 4 S I : : * N L S E T Q F L A 0023460 G * P 3 * C O N D I T I O 0023500 N - H A N D L E R - B I N D I N 0023520 G S * P 2 * P R O C E E D 0023540 - C A S E S * P 1 S I : : 0023560 * C A T C H - R E T U R N - F R 0023600 O M * P 0 S I : : * D U M 0023620 M Y - F O R - C A T C H * F 0023640 5 P R O C E E D - C A S E 0 1 0023660 2 2 F 6 * P R O C E E D - 0023700 C A S E S * F 7 * C O N D 0023720 I T I O N - H A N D L E R - B I 0023740 N D I N G S * F 8 M E S S 0023760 ) \0 b 005 004 002 \0 i @ 021 002 001 g \0 \0 0024000 g \0 \0 g \0 \0 g \0 \0 U g \0 \0 j g \0 0024020 \0 h g \0 \0 g \0 \0 \t \0 \0 \r \n \0 \0 V 0024040 032 021 001 002 g \0 \0 g \0 \0 032 W 016 032 021 021 0024060 004 i \ \t \0 \0 277 i \t \0 \0 277 o \0 \0 \0 0024100 i \n \0 \0 277 W 020 i \n \0 \0 277 i \t \0 \0 0024120 h 032 022 \t \0 \0 022 032 020 \0 ( 9 3 \ M 0024140 V L I S T 8 7 T E R P R I 0024160 8 2 P R I N 1 7 5 P R I N 0024200 1 6 6 T E R P R I 6 1 T 0024220 E R P R I 3 8 M A K E - P R 0024240 O C E E D - C A S E 3 4 C L 0024260 : S Y M B O L - F U N C T I O N 0024300 ) \r ( 4 9 S I : : N L S E T Q 0024320 H A N D L E R 4 6 C L : E R 0024340 R O R 3 1 S I : : E R R O R 0024360 S E T - P R I N T - F U N C T I 0024400 O N 2 8 : R E P O R T 2 4 0024420 : T E S T 2 0 : S E L E C 0024440 T O R 1 6 : T A G 1 3 A 0024460 B O R T 1 0 : N A M E 7 0024500 : N O R M A L ) \r ( 7 1 " \r 0024520 T R A N S O R m a d e a t 0024540 r a n s l a t i o n e r r o r 0024560 : " ) \r T R A N S E R R A 0 0 0024600 0 2 : D 4 \r ( P 5 X P 0024620 4 S I : : * N L S E T Q F L A 0024640 G * P 3 * C O N D I T I O 0024660 N - H A N D L E R - B I N D I N 0024700 G S * P 2 * P R O C E E D 0024720 - C A S E S * P 1 S I : : 0024740 * C A T C H - R E T U R N - F R 0024760 O M * P 0 S I : : * D U M 0025000 M Y - F O R - C A T C H * F 0025020 6 P R O C E E D - C A S E 0 1 0025040 2 8 F 7 * P R O C E E D - 0025060 C A S E S * F 8 * C O N D 0025100 I T I O N - H A N D L E R - B I 0025120 N D I N G S * F 9 V A R S 0025140 ) \0 | 006 004 002 \0 i @ 021 002 001 g \0 \0 0025160 g \0 \0 g \0 \0 g \0 \0 V g \0 \0 j g \0 0025200 \0 h g \0 \0 g \0 \0 \t \0 \0 \r \n \0 \0 W 0025220 016 032 021 001 002 g \0 \0 g \0 \0 032 W 020 032 021 0025240 021 004 i 274 l 003 \t \0 \0 277 W 022 260 d 001 0025260 021 001 005 M i d \v \0 \0 277 o \0 \0 \0 i \n 0025300 \0 \0 277 M \t \0 \0 \t \0 \0 023 002 003 265 341 n 0025320 003 350 \t \0 \0 277 i \t \0 \0 h 032 022 \t \0 \0 0025340 022 032 020 \0 ( 1 1 9 \ M V L I S T 0025360 1 1 3 T E R P R I 1 0 8 0025400 P R I N T L E V E L 9 7 P R 0025420 I N T 9 4 \ E V A L V 1 8 0025440 9 P R I N 1 8 0 P R I N 2 0025460 6 4 P R I N T L E V E L 3 0025500 8 M A K E - P R O C E E D - C 0025520 A S E 3 4 C L : S Y M B O L 0025540 - F U N C T I O N ) \r ( 5 0 S 0025560 I : : N L S E T Q H A N D L E R 0025600 4 7 C L : E R R O R 3 1 0025620 S I : : E R R O R S E T - P R I 0025640 N T - F U N C T I O N 2 8 : 0025660 R E P O R T 2 4 : T E S T 0025700 2 0 : S E L E C T O R 1 6 0025720 : T A G 1 3 A B O R T 1 0 0025740 : N A M E 7 : N O R M A L 0025760 ) \r ( 8 5 " : " ) \r T R 0026000 A N S E R R : D 4 \r ( P 9 0026020 P R O C E E D - C A S E 0 1 2 7 0026040 P 8 A 0 1 3 0 P 7 P 0026060 R O C E E D - C A S E 0 1 2 6 0026100 P 6 A 0 1 2 9 P 5 P R 0026120 O C E E D - C A S E 0 1 2 8 P 0026140 4 P R O C E E D - C A S E 0 0026160 1 2 0 P 3 A 0 1 2 4 P 0026200 2 P R O C E E D - C A S E 0 1 0026220 2 1 P 1 A 0 1 2 3 P 0 0026240 P R O C E E D - C A S E 0 1 2 0026260 2 I 2 V A R S I 1 M 0026300 E S S I 0 R E M ) \0 g \n 0026320 \0 001 003 @ 231 g \0 \0 @ h 032 \n \0 \0 277 A 0026340 262 ' h d 032 021 001 \0 H \t \0 \0 022 021 1 004 0026360 I 001 274 I 002 [ 272 L d g \0 \0 360 225 277 J 0026400 \t \0 \0 201 j : 023 B 264 0 h d 032 021 001 005 0026420 M \t \0 \0 022 021 1 \t N 001 _ 016 277 N 002 _ 0026440 020 _ 022 277 O 016 d g \0 \0 360 226 277 O 022 \t 0026460 \0 \0 020 j : 264 003 h 020 \0 ( 9 4 C L 0026500 : V A L U E S - L I S T 6 4 0026520 T R A N S E R R A 0 0 0 2 4 7 0026540 C L : V A L U E S - L I S T 0026560 2 4 T R A N S E R R A 0 0 0 1 0026600 1 0 A P P L Y ) \r ( 8 6 : 0026620 N O R M A L 4 0 : N O R M A 0026640 L 4 K E E P L I S T ) \r ( ) 0026660 \r T R A N S O U T A 0 0 0 1 A 0 0026700 0 0 2 : D 4 \r ( N A M E S I 0026720 : : * U N W I N D - P R O T E C 0026740 T * P 0 X I 0 S I : 0026760 : * C L E A N U P - F O R M S * 0027000 F 1 X P R F 2 L A M 0027020 B D A F O N T F 3 F O N T 0027040 C H A N G E F L G F 4 F I 0027060 L E F 5 D E F A U L T F O 0027100 N T ) \0 327 001 005 \0 001 T g \0 \0 360 265 0027120 003 202 261 \0 302 Q d 001 g \0 \0 360 262 H 277 o 0027140 \0 \0 \0 \t \0 \0 \b \0 \0 Q 260 , d 001 021 001 0027160 \0 \b \0 \0 277 g \0 \0 \t \0 \0 277 H 001 \t \0 0027200 \0 277 H 002 001 h i \v \0 \0 277 g \0 \0 \t \0 0027220 \0 277 \b \0 \0 023 002 003 265 324 g \0 \0 \t \0 \0 0027240 \b \0 \0 020 001 g \0 \0 360 262 l Q 002 001 001 g 0027260 \0 \0 360 262 b Q 260 Y d 001 021 001 \0 \b \0 \0 0027300 277 H 001 g \0 \0 360 262 ? o \0 \0 \0 \t \0 \0 0027320 277 R 226 S 224 R \t \0 \0 277 H 002 001 \t \0 \0 0027340 277 R 226 S 224 U \t \0 \0 277 H 002 002 001 \t \0 0027360 \0 277 H 002 002 002 l 006 i d \f \0 \0 277 o \0 0027400 \0 \0 \t \0 \0 203 Q \t \0 \0 277 \b \0 \0 023 002 0027420 003 265 247 h 020 \b \0 \0 Q \t \0 \0 \b \0 \0 020 0027440 \0 ( 2 1 2 T E R P R I 2 0 9 0027460 P R I N T D E F 2 0 5 T E 0027500 R P R I 1 9 5 T E R P R I 0027520 1 9 1 P R I N T D E F 1 8 6 0027540 P R I N 1 1 7 8 P R I N T 0027560 D E F 1 6 6 P R I N 2 1 5 0027600 8 C H A N G E F O N T 1 4 9 0027620 P R I N 2 1 4 2 C H A N G 0027640 E F O N T 1 3 3 P R I N 1 0027660 1 1 7 T E R P R I 8 8 T E 0027700 R P R I 8 5 P R I N 1 7 4 0027720 T E R P R I 7 0 P R I N 1 0027740 6 3 P R I N T D E F 5 4 0027760 P R I N T 4 8 P R I N 1 4 0030000 1 T E R P R I 3 0 T E R P 0030020 R I 2 7 P R I N 1 ) \r ( 1 2 0030040 3 D E F U N 1 0 3 D E F U 0030060 N 9 3 P R O G N 8 2 % ) 0030100 6 7 % ) 4 5 % ( 1 6 0030120 D E F I N E Q 3 N I L % : ) 0030140 \r ( 1 8 3 " ) " 1 3 0 " 0030160 ( D E F U N " 2 4 " ( D E 0030200 F I N E Q " ) \r T R A N S O U T 0030220 A 0 0 0 1 : D 4 \r ( N A M E 0030240 S I : : * U N W I N D - P R O T 0030260 E C T * P 0 S I : : * R E 0030300 S E T F O R M S * I 0 S I 0030320 : : * C L E A N U P - F O R M S 0030340 * F 1 T R A N S O U T R E 0030360 A D T A B L E ) \0 # 001 001 \0 001 g 0030400 \0 \0 Q \t \0 \0 h 032 032 h 032 h 032 021 001 \0 0030420 g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 \t \0 \0 0030440 020 \0 ( 3 2 C L : V A L U E S - 0030460 L I S T 2 8 S I : : R E S E 0030500 T U N W I N D 2 5 \ M V L I 0030520 S T 2 2 T R A N S O U T A 0 0030540 0 0 1 A 0 0 0 2 6 S E T R E 0030560 A D T A B L E ) \r ( 1 9 S I : 0030600 : R E S E T U N W I N D 2 S 0030620 E T R E A D T A B L E ) \r ( ) \r 0030640 T R A N S O U T : D 4 \r ( P 0030660 0 S I : : * R E S E T F O R M 0030700 S * I 1 F I L E I 0 0030720 X P R ) \0 # 001 \0 \0 002 g \0 \0 A \t 0030740 \0 \0 h 032 032 h 032 h 032 021 001 \0 g \0 \0 \t 0030760 \0 \0 \t \0 \0 \b \0 \0 277 \t \0 \0 020 \0 ( 3 0031000 2 C L : V A L U E S - L I S T 0031020 2 8 S I : : R E S E T U N W 0031040 I N D 2 5 \ M V L I S T 2 0031060 2 T R A N S O U T A 0 0 0 1 0031100 6 O U T P U T ) \r ( 1 9 S I 0031120 : : R E S E T U N W I N D 2 0031140 O U T P U T ) \r ( ) \r P P A S S 0031160 1 : D 4 \r ( I 0 P 1 F 0031200 0 L I S T F I L E ) \0 , \0 001 0031220 \0 001 @ 001 P \n \0 \0 o \0 \0 \0 P \n \0 \0 0031240 @ 002 001 P \n \0 \0 o \0 \0 \0 P \n \0 \0 @ 0031260 002 002 h P i \f \0 \0 P \t \0 \0 020 \0 ( 4 0031300 1 T E R P R I 3 7 P R E C 0031320 H 2 8 P R I N 1 2 0 P R 0031340 I N 1 1 3 P R I N 1 5 P 0031360 R I N 1 ) \r N I L \r ( 2 4 " 0031400 a t " 9 " . " ) \r T R 0031420 A N S L I S T : D 4 \r ( P 0 0031440 O L D O I 1 L I S T F I 0031460 L E I 0 L I S T I N G F 0031500 1 T E S T R A N ) \0 A 001 001 0031520 \0 002 021 020 \0 Q 263 : A d g \0 \0 360 263 2 0031540 \t \0 \0 X @ 251 o \0 \0 \0 \t \0 \0 277 260 033 0031560 o \0 \0 \0 \t \0 \0 277 @ 002 i \n \0 \0 206 d 0031600 001 \t \0 \0 277 002 003 265 370 \b \0 \0 H \t \0 \0 0031620 h 020 \0 ( 6 1 O U T P U T 5 7 0031640 T E R P R I 4 9 T R A N S 0031660 L I S T 1 4 3 S O R T 3 6 0031700 P R I N 1 2 6 P R I N 1 0031720 1 6 O U T P U T ) \r ( 1 0 N 0031740 I L % : ) \r ( 3 3 " \f 0031760 0032000 I n d e x o f R e m a r 0032020 k s \r \r \r \r \r \r " 2 3 " \r \t 0032040 \t N o R E M A R K S - - e 0032060 m p t y l i s t i n g . \r " ) 0032100 \r T R A N S L I S T 1 : D 4 \r 0032120 ( I 0 L 1 ) \0 & \0 \0 \0 001 @ 0032140 001 \t \0 \0 o \0 \0 \0 \t \0 \0 @ 002 h d o 0032160 \0 \0 \0 o \0 \0 \0 \r 005 \0 \0 @ 001 \t \0 \0 0032200 \b \0 \0 020 \0 ( 3 5 T E R P R I 0032220 3 2 P R E M T E X T 2 7 M 0032240 A P R I N T 1 1 P R I N 1 0032260 4 P R I N 1 ) \r N I L \r ( 2 0032300 3 " , " 1 9 " . \r " 8 0032320 " a t " ) \r P R E M T E X 0032340 T : D 4 \r ( P 0 T X T I 0032360 0 R N A M F 1 T R A N 0032400 S O R E M A R K S ) \0 < 001 001 \0 0032420 001 021 020 \0 @ ` \0 \0 026 X 265 . @ Q 026 265 0032440 ) o \0 \0 \0 270 l 005 \t \0 \0 H d 002 001 g 0032460 \0 \0 360 232 d 002 002 h i \v \0 \0 031 277 H 002 0032500 \t \0 \0 \b \0 \0 h 020 002 001 260 333 \0 ( 5 2 0032520 T E R P R I 4 9 M A P R I 0032540 N T 4 2 C O M M E N T 3 2 0032560 5 S P A C E S ) \r ( 3 2 % % 0032600 6 U S E R N O T E S ) \r ( 0032620 1 9 ( * T h e t e x t o 0032640 f t h i s r e m a r k w a 0032660 s n o t d e f i n e d i n 0032700 t h e T R A N S F O R M A T 0032720 I O N S f i l e . ) ) \r T R A 0032740 N S O R S E T : D 4 \r ( P 0 0032760 C U R R E N T F N ) \0 4 001 \0 0033000 \0 \0 021 020 \0 g \0 \0 \t \0 \0 263 031 g \0 \0 0033020 h \n \0 \0 277 g \0 \0 h \n \0 \0 277 g \0 \0 0033040 \t \0 \0 277 g \0 \0 h g \0 \0 \v \0 \0 277 i 0033060 \t \0 \0 260 360 \0 ( 4 8 C L E A R B 0033100 U F 4 3 U S E R E X E C 3 0033120 2 R P A Q 2 5 R P A Q 1 0033140 7 R P A Q 8 B O U N D P ) 0033160 \r ( 4 0 T R A N S O R S E T U 0033200 S E R F N 3 6 + 2 9 U D 0033220 R S 2 1 U S E R N O T E S 0033240 1 3 T R A N S F O R M A T I O 0033260 N S 5 T R A N S F O R M A T 0033300 I O N S ) \r ( ) \r T R A N S O R 0033320 I N P U T P : D 4 \r ( L ( 1 0033340 B 0 A ) F 0 E D I T 0033360 C O M S L F 1 E D I T C O 0033400 M S A ) \0 = \0 002 \0 002 @ 265 \a A 241 0033420 h 020 @ g \0 \0 360 263 371 @ d 005 001 263 ) d 0033440 004 l 004 360 233 Q 034 265 037 A 224 @ P 034 265 030 0033460 @ 003 264 024 @ 001 005 001 265 016 @ 001 004 l 004 360 0033500 264 006 @ 001 P 034 020 \0 N I L \r ( 1 0 0033520 P P ) \r ( ) \r T R A N S O R S E 0033540 T U S E R F N : D 4 \r ( P 0 0033560 I N L I N E I 1 B I 0033600 0 A F 1 C U R R E N T F 0033620 N F 2 E D I T C O M S A 0033640 F 3 E D I T C O M S L F 0033660 4 L I S P X H I S T ) \0 Z 001 0033700 004 \0 002 021 020 \0 @ A \n \0 \0 264 P @ \t \0 0033720 \0 A \t \0 \0 032 X @ 004 l 004 360 233 @ R 034 0033740 247 @ S 034 223 d h 032 270 Q 254 o \0 \0 \0 o 0033760 \0 \0 \0 i \v \0 \0 277 H Q \n \0 \0 Q g \0 0034000 \0 Q g \0 \0 \n \0 \0 H \n \0 \0 \v \0 \0 T 0034020 Q \n \0 \0 g \0 \0 \t \0 \0 h 020 \0 ( 8 6 0034040 R E T F R O M 8 0 L I S P 0034060 X S T O R E V A L U E 7 5 / 0034100 P U T 7 2 / N C O N C 6 8 0034120 G E T P 5 7 R U M A R K 0034140 5 1 E R R O R 1 7 C O P Y 0034160 1 3 C O P Y 7 T R A N S 0034200 O R I N P U T P ) \r ( 8 3 L I 0034220 S P X 6 5 X F O R M 6 1 0034240 X F O R M ) \r ( 4 7 " b e f 0034260 o r e t r a n s f o r m a t i 0034300 o n s c a n b e s t o r e 0034320 d " 4 3 " Y o u m u s t 0034340 s p e c i f y a f u n c t i 0034360 o n w i t h t h e ' f n ' 0034400 c o m m a n d " ) \r R U M A R 0034420 K : D 4 \r ( I 1 F N I 0034440 0 X F O R M ) \0 033 \0 \0 \0 002 @ 0034460 003 264 027 @ o \0 \0 \0 i \v \0 \0 264 \f @ h 0034500 032 o \0 \0 \0 \n \0 \0 020 \0 ( 2 4 E D 0034520 I T E 1 2 E D I T F I N D P 0034540 ) \r N I L \r ( 2 1 ( ( L P Q 0034560 F ( R E M A R K - - ) ( 0034600 E ( R U M A R K 1 ) T ) ) ) 0034620 8 ( R E M A R K - - ) ) \r 0034640 R U M A R K 1 : D 4 \r ( P 2 0034660 T E X T P 1 R N A M E 0034700 P 0 C A L L F 3 C O M 0034720 M E N T F L G F 4 L F 0034740 5 F N ) \0 ^ 003 003 \0 \0 T 001 021 ! 0034760 002 H d 002 003 263 024 277 o \0 \0 \0 i \n \0 \0 0035000 277 H i d \v \0 \0 260 @ 002 002 251 H 002 001 Y 0035020 004 l 004 360 263 3 H 002 Z 002 003 246 H 002 001 Z 0035040 003 264 ' H U \t \0 \0 Y h 032 \n \0 \0 277 J 0035060 001 S 360 243 S J 032 272 g \0 \0 I J h 032 032 0035100 ` \0 \0 032 \n \0 \0 h 020 \0 ( 9 0 / S 0035120 E T A T O M V A L 6 5 / R P 0035140 L A C D 5 9 G E N R E M N A 0035160 M 2 6 P R I N T 1 9 P R 0035200 I N 1 ) \r ( 8 6 U S E R N O T 0035220 E S 7 8 U S E R N O T E S ) 0035240 \r ( 1 5 " \r W a r n i n g 0035260 - b a d l y f o r m e d r 0035300 e m a r k : " ) \r T R A N S U 0035320 N D E R : D 4 \r ( P 0 X 0035340 I 1 F L G I 0 T S E T 0035360 F N F 1 L I S P X L I N E 0035400 ) \0 = 001 001 001 002 g \0 \0 \t \0 \0 g \0 0035420 \0 360 252 o \0 \0 \0 \t \0 \0 \b \0 \0 020 A 263 0035440 037 Q 260 031 d 001 021 001 \0 H 004 l 004 360 251 o 0035460 \0 \0 \0 H i \v \0 \0 277 023 002 003 265 350 Q k 0035500 @ 017 016 020 \0 ( 4 7 E R R O R 2 0035520 0 T R A N S O R S E T 1 7 0035540 L I S P X U N R E A D 5 \ E 0035560 V A L V 1 ) \r ( 8 + 2 L I 0035600 S P X I D ) \r ( 4 2 " A r g 0035620 n o t l i t a t o m : " 1 0035640 4 ( R E D O - 1 ) ) \r T X F 0035660 N : D 4 \r ( P 0 X I 0 0035700 L I N F 1 C U R R E N T 0035720 F N ) \0 033 001 001 \0 001 @ 265 020 Q 020 d 0035740 001 021 001 \0 H i \n \0 \0 023 002 003 265 363 @ \t 0035760 \0 \0 001 020 \0 ( 2 3 L A S T 1 4 0036000 T X F N 1 ) \r N I L \r ( ) \r T 0036020 X F N 1 : D 4 \r ( I 1 O L 0036040 D M E S S I 0 F N F 0 0036060 C U R R E N T F N ) \0 Q \0 001 0036100 \0 002 P 262 030 P g \0 \0 \n \0 \0 255 g \0 \0 0036120 P ` \0 \0 \n \0 \0 \n \0 \0 277 A 262 030 @ 262 0036140 * @ d g \0 \0 \n \0 \0 232 277 o \0 \0 \0 i 0036160 \n \0 \0 277 @ 262 024 @ ` \0 \0 034 253 g \0 \0 0036200 @ ` \0 \0 032 \n \0 \0 277 o \0 \0 \0 \t \0 \0 0036220 h 020 \0 ( 7 7 S A V E S E T Q 0036240 6 9 / S E T A T O M V A L 4 0036260 8 P R I N 1 3 8 G E T P 0036300 2 3 / S E T A T O M V A L 2 0036320 0 / D R E M O V E 9 G E T 0036340 P ) \r ( 6 5 T R A N S F O R M 0036360 A T I O N S 6 1 T R A N S F 0036400 O R M A T I O N S 5 6 T R A 0036420 N S F O R M A T I O N S 3 5 0036440 X F O R M 1 7 T R A N S F O 0036460 R M A T I O N S 1 3 T R A N 0036500 S F O R M A T I O N S 6 X F 0036520 O R M ) \r ( 7 4 ( C U R R E 0036540 N T F N F N ) 4 4 " Y o u 0036560 ' r e a d d i n g t o o l 0036600 d x f o r m s . " ) \r T X D U 0036620 M P : D 4 \r ( P 1 F P 0036640 0 F I L E I 0 L I N ) 0036660 \0 244 002 \0 \0 001 @ 001 021 021 001 \b \0 \0 ` \0 0036700 \0 \t \0 \0 ` \0 \0 i \n \0 \0 H 265 034 ` \0 0036720 \0 g \0 \0 360 243 ` \0 \0 215 o \0 \0 \0 i \n 0036740 \0 \0 277 i d \n \0 \0 Y \t \0 \0 X 251 o \0 0036760 \0 \0 I i \v \0 \0 277 g \0 \0 I \n \0 \0 I 0037000 \t \0 \0 Y g \0 \0 ` \0 \0 026 263 023 g \0 \0 0037020 g \0 \0 h 032 ` \0 \0 003 032 \n \0 \0 277 ` \0 0037040 \0 d g \0 \0 360 233 277 g \0 \0 h \n \0 \0 277 0037060 ` \0 \0 262 032 g \0 \0 ` \0 \0 \n \0 \0 255 g 0037100 \0 \0 g \0 \0 ` \0 \0 032 \n \0 \0 277 ` \0 \0 0037120 H g \0 \0 \v \0 \0 H 020 \0 ( 1 6 0 P 0037140 R E T T Y D E F 1 4 9 / S E 0037160 T A T O M V A L 1 3 5 M E M 0037200 B 1 2 0 / S E T A T O M V A 0037220 L 1 0 2 / S E T A T O M V A 0037240 L 7 6 N A M E F I E L D 7 0037260 2 / S E T A T O M V A L 6 4 0037300 E R R O R 5 3 O U T F I L 0037320 E P 4 9 R A T O M 4 3 P 0037340 R I N 1 2 0 S O R T 1 3 0037360 S O R T 7 T X F N 1 ) \r ( 1 0037400 5 7 X F O R M S V A R S 1 5 0037420 3 X F O R M S F N S 1 4 5 0037440 X F O R M S V A R S 1 4 2 X 0037460 F O R M S F N S 1 3 9 X F O 0037500 R M S V A R S 1 3 2 X F O R 0037520 M S V A R S 1 2 9 X F O R M 0037540 S F N S 1 2 4 X F O R M S F 0037560 N S 1 1 6 X F O R M S F N S 0037600 1 1 0 N O B I N D 1 0 6 0037620 X F O R M S F N S 9 7 X F O 0037640 R M S V A R S 9 2 T R A N S 0037660 A V E 8 9 X F O R M S V A R 0037700 S 8 3 X F O R M S V A R S 0037720 8 0 T R A N S A V E 6 8 D 0037740 U M P F I L E 3 4 D U M P F 0037760 I L E 2 9 N O B I N D 2 6 0040000 D U M P F I L E 1 6 U S E 0040020 R N O T E S 1 0 T R A N S F 0040040 O R M A T I O N S ) \r ( 5 9 0040060 " C a n n o t o p e n f i l 0040100 e : " 3 9 " \r F i l e t o 0040120 d u m p o n : " ) \r T X E 0040140 R A S E : D 4 \r ( I 0 L I 0040160 N F 3 C U R R E N T F N ) 0040200 \0 2 003 001 \0 001 @ 003 265 \a S \t \0 \0 020 0040220 \t \0 \0 001 \t \0 \0 021 0 002 @ 260 030 d 001 \t 0040240 \0 \0 270 I 265 \b H h 032 Z Y 204 H h 032 Y 0040260 031 277 002 003 265 351 J 020 \0 ( 2 6 T X E 0040300 R A S E 1 1 5 T X F N 1 1 0040320 1 L A S T 7 T X E R A S E 0040340 1 ) \r N I L \r ( ) \r T X E R A S 0040360 E 1 : D 4 \r ( I 0 F N ) 0040400 \0 / \0 \0 \0 001 @ d ` \0 \0 034 237 277 g \0 0040420 \0 @ ` \0 \0 \n \0 \0 \n \0 \0 277 @ g \0 \0 0040440 \n \0 \0 230 @ g \0 \0 \n \0 \0 @ 020 @ o \0 0040460 \0 \0 032 020 \0 ( 3 6 / R E M P R O 0040500 P 2 8 G E T P 2 0 / S E 0040520 T A T O M V A L 1 7 / D R E 0040540 M O V E ) \r ( 3 3 X F O R M 0040560 2 5 X F O R M 1 4 T R A N 0040600 S F O R M A T I O N S 1 0 T 0040620 R A N S F O R M A T I O N S 4 0040640 T R A N S F O R M A T I O N S 0040660 ) \r ( 4 3 ( - - N O T H I 0040700 N G F O U N D . ) ) \r T X T E 0040720 S T : D 4 \r ( P 1 O L D O 0040740 P 0 T E S T R A N I 0 0040760 L I N ) \0 J 002 \0 \0 001 i d \t \0 0041000 \0 021 002 001 @ 001 003 230 g \0 \0 @ 001 \n \0 \0 0041020 217 ` \0 \0 254 o \0 \0 \0 o \0 \0 \0 i \v \0 0041040 \0 277 g \0 \0 \t \0 \0 254 o \0 \0 \0 o \0 \0 0041060 \0 i \v \0 \0 277 ` \0 \0 \t \0 \0 \t \0 \0 I 0041100 \t \0 \0 277 020 \0 ( 7 0 O U T P U T 0041120 6 6 T R A N S O R F O R M 0041140 6 3 C O P Y 5 6 E R R O R 0041160 4 3 \ D E F I N E D P 3 6 0041200 E R R O R 1 9 / S E T A T 0041220 O M V A L 4 O U T P U T ) \r 0041240 ( 6 0 T E S T F O R M 4 0 0041260 T R A N S O R F O R M 2 3 T 0041300 E S T F O R M 1 4 T E S T F 0041320 O R M ) \r ( 5 2 " " 4 8 0041340 " Y o u m u s t l o a d < 0041360 L I S P > T R A N S O R . C O M 0041400 b e f o r e u s i n g t h 0041420 e T E S T c o m m a n d . " 0041440 3 2 " + T E S T ( S A M P 0041460 L E S - E X P R E S S I O N 0041500 T O B E T R A N S O R ' E D 0041520 ) " \r 2 8 " C o r r e c t 0041540 f o r m a t i s : " ) \r T X S 0041560 H O W : D 4 \r ( P 2 F N 0041600 P 1 F L G P 0 O L D O 0041620 I 0 L I N F 3 C U R 0041640 R E N T F N ) \0 O 003 001 \0 001 i \t 0041660 \0 \0 @ h 360 265 004 @ 002 021 002 001 @ 265 2 S 0041700 h 032 b \0 260 + d 001 021 001 002 J \t \0 \0 277 0041720 I 226 J h i \v \0 \0 277 J g \0 \0 \n \0 \0 0041740 265 006 o \0 \0 \0 \t \0 \0 277 \b \0 \0 023 002 003 0041760 265 326 H \t \0 \0 @ \t \0 \0 001 020 \0 ( 7 5 0042000 L A S T 7 1 O U T P U T 0042020 6 2 T E R P R I 5 8 P R I 0042040 N T D E F 4 9 G E T P 4 1 0042060 P R I N T 3 2 T X F N 1 0042100 3 O U T P U T ) \r ( 4 6 X F 0042120 O R M ) \r ( 5 5 ( N o t r 0042140 a n s f o r m a t i o n s ) ) \r 0042160 T X E D I T : D 4 \r ( P 0 0042200 F N I 0 L I N F 1 C 0042220 U R R E N T F N ) \0 B 001 001 \0 001 0042240 @ 265 7 Q h 032 b \0 260 0 d 001 021 001 \0 H 0042260 \t \0 \0 277 H g \0 \0 H g \0 \0 \n \0 \0 265 0042300 \v H o \0 \0 \0 i \v \0 \0 h H \v \0 \0 \v 0042320 \0 \0 H \n \0 \0 023 002 003 265 321 @ \t \0 \0 001 0042340 020 \0 ( 6 2 L A S T 5 3 R U 0042360 M A R K 4 9 P U T 4 6 E 0042400 D I T E 4 1 E R R O R 3 0 0042420 G E T P 1 8 T X F N 1 ) \r 0042440 ( 2 7 X F O R M 2 3 X F O 0042460 R M ) \r ( 3 7 " n o t e d 0042500 i t a b l e . " ) \r T X E X I T 0042520 : D 4 \r N I L \0 017 \0 \0 \0 \0 g 0042540 \0 \0 h \n \0 \0 g \0 \0 \t \0 \0 020 \0 ( 1 0042560 2 R E T F R O M 6 S E T T 0042600 O P V A L ) \r ( 9 T R A N S O 0042620 R S E T 2 U S E R I N P U T 0042640 P ) \r ( ) \r T X N O T E : D 4 0042660 \r ( P 1 T E X T P 0 N 0042700 A M E I 0 L I N F 2 0042720 C O M M E N T F L G ) \0 200 002 001 0042740 \0 001 @ 001 021 021 001 H 227 H d 004 l 004 360 253 0042760 277 o \0 \0 \0 H i \v \0 \0 260 035 ` \0 \0 026 0043000 002 001 Y 265 3 @ 002 Y 003 265 \b \0 \0 250 o 0043020 \0 \0 \0 i \n \0 \0 277 i d \n \0 \0 Y d 003 0043040 263 ( \b \0 \0 032 Y 260 ! 001 003 262 034 I d 002 0043060 263 030 001 Y 260 024 d 002 001 g \0 \0 360 222 277 I 0043100 002 002 \t \0 \0 H 020 I 001 R 360 243 R I 032 271 0043120 g \0 \0 H I h 032 032 ` \0 \0 032 \n \0 \0 H 0043140 020 \0 ( 1 2 4 / S E T A T O M V 0043160 A L 9 8 E D I T E 6 6 R 0043200 E A D L I N E 5 8 R E A D 0043220 5 2 P R I N 1 4 3 L I S P 0043240 X R E A D P 2 3 E R R O R ) 0043260 \r ( 1 2 0 U S E R N O T E S 0043300 1 1 2 U S E R N O T E S 8 9 0043320 % % 2 8 U S E R N O T E S 0043340 ) \r ( 4 8 " T e x t : " 0043360 1 8 " A r g n o t l i t a 0043400 t o m : " ) \r G E N R E M N A M 0043420 : D 4 \r ( P 1 N A M P 0043440 0 N I 0 F N ) \0 ) 002 \0 0043460 \0 001 j @ g \0 \0 h 032 032 \t \0 \0 021 002 001 0043500 I ` \0 \0 026 241 I 020 @ H k 330 X g \0 \0 0043520 h 032 032 032 \t \0 \0 Y 260 351 \0 ( 3 6 P 0043540 A C K 1 0 P A C K ) \r ( 2 9 0043560 % : 1 7 U S E R N O T E S 0043600 4 % : ) \r ( ) \r T X D E L N 0043620 O T E : D 4 \r ( P 4 T M P 0043640 P 3 R 1 I 0 L I N ) 0043660 \0 > 005 \0 \0 001 021 P 004 @ 260 4 d 001 h 0043700 274 [ ` \0 \0 026 \ 246 K o \0 \0 \0 032 216 g 0043720 \0 \0 L ` \0 \0 \n \0 \0 \n \0 \0 277 K 270 I 0043740 265 \b H h 032 Z Y 204 H h 032 Y 031 277 002 003 0043760 265 315 J 020 \0 ( 3 6 / S E T A T O 0044000 M V A L 3 3 / D R E M O V E 0044020 ) \r ( 3 0 U S E R N O T E S 0044040 2 6 U S E R N O T E S 1 3 0044060 U S E R N O T E S ) \r ( 2 1 0044100 ( N O T F O U N D ) ) \r ( P R 0044120 E T T Y C O M P R I N T T R A 0044140 N S O R C O M S ) \r ( R P A Q Q 0044160 T R A N S O R C O M S ( ( F 0044200 N S T R A N S O R T R A N S 0044220 O R - P R O C E E D T R A N S 0044240 O R F O R M T R A N S O R F N 0044260 S T R A N S F O R M T R A N 0044300 S I T T R A N X T \r T R A N 0044320 S E X I T K E E P L I S T T 0044340 R A N S E R R T R A N S O U T 0044360 P P A S S 1 T R A N S L I S 0044400 T T R A N S L I S T 1 P R E 0044420 M T E X T W A C H A D O O N 0044440 P R E C H P R E C H 1 \r P R 0044460 E C H 2 R E T A I L L N C 0044500 P R E S C A N ) T R A N S O R 0044520 M A C R O S T R A N S O R E M 0044540 A R K S T R A N S O R G L O B 0044560 A L S ( V A R S ( M A X L O 0044600 O P 1 5 3 0 ) ( T E S T R A 0044620 N ) ( \r U S E R M A C R O S 0044640 ( A P P E N D T R A N S O R M 0044660 A C R O S U S E R M A C R O S 0044700 ) ) ( G L O B A L V A R S ( 0044720 A P P E N D T R A N S O R G L 0044740 O B A L S G L O B A L V A R S 0044760 ) ) ( \r E D I T C O M S A ( 0045000 U N I O N ( Q U O T E ( N L 0045020 A M N L A M I T D O T H E S 0045040 E D O T H I S X F O R M E R 0045060 C O N T I N U E ) ) E D I T 0045100 C O M S A ) ) ( E D I T C O M 0045120 S L ( U N I O N ( \r Q U O T 0045140 E ( R E M A R K ) ) E D I T 0045160 C O M S L ) ) ( T R A N S I T 0045200 C O N S E S ( Q U O T E ( O 0045220 R R N I L X F O R M E R ) ) 0045240 ) ( P R E S C A R R A Y ( A 0045260 R R A Y 1 2 7 1 2 7 ) ) ) 0045300 ( \r I N I T V A R S ( N L I S 0045320 T P C O M S ) ( L A M B D A C 0045340 O M S ) ( T R A N S O U T R E 0045360 A D T A B L E F I L E R D T B 0045400 L ) ) ( D E C L A R E % : D 0045420 O E V A L @ L O A D \r D O E V 0045440 A L @ C O M P I L E D O N T C 0045460 O P Y ( P R O P B L K L I B 0045500 R A R Y D E F T A I L P ) ) 0045520 ( P R O P F I L E G R O U P 0045540 T R A N S O R ) ( B L O C K S 0045560 ( P R E C H B L O C K P R E 0045600 C H \r P R E C H 1 P R E C H 0045620 2 R E T A I L L N C ( E N 0045640 T R I E S P R E C H ) ( B L 0045660 K L I B R A R Y T A I L P M 0045700 E M B L A S T L E N G T H 0045720 A S S O C G E T P ) ) ( \r T 0045740 R A N S I T B L O C K T R A N 0045760 S I T W A C H A D O O N ( E 0046000 N T R I E S T R A N S I T W 0046020 A C H A D O O N ) ( G L O B A 0046040 L V A R S W A C H A D I D W 0046060 H E N T O D O I T \r T R A N S 0046100 I T C O N S E S L A M B D A C 0046120 O M S N L I S T P C O M S ) 0046140 ( B L K L I B R A R Y T A I L 0046160 P M E M B L A S T L E N G 0046200 T H A S S O C G E T P ) ) 0046220 ( T R A N X T B L O C K \r T R 0046240 A N X T ( E N T R I E S T R 0046260 A N X T ) ( B L K L I B R A R 0046300 Y T A I L P M E M B L A S 0046320 T L E N G T H A S S O C G 0046340 E T P ) ) ( N I L P R E S C 0046360 A N ( G L O B A L V A R S \r 0046400 P R E S C A R R A Y ) ) ) ( D 0046420 E C L A R E % : D O N T E V A 0046440 L @ L O A D D O E V A L @ C O 0046460 M P I L E D O N T C O P Y C 0046500 O M P I L E R V A R S ( A D D 0046520 V A R S ( N L A M A ) ( N L 0046540 A M L \r T R A N S E R R K E 0046560 E P L I S T T R A N S O R - P 0046600 R O C E E D ) ( L A M A ) ) ) 0046620 ( E D I T H I S T T R A N S 0046640 O R ) ) ) \r ( R P A Q Q T R A 0046660 N S O R M A C R O S ( ( R E M 0046700 A R K ( T X T ) ( E ( K E 0046720 E P L I S T T X T ) T ) ) 0046740 ( N L A M N I L ( E ( S E 0046760 T Q Q W H E R E T O G O N E X 0047000 T N L A M I T ) T ) \r ) ( 0047020 N L A M I T N I L ( O R R 0047040 N X ! N X ( ( E ( T R A N 0047060 S E X I T ) ) ) ) ) ( D O T H 0047100 E S E N I L ( E ( T R A N 0047120 S O R - P R O C E E D D O T H 0047140 E S E ) T ) N L A M ) ( \r 0047160 D O T H I S N I L ( E ( T 0047200 R A N S O R - P R O C E E D D 0047220 O T H I S ) T ) N L A M ) 0047240 ( X F O R M E R N I L ( E 0047260 ( T R A N S E R R T R A N S F 0047300 O R M A T I O N E R R O R \r " 0047320 F A U L T Y T R A N S F O R M 0047340 A T I O N " ( C U R R E N T F 0047360 O R M C U R R E N T C O M S ) 0047400 ) T ) ) ) ) \r ( R P A Q Q T 0047420 R A N S O R E M A R K S ( ( T 0047440 R A N S F O R M A T I O N E R R 0047460 O R ( * T h e T R A N S F 0047500 O R M A T I O N S s p e c i f 0047520 i e d f o r t h i s f o r 0047540 m f a i l e d t o \r w o r 0047560 k p r o p e r l y . T h e 0047600 T T Y m e s s a g e % ' F A 0047620 U L T Y T R A N S F O R M A T 0047640 I O N ' w a s p r i n t e d 0047660 , a n y c o m m a n d s r 0047700 e m a i n i n g i n t h e 0047720 \r t r a n s f o r m a t i o n 0047740 a f t e r t h e e r r o n e 0047760 o u s o n e w e r e s k i 0050000 p p e d , a n d t r a n s l 0050020 a t i o n c o n t i n u e d 0050040 a s i f t h e \r t r a n s 0050060 f o r m a t i o n h a d b e 0050100 e n n o r m a l l y c o m p 0050120 l e t e d . T h e u s e r 0050140 s h o u l d t r e a t t h e 0050160 t r a n s l a t e d f o r m 0050200 w i t h c a u t i o n a n 0050220 d \r a m e n d h i s t r a 0050240 n s f o r m a t i o n t o a 0050260 v o i d f u t u r e p r o b 0050300 l e m s . ) ) ( T R A N S E R 0050320 R O R ( * T R A N S O R g 0050340 o t c o n f u s e d a t t 0050360 h i s \r p o i n t . T h e 0050400 T T Y m e s s a g e % ' S H 0050420 O W J I M G O O D W I N ' 0050440 w a s p r i n t e d a n d 0050460 t r a n s l a t i o n c o n t 0050500 i n u e d w i t h t h e n 0050520 e x t f o r m , \r b u t t 0050540 h e u s e r s h o u l d t 0050560 r e a t t h e c o m p r o m 0050600 i s e d a r e a o f c o d 0050620 e w i t h c a u t i o n . ) 0050640 ) ( B L A M B D A 1 ( * N 0050660 o n - a t o m i c C A R o f 0050700 \r f o r m , b u t n o t 0050720 a n o p e n l a m b d a . 0050740 E i t h e r a p a r e n t h 0050760 e s i s e r r o r o r c o 0051000 m p u t e d C A R o f f o 0051020 r m . C o m p u t e d C A R 0051040 o f f o r m \r i s n o 0051060 l o n g e r l e g a l i n 0051100 B B N - L I S P ; A P P L Y * 0051120 i s u s e d i n s t e a d 0051140 . I f c o m p u t e d C A 0051160 R o f f o r m w a s i n 0051200 t e n d e d , t h e \r t r a 0051220 n s l a t i o n t o A P P L 0051240 Y * w i l l r u n o k . 0051260 S e e m a n u a l f o r d 0051300 i s c u s s i o n o f A P P 0051320 L Y * . ) ) ( B L A M B D A 2 0051340 ( * O p e n L A M B D A 0051360 \r w i t h w r o n g n u m b 0051400 e r o f a r g s . W h a t 0051420 c a n i t m e a n ? ) ) 0051440 ( B L A M B D A 3 ( * L a m 0051460 b d a - e x p r e s s i o n w 0051500 i t h o u t f o r m s . W h 0051520 a t c a n \r i t m e a n ? 0051540 ) ) ( I L L C A R ( * I l 0051560 l e g a l d a t a - t y p e 0051600 e n c o u n t e r e d a s C 0051620 A R o f f o r m E x p r e 0051640 s s i o n t r e a t e d a s 0051660 l i s t o f \r f o r m s . 0051700 ) ) ( T A I L P / D O T H I S 0051720 ( * W h e n t h e t r a 0051740 n s o r m a c r o D O T H I S 0051760 i s e x e c u t e d a t 0052000 a T A I L P p o s i t i o n 0052020 , T R A N S O R d o e s a 0052040 \r 1 c o m m a n d f i r s 0052060 t , a s s u m i n g t h a t 0052100 t h e c u r r e n t p o s 0052120 i t i o n i s a l i s t 0052140 o f f o r m s a n d C A R 0052160 o f i t i s t h e f o 0052200 r m \r i n t e n d e d . T h 0052220 e u s e r s h o u l d m a 0052240 k e s u r e t h a t t h i 0052260 s i s w h a t w a s i n 0052300 t e n d e d b y t h e T R 0052320 A N S F O R M A T I O N S w h 0052340 i c h c a l l e d \r D O T H 0052360 I S , i . e . t h e T R A 0052400 N S F O R M A T I O N S f o r 0052420 t h e f o r m c o n t a i 0052440 n i n g t h i s o n e . ) ) 0052460 ) ) \r ( R P A Q Q T R A N S O 0052500 R G L O B A L S ( U S E R N O 0052520 T E S U S E R N O T E S T E 0052540 S T F O R M T E S T F O R M 0052560 T R A N S F O R M A T I O N S * 0052620 X F O R M S F N S \r X F O R M 0052640 S V A R S X F O R M S V A R S 0052660 D U M P F I L E T R A N S F 0052700 O R M A T I O N S T R A N S F * 0052760 O R M A T I O N S ) ) \r ( R P A 0053000 Q Q M A X L O O P 1 5 3 0 ) 0053020 \r ( R P A Q Q T E S T R A N 0053040 N I L ) \r ( R P A Q U S E R M 0053060 A C R O S ( A P P E N D T R 0053100 A N S O R M A C R O S U S E R 0053120 M A C R O S ) ) \r ( R P A Q G 0053140 L O B A L V A R S ( A P P E N 0053160 D T R A N S O R G L O B A L S 0053200 G L O B A L V A R S ) ) \r ( R 0053220 P A Q E D I T C O M S A ( U 0053240 N I O N ( Q U O T E ( N L A 0053260 M N L A M I T D O T H E S E 0053300 D O T H I S X F O R M E R 0053320 C O N T I N U E ) ) E D I T C 0053340 O M S A ) ) \r ( R P A Q E D I 0053360 T C O M S L ( U N I O N ( Q 0053400 U O T E ( R E M A R K ) ) E 0053420 D I T C O M S L ) ) \r ( R P A Q 0053440 Q T R A N S I T C O N S E S 0053460 ( O R R N I L X F O R M E R 0053500 ) ) \r ( R P A Q P R E S C A R 0053520 R A Y ( A R R A Y 1 2 7 1 0053540 2 7 ) ) \r ( R P A Q ? N L I S 0053560 T P C O M S ) \r ( R P A Q ? L 0053600 A M B D A C O M S ) \r ( R P A Q 0053620 ? T R A N S O U T R E A D T A 0053640 B L E F I L E R D T B L ) \r ( 0053660 P U T P R O P S T R A N S O R 0053700 F I L E G R O U P ( T R A N 0053720 S O R T S E T ) ) \r ( P U T P 0053740 R O P S T R A N S O R C O P 0053760 Y R I G H T ( N O N E ) ) \r ( 0054000 P R E T T Y C O M P R I N T T 0054020 S E T C O M S ) \r ( R P A Q Q 0054040 T S E T C O M S ( ( F N S * 0054060 T S E T F N S ) T S E T M A 0054100 C R O S ( V A R S ( L I S P 0054120 X M A C R O S ( U N I O N T 0054140 S E T M A C R O S L I S P X M 0054160 A C R O S ) ) ( \r T E S T F O 0054200 R M ) ( L I S P X C O M S ( 0054220 U N I O N L I S P X C O M S 0054240 ( M A P C A R T S E T M A C R 0054260 O S ( F U N C T I O N C A R 0054300 ) ) ) ) ( M E R G E ) ( P R 0054320 E T T Y D E F M A C R O S ( \r 0054340 C O N S ( Q U O T E ( T R A 0054360 N S A V E N I L D U M P F I 0054400 L E U S E R N O T E S N L I 0054420 S T P C O M S L A M B D A C O 0054440 M S ( P R O P X F O R M * 0054460 T R A N S F O R M A T I O N S 0054500 ) ( P ( \r C O N D ( ( E Q 0054520 ( E V A L V ( Q U O T E M 0054540 E R G E ) ) T ) ( R P A Q 0054560 T R A N S F O R M A T I O N S 0054600 ( U N I O N T R A N S F O R M 0054620 A T I O N S ( L I S T P ( G 0054640 E T P ( Q U O T E \r T R A N 0054660 S F O R M A T I O N S ) ( Q U 0054700 O T E V A L U E ) ) ) ) ) ( 0054720 M A P C ( G E T P ( Q U O T 0054740 E U S E R N O T E S ) ( Q U 0054760 O T E V A L U E ) ) ( F U N 0055000 C T I O N ( L A M B D A ( \r 0055020 N O T E ) ( O R ( A S S O C 0055040 ( C A R N O T E ) U S E R 0055060 N O T E S ) ( S E T Q U S E 0055100 R N O T E S ( C O N S N O T 0055120 E U S E R N O T E S ) ) ) ) ) 0055140 ) ) ( T ( M A P C ( G E T 0055160 P ( \r Q U O T E T R A N S F 0055200 O R M A T I O N S ) ( Q U O T 0055220 E V A L U E ) ) ( F U N C T 0055240 I O N ( L A M B D A ( X ) 0055260 ( A N D ( N O T ( M E M B 0055300 X T R A N S F O R M A T O N S 0055320 ) ) ( \r / R E M P R O P X 0055340 ( Q U O T E X F O R M ) ) ) ) 0055360 ) ) ) ) ) ) ) P R E T T Y D E 0055400 F M A C R O S ) ) ( L C A S E 0055420 L S T ( A P P E N D ( Q U O 0055440 T E ( D O T R A N S F O R M 0055460 A T I O N S ) ) \r L C A S E L 0055500 S T ) ) ) ( P R O P U C A S 0055520 E B B N L I S P S R I M 0055540 I T Q A 3 P L A N N E R U 0055560 C I I N T E R L I S P ) ( P 0055600 R O P F I L E G R O U P T S 0055620 E T ) ( D E C L A R E % : \r 0055640 D O N T E V A L @ L O A D D O 0055660 E V A L @ C O M P I L E D O N 0055700 T C O P Y C O M P I L E R V A 0055720 R S ( A D D V A R S ( N L A 0055740 M A ) ( N L A M L T R A N S 0055760 U N D E R ) ( L A M A ) ) ) ) 0056000 ) \r ( R P A Q Q T S E T F N S 0056020 ( T R A N S O R S E T T R A 0056040 N S O R I N P U T P T R A N S 0056060 O R S E T U S E R F N R U M A 0056100 R K R U M A R K 1 T R A N S 0056120 U N D E R T X F N T X F N 1 0056140 T X D U M P \r T X E R A S E 0056160 T X E R A S E 1 T X T E S T 0056200 T X S H O W T X E D I T T 0056220 X E X I T T X N O T E G E N 0056240 R E M N A M T X D E L N O T E 0056260 ) ) \r ( R P A Q Q T S E T M A 0056300 C R O S ( ( S H O W ( T R A 0056320 N S U N D E R T X S H O W ) ) 0056340 ( E X I T ( T R A N S U N D 0056360 E R T X E X I T ) ) ( N O T 0056400 E ( T R A N S U N D E R T X 0056420 N O T E T ) ) \r ( T E S T 0056440 ( T R A N S U N D E R T X T E 0056460 S T T ) ) ( E R A S E ( T 0056500 R A N S U N D E R T X E R A S 0056520 E ) ) ( E D I T ( T R A N S 0056540 U N D E R T X E D I T ) ) ( 0056560 D U M P ( T R A N S U N D E R 0056600 \r T X D U M P ) ) ( F N ( 0056620 T R A N S U N D E R T X F N ) 0056640 ) ( D E L N O T E ( T R A N 0056660 S U N D E R T X D E L N O T E 0056700 ) ) ) ) \r ( R P A Q L I S P X 0056720 M A C R O S ( U N I O N T S 0056740 E T M A C R O S L I S P X M A 0056760 C R O S ) ) \r ( R P A Q T E S 0057000 T F O R M N I L ) \r ( R P A Q 0057020 L I S P X C O M S ( U N I O 0057040 N L I S P X C O M S ( M A P 0057060 C A R T S E T M A C R O S ( 0057100 F U N C T I O N C A R ) ) ) ) 0057120 \r ( R P A Q M E R G E N I L 0057140 ) \r ( R P A Q P R E T T Y D E 0057160 F M A C R O S ( C O N S ( Q 0057200 U O T E ( T R A N S A V E N 0057220 I L D U M P F I L E U S E R 0057240 N O T E S N L I S T P C O M S 0057260 L A M B D A C O M S ( P R O 0057300 P X F O R M \r * T R A N S 0057320 F O R M A T I O N S ) ( P ( 0057340 C O N D ( ( E Q ( E V A L V 0057360 ( Q U O T E M E R G E ) ) 0057400 T ) ( R P A Q T R A N S F O 0057420 R M A T I O N S ( U N I O N 0057440 T R A N S F O R M A T I O N S \r 0057460 ( L I S T P ( G E T P ( Q 0057500 U O T E T R A N S F O R M A T 0057520 I O N S ) ( Q U O T E V A L 0057540 U E ) ) ) ) ) ( M A P C ( G 0057560 E T P ( Q U O T E U S E R N 0057600 O T E S ) ( Q U O T E V A L 0057620 U E ) ) ( \r F U N C T I O N 0057640 ( L A M B D A ( N O T E ) ( 0057660 O R ( A S S O C ( C A R N 0057700 O T E ) U S E R N O T E S ) 0057720 ( S E T Q U S E R N O T E S 0057740 ( C O N S N O T E U S E R N 0057760 O T E S ) ) ) ) ) ) ) ( \r T 0060000 ( M A P C ( G E T P ( Q U O 0060020 T E T R A N S F O R M A T I O 0060040 N S ) ( Q U O T E V A L U E 0060060 ) ) ( F U N C T I O N ( L A 0060100 M B D A ( X ) ( A N D ( N 0060120 O T ( M E M B X \r T R A N 0060140 S F O R M A T O N S ) ) ( / R 0060160 E M P R O P X ( Q U O T E 0060200 X F O R M ) ) ) ) ) ) ) ) ) ) ) 0060220 P R E T T Y D E F M A C R O S 0060240 ) ) \r ( R P A Q L C A S E L S 0060260 T ( A P P E N D ( Q U O T E 0060300 ( D O T R A N S F O R M A T 0060320 I O N S ) ) L C A S E L S T ) 0060340 ) \r ( P U T P R O P S B B N 0060360 U C A S E T ) \r ( P U T P R O 0060400 P S L I S P U C A S E T ) 0060420 \r ( P U T P R O P S S R I U 0060440 C A S E T ) \r ( P U T P R O P 0060460 S M I T U C A S E T ) \r ( 0060500 P U T P R O P S Q A 3 U C A 0060520 S E T ) \r ( P U T P R O P S 0060540 P L A N N E R U C A S E T ) 0060560 \r ( P U T P R O P S U C I U 0060600 C A S E T ) \r ( P U T P R O P 0060620 S I N T E R L I S P U C A S 0060640 E T ) \r ( P U T P R O P S T 0060660 S E T F I L E G R O U P ( T 0060700 R A N S O R T S E T ) ) \r N I 0060720 L \r 0060722