$ od -c -N 50000 [Indigo]<Alto-1822>Comm>SrvrTn.dm!1
0000000 377 \0 \0 s r v r t n . m e s a \0 376
0000020 001 \0 213 003 - - S r v r T n . m e s
0000040 a \r - - S e r v e r t e l n e
0000060 t w i t h o l d s t y l e
0000100 s t r e a m h o o k s \r - -
0000120 C o p i e s o u t p u t t o
0000140 d i s p l a y \r - - L S t e w
0000160 a r t S e p t e m b e r 1 9
0000200 , 1 9 7 8 1 0 : 5 2 A M
0000220 \r \r D I R E C T O R Y \r I O
0000240 D e f s : F R O M " I O D e
0000260 f s " , \r P r o c e s s D e
0000300 f s : F R O M " P r o c e s
0000320 s D e f s " U S I N G [ D e
0000340 t a c h , S e t T i m e o u t ,
0000360 M s e c T o T i c k s ] , \r
0000400 P u p S t r e a m : F R O M
0000420 " P u p 376 001 \0 Q { S t r e a m "
0000440 , \r S r v r T n D e f s :
0000460 F R O M " S r v r T n D e f s
0000500 " , \r S t r e a m : F R O
0000520 M " S t r e a m " , \r S t
0000540 r e a m D e f s : F R O M "
0000560 S t r e a m D e f s " ; \r \r S r
0000600 v r T n : M O N I T O R \r
0000620 I M P O R T S I O D e f s ,
0000640 P u p S t r e a m , S t r e a
0000660 m , P r o c e s s D e f s \r
0000700 E X P O R T S S r v r T n D
0000720 e f s \r S H A R E S S t r
0000740 e a m D e f s = \r \r B E G I N
0000760 O P E N I O D e f s , S t
0001000 r e a m , S t r e a m D e f s
0001020 ; \r \r l i s t e n 376 001 \0 1 3 e r
0001040 : P u p S t r e a m . P u p L
0001060 i s t e n e r _ N I L ; \r s
0001100 o c N u m : P u p S t r e a m
0001120 . P u p S o c k e t I D _ [
0001140 0 , 1 ] ; - - t e l n e t
0001160 s o c k e t \r h e r a l d : S
0001200 T R I N G _ " M e s a S e
0001220 r v e r T e l n e t " ; \r m y
0001240 S t r e a m : S t r e a m . H
0001260 a n d l e ; \r c l o s e d : B
0001300 O O L E A N _ T R U E ; \r e
0001320 c h o L F : B O O L E A N _
0001340 T R U E ; \r c h a r s : B O
0001360 O L E A N _ F A L S E ; \r o
0001400 p e n , s e n d e r : C O N D
0001420 I T I O N ; \r t i m e L a s 376 001
0001440 \0 221 212 t S e n t : I N T E G E
0001460 R ; \r c l o c k : P O I N T E
0001500 R T O I N T E G E R = L
0001520 O O P H O L E [ 4 3 0 B ] ; \r k
0001540 e y S t r e a m , d i s p l a
0001560 y S t r e a m : S t r e a m H
0001600 a n d l e ; \r \r m y S t r e a m
0001620 O b j e c t : S t r e a m O b
0001640 j e c t _ \r [ \r r e s
0001660 e t : R e s e t , \r g e t
0001700 : G e t , \r p u t b a c k
0001720 : P u t B a c k , \r p u t
0001740 : P u t , \r e n d o f :
0001760 E n d o f , \r d e s t r o y
0002000 : D e s t r o y , \r b o d
0002020 y : O t h e r [ ] \r ] ; \r
0002040 \r R e 376 001 \0 020 Y s e t : P R O
0002060 C E D U R E [ o s : S t r e a
0002100 m H a n d l e ] = \r B E G
0002120 I N \r N U L L ; \r E N D
0002140 ; \r \r G e t : P R O C E D U R
0002160 E [ o s : S t r e a m H a n d
0002200 l e ] R E T U R N S [ U N S
0002220 P E C I F I E D ] = \r B E
0002240 G I N \r e a t B y t e : B
0002260 O O L E A N ; \r c : U N S
0002300 P E C I F I E D ; \r B E
0002320 G I N \r E N A B L E B
0002340 E G I N \r S S T C h a n
0002360 g e = > \r B E G I
0002400 N \r I F s s t = 5
0002420 T H E N - - W A R N I N G
0002440 ! T h i s 376 001 \0 220 311 i s
0002460 d a n g e r o u s ! ! \r
0002500 B E G I N \r
0002520 S e t S S T [ m y S t r e a
0002540 m , 6 ] ; \r S e
0002560 n d N o w [ m y S t r e a m ] ;
0002600 \r E N D ; \r
0002620 I F s s t I N [ 2
0002640 . . 4 ] T H E N e a t B y t
0002660 e _ T R U E ; \r
0002700 R E S U M E ; \r E N
0002720 D ; \r P u p S t r e a m
0002740 . S t r e a m C l o s i n g =
0002760 > \r B E G I N \r
0003000 c l o s e d _ T R U
0003020 E ; \r W a i t F o r
0003040 O p e n [ ] ; \r 376 001 \0
0003060 221 a R E T R Y ; \r
0003100 E N D ; \r S t r e a m .
0003120 T i m e O u t = > R E S U M
0003140 E ; \r E N D ; \r
0003160 W a i t F o r O p e n [ ] ; \r
0003200 e a t B y t e _ T R U
0003220 E ; \r W H I L E e a t
0003240 B y t e D O \r e a
0003260 t B y t e _ F A L S E ; \r
0003300 c _ G e t B y t e
0003320 [ m y S t r e a m ] ; \r
0003340 E N D L O O P ; \r R
0003360 E T U R N [ c ] ; \r E N
0003400 D ; \r E N D ; \r \r P u t B a
0003420 c k : P R O C E D U R E [ o s
0003440 : S t r e a m H a n d l e ,
0003460 t h 376 001 \0 276 036 i n g : U N S P
0003500 E C I F I E D ] = \r B E G
0003520 I N \r N U L L ; \r E N D
0003540 ; \r \r P u t : P R O C E D U R
0003560 E [ o s : S t r e a m H a n d
0003600 l e , t h i n g : U N S P E
0003620 C I F I E D ] = \r B E G I
0003640 N E N A B L E P u p S t r e
0003660 a m . S t r e a m C l o s i n g
0003700 = > \r B E G I N \r
0003720 c l o s e d _ T R U E ;
0003740 \r W a i t F o r O p e n
0003760 [ ] ; \r R E T R Y ; \r
0004000 E N D ; \r c : C H A
0004020 R A C T E R ; \r d i s p l a
0004040 y S t r e a m . p u t [ d i s p
0004060 l a y S t r e 376 001 \0 221 310 a m , t
0004100 h i n g ] ; \r W a i t F o r
0004120 O p e n [ ] ; \r P u t B y t
0004140 e [ m y S t r e a m , t h i n g
0004160 ] ; \r c h a r s _ T R U
0004200 E ; \r c _ t h i n g ; \r
0004220 I F c = C R A N D e c
0004240 h o L F T H E N P u t B y t
0004260 e [ m y S t r e a m , L O O P H
0004300 O L E [ L F ] ] ; \r I F c
0004320 = C R T H E N M y S e n d N
0004340 o w [ ] ; \r E N D ; \r \r E n
0004360 d o f : P R O C E D U R E [ o
0004400 s : S t r e a m H a n d l e ]
0004420 R E T U R N S [ B O O L E A
0004440 N ] = \r B E G I N \r R
0004460 E T U R N [ c l o s e d 376 001 \0 350
0004500 + ] ; \r E N D ; \r \r D e s t
0004520 r o y : E N T R Y P R O C E
0004540 D U R E [ o s : S t r e a m H
0004560 a n d l e ] = \r B E G I N
0004600 \r m y S t r e a m . d e l e
0004620 t e [ m y S t r e a m ] ; \r
0004640 E N D ; \r \r M y S e n d N o w :
0004660 E N T R Y P R O C E D U R E
0004700 = \r B E G I N \r S e n
0004720 d i t [ ] ; \r E N D ; \r \r S
0004740 e n d i t : I N T E R N A L
0004760 P R O C E D U R E = \r B E
0005000 G I N \r S e n d N o w [ m y
0005020 S t r e a m ] ; \r c h a r s
0005040 _ F A L S E ; \r t i m e
0005060 L a s t S e n t _ c l o c k
0005100 ^ 376 001 \0 252 205 ; \r E N D ; \r \r
0005120 S e n d O c c a s i o n a l l y
0005140 : E N T R Y P R O C E D U R
0005160 E = \r B E G I N \r W H
0005200 I L E N O T c l o s e d D
0005220 O \r W A I T s e n d e
0005240 r ; \r I F c h a r s
0005260 A N D ( c l o c k ^ - t i m e
0005300 L a s t S e n t ) > 5 0 T H E
0005320 N S e n d i t [ ] ; \r
0005340 E N D L O O P ; \r E N D ; \r
0005360 \r W a i t F o r O p e n : E N
0005400 T R Y P R O C E D U R E = \r
0005420 B E G I N \r W H I L E
0005440 c l o s e d D O W A I T o
0005460 p e n E N D L O O P ; \r E
0005500 N D ; \r \r S 376 001 \0 205 305 e r v e r
0005520 S t a r t : E N T R Y P R O
0005540 C E D U R E [ b s : H a n d
0005560 l e , r e m o t e : P u p S
0005600 t r e a m . P u p A d d r e s s
0005620 ] = \r B E G I N \r i :
0005640 C A R D I N A L ; \r e a t
0005660 B y t e : B O O L E A N _
0005700 F A L S E ; \r - - M a i n
0005720 l i n e o f s e r v e r \r
0005740 I F c l o s e d T H E N \r
0005760 B E G I N E N A B L E
0006000 P u p S t r e a m . S t r e a
0006020 m C l o s i n g = > G O T O
0006040 C l o s e i t ; \r F O
0006060 R i I N [ 0 . . h e r a l
0006100 d . l e n g t h ) \r 376 001 \0 \n U
0006120 D O \r P u
0006140 t B y t e [ b s , L O O P H O L
0006160 E [ h e r a l d . t e x t [ i ]
0006200 ] ] ; \r E N D L O O
0006220 P ; \r P u t B y t e [ b
0006240 s , L O O P H O L E [ C R ] ] ;
0006260 \r I F e c h o L F T
0006300 H E N P u t B y t e [ b s , L
0006320 O O P H O L E [ L F ] ] ; \r
0006340 S e n d N o w [ b s ] ; \r
0006360 m y S t r e a m _ b s
0006400 ; \r c l o s e d _ F
0006420 A L S E ; \r P r o c e s
0006440 s D e f s . D e t a c h [ F O R
0006460 K S e n d O c c a s i o n a l
0006500 l y ] ; \r B R O A D C A
0006520 376 001 \0 \a 030 S T o p e n ; \r
0006540 E N D ; \r E X I T S \r
0006560 C l o s e i t = > \r
0006600 B E G I N \r
0006620 b s . d e l e t e [ b s ] ; \r
0006640 c l o s e d _ T R
0006660 U E ; \r E N D ; \r
0006700 E N D ; \r \r S t a r t S e r v
0006720 e r T e l n e t : P U B L I C
0006740 P R O C E D U R E = \r B
0006760 E G I N \r W r i t e L i n e
0007000 [ " S t a r t i n g S e r v e
0007020 r T e l n e t " ] ; \r l i
0007040 s t e n e r _ P u p S t r e
0007060 a m . C r e a t e P u p B y t e
0007100 S t r e a m L i s t e n e r [
0007120 s o c N u 376 001 \0 J 344 m , S e r
0007140 v e r S t a r t , P u p S t r
0007160 e a m . S e c o n d s T o T o c
0007200 k s [ 3 ] ] ; \r P r o c e s
0007220 s D e f s . S e t T i m e o u t
0007240 [ @ o p e n , P r o c e s s D e
0007260 f s . M s e c T o T i c k s [ 1
0007300 0 0 0 ] ] ; \r P r o c e s s
0007320 D e f s . S e t T i m e o u t [
0007340 @ s e n d e r , P r o c e s s D
0007360 e f s . M s e c T o T i c k s [
0007400 1 0 0 0 ] ] ; \r k e y S t r
0007420 e a m _ I O D e f s . G e t
0007440 I n p u t S t r e a m [ ] ; \r
0007460 d i s p l a y S t r e a m _
0007500 I O D e f s . G e t O u t p u
0007520 t S t r e a m [ ] ; 376 \0 356 4 032 \r
0007540 I O D e f s . S e t I n p u
0007560 t S t r e a m [ @ m y S t r e a
0007600 m O b j e c t ] ; \r I O D e
0007620 f s . S e t O u t p u t S t r e
0007640 a m [ @ m y S t r e a m O b j e
0007660 c t ] ; \r E N D ; \r \r E
0007700 N D . 032 ( 1 7 9 2 ) \ 3 5 7 b 6
0007720 B 6 5 9 b 5 B 5 6 b 3 B 1 7 5 b
0007740 3 3 B 2 4 8 t 2 1 t 0 1 0 t
0007760 2 1 t 0 1 9 9 b 7 B 7 6 b 3
0010000 B 1 5 1 t 2 1 t 0 8 t 2 2
0010020 t 0 2 2 4 b 6 B 8 4 b 7 B 8 3
0010040 b 9 B 4 8 b 6 B 1 0 2 b 1 6 B 1
0010060 4 5 b 1 1 B 7 3 b 1 1 B 5 1 8 t
0010100 2 1 t 0 9 7 b 1 7 B \r 377 \0 \0
0010120 s r v r t n d e f s . m e s a \0
0010140 376 \0 307 k B - - S r v r T n D e f
0010160 s . m e s a \r - - S e r v e r
0010200 t e l n e t w i t h o l d
0010220 s t y l e s t r e a m h o o
0010240 k s \r - - L S t e w a r t S e
0010260 p t e m b e r 1 9 , 1 9 7 8
0010300 1 0 : 5 4 A M \r \r S r v r
0010320 T n D e f s : D E F I N I T I
0010340 O N S = \r B E G I N \r
0010360 S t a r t S e r v e r T e l n e
0010400 t : P U B L I C P R O C E D
0010420 U R E ; \r E N D . \r 032 ( 1 7
0010440 9 2 ) \ 1 0 3 b 1 0 B \r 374
0010455