$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>TTY.DCOM!1
0000000 ( F I L E C R E A T E D " 2 2
0000020 - M a r - 8 5 1 6 : 0 1 : 1 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > T T Y . ; 6 ) " 2 0 - D
0000120 e c - 8 4 1 2 : 0 7 : 2 2 "
0000140 \r r e c o m p i l e d e x p r
0000160 s : I N T T Y I N T T Y L
0000200 i n " S M A L L L O O P S 1
0000220 9 - M a r - 8 5 . . . " d a
0000240 t e d " 1 9 - M a r - 8 5 1
0000260 7 : 3 1 : 4 4 " ) \r ( F I L E C
0000300 R E A T E D " 2 2 - M a r - 8
0000320 5 1 6 : 0 0 : 4 9 " { E R I
0000340 S } < L I S P U S E R S > T T Y
0000360 . ; 6 1 0 2 1 5 c h a n g e
0000400 s t o : ( V A R S T T Y C
0000420 O M S ) ( F N S I N T T Y
0000440 \r I N T T Y L ) p r e v i o u
0000460 s d a t e : " 1 8 - J a n -
0000500 8 5 1 2 : 0 2 : 2 8 " { E R
0000520 I S } < L I S P U S E R S > T T
0000540 Y . ; 5 ) \r I N T T Y D 1 \r (
0000560 P 1 1 Q d o n e f l g P
0000600 1 0 Q c h a r P 7 c h a
0000620 r s P 3 p r o m p t e d I
0000640 n i t i a l P 2 r e p l y
0000660 P 1 s p a c e P 0 c
0000700 r l f I 4 i n i t i a l A
0000720 t o m I 3 n o S h i f t F
0000740 l g I 2 h e l p S t r I
0000760 1 g o o d L i s t I 0
0001000 p r o m p t S t r F 1 2 Q
0001020 t t y ) 001 034 \n 001 \0 005 l \r \t \0 \0
0001040 l \t \0 \0 021 " 003 A 262 % C 263 " 021 0
0001060 006 A 260 024 d 001 \t \0 \0 274 M 265 \a L h 032
0001100 ^ 201 L & 275 002 003 265 355 N 022 b 002 277 W 024
0001120 \t \0 \0 236 I W 024 \t \0 \0 360 231 W 024 \t \0
0001140 \0 260 354 @ 265 B 021 0 \t O 022 262 P O 016 \t
0001160 \0 \0 \t \0 \0 022 Z g \0 \0 360 242 261 \0 205 B
0001200 265 021 A 262 t o \0 \0 \0 A \n \0 \0 277 261 \0
0001220 241 \t \0 \0 277 A 242 261 \0 230 o \0 \0 \0 A \n
0001240 \0 \0 277 261 \0 214 W 024 \n \0 \0 277 D 262 271 K
0001260 263 266 i 273 D \t \0 \0 277 260 255 W 024 \t \0 \0
0001300 _ 020 277 O 016 263 023 @ 236 O 020 d H 360 232 277
0001320 @ i \n \0 \0 277 260 223 O 020 I 360 246 O 020 d
0001340 H 360 232 277 O 016 262 203 i _ 022 261 377 200 O 016
0001360 032 _ 016 277 261 377 u o \0 \0 \0 \t \0 \0 277 260
0001400 0 o \0 \0 \0 J k h i \r 005 \0 \0 263 " J
0001420 004 l 004 361 231 o \0 \0 \0 A \n \0 \0 277 217 C
0001440 245 J \t \0 \0 Z 200 J A \n \0 \0 Z 265 \b \b
0001460 \0 \0 261 377 033 020 \0 ( 4 2 6 Q C L E
0001500 A R B U F 4 2 0 Q C H E C K
0001520 R E P L Y 4 1 1 Q U - C A S
0001540 E 4 0 1 Q W R I T E 3 6 1
0001560 Q S T R P O S 3 4 2 Q W R
0001600 I T E 2 7 1 Q P R I N 1 2
0001620 4 4 Q R E A D C 2 3 4 Q B
0001640 K S Y S B U F 2 1 7 Q P R I
0001660 N 1 2 0 6 Q W R I T E 1 7
0001700 0 Q W R I T E 1 6 1 Q W R
0001720 I T E 1 3 1 Q P A C K 1 2
0001740 6 Q D R E V E R S E 1 0 5 Q
0001760 R E A D C 7 6 Q P E E K C
0002000 6 7 Q R E A D P 3 5 Q U
0002020 - C A S E 1 1 Q C H A R A C
0002040 T E R 4 C H A R A C T E R )
0002060 \r ( 1 3 6 Q ? ) \r ( 3 7 5 Q
0002100 " I n v a l i d r e s p o n
0002120 s e . E x p e c t i n g o
0002140 n e o f : " 3 5 1 Q " ;
0002160 " 3 3 7 Q " ( S o r r y -
0002200 - N o H e l p P r o v i d
0002220 e d ) " 2 0 2 Q " E x p e c
0002240 t i n g o n e o f : " 1
0002260 5 5 Q " E x p e c t i n g o
0002300 n e o f : " ) \r I N T T Y L
0002320 D 1 \r ( P 1 5 Q X P 1
0002340 1 Q d o n e F l g P 1 0 Q
0002360 c h a r s P 7 c h a r
0002400 P 3 p r o m p t e d I n i t
0002420 i a l P 2 r e p l y P
0002440 1 s p a c e P 0 c r l f
0002460 I 4 i n i t i a l L i s t
0002500 I 3 n o S h i f t F l g
0002520 I 2 h e l p S t r I 1
0002540 g o o d L i s t I 0 p r o
0002560 m p t S t r F 1 6 Q t t y
0002600 ) 001 [ 016 001 \0 005 l \r \t \0 \0 l \t
0002620 \0 \0 021 " 003 A 262 % C 263 " 021 0 006 A 260
0002640 024 d 001 \t \0 \0 274 M 265 \a L h 032 ^ 201 L
0002660 & 275 002 003 265 355 N 022 b 002 277 W 034 \t \0 \0
0002700 236 I W 034 \t \0 \0 360 231 W 034 \t \0 \0 260 354
0002720 @ 265 024 H W 034 \t \0 \0 360 262 , W 034 \t \0
0002740 \0 277 h 260 n W 034 \n \0 \0 277 D 262 347 K 263
0002760 344 i 273 D \t \0 \0 l 002 m 376 \v \0 \0 b \b
0003000 \t \0 \0 277 260 317 021 ` \t O 016 H 360 263 B h
0003020 _ 020 _ 022 277 O 022 263 W 034 \t \0 \0 _ 016
0003040 I 360 246 O 016 d H 360 225 277 i _ 022 260 352 O
0003060 020 032 _ 020 277 260 340 O 020 \t \0 \0 \t \0 \0 276
0003100 M 265 \t N h 032 ] 274 260 301 N & 275 260 274 L
0003120 022 Z 241 h 020 g \0 \0 J 034 262 0 B 265 017 A
0003140 262 034 o \0 \0 \0 A \n \0 \0 260 031 \t \0 \0 277
0003160 A 262 023 o \0 \0 \0 A \n \0 \0 206 o \0 \0 \0
0003200 \t \0 \0 277 \b \0 \0 261 377 3 o \0 \0 \0 J k
0003220 h i \r 005 \0 \0 263 356 C 244 J \t \0 \0 272 021
0003240 @ \r J d 003 263 & d 262 # h 032 260 037 d 001
0003260 _ 032 A \n \0 \0 _ 024 277 O 026 265 \t O 024 h
0003300 032 _ 030 202 O 024 & _ 026 277 002 003 265 342 O 030
0003320 022 Z 203 d 001 225 002 003 265 373 i 201 277 h 262 246
0003340 J 020 \0 ( 4 5 5 Q C H E C K R E
0003360 P L Y 4 2 5 Q U - C A S E
0003400 4 1 5 Q S T R P O S 3 7 6 Q
0003420 C L E A R B U F 3 7 2 Q W
0003440 R I T E 3 6 2 Q W R I T E
0003460 3 4 6 Q W R I T E 3 4 1 Q
0003500 W R I T E 2 6 6 Q P A C K
0003520 2 6 3 Q D R E V E R S E 2 2
0003540 5 Q R E A D C 1 7 2 Q B K
0003560 S Y S B U F 1 6 5 Q S U B S
0003600 T R I N G 1 5 6 Q M K S T R
0003620 I N G 1 4 1 Q P R I N 1 1
0003640 3 0 Q R E A D C 1 2 0 Q P
0003660 E E K C 1 0 5 Q R E A D C
0003700 7 6 Q P E E K C 6 7 Q R E
0003720 A D P 3 5 Q U - C A S E 1
0003740 1 Q C H A R A C T E R 4 C
0003760 H A R A C T E R ) \r ( 3 1 7 Q
0004000 ? ) \r ( 4 0 5 Q " ; " 3 6
0004020 7 Q " ( S o r r y - - N o
0004040 H e l p P r o v i d e d ) "
0004060 3 5 6 Q " E x p e c t i n g
0004100 s u b s e t o f : " 3 3
0004120 5 Q " E x p e c t i n g s u
0004140 b s e t o f : " ) \r P r i n
0004160 t S t a t u s D 1 \r ( P 1
0004200 I P 0 n a r g s F 2
0004220 P r i n t S t a t u s W i n d o
0004240 w ) \0 3 002 001 002 \0 e 021 001 \0 j 021 001
0004260 001 R 252 h o \0 \0 \0 \n \0 \0 c 004 277 g \0
0004300 \0 R \n \0 \0 H I 361 233 I k 330 Y a R \n
0004320 \0 \0 277 260 362 R \t \0 \0 h 020 \0 ( 5 7 Q
0004340 T E R P R I 5 0 Q P R I N
0004360 1 3 3 Q D S P S C R O L L
0004400 2 1 Q C R E A T E W ) \r ( 2 7
0004420 Q O N ) \r ( 1 6 Q " S t a t
0004440 u s W i n d o w " ) \r W R I T
0004460 E D 1 \r ( P 1 I P 0
0004500 n a r g s ) \0 035 002 \0 002 \0 e 021 001
0004520 \0 j 021 001 001 H I 361 232 I k 330 Y a \t \0
0004540 \0 277 260 363 \b \0 \0 h 020 \0 ( 3 1 Q T
0004560 E R P R I 2 3 Q P R I N 1 )
0004600 \r N I L \r N I L \r C H E C K R E
0004620 P L Y D 1 \r ( P 3 X I
0004640 2 p o s s i b i l i t i e s
0004660 I 1 g o o d L i s t I 0
0004700 r e p l y ) \0 230 004 \0 \0 003 A 241
0004720 @ 020 @ A \n \0 \0 263 371 021 0 002 A 260 ! d
0004740 001 021 001 003 @ K k h i \r 005 \0 \0 022 235 d
0004760 001 270 I 265 \a H h 032 Z 201 H & 271 002 003 265
0005000 340 J 022 b 004 265 022 @ l F A i \f \0 \0 265
0005020 G 021 0 002 A 260 1 d 002 232 277 o \0 \0 \0 B
0005040 \n \0 \0 h 020 001 020 d 001 021 001 003 K @ k h
0005060 i \r 005 \0 \0 022 235 d 001 270 I 265 \a H h 032
0005100 Z 201 H & 271 002 003 265 340 J 022 b 004 265 \n o
0005120 \0 \0 \0 \t \0 \0 020 d 002 262 314 277 o \0 \0 \0
0005140 B \n \0 \0 020 \0 ( 2 2 5 Q W R I T
0005160 E 2 0 7 Q W R I T E 1 4 6
0005200 Q S T R P O S 1 2 4 Q W R
0005220 I T E 1 0 0 Q F I X S P E L
0005240 L 3 6 Q S T R P O S 1 0 Q
0005260 M E M B E R ) \r N I L \r ( 2 2
0005300 1 Q " A m b i g u o u s : "
0005320 2 0 4 Q " R e s p o n s e
0005340 n o t r e c o g n i z e d .
0005360 T y p e ? f o r h e l p .
0005400 " 1 2 0 Q " A m b i g u o u
0005420 s : " ) \r ( P R E T T Y C O M
0005440 P R I N T T T Y C O M S ) \r (
0005460 R P A Q Q T T Y C O M S ( (
0005500 I N I T V A R S ( P r i n t S
0005520 t a t u s W i n d o w N I L )
0005540 ) ( * * S i m p l i f i e
0005560 d T T Y h a n d l i n g f
0005600 n s . W r i t t e n b y M
0005620 a r k \r S t e f i k . ) ( F
0005640 N S * T T Y F N S ) ( *
0005660 * I n t e r n a l f n s n
0005700 o t c a l l e d d i r e c t
0005720 l y b y U s e r . ) ( F N
0005740 S * T T Y I n t e r n a l F
0005760 N S ) ( V A R S ( \r t t y
0006000 T ) ) ( D E C L A R E : D O
0006020 N T E V A L @ L O A D D O E V
0006040 A L @ C O M P I L E D O N T C
0006060 O P Y C O M P I L E R V A R S
0006100 ( A D D V A R S ( N L A M A
0006120 ) ( N L A M L ) ( L A M A
0006140 \r W R I T E P r i n t S t a t
0006160 u s ) ) ) ) ) \r ( R P A Q ? P
0006200 r i n t S t a t u s W i n d o w
0006220 N I L ) \r ( R P A Q Q T T Y
0006240 F N S ( I N T T Y I N T T Y
0006260 L P r i n t S t a t u s W R
0006300 I T E ) ) \r ( R P A Q Q T T Y
0006320 I n t e r n a l F N S ( C H E
0006340 C K R E P L Y ) ) \r ( R P A Q Q
0006360 t t y T ) \r ( P U T P R O P
0006400 S T T Y C O P Y R I G H T
0006420 ( " X e r o x C o r p o r a t
0006440 i o n " 1 9 8 5 ) ) \r N I L \r
0006460