$ od -c -N 50000 [phylum]<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