$ od -c -N 50000 [eris]<Lisp>Harmony>Library>TRANSOR.DCOM!1
0000000 ( F I L E C R E A T E D " 2 8
0000020 - S e p - 8 4 1 5 : 0 4 : 3 8
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > T R A N S O
0000120 R . ; 2 ) \r " 2 7 - S e p - 8
0000140 4 1 4 : 5 5 : 0 5 " b c o m
0000160 p l ' d i n " I N T E R L I
0000200 S P - D 2 7 - S e p - 8 4 .
0000220 . . " d a t e d " 2 7 - S e
0000240 p - 8 4 1 5 : 2 0 : 5 2 " ) \r
0000260 ( F I L E C R E A T E D " 2 2
0000300 - N O V - 8 3 2 1 : 4 1 : 3 3
0000320 " / u s r 2 / v a n b u e r /
0000340 t r a n s o r . ; 2 3 2 8 5 5
0000360 c h a n g e s t o : ( F N
0000400 S P R E S C A N ) p r e v i
0000420 o u s \r d a t e : " 3 - J
0000440 U N - 7 9 0 9 : 4 2 : 5 8 "
0000460 / u s r 2 / v a n b u e r / t r
0000500 a n s o r ) \r P R E C H D 1 \r
0000520 ( L ( 3 P R T Y F L G 2
0000540 F I L E 1 O L D E C H 0
0000560 E C H ) ) \0 - 002 \0 \0 004 B \t \0 \0
0000600 021 021 001 A 225 @ A \n \0 \0 200 @ \t \0 \0 \t
0000620 \0 \0 Y C 224 d \t \0 \0 203 I \t \0 \0 277 \b
0000640 \0 \0 H \t \0 \0 h 020 \0 ( 5 1 Q O U
0000660 T P U T 4 5 Q T E R P R I
0000700 4 1 Q P R I N T 3 4 Q P R
0000720 I N T D E F 2 5 Q \ P R E C
0000740 H B L O C K / P R E C H 1 2 2
0000760 Q \ P R E C H B L O C K / R E
0001000 T A I L 1 5 Q \ P R E C H B
0001020 L O C K / L N C 3 O U T P U
0001040 T ) \r N I L \r ( ) \r \ P R E C H
0001060 B L O C K / P R E C H 1 D 1 \r
0001100 ( L ( 0 R E C H ) ) \0 201 004
0001120 \0 \0 001 m 376 021 1 003 @ d 002 251 001 l 004 \n
0001140 \0 \0 \t \0 \0 020 001 215 d 001 273 H k 330 270 K
0001160 @ 002 001 360 244 002 003 265 361 h 271 j H 363 263 ?
0001200 @ d 001 001 003 242 001 001 206 001 001 l 003 \n \0 \0
0001220 J 032 272 H d j 360 263 % k 360 237 @ 001 002 001
0001240 003 245 @ 001 002 001 260 023 g \0 \0 214 g \0 \0 H
0001260 g \0 \0 \v \0 \0 \t \0 \0 J 032 Z 277 @ 002 \t
0001300 \0 \0 J 032 272 I 002 225 g \0 \0 J 032 200 J \t
0001320 \0 \0 020 \0 ( 1 7 6 Q D R E V E R
0001340 S E 1 5 6 Q \ P R E C H B L
0001360 O C K / P R E C H 1 1 4 5 Q
0001400 M K A T O M 1 4 2 Q C O N C
0001420 A T 7 4 Q \ P R E C H B L O
0001440 C K / P R E C H 2 2 1 Q M K
0001460 S T R I N G 1 6 Q \ P R E C
0001500 H B L O C K / P R E C H 2 ) \r (
0001520 1 6 7 Q - - 1 3 7 Q . . .
0001540 1 3 3 Q . . . 1 2 7 Q &
0001560 ) \r ( ) \r \ P R E C H B L O C K
0001600 / P R E C H 2 D 1 \r ( L ( 1
0001620 L E V E L 0 X ) F 5
0001640 C O M M E N T F L G ) \0 N 005 001
0001660 \0 002 @ d 003 262 I 001 U 360 224 o \0 \0 \0 020
0001700 k A 361 223 g \0 \0 020 021 P 004 @ 260 . d 001
0001720 273 A k 331 b 002 277 j A 363 223 g \0 \0 204 K
0001740 A \n \0 \0 270 I 265 \a H h 032 Z 201 H & 271
0001760 274 j A 363 h 360 264 004 L 002 003 265 323 J 020 \0
0002000 ( 6 1 Q \ P R E C H B L O C K
0002020 / P R E C H 2 ) \r ( 5 3 Q - -
0002040 2 4 Q & ) \r ( 1 4 Q " *
0002060 * C O M M E N T * * " ) \r \ P R
0002100 E C H B L O C K / R E T A I L
0002120 D 1 \r ( L ( 0 L ) ) \0 1 002
0002140 \0 \0 001 021 001 @ d 001 @ 002 001 \n \0 \0 220
0002160 001 001 h 032 X @ 260 027 d Y d 002 242 001 001 206
0002200 001 I 002 001 \n \0 \0 224 I 001 H 032 270 002 003 265
0002220 351 H 020 \0 ( 4 3 Q M E M B 1 3
0002240 Q T A I L P ) \r N I L \r ( ) \r
0002260 \ P R E C H B L O C K / L N C
0002300 D 1 \r ( L ( 1 L 2 0 L 1
0002320 ) ) \0 ( 001 \0 \0 002 021 020 \0 @ 003 265 017
0002340 \b \0 \0 277 @ 002 A \n \0 \0 236 @ 020 \t \0 \0
0002360 X A \t \0 \0 360 263 356 H 020 @ 002 b \0 260 347
0002400 \0 ( 3 3 Q L A S T 2 6 Q L
0002420 A S T 2 0 Q T A I L P 1 1
0002440 Q H E L P ) \r N I L \r ( ) \r T
0002460 R A N S I T D 1 \r ( F 1 L
0002500 F 2 T R A N S I T A I L
0002520 F 3 S T O P P E D U P F
0002540 4 L A S T A I L F 5 C U
0002560 R R E N T C O M S F 6 C U
0002600 R R E N T F O R M F 7 O L
0002620 D L E N G T H F 1 0 Q C O
0002640 N T I N U E L F 1 1 Q W H
0002660 E R E T O G O N E X T F 1 2
0002700 Q T R A N S I T L ) \0 273 001 \n
0002720 \0 \0 Q 001 021 001 \0 \b \0 \0 H d Q 002 001 \n
0002740 \0 \0 262 034 277 g \0 \0 o \0 \0 \0 o \0 \0 \0
0002760 \v \0 \0 277 H 001 X Q 002 032 c 002 277 H c \f
0003000 h c 020 o \0 \0 \0 c 022 Q 002 001 \t \0 \0 c
0003020 016 Q c 024 T 265 H Q 002 001 \n \0 \0 c 004
0003040 227 H R 002 \n \0 \0 262 027 o \0 \0 \0 o \0 \0
0003060 \0 \n \0 \0 207 001 H 360 262 337 T c 004 277 S 262
0003100 035 H d S 001 360 262 027 003 251 S o \0 \0 \0 \t
0003120 \0 \0 360 227 g \0 \0 \t \0 \0 260 # H 003 244 `
0003140 \0 \0 260 033 H d 001 004 l 004 360 225 001 g \0 \0
0003160 033 212 001 003 223 ` \0 \0 203 o \0 \0 \0 c \n d
0003200 264 \v ` \0 \0 002 U 030 ` \0 \0 020 \0 ( 2 0
0003220 7 Q R E T F R O M 1 7 7 Q
0003240 # # 1 4 1 Q H E L P 1 2 4
0003260 Q M E M B 1 1 3 Q M E M B
0003300 7 4 Q L E N G T H 4 0 Q
0003320 T R A N S E R R 1 7 Q T A I
0003340 L P 7 W A C H A D O O N ) \r
0003360 ( 2 7 0 Q T R A N S I T C O N
0003400 S E S 2 6 2 Q T R A N S I T
0003420 C O N S E S 2 4 5 Q L A M B
0003440 D A C O M S 2 3 5 Q X F O R
0003460 M 2 1 7 Q N L I S T P C O M
0003500 S 2 0 4 Q P R O C E E D 2
0003520 5 Q T R A N S E R R O R ) \r (
0003540 2 5 2 Q ( ( C O M S Q ( R
0003560 E M A R K I L L C A R ) D O
0003600 T H E S E ) ) 1 7 4 Q ( U P
0003620 ) 1 3 6 Q " S h o w J i m
0003640 G o o d w i n . " 1 3 2 Q
0003660 " T h e e d i t o r l o s t
0003700 L A S T A I L , a n d w i
0003720 t h i t i t s s e n s e
0003740 o f d i r e c t i o n . " 6
0003760 4 Q ( O R R 2 N X ! N X
0004000 ( ( E ( T R A N S E X I T )
0004020 ) ) ) 3 5 Q ( C U R R E N T
0004040 F O R M C U R R E N T C O M S
0004060 ) 3 1 Q " T h e f u n c t
0004100 i o n T R A N S I T r e a c
0004120 h e d a T A I L P p o s i
0004140 t i o n ; s h o w J i m G
0004160 o o d w i n . " ) \r W A C H A D
0004200 O O N D 1 \r ( L ( 0 F L G
0004220 ) F 1 L F 2 T E S T
0004240 R A N ) \0 5 001 002 \0 001 R 265 2 \b \0
0004260 \0 021 001 \0 @ 232 h 027 \0 \0 277 H 027 \0 \0 h
0004300 020 ` \0 \0 H 361 263 027 Q ` \0 \0 i \v \0 \0
0004320 Q 027 \0 \0 H o \0 \0 \0 330 027 \0 \0 h 020 \0
0004340 ( 4 4 Q P R E C H 5 C L O
0004360 C K ) \r ( 6 1 Q W H E N T O D
0004400 O I T 5 0 Q W A C H A D I D
0004420 4 0 Q W A C H A D I D 3 0
0004440 Q W H E N T O D O I T 2 3 Q
0004460 W H E N T O D O I T 1 6 Q
0004500 W A C H A D I D ) \r ( 5 5 Q
0004520 5 3 7 4 4 0 Q ) \r T R A N X T
0004540 D 1 \r ( F 3 W H E R E T O G
0004560 O N E X T F 4 T R A N S I
0004600 T A I L F 5 L F 6 C
0004620 U R R E N T F O R M F 7 T
0004640 R A N S I T L F 1 0 Q O L
0004660 D L E N G T H F 1 1 Q L A
0004700 S T A I L F 1 2 Q C O N T
0004720 I N U E L F 1 3 Q C O N T
0004740 I N U E T A I L ) \0 215 003 \t \0 \0
0004760 021 0 002 W 024 265 * T 001 270 W 016 002 001 \t \0
0005000 \0 Y W 020 360 263 # W 020 k 331 I 360 263 _ g
0005020 \0 \0 o \0 \0 \0 o \0 \0 \0 \v \0 \0 h 020 c
0005040 \n 277 W 026 c 022 h 020 H V 360 263 026 S g \0
0005060 \0 360 255 H 003 265 & V 003 265 024 g \0 \0 c 006
0005100 277 W 016 H 030 c \n 277 T c 022 S 020 g \0 \0
0005120 H 032 i \v \0 \0 262 345 h 260 345 g \0 \0 V 032
0005140 Z i \v \0 \0 262 322 J S 032 260 324 T U 002 001
0005160 \n \0 \0 244 o \0 \0 \0 020 h 260 304 \0 ( 2 0
0005200 2 Q T A I L P 1 6 4 Q E D
0005220 I T F I N D P 1 4 5 Q E D I
0005240 T F I N D P 5 4 Q T R A N S
0005260 E R R 2 0 Q L E N G T H ) \r
0005300 ( 1 5 5 Q = = 1 3 7 Q = =
0005320 1 1 5 Q N L A M 1 0 0 Q
0005340 N L A M I T 4 1 Q O U T O F
0005360 B O U N D S ) \r ( 2 0 7 Q (
0005400 O R R ! N X ( ( E ( T R A
0005420 N S E X I T ) ) ) ) 5 1 Q (
0005440 C U R R E N T F O R M C U R R
0005460 E N T C O M S ) 4 5 Q " Y o
0005500 u r t r a n s f o r m a t i o
0005520 n s c h e a t e d a n d c
0005540 h a n g e d s o m e t h i n g
0005560 o u t o f b o u n d s . "
0005600 ) \r P R E S C A N D 1 \r ( P
0005620 5 A T P 4 A C P 2
0005640 I P 1 O U T F P 0 I
0005660 N F I 2 P R E S C A N F N
0005700 I 1 C H A R L S T I 0
0005720 F I L E ) \0 203 006 \0 \0 003 @ \t \0
0005740 \0 \t \0 \0 @ i \n \0 \0 \t \0 \0 \t \0 \0 l
0005760 177 021 023 003 J j 360 254 ` \0 \0 J d * 277 J
0006000 k 331 Z 260 362 A 217 d 001 273 ` \0 \0 K 001 K
0006020 002 265 003 j * 277 002 003 265 357 H g \0 \0 \n \0
0006040 \0 270 I g \0 \0 \n \0 \0 271 021 005 H \t \0
0006060 \0 263 # H \ j 360 263 365 ` \0 \0 L ( ]
0006100 227 I M \n \0 \0 277 260 346 L H I l 003 B 017
0006120 016 277 260 333 023 H \t \0 \0 277 I \t \0 \0 020 \0
0006140 ( 2 0 0 Q C L O S E F 1 7 3
0006160 Q C L O S E F 1 5 0 Q B O
0006200 U T 1 2 3 Q E O F P 1 1 3
0006220 Q G E T S T R E A M 1 0 3 Q
0006240 G E T S T R E A M 2 1 Q O
0006260 U T P U T 1 6 Q O U T F I L
0006300 E 1 3 Q N A M E F I E L D
0006320 6 I N P U T 3 I N F I L E
0006340 ) \r ( 1 3 7 Q P R E S C A R R
0006360 A Y 1 1 0 Q O U T P U T 1
0006400 0 0 Q I N P U T 5 7 Q P R
0006420 E S C A R R A Y 3 5 Q P R E
0006440 S C A R R A Y ) \r ( ) \r T R A N
0006460 S O R A 0 0 0 1 A 0 0 0 2 D 1
0006500 \r ( N A M E E R R O R S E T
0006520 P 0 H E L P C L O C K F
0006540 1 I N P U T F I L E F 2
0006560 E X P R E S S I O N ) \0 \f 001 002
0006600 002 \0 021 020 \0 Q \t \0 \0 c 004 i 020 \0 ( 6
0006620 R E A D ) \r N I L \r ( ) \r T R
0006640 A N S O R A 0 0 0 1 D 1 \r ( N
0006660 A M E E R R O R S E T P 6
0006700 T M P P 5 E X P R E S S
0006720 I O N P 4 N A M E F I E L
0006740 D P 3 L I S T I N G P
0006760 2 L I S T F I L E P 1 O
0007000 U T P U T F I L E P 0 I N
0007020 P U T F I L E F 7 S O U R
0007040 C E F I L E F 1 0 Q T R A
0007060 N S F O R M A T I O N S F 1
0007100 1 Q M A C R O Y ) 001 3 \a 003 002
0007120 \0 021 p 006 W 020 003 250 o \0 \0 \0 o \0 \0 \0
0007140 215 W 016 \t \0 \0 X 265 016 o \0 \0 \0 W 016 i
0007160 \v \0 \0 277 H g \0 \0 H \n \0 \0 265 003 j k
0007200 330 g \0 \0 H \n \0 \0 k 331 \v \0 \0 \ o \0
0007220 \0 \0 \n \0 \0 \t \0 \0 ^ \t \0 \0 Y 245 o \0
0007240 \0 \0 260 027 L o \0 \0 \0 \n \0 \0 \t \0 \0 ^
0007260 \t \0 \0 Z 251 o \0 \0 \0 N i \v \0 \0 277 H
0007300 \t \0 \0 \t \0 \0 277 I \t \0 \0 276 J \t \0 \0
0007320 277 N \t \0 \0 277 o \0 \0 \0 I \n \0 \0 277 H
0007340 I \n \0 \0 277 o \0 \0 \0 I \n \0 \0 277 \b \0
0007360 \0 I \n \0 \0 277 o \0 \0 \0 I \n \0 \0 277 I
0007400 \t \0 \0 277 I \t \0 \0 277 o \0 \0 \0 J \n \0
0007420 \0 277 H J \n \0 \0 277 o \0 \0 \0 J \n \0 \0
0007440 277 \b \0 \0 J \n \0 \0 277 J \t \0 \0 277 J \t
0007460 \0 \0 277 o \0 \0 \0 \t \0 \0 230 M d g \0 \0
0007500 360 262 ' 277 H \t \0 \0 224 H \t \0 \0 277 I \t
0007520 \0 \0 277 K J \n \0 \0 277 J \t \0 \0 277 I J
0007540 h 032 032 022 c 022 i 020 003 255 h o \0 \0 \0 o
0007560 \0 \0 \0 \v \0 \0 260 274 M \t \0 \0 ] I \n \0
0007600 \0 260 261 \0 ( 4 5 7 Q T R A N S O
0007620 U T 4 5 2 Q T R A N S F O R
0007640 M 4 4 4 Q T R A N S E R R
0007660 4 1 3 Q C L O S E F 4 0 6 Q
0007700 T R A N S L I S T 4 0 0 Q
0007720 E N D F I L E 3 7 3 Q C L O
0007740 S E F 3 6 6 Q O P E N P 3
0007760 5 0 Q T R A N S O R A 0 0 0 1
0010000 A 0 0 0 2 3 4 0 Q T E R P R
0010020 I 3 3 3 Q T E R P R I 3 2
0010040 6 Q P R I N 1 3 2 2 Q D A
0010060 T E 3 1 6 Q P R I N 1 3 0
0010100 5 Q P R I N T 2 7 7 Q P R
0010120 I N 1 2 6 6 Q T E R P R I
0010140 2 6 1 Q T E R P R I 2 5 4 Q
0010160 P R I N 1 2 4 3 Q P R I N
0010200 1 2 3 7 Q D A T E 2 3 3 Q
0010220 P R I N 1 2 2 2 Q P R I N
0010240 T 2 1 4 Q P R I N 1 2 0 3
0010260 Q O U T P U T 1 7 6 Q O U
0010300 T F I L E 1 7 1 Q O U T F I
0010320 L E 1 6 4 Q I N P U T 1 6
0010340 1 Q I N F I L E 1 5 4 Q E
0010360 R R O R 1 4 1 Q O U T F I L
0010400 E P 1 3 5 Q M K A T O M 1
0010420 3 2 Q C O N C A T 1 1 2 Q
0010440 O U T F I L E P 1 0 6 Q M K
0010460 A T O M 1 0 3 Q C O N C A T
0010500 7 3 Q S U B S T R I N G 6
0010520 6 Q S T R P O S 5 2 Q S T
0010540 R P O S 4 1 Q E R R O R 2
0010560 4 Q I N F I L E P ) \r ( 3 5 6
0010600 Q S T O P 6 2 Q % . 4 6
0010620 Q > ) \r ( 4 4 1 Q ( E X P
0010640 R E S S I O N ) 4 3 5 Q " N
0010660 L I S T P e x p r e s s i o n
0010700 o n f i l e - e x p r e
0010720 s s i o n d i s c a r d e d :
0010740 " 3 4 5 Q ( T R A N S O R A
0010760 0 0 0 1 A 0 0 0 2 ) 3 1 2 Q
0011000 " d o n e o n "
0011020 2 7 3 Q " L i s
0011040 t i n g f r o m T R A N S O
0011060 R i n g o f f i l e " 2
0011100 5 0 Q " % " ) T ) " 2 2 7
0011120 Q " d o n e o n " 2 1
0011140 0 Q " ( P R I N 1 ( Q U O T E
0011160 % " \r T r a n s o r i n g o
0011200 f " 1 4 7 Q " C a n n o t
0011220 o p e n f i l e . " 1 2 7 Q
0011240 " . L S T R A N " 1 2 0 Q
0011260 " C a n n o t o p e n f i l
0011300 e : " 1 0 0 Q " . T R A N "
0011320 3 3 Q " C a n n o t f i n
0011340 d f i l e : " 1 6 Q " "
0011360 1 2 Q " N o t r a n s f o r
0011400 m a t i o n s l o a d e d . "
0011420 ) \r T R A N S O R D 1 \r ( P
0011440 3 R E S E T S T A T E P 2
0011460 M A C R O Y P 0 O L D V
0011500 A L U E I 0 S O U R C E F
0011520 I L E F 4 R E S E T V A R
0011540 S L S T F 5 F I L E R D T
0011560 B L ) \0 ; 004 002 \0 001 U \t \0 \0 021 1
0011600 003 g \0 \0 H h 032 032 h 032 T 032 c \b Y o
0011620 \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I 002
0011640 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b \0
0011660 \0 020 J 020 \0 ( 6 6 Q E R R O R !
0011700 6 1 Q A P P L Y 3 6 Q T
0011720 R A N S O R A 0 0 0 1 3 S E
0011740 T R E A D T A B L E ) \r ( 5 2 Q
0011760 S E T R E A D T A B L E 4 2
0012000 Q E R R O R 3 3 Q I N T E
0012020 R N A L 1 1 Q S E T R E A D
0012040 T A B L E ) \r ( 3 0 Q ( T R
0012060 A N S O R A 0 0 0 1 ) ) \r T R A
0012100 N S O R F O R M A 0 0 0 1 D 1
0012120 \r ( N A M E E R R O R S E T
0012140 F 0 L I S T I N G ) \0 \a \0
0012160 001 002 \0 P \t \0 \0 i 020 \0 ( 3 T R A
0012200 N S L I S T ) \r N I L \r ( ) \r T
0012220 R A N S O R F O R M D 1 \r ( P
0012240 1 L I S T I N G P 0 L
0012260 I S T F I L E I 0 F O R M
0012300 ) \0 026 002 \0 \0 001 021 001 @ \t \0 \0 b
0012320 \0 I 227 o \0 \0 \0 i \n \0 \0 @ 020 \0 ( 2
0012340 2 Q T R A N S O R F O R M A 0
0012360 0 0 1 6 T R A N S F O R M )
0012400 \r N I L \r ( 1 6 Q ( T R A N
0012420 S O R F O R M A 0 0 0 1 ) ) \r T
0012440 R A N S O R F N S A 0 0 0 1 D
0012460 1 \r ( N A M E E R R O R S E T
0012500 F 0 L I S T I N G ) \0 \a
0012520 \0 001 002 \0 P \t \0 \0 i 020 \0 ( 3 T R
0012540 A N S L I S T ) \r N I L \r ( ) \r
0012560 T R A N S O R F N S D 1 \r ( P
0012600 3 F N P 2 D E F P
0012620 1 L I S T F I L E P 0 L
0012640 I S T I N G I 0 F N L I S
0012660 T ) \0 ; 004 \0 \0 001 021 0 002 @ 260 ) d
0012700 001 021 001 003 K d 004 l 004 360 236 \t \0 \0 Z \t
0012720 \0 \0 225 J K \n \0 \0 212 K o \0 \0 \0 032 i
0012740 d \v \0 \0 023 002 003 265 330 o \0 \0 \0 i \n \0
0012760 \0 @ 020 \0 ( 6 7 Q T R A N S O R
0013000 F N S A 0 0 0 1 5 2 Q P R I
0013020 N T 3 6 Q T R A N S F O R M
0013040 3 0 Q E X P R P 2 4 Q V
0013060 I R G I N F N ) \r N I L \r ( 6
0013100 3 Q ( T R A N S O R F N S A 0
0013120 0 0 1 ) 4 4 Q ( N O T F O
0013140 U N D ) ) \r T R A N S F O R M
0013160 D 1 \r ( P 2 H E L P C L O C
0013200 K P 1 P A S S 1 P 0
0013220 L I 1 F N A M E I 0
0013240 S O U R C E X P R ) \0 @ 003 \0 \0
0013260 002 021 0 002 A 235 @ 002 002 001 @ A @ h 032 032
0013300 h 032 032 207 @ h @ h 032 032 h 032 032 270 i \t
0013320 \0 \0 g \0 \0 \t \0 \0 I \t \0 \0 206 d 001 \t
0013340 \0 \0 277 002 003 265 370 A 223 H 002 001 020 H 001 020
0013360 \0 ( 6 0 Q P P A S S 1 5 2 Q
0013400 D R E V E R S E 4 6 Q P R
0013420 O C E E D 4 0 Q W A C H A D
0013440 O O N ) \r ( 4 3 Q T R A N S F
0013460 O R M ) \r ( ) \r P R O C E E D A
0013500 0 0 0 1 D 1 \r ( N A M E E R
0013520 R O R S E T F 0 L F 1
0013540 F L G ) \0 = \0 002 002 \0 P Q d g
0013560 \0 \0 360 226 277 o \0 \0 \0 260 ( d g \0 \0 360
0013600 226 277 o \0 \0 \0 260 033 d g \0 \0 360 225 277 o
0013620 \0 \0 \0 214 g \0 \0 360 224 o \0 \0 \0 202 \b \0
0013640 \0 \n \0 \0 c \0 i 020 \0 ( 6 7 Q E D
0013660 I T L 6 4 Q H E L P ) \r ( 5
0013700 2 Q O K C O M S 3 7 Q T R
0013720 A N S F O R M 2 2 Q D O T H
0013740 E S E 5 D O T H I S ) \r (
0013760 6 0 Q ( ( L P Q ( C O M S
0014000 ( T R A N X T ) ( T R A N S I
0014020 T ) ) ) ) 4 6 Q ( ( L P Q
0014040 ( C O M S ( T R A N S I T )
0014060 ( T R A N X T ) ) ) ) 3 1 Q
0014100 ( M A R K ( O R R ( ( I F
0014120 ( N O T ( T A I L P ( C A R
0014140 L ) ( C A D R L ) ) ) )
0014160 N X U P ( E ( P R O G (
0014200 L I S P X H I S T ) ( S E T Q
0014220 S T O P P E D U P ( # # ) )
0014240 ) T ) ) ( ! N X U P ( E
0014260 ( P R O G ( L I S P X H I S
0014300 T ) ( S E T Q S T O P P E D
0014320 U P ( # # ) ) ) T ) ) N I
0014340 L ) _ _ 1 ( L P Q ( C O
0014360 M S ( T R A N S I T ) ( T R
0014400 A N X T ) ) ) ) 1 4 Q ( ( I
0014420 F ( T A I L P ( C A R L )
0014440 ( C A D R L ) ) ( ( R E M
0014460 A R K T A I L P / D O T H I S
0014500 ) 1 ) N I L ) M A R K (
0014520 O R R ( N X U P ( E ( P
0014540 R O G ( L I S P X H I S T )
0014560 ( S E T Q S T O P P E D U P
0014600 ( # # ) ) ) T ) ) ( ! N X
0014620 U P ( E ( P R O G ( L I S
0014640 P X H I S T ) ( S E T Q S T
0014660 O P P E D U P ( # # ) ) ) T
0014700 ) ) N I L ) _ _ ( L P Q
0014720 ( C O M S ( T R A N S I T )
0014740 ( T R A N X T ) ) ) ) ) \r P R O
0014760 C E E D D 1 \r ( P 7 O L D
0015000 L E N G T H P 6 T R A N S
0015020 I T A I L P 5 T R A N S I
0015040 T L P 4 C O N T I N U E T
0015060 A I L P 3 C O N T I N U E
0015100 L P 2 W H E R E T O G O N
0015120 E X T P 1 S T O P P E D U
0015140 P P 0 L I 0 F L G
0015160 F 1 0 Q L ) \0 ' \b 001 001 001 W
0015200 020 021 q \a o \0 \0 \0 i \n \0 \0 227 g \0 \0
0015220 b \0 277 260 361 g \0 \0 o \0 \0 \0 o \0 \0 \0
0015240 \v \0 \0 h 020 \0 ( 4 3 Q T R A N S
0015260 E R R 1 4 Q P R O C E E D A
0015300 0 0 0 1 ) \r ( 3 0 Q T R A N S
0015320 E R R O R 2 0 Q O K C O M S
0015340 ) \r ( 4 0 Q ( C U R R E N T
0015360 F O R M C U R R E N T C O M S
0015400 ) 3 4 Q " F a i l r e t u
0015420 r n t o T R A N S O R f r
0015440 o m E D I T O R . S h o w
0015460 J i m G o o d w i n . " 1 0
0015500 Q ( P R O C E E D A 0 0 0 1 )
0015520 ) \r T R A N S E X I T D 1 \r (
0015540 F 0 S T O P P E D U P ) \0
0015560 031 \0 001 \0 \0 P 236 g \0 \0 o \0 \0 \0 o \0
0015600 \0 \0 \v \0 \0 277 g \0 \0 \t \0 \0 020 \0 ( 2
0015620 6 Q R E T F R O M 1 7 Q T
0015640 R A N S E R R ) \r ( 2 3 Q P R
0015660 O C E E D 4 T R A N S E R R
0015700 O R ) \r ( 1 4 Q ( C U R R E
0015720 N T F O R M C U R R E N T C O
0015740 M S ) 1 0 Q " T h e f u n
0015760 c t i o n T R A N S E X I T
0016000 m i s s e d t h e e x i t .
0016020 S h o w J i m G o o d w i
0016040 n . " ) \r K E E P L I S T D 1
0016060 \r ( P 0 T M P I 0 R E
0016100 M N A M E F 1 L I S T I N
0016120 G F 2 P A S S 1 F 3
0016140 L F 4 T E S T R A N ) \0
0016160 ; 001 004 001 001 021 020 \0 Q 003 265 \b k h 032 c
0016200 002 206 d 001 k 330 030 277 Q 001 @ S 032 032 R 032
0016220 c 004 T 263 032 @ Q 002 \n \0 \0 X 265 \n Q @
0016240 Q 001 h 032 032 201 Q 001 h 032 \n \0 \0 h 020 \0
0016260 ( 6 7 Q \ N C O N C 2 4 5 Q
0016300 F A S S O C ) \r N I L \r ( ) \r
0016320 T R A N S E R R A 0 0 0 1 D 1
0016340 \r ( N A M E E R R O R S E T
0016360 F 0 M E S S ) \0 \0 001 002 \0
0016400 i \t \0 \0 277 i \t \0 \0 277 o \0 \0 \0 i \n
0016420 \0 \0 277 P i \n \0 \0 277 i \t \0 \0 i 020 \0
0016440 ( 3 4 Q T E R P R I 2 7 Q
0016460 P R I N 1 2 1 Q P R I N 1
0016500 1 0 Q T E R P R I 3 T E R
0016520 P R I ) \r N I L \r ( 1 5 Q "
0016540 \r T R A N S O R m a d e a
0016560 t r a n s l a t i o n e r r o
0016600 r : " ) \r T R A N S E R R A 0
0016620 0 0 2 D 1 \r ( N A M E E R R
0016640 O R S E T P 0 X F 1
0016660 V A R S ) \0 7 001 001 002 \0 l 003 \t \0
0016700 \0 277 Q 260 036 d 001 021 001 \0 H i d \v \0 \0
0016720 277 o \0 \0 \0 i \n \0 \0 277 H - \t \0 \0 023
0016740 002 003 265 343 n 003 350 \t \0 \0 277 i \t \0 \0 h
0016760 032 020 \0 ( 6 2 Q T E R P R I 5
0017000 5 Q P R I N T L E V E L 4 2
0017020 Q P R I N T 3 4 Q P R I N
0017040 1 2 3 Q P R I N 2 4 P R
0017060 I N T L E V E L ) \r N I L \r (
0017100 3 0 Q " : " ) \r T R A N S
0017120 E R R D 1 \r ( I 2 V A R S
0017140 I 1 M E S S I 0 R E
0017160 M ) \0 " \0 \0 001 003 @ 231 g \0 \0 @ h
0017200 032 \n \0 \0 277 A 227 o \0 \0 \0 \t \0 \0 277 B
0017220 264 \t o \0 \0 \0 \t \0 \0 020 \0 ( 3 7 Q
0017240 T R A N S E R R A 0 0 0 2 2 4
0017260 Q T R A N S E R R A 0 0 0 1
0017300 1 2 Q A P P L Y ) \r ( 4 K E
0017320 E P L I S T ) \r ( 3 4 Q ( T
0017340 R A N S E R R A 0 0 0 2 ) 2 1
0017360 Q ( T R A N S E R R A 0 0 0 1
0017400 ) ) \r T R A N S O U T D 1 \r (
0017420 P 1 X P 0 O L D O I
0017440 1 F I L E I 0 X P R )
0017460 \0 m 002 \0 \0 002 021 020 \0 A d g \0 \0 360
0017500 263 a \t \0 \0 X @ 001 g \0 \0 360 251 \b \0 \0
0017520 277 @ \t \0 \0 260 C o \0 \0 \0 \t \0 \0 277 \b
0017540 \0 \0 277 @ 260 * d 001 021 001 001 \b \0 \0 277 g
0017560 \0 \0 \t \0 \0 277 I 001 \t \0 \0 277 I 002 001 \t
0017600 \0 \0 277 g \0 \0 \t \0 \0 277 \b \0 \0 023 002 003
0017620 265 326 g \0 \0 \t \0 \0 277 \b \0 \0 277 H \t \0
0017640 \0 h 020 \0 ( 1 5 1 Q O U T P U T
0017660 1 4 4 Q T E R P R I 1 4 0
0017700 Q P R I N 1 1 2 5 Q T E R
0017720 P R I 1 2 1 Q P R I N 1 1
0017740 1 2 Q P R I N T D E F 1 0 3
0017760 Q P R I N T 7 5 Q P R I N
0020000 1 6 6 Q T E R P R I 5 2 Q
0020020 T E R P R I 4 6 Q P R I N
0020040 1 3 5 Q P R I N T D E F 3
0020060 0 Q T E R P R I 1 5 Q O U
0020100 T P U T ) \r ( 1 3 5 Q % ) 1
0020120 1 6 Q % ) 7 2 Q % ( 2 3
0020140 Q D E F I N E Q 7 N I L :
0020160 ) \r ( 4 3 Q " ( D E F I N E
0020200 Q " ) \r P P A S S 1 D 1 \r ( I
0020220 0 P 1 F 0 L I S T F I
0020240 L E ) \0 , \0 001 \0 001 @ 001 P \n \0 \0
0020260 o \0 \0 \0 P \n \0 \0 @ 002 001 P \n \0 \0 o
0020300 \0 \0 \0 P \n \0 \0 @ 002 002 h P i \f \0 \0
0020320 P \t \0 \0 020 \0 ( 5 1 Q T E R P R
0020340 I 4 5 Q P R E C H 3 4 Q
0020360 P R I N 1 2 4 Q P R I N 1
0020400 1 5 Q P R I N 1 5 P R I N
0020420 1 ) \r N I L \r ( 3 0 Q " a
0020440 t " 1 1 Q " . " ) \r T R
0020460 A N S L I S T D 1 \r ( P 0
0020500 O L D O I 1 L I S T F I L
0020520 E I 0 L I S T I N G F
0020540 1 T E S T R A N ) \0 A 001 001 \0
0020560 002 021 020 \0 Q 263 : A d g \0 \0 360 263 2 \t
0020600 \0 \0 X @ 251 o \0 \0 \0 \t \0 \0 277 260 033 o
0020620 \0 \0 \0 \t \0 \0 277 @ 002 i \n \0 \0 206 d 001
0020640 \t \0 \0 277 002 003 265 370 \b \0 \0 H \t \0 \0 h
0020660 020 \0 ( 7 5 Q O U T P U T 7 1
0020700 Q T E R P R I 6 1 Q T R A
0020720 N S L I S T 1 5 3 Q S O R T
0020740 4 4 Q P R I N 1 3 2 Q P
0020760 R I N 1 2 0 Q O U T P U T )
0021000 \r ( 1 2 Q N I L : ) \r ( 4 1
0021020 Q " \f
0021040 I n d e x o
0021060 f R e m a r k s \r \r \r \r \r \r "
0021100 2 7 Q " \r \t \t N o R E M A
0021120 R K S - - e m p t y l i s
0021140 t i n g . \r " ) \r T R A N S L I
0021160 S T 1 D 1 \r ( I 0 L 1 )
0021200 \0 & \0 \0 \0 001 @ 001 \t \0 \0 o \0 \0 \0 \t
0021220 \0 \0 @ 002 h d o \0 \0 \0 o \0 \0 \0 \r 005
0021240 \0 \0 @ 001 \t \0 \0 \b \0 \0 020 \0 ( 4 3 Q
0021260 T E R P R I 4 0 Q P R E M
0021300 T E X T 3 3 Q M A P R I N T
0021320 1 3 Q P R I N 1 4 P R I
0021340 N 1 ) \r N I L \r ( 2 7 Q " ,
0021360 " 2 3 Q " . \r " 1 0 Q
0021400 " a t " ) \r P R E M T E X T
0021420 D 1 \r ( P 0 T X T I 0
0021440 R N A M F 1 U S E R N O
0021460 T E S F 2 T R A N S O R E
0021500 M A R K S ) \0 > 001 002 \0 001 021 020 \0
0021520 @ Q \n \0 \0 X 265 0 @ R \n \0 \0 265 ) o
0021540 \0 \0 \0 270 l 005 \t \0 \0 H d 002 001 g \0 \0
0021560 360 232 d 002 002 h i \v \0 \0 031 277 H 002 \t \0
0021600 \0 \b \0 \0 h 020 002 001 260 333 \0 ( 6 6 Q
0021620 T E R P R I 6 3 Q M A P R I
0021640 N T 5 4 Q C O M M E N T 3
0021660 3 3 Q S P A C E S 1 7 Q A
0021700 S S O C 7 A S S O C ) \r ( 4
0021720 2 Q % % ) \r ( 2 5 Q ( *
0021740 T h e t e x t o f t h i s
0021760 r e m a r k w a s n o t
0022000 d e f i n e d i n t h e T
0022020 R A N S F O R M A T I O N S f
0022040 i l e . ) ) \r ( P R E T T Y C O
0022060 M P R I N T T R A N S O R C O
0022100 M S ) \r ( R P A Q Q T R A N S
0022120 O R C O M S ( ( F N S * T
0022140 R A N S O R F N S ) T R A N S
0022160 O R M A C R O S T R A N S O R
0022200 E M A R K S T R A N S O R G L
0022220 O B A L S ( V A R S ( M A X
0022240 L O O P 1 5 3 0 ) \r ( T E S
0022260 T R A N ) ( U S E R M A C R O
0022300 S ( A P P E N D T R A N S O
0022320 R M A C R O S U S E R M A C R
0022340 O S ) ) ( G L O B A L V A R S
0022360 ( A P P E N D T R A N S O R
0022400 G L O B A L S \r G L O B A L V
0022420 A R S ) ) ( E D I T C O M S A
0022440 ( U N I O N ( Q U O T E (
0022460 N L A M N L A M I T D O T H
0022500 E S E D O T H I S X F O R M
0022520 E R C O N T I N U E ) ) E D
0022540 I T C O M S A ) ) ( \r E D I T
0022560 C O M S L ( U N I O N ( Q U
0022600 O T E ( R E M A R K ) ) E D
0022620 I T C O M S L ) ) ( T R A N S
0022640 I T C O N S E S ( Q U O T E
0022660 ( O R R N I L X F O R M E R
0022700 ) ) ) ( P R E S C A R R A Y
0022720 ( \r A R R A Y 1 2 7 1 2 7 )
0022740 ) ( N L I S T P C O M S ) (
0022760 L A M B D A C O M S ) ) ( D E
0023000 C L A R E : D O E V A L @ L O
0023020 A D D O E V A L @ C O M P I L
0023040 E D O N T C O P Y ( P R O P
0023060 \r B L K L I B R A R Y D E F
0023100 T A I L P ) ) ( P R O P F I
0023120 L E G R O U P T R A N S O R )
0023140 ( B L O C K S * T R A N S
0023160 O R B L O C K S ) ( D E C L A
0023200 R E : D O N T E V A L @ L O A
0023220 D \r D O E V A L @ C O M P I L
0023240 E D O N T C O P Y C O M P I
0023260 L E R V A R S ( A D D V A R S
0023300 ( N L A M A ) ( N L A M L
0023320 T R A N S E R R K E E P L I S
0023340 T P R O C E E D ) ( L A M A
0023360 ) ) ) ) ) \r ( R P A Q Q T R A
0023400 N S O R F N S ( T R A N S O R
0023420 T R A N S O R F O R M T R A
0023440 N S O R F N S T R A N S F O R
0023460 M P R O C E E D T R A N S I
0023500 T T R A N X T T R A N S E X
0023520 I T K E E P L I S T \r T R A
0023540 N S E R R T R A N S O U T P
0023560 P A S S 1 T R A N S L I S T
0023600 T R A N S L I S T 1 P R E M T
0023620 E X T W A C H A D O O N P R
0023640 E C H P R E C H 1 P R E C H
0023660 2 R E T A I L L N C \r P R
0023700 E S C A N ) ) \r ( R P A Q Q T
0023720 R A N S O R M A C R O S ( ( R
0023740 E M A R K ( T X T ) ( E (
0023760 K E E P L I S T T X T ) T )
0024000 ) ( N L A M N I L ( E (
0024020 S E T Q Q W H E R E T O G O N
0024040 E X T N L A M I T ) T ) \r )
0024060 ( N L A M I T N I L ( O R
0024100 R N X ! N X ( ( E ( T R
0024120 A N S E X I T ) ) ) ) ) ( D O
0024140 T H E S E N I L ( E ( P R
0024160 O C E E D D O T H E S E ) T
0024200 ) N L A M ) ( D O T H I S
0024220 N I L ( \r E ( P R O C E E D
0024240 D O T H I S ) T ) N L A M
0024260 ) ( X F O R M E R N I L (
0024300 E ( T R A N S E R R T R A N
0024320 S F O R M A T I O N E R R O R
0024340 " F A U L T Y T R A N S F O R
0024360 M A T I O N " ( \r C U R R E N
0024400 T F O R M C U R R E N T C O M
0024420 S ) ) T ) ) ) ) \r ( R P A Q Q
0024440 T R A N S O R E M A R K S (
0024460 ( T R A N S F O R M A T I O N E
0024500 R R O R ( * T h e T R A N
0024520 S F O R M A T I O N S s p e c
0024540 i f i e d f o r t h i s f
0024560 o r m f a i l e d t o \r w
0024600 o r k p r o p e r l y . T h
0024620 e T T Y m e s s a g e ' F
0024640 A U L T Y T R A N S F O R M A
0024660 T I O N ' w a s p r i n t e
0024700 d , a n y c o m m a n d s
0024720 r e m a i n i n g i n t h e
0024740 \r t r a n s f o r m a t i o n
0024760 a f t e r t h e e r r o n
0025000 e o u s o n e w e r e s k
0025020 i p p e d , a n d t r a n s
0025040 l a t i o n c o n t i n u e d
0025060 a s i f t h e \r t r a n
0025100 s f o r m a t i o n h a d b
0025120 e e n n o r m a l l y c o m
0025140 p l e t e d . T h e u s e r
0025160 s h o u l d t r e a t t h
0025200 e t r a n s l a t e d f o r
0025220 m w i t h c a u t i o n a
0025240 n d \r a m e n d h i s t r
0025260 a n s f o r m a t i o n t o
0025300 a v o i d f u t u r e p r o
0025320 b l e m s . ) ) ( T R A N S E
0025340 R R O R ( * T R A N S O R
0025360 g o t c o n f u s e d a t
0025400 t h i s \r p o i n t . T h e
0025420 T T Y m e s s a g e ' S H
0025440 O W J I M G O O D W I N '
0025460 w a s p r i n t e d a n d
0025500 t r a n s l a t i o n c o n t
0025520 i n u e d w i t h t h e n
0025540 e x t f o r m , \r b u t t
0025560 h e u s e r s h o u l d t
0025600 r e a t t h e c o m p r o m
0025620 i s e d a r e a o f c o d
0025640 e w i t h c a u t i o n . )
0025660 ) ( B L A M B D A 1 ( * N
0025700 o n - a t o m i c C A R o f
0025720 \r f o r m , b u t n o t
0025740 a n o p e n l a m b d a .
0025760 E i t h e r a p a r e n t h
0026000 e s i s e r r o r o r c o
0026020 m p u t e d C A R o f f o
0026040 r m . C o m p u t e d C A R
0026060 o f f o r m \r i s n o
0026100 l o n g e r l e g a l i n
0026120 B B N - L I S P ; A P P L Y *
0026140 i s u s e d i n s t e a d
0026160 . I f c o m p u t e d C A
0026200 R o f f o r m w a s i n
0026220 t e n d e d , t h e \r t r a
0026240 n s l a t i o n t o A P P L
0026260 Y * w i l l r u n o k .
0026300 S e e m a n u a l f o r d
0026320 i s c u s s i o n o f A P P
0026340 L Y * . ) ) ( B L A M B D A 2
0026360 ( * O p e n L A M B D A
0026400 \r w i t h w r o n g n u m b
0026420 e r o f a r g s . W h a t
0026440 c a n i t m e a n ? ) )
0026460 ( B L A M B D A 3 ( * L a m
0026500 b d a - e x p r e s s i o n w
0026520 i t h o u t f o r m s . W h
0026540 a t c a n \r i t m e a n ?
0026560 ) ) ( I L L C A R ( * I l
0026600 l e g a l d a t a - t y p e
0026620 e n c o u n t e r e d a s C
0026640 A R o f f o r m E x p r e
0026660 s s i o n t r e a t e d a s
0026700 l i s t o f \r f o r m s .
0026720 ) ) ( T A I L P / D O T H I S
0026740 ( * W h e n t h e t r a
0026760 n s o r m a c r o D O T H I S
0027000 i s e x e c u t e d a t
0027020 a T A I L P p o s i t i o n
0027040 , T R A N S O R d o e s a
0027060 \r 1 c o m m a n d f i r s
0027100 t , a s s u m i n g t h a t
0027120 t h e c u r r e n t p o s
0027140 i t i o n i s a l i s t
0027160 o f f o r m s a n d C A R
0027200 o f i t i s t h e f o
0027220 r m \r i n t e n d e d . T h
0027240 e u s e r s h o u l d m a
0027260 k e s u r e t h a t t h i
0027300 s i s w h a t w a s i n
0027320 t e n d e d b y t h e T R
0027340 A N S F O R M A T I O N S w h
0027360 i c h c a l l e d \r D O T H
0027400 I S , i . e . t h e T R A
0027420 N S F O R M A T I O N S f o r
0027440 t h e f o r m c o n t a i
0027460 n i n g t h i s o n e . ) )
0027500 ) ) \r ( R P A Q Q T R A N S O
0027520 R G L O B A L S ( U S E R N O
0027540 T E S U S E R N O T E S T E
0027560 S T F O R M T E S T F O R M
0027600 T R A N S F O R M A T I O N S
*
0027640 X F O R M S F N S \r X F O R M
0027660 S V A R S X F O R M S V A R S
0027700 D U M P F I L E T R A N S F
0027720 O R M A T I O N S T R A N S F
*
0030000 O R M A T I O N S ) ) \r ( R P A
0030020 Q Q M A X L O O P 1 5 3 0 )
0030040 \r ( R P A Q Q T E S T R A N
0030060 N I L ) \r ( R P A Q U S E R M
0030100 A C R O S ( A P P E N D T R
0030120 A N S O R M A C R O S U S E R
0030140 M A C R O S ) ) \r ( R P A Q G
0030160 L O B A L V A R S ( A P P E N
0030200 D T R A N S O R G L O B A L S
0030220 G L O B A L V A R S ) ) \r ( R
0030240 P A Q E D I T C O M S A ( U
0030260 N I O N ( Q U O T E ( N L A
0030300 M N L A M I T D O T H E S E
0030320 D O T H I S X F O R M E R
0030340 C O N T I N U E ) ) E D I T C
0030360 O M S A ) ) \r ( R P A Q E D I
0030400 T C O M S L ( U N I O N ( Q
0030420 U O T E ( R E M A R K ) ) E
0030440 D I T C O M S L ) ) \r ( R P A Q
0030460 Q T R A N S I T C O N S E S
0030500 ( O R R N I L X F O R M E R
0030520 ) ) \r ( R P A Q P R E S C A R
0030540 R A Y ( A R R A Y 1 2 7 1
0030560 2 7 ) ) \r ( R P A Q Q N L I S
0030600 T P C O M S N I L ) \r ( R P A
0030620 Q Q L A M B D A C O M S N I
0030640 L ) \r ( P U T P R O P S T R A
0030660 N S O R F I L E G R O U P (
0030700 T R A N S O R T S E T ) ) \r (
0030720 R P A Q Q T R A N S O R B L O
0030740 C K S ( ( P R E C H B L O C K
0030760 P R E C H P R E C H 1 P R
0031000 E C H 2 R E T A I L L N C
0031020 ( E N T R I E S P R E C H )
0031040 ( B L K L I B R A R Y T A I L
0031060 P \r M E M B L A S T L E N
0031100 G T H A S S O C G E T P ) )
0031120 ( T R A N S I T B L O C K T
0031140 R A N S I T W A C H A D O O N
0031160 ( E N T R I E S T R A N S I
0031200 T W A C H A D O O N ) ( G L
0031220 O B A L V A R S \r W A C H A D
0031240 I D W H E N T O D O I T T R
0031260 A N S I T C O N S E S L A M B
0031300 D A C O M S N L I S T P C O M
0031320 S ) ( B L K L I B R A R Y T
0031340 A I L P M E M B L A S T L
0031360 E N G T H A S S O C G E T P
0031400 \r ) ) ( T R A N X T B L O C K
0031420 T R A N X T ( E N T R I E S
0031440 T R A N X T ) ( B L K L I B
0031460 R A R Y T A I L P M E M B
0031500 L A S T L E N G T H A S S O
0031520 C G E T P ) ) ( N I L P R
0031540 E S C A N ( \r G L O B A L V A
0031560 R S P R E S C A R R A Y ) ) )
0031600 ) \r N I L \r
0031606