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