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