$ 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