$ od -c -N 50000 [eris]<Lisp>LIBRARY>RS232LOGIN!4 0000000 ( F I L E C R E A T E D " 8 0000020 - M a y - 8 4 0 0 : 2 0 : 3 4 0000040 " 006 004 { P H Y L U M } < L I S 0000060 P C O R E > L I B R A R Y > R S 0000100 2 3 2 L O G I N . ; 3 006 001 1 6 0000120 9 8 9 \r \r c h a 0000140 n g e s t o : ( V A R S 0000160 R S 2 3 2 O S T Y P E S R S 2 0000200 3 2 L O G I N S Y S T E M T Y P 0000220 E I N F O ) \r \r p r 0000240 e v i o u s d a t e : " 2 7 0000260 - A p r - 8 4 1 6 : 3 4 : 1 5 0000300 " { P H Y L U M } < L I S P > 0000320 L I B R A R Y > R S 2 3 2 L O G 0000340 I N . ; 5 ) \r \r \r ( * C o p y 0000360 r i g h t ( c ) 1 9 8 3 , 0000400 1 9 8 4 b y X e r o x C o 0000420 r p o r a t i o n ) \r \r ( P R E 0000440 T T Y C O M P R I N T R S 2 3 0000460 2 L O G I N C O M S ) \r \r ( R P 0000500 A Q Q 006 002 R S 2 3 2 L O G I N 0000520 C O M S 006 001 ( ( C O M S ( * 0000540 T e m p o r a r y p a t c h 0000560 ) \r \t \t \t ( P ( M O 0000600 V D ? ( Q U O T E E V Q ) \r 0000620 \t \t \t \t ( Q U O T 0000640 E \ E N C R Y P T . P W D ) ) 0000660 \r \t \t \t \t ( M O V D ? ( Q U O 0000700 T E E V Q ) \r \t \t \t \t 0000720 ( Q U O T E \ D E C R Y 0000740 P T . P W D ) ) \r \t \t \t \t ( O R 0000760 ( S T R P O S " f o o " " 0001000 F O O " N I L N I L N I L 0001020 N I L U P P E R C A S E A R 0001040 R A Y ) \r \t \t \t \t ( F I 0001060 L E S L O A D ( S Y S L O A D 0001100 F R O M L I S P U S E R S ) 0001120 \r \t \t \t \t \t B S E 0001140 A R C H ) ) ) ) \r \t \t 0001160 ( F I L E S ( S Y S L O A 0001200 D ) \r \t \t \t R S 2 3 0001220 2 ) \r \t \t ( * L 0001240 O G I N f a c i l i t i e s ) 0001260 \r \t \t ( D E C L A 0001300 R E : E V A L @ C O M P I L E 0001320 D O N T C O P Y ( P ( O R 0001340 ( G E T M A C R O P R O P ( 0001360 Q U O T E \r \t \t \t \t \t \t \t \t \t 0001400 R S 2 3 2 I N I T I A 0001420 L I Z E C H E C K ) \r \t \t \t \t \t 0001440 \t \t \t \t C O M P I L E R 0001460 M A C R O P R O P S ) \r \t \t \t \t 0001500 \t \t \t ( L O A D F R 0001520 O M ( Q U O T E R S 2 3 2 ) 0001540 ) ) ) ) \r \t \t ( R 0001560 E C O R D S L O G I N S Y S T 0001600 E M T Y P E ) \r \t \t 0001620 ( V A R S R S 2 3 2 O S T Y 0001640 P E S R S 2 3 2 L O G I N S Y 0001660 S T E M T Y P E I N F O ) \r \t \t 0001700 ( F N S R S 2 3 0001720 2 . P R O M P T & L O G I N R 0001740 S 2 3 2 L O G I N \ R S 2 3 2 0001760 L O G I N . C H E C K S T O P 0002000 \ R S 2 3 2 L O G I N . M S G D 0002020 A L L Y \r \t \t \t \ R S 0002040 2 3 2 L O G I N . S E N D P A G 0002060 E S I Z E \ R S 2 3 2 . P & L 0002100 . F I N D G O O D N A M E S ) \r 0002120 \t \t ( I N I T V A 0002140 R S ( \ R S 2 3 2 L O G I N . 0002160 L A S T H O S T N A M E N I L 0002200 ) \r \t \t \t \t ( \ R S 2 3 2 L O 0002220 G I N . L A S T H O S T S Y S T 0002240 E M T Y P E N I L ) \r \t \t \t \t 0002260 ( \ R S 2 3 2 L O G I N . T I 0002300 M E R ( S E T U P T I M E R 0002320 0 ) ) \r \t \t \t \t ( \ R S 2 3 2 0002340 S T R P T R ( A L L O C S T R 0002360 I N G 0 ) ) ) \r \t \t 0002400 ( G L O B A L V A R S R S 0002420 2 3 2 O S T Y P E S R S 2 3 2 0002440 L O G I N S Y S T E M T Y P E I 0002460 N F O \ R S 2 3 2 L O G I N . 0002500 L A S T H O S T N A M E \r \t \t 0002520 \t \t \ R S 2 3 2 L O G I N 0002540 . L A S T H O S T S Y S T E M T 0002560 Y P E \ R S 2 3 2 L O G I N . 0002600 T I M E R \ R S 2 3 2 S T R P 0002620 T R ) \r \t \t ( I N 0002640 I T V A R S ( \ R S 2 3 2 C H 0002660 A T 7 ? T ) \r \t \t \t \t ( \ R 0002700 S 2 3 2 C H A T . E O L s e q u 0002720 e n c e " \r " ) \r \t \t \t \t ( 0002740 \ R S 2 3 2 C H A T . N E W L I 0002760 N E C H A R ( C H A R C O D E 0003000 L F ) ) \r \t \t \t \t ( \ R S 2 0003020 3 2 C H A T . I g n o r e C h a 0003040 r c o d e s ( L I S T ( C H 0003060 A R C O D E N U L L ) ) ) ) \r 0003100 \t \t ( G L O B A L 0003120 V A R S \ R S 2 3 2 C H A T 7 0003140 ? ) \r \t \t ( S P E 0003160 C V A R S \ R S 2 3 2 C H A T 0003200 . N E W L I N E C H A R \ R S 0003220 2 3 2 C H A T . E O L s e q u e 0003240 n c e \r \t \t \t \t \ R S 2 3 2 0003260 C H A T . I g n o r e C h a r c 0003300 o d e s ) ) ) \r \r \r \r 006 004 ( * 0003320 T e m p o r a r y p a t c h ) 0003340 006 001 \r \r ( M O V D ? ( Q U O T 0003360 E E V Q ) \r ( Q 0003400 U O T E \ E N C R Y P T . P W 0003420 D ) ) \r ( M O V D ? ( Q U O T 0003440 E E V Q ) \r ( Q 0003460 U O T E \ D E C R Y P T . P W 0003500 D ) ) \r ( O R ( S T R P O S 0003520 " f o o " " F O O " N I L 0003540 N I L N I L N I L U P P E 0003560 R C A S E A R R A Y ) \r 0003600 ( F I L E S L O A D ( S Y S L 0003620 O A D F R O M L I S P U S E 0003640 R S ) \r \t B S E A 0003660 R C H ) ) \r ( F I L E S L O A D 0003700 ( S Y S L O A D ) \r \t R 0003720 S 2 3 2 ) \r \r \r \r 006 004 ( * L O 0003740 G I N f a c i l i t i e s ) 006 0003760 001 \r \r ( D E C L A R E : E V A 0004000 L @ C O M P I L E D O N T C O 0004020 P Y \r ( O R ( G E T M A C R 0004040 O P R O P ( Q U O T E R S 2 0004060 3 2 I N I T I A L I Z E C H E C 0004100 K ) \r \t \t C O M P I L E R M 0004120 A C R O P R O P S ) \r ( 0004140 L O A D F R O M ( Q U O T E 0004160 R S 2 3 2 ) ) ) \r ) \r [ D E C L 0004200 A R E : E V A L @ C O M P I L 0004220 E \r \r ( T Y P E R E C O R D 0004240 006 002 L O G I N S Y S T E M T Y P 0004260 E 006 001 ( A T T N C H A R L O 0004300 G I N P A T T E R N P A G E S 0004320 I Z E P A T T E R N M I N I M 0004340 A L L I N E B U F F E R S I Z E 0004360 ) ) \r ] \r \r ( R P A Q Q 006 002 R 0004400 S 2 3 2 O S T Y P E S 006 001 ( ( 0004420 M A X C . T E N E X ) \r \t \t 0004440 ( S U - S C O R E . 0004460 T O P S 2 0 ) \r \t \t 0004500 ( S C O R E . T O P S 2 0 ) 0004520 \r \t \t ( S D C V A X 0004540 . U N I X ) \r \t \t ( 0004560 P A R C - G S L . V M S ) \r 0004600 \t \t ( S U M E X - A I 0004620 M . T O P S 2 0 ) \r \t \t 0004640 ( S U M E X . T O P S 0004660 2 0 ) \r \t \t ( S U - A 0004700 I . W A I T S ) \r \t \t 0004720 ( S A I L . W A I T S ) 0004740 \r \t \t ( M I T - M C 0004760 . I T S ) \r \t \t ( M 0005000 C . I T S ) \r \t \t 0005020 ( N I L . T E N E X ) ) ) \r 0005040 \r ( R P A Q Q 006 002 R S 2 3 2 L 0005060 O G I N S Y S T E M T Y P E I N 0005100 F O 006 001 ( ( T E N E X L O G 0005120 I N S Y S T E M T Y P E 3 " 0005140 L O G I N 230 231 \r \r " " L E 0005160 N G T H 231 \r W I D T H 230 \r " 0005200 5 1 2 ) \r \t \t \t \t ( T O P S 0005220 2 0 L O G I N S Y S T E M T Y 0005240 P E 3 " L O G I N 230 033 231 \r 0005260 " " T E R M I N A L W I D T 0005300 H 230 \r T E R M I N A L L E N 0005320 G T H 231 \r " 5 1 2 ) \r \t \t \t 0005340 \t ( V M S L O G I N S Y S T 0005360 E M T Y P E 1 3 " 230 \r 231 \r " 0005400 " S E T T E R M I N A L / W 0005420 I D T H = 230 / P A G E = 231 \r " 0005440 5 1 2 ) \r \t \t \t \t ( U N I X 0005460 L O G I N S Y S T E M T Y P E 0005500 1 3 " 230 \r 231 \r " N I L 5 1 0005520 2 ) \r \t \t \t \t ( W A I T S L 0005540 O G I N S Y S T E M T Y P E 3 0005560 " L O G I N 230 \r 231 \r " N I 0005600 L 1 5 3 6 ) \r \t \t \t \t ( I T 0005620 S L O G I N S Y S T E M T Y P 0005640 E 2 6 " : L O G I N 230 \r 231 0005660 \r " " : T C T Y P L I N E L 0005700 E N G T H 230 P A G E S I Z E 0005720 231 \r " 5 1 2 ) \r \t \t \t \t ( 0005740 T O P S 1 0 L O G I N S Y S T 0005760 E M T Y P E 3 " L O G I N 0006000 230 \r 231 \r " N I L 5 1 2 ) ) ) 0006020 \r ( D E F I N E Q \r \r ( 006 004 R S 0006040 2 3 2 . P R O M P T & L O G I N 0006060 006 001 \r ( L A M B D A ( T y 0006100 p e S c r i p t S t r e a m ) 0006120 * 0006160 006 003 ( * J o n L " 1 3 - S E 0006200 P - 8 3 1 8 : 2 4 " ) 006 001 \r 0006220 ( P R O G ( H O S T H 0006240 O S T . S Y S T E M T Y P E ) \r 0006260 ( D S P R E 0006300 S E T P R O M P T W I N D O W 0006320 ) \r A ( A N D 0006340 ( 006 002 \ R S 2 3 2 L O G I N . 0006360 C H E C K S T O P 006 001 ) \r \t 0006400 ( R E T U R N ( Q U 0006420 O T E S t o p L o g i n ) ) ) 0006440 \r ( F R E S 0006460 H L I N E P R O M P T W I N D 0006500 O W ) \r ( \ 0006520 R S 2 3 2 I N S U R E . L I N E 0006540 B U F F E R 2 5 6 ) \r 0006560 ( S E T Q H O S T 0006600 ( M K A T O M ( P R O M P T 0006620 F O R W O R D " { L o g i n 0006640 t h r u R S 2 3 2 } H o s t 0006660 n a m e : " \ R S 2 3 2 L O 0006700 G I N . L A S T H O S T N A M E 0006720 \r \t \t \t \t \t ( F U N C T 0006740 I O N \ R S 2 3 2 . P & L . F 0006760 I N D G O O D N A M E S ) \r \t \t 0007000 \t \t \t P R O M P T W I N 0007020 D O W N I L N I L N I L 0007040 N I L \ R S 2 3 2 S T R P T R 0007060 ) ) ) \r ( 006 0007100 002 i f 006 001 ( N U L L H O S T 0007120 ) \r \t 006 002 t h e n 006 0007140 001 ( R I N G B E L L S 2 ) \r 0007160 \t \t ( G O A ) ) \r 0007200 B ( A N D ( 006 002 \ 0007220 R S 2 3 2 L O G I N . C H E C K 0007240 S T O P 006 001 ) \r \t 0007260 ( R E T U R N ( Q U O T E S 0007300 t o p L o g i n ) ) ) \r 0007320 ( 006 002 i f 006 001 ( N 0007340 U L L ( S E T Q H O S T . S 0007360 Y S T E M T Y P E ( C D R ( 0007400 O R ( A S S O C H O S T R 0007420 S 2 3 2 O S T Y P E S ) \r \t \t \t 0007440 \t \t \t ( A S S O C H O S 0007460 T N E T W O R K O S T Y P E S 0007500 ) ) ) ) ) \r \t 006 002 t 0007520 h e n 006 001 ( F R E S H L I N E 0007540 P R O M P T W I N D O W ) \r \t 0007560 \t ( \ R S 2 3 2 I N S U R 0007600 E . L I N E B U F F E R 2 5 6 0007620 ) \r \t \t ( S E T Q H O S 0007640 T . S Y S T E M T Y P E ( M K 0007660 A T O M ( P R O M P T F O R W 0007700 O R D " H o s t S Y S T E M 0007720 T Y P E = " N I L \r \t \t \t 0007740 \t \t \t \t \t ( F U N C T I O N \ 0007760 R S 2 3 2 . P & L . F I N D G O 0010000 O D N A M E S ) \r \t \t \t \t \t \t \t 0010020 \t P R O M P T W I N D O W N I 0010040 L 3 0 N I L N I L \r \t \t 0010060 \t \t \t \t \t \t \ R S 2 3 2 S T R P 0010100 T R ) ) ) \r \t \t ( 006 002 i f 0010120 006 001 ( N U L L H O S T . S Y 0010140 S T E M T Y P E ) \r \t \t 0010160 006 002 t h e n 006 001 ( R I N 0010200 G B E L L S 2 ) \r \t \t \t 0010220 ( G O B ) \r \t \t 006 0010240 002 e l s e i f 006 001 ( N O T ( 0010260 A S S O C H O S T . S Y S T E 0010300 M T Y P E R S 2 3 2 L O G I N 0010320 S Y S T E M T Y P E I N F O ) ) 0010340 \r \t \t 006 002 t h e n 0010360 006 001 ( H E L P " S o r r y , 0010400 I d o n ' t k n o w t h 0010420 a t S Y S T E M T Y P E ; 0010440 t y p e O K t o t r y a 0010460 g a i n . \r " ) \r \t \t \t 0010500 ( G O B ) ) \r \t \t ( 006 002 0010520 p u s h 006 001 R S 2 3 2 O S T Y 0010540 P E S ( C O N S H O S T H 0010560 O S T . S Y S T E M T Y P E ) ) 0010600 ) \r ( R E T 0010620 U R N ( 006 002 R S 2 3 2 L O G I 0010640 N 006 001 H O S T N I L N I L 0010660 H O S T . S Y S T E M T Y P E 0010700 T y p e S c r i p t S t r e a 0010720 m P R O M P T W I N D O W ) ) 0010740 ) ) ) \r \r ( 006 004 R S 2 3 2 L O G 0010760 I N 006 001 \r ( L A M B D A ( 0011000 H O S T U s e r N a m e P A 0011020 S S W O R D H o s t S Y S T E 0011040 M T Y P E T y p e S c r i p t 0011060 S t r e a m P R O M P T F O R 0011100 W O R D s t r e a m ) \r 0011120 * 0011200 006 003 ( * J o 0011220 n L " 2 7 - A p r - 8 4 1 6 0011240 : 3 4 " ) 006 001 \r 0011260 * 0011340 006 003 ( * R e t u r n 0011360 s N I L i f s u c c e s s 0011400 f u l , e r r o r c o d e 0011420 006 001 \r \t \t \t \t \t \t \t 006 0011440 003 ( a s a l i t a t o m ) 0011460 i f n o t . ) 006 001 \r ( 0011500 R S 2 3 2 I N I T I A L I Z E C 0011520 H E C K ) \r ( 006 002 i f 006 0011540 001 ( 006 002 t y p e ? 006 001 S T R 0011560 E A M T y p e S c r i p t S t 0011600 r e a m ) \r \t 006 002 t h e n 006 001 0011620 ( O R ( O P E N P T y p e S 0011640 c r i p t S t r e a m ( Q U O 0011660 T E O U T P U T ) ) \r \t \t ( 0011700 E R R O R T y p e S c r i p t 0011720 S t r e a m " N o t o p e n 0011740 f o r o u t p u t " ) ) \r 0011760 006 002 e l s e 006 001 ( S 0012000 E T Q T y p e S c r i p t S t 0012020 r e a m ( 006 002 i f 006 001 ( N U 0012040 L L T y p e S c r i p t S t r 0012060 e a m ) \r \t \t \t \t 006 0012100 002 t h e n 006 001 ( G E T S T R E 0012120 A M T ) \r \t \t \t \t 006 002 0012140 e l s e i f 006 001 ( E Q T y p 0012160 e S c r i p t S t r e a m ( Q 0012200 U O T E N O N E ) ) \r \t \t \t \t 0012220 006 002 t h e n 006 001 N 0012240 I L \r \t \t \t \t 006 002 e l s 0012260 e i f 006 001 ( O R ( W I N D O 0012300 W P T y p e S c r i p t S t r 0012320 e a m ) \r \t \t \t \t \t 0012340 ( D I S P L A Y S T R E A M P 0012360 T y p e S c r i p t S t r e a 0012400 m ) \r \t \t \t \t \t ( 0012420 E Q T y p e S c r i p t S t r 0012440 e a m T ) ) \r \t \t \t \t 0012460 006 002 t h e n 006 001 ( G E T S 0012500 T R E A M T y p e S c r i p t 0012520 S t r e a m ) \r \t \t \t \t 0012540 006 002 e l s e i f 006 001 ( L I T A 0012560 T O M T y p e S c r i p t S t 0012600 r e a m ) \r \t \t \t \t 0012620 006 002 t h e n 006 001 ( O P E N S T 0012640 R E A M T y p e S c r i p t S 0012660 t r e a m ( Q U O T E O U T 0012700 P U T ) ) \r \t \t \t \t 006 002 0012720 e l s e 006 001 ( \ I L L E G A L 0012740 . A R G T y p e S c r i p t S 0012760 t r e a m ) ) ) ) \r ( O 0013000 R ( 006 002 t y p e ? 006 001 L O G 0013020 I N S Y S T E M T Y P E H o s 0013040 t S Y S T E M T Y P E ) \r \t ( ( 0013060 L A M B D A ( H S T ) \r \t 0013100 ( 006 002 i f 006 001 ( S E T Q 0013120 H S T ( C D R ( A S S O C 0013140 H o s t S Y S T E M T Y P E R 0013160 S 2 3 2 L O G I N S Y S T E M T 0013200 Y P E I N F O ) ) ) \r \t \t 006 002 t 0013220 h e n 006 001 0013240 0013260 006 003 0013300 ( * H o s t S Y S T E M T Y P 0013320 E c a n b e g i v e n b 0013340 y s y m b o l i c n a m e . 0013360 ) 006 001 \r \t 006 002 e l s 0013400 e i f 006 001 ( A N D ( N O T 0013420 ( N U L L H O S T ) ) \r \t \t \t 0013440 ( S E T Q H S T ( C D R 0013460 ( O R ( A S S O C H O S T 0013500 R S 2 3 2 O S T Y P E S ) \r \t 0013520 \t \t \t \t ( A S S O C 0013540 H O S T N E T W O R K O S T Y 0013560 P E S ) ) ) ) \r \t \t \t ( S E 0013600 T Q H S T ( C D R ( A S S 0013620 O C H S T R S 2 3 2 L O G I 0013640 N S Y S T E M T Y P E I N F O ) 0013660 ) ) ) \r \t \t 006 002 t h e n 006 001 0013700 * 0013740 006 003 ( * A H , 0013760 w e a l r e a d y k n o w 0014000 w h a t k i n d o f S Y S 0014020 T E M T Y P E t h i s H O S 0014040 T 006 001 \r \t \t \t \t \t \t \t 0014060 006 003 i s ) 006 001 \r \t 006 0014100 002 e l s e i f 006 001 ( A N D ( 0014120 N O T ( N U L L H O S T ) ) 0014140 \r \t \t \t ( S E T Q H S T 0014160 ( C D R ( A S S O C H O S T 0014200 R S 2 3 2 L O G I N S Y S T E 0014220 M T Y P E I N F O ) ) ) ) \r \t \t 0014240 006 002 t h e n 006 001 0014260 * 0014320 006 003 ( * P e r h a p s H O 0014340 S T n a m e w a s j u s t 0014360 t h e s y m b o l i c 006 001 0014400 \r \t \t \t \t \t \t \t 006 003 H 0014420 o s t S Y S T E M T Y P E ) 006 001 0014440 \r \t \t ( S E T Q H O 0014460 S T ) \r \t 006 002 e l s 0014500 e 006 001 ( E R R O R " W e r 0014520 e a l l y m u s t k n o w 0014540 w h a t t h e H o s t S Y S 0014560 T E M T Y P E i s " H o s t 0014600 S Y S T E M T Y P E ) ) \r \t 0014620 ( S E T Q H o s t S Y S T 0014640 E M T Y P E H S T ) ) ) ) \r 0014660 ( O R ( N U L L P A S 0014700 S W O R D ) \r \t ( S T R I N G P 0014720 P A S S W O R D ) \r \t ( S E T 0014740 Q P A S S W O R D ( A N D 0014760 ( L I T A T O M P A S S W O R 0015000 D ) \r \t \t \t ( M K S T R 0015020 I N G P A S S W O R D ) ) ) ) 0015040 \r ( A N D ( P R O G 0015060 ( ( P W H a s h E n t r y ( C 0015100 A R ( L I S T P ( A N D H 0015120 O S T ( G E T H A S H H O S 0015140 T L O G I N P A S S W O R D S 0015160 ) ) ) ) ) \r \t \t ( L o g i n N a 0015200 m e ( U S E R N A M E N I L 0015220 N I L T ) ) ) \r \t 0015240 ( A N D ( 006 002 \ R S 2 3 2 0015260 L O G I N . C H E C K S T O P 006 0015300 001 ) \r \t \t ( R E T U R N 0015320 ) ) \r \t ( 006 002 i f 0015340 006 001 ( N U L L U s e r N a m 0015360 e ) \r \t \t 006 002 t h e n 006 001 0015400 ( O R ( S E T Q U s e r N 0015420 a m e ( C A R P W H a s h E 0015440 n t r y ) ) \r \t \t \t ( P 0015460 R O G N ( \ R S 2 3 2 I N S U 0015500 R E . L I N E B U F F E R 2 5 0015520 6 ) \r \t \t \t \t ( F R E S H 0015540 L I N E P R O M P T F O R W O 0015560 R D s t r e a m ) \r \t \t \t \t 0015600 ( S E T Q U s e r N a m e 0015620 ( M K A T O M ( P R O M P T F 0015640 O R W O R D ( 006 002 i f 006 001 H 0015660 O S T \r \t \t \t \t \t \t \t \t \t 0015700 006 002 t h e n 006 001 ( C O N C 0015720 A T \r \t \t \t \t \t \t \t \t \t \t 0015740 " L o g i n I D f o r " \r 0015760 \t \t \t \t \t \t \t \t \t \t \t H O S 0016000 T " : " ) \r \t \t \t \t \t \t \t \t \t 0016020 006 002 e l s e 006 001 " L o g 0016040 i n I D : " ) \r \t \t \t \t \t \t \t 0016060 \t \t L o g i n N a m e N I L 0016100 \r \t \t \t \t \t \t \t \t \t P R O M 0016120 P T F O R W O R D s t r e a m 0016140 N I L N I L \r \t \t \t \t \t \t \t 0016160 \t \t N I L N I L \ R S 2 3 0016200 2 S T R P T R ) ) ) \r \t \t \t \t 0016220 ( A N D ( 006 002 \ R S 2 3 2 0016240 L O G I N . C H E C K S T O P 006 0016260 001 ) \r \t \t \t \t \t ( R E T U R N ) 0016300 ) ) ) ) \r \t ( 006 002 0016320 i f 006 001 ( O R ( N U L L P 0016340 A S S W O R D ) \r \t \t 0016360 ( N U L L ( C D R P W H 0016400 a s h E n t r y ) ) ) \r \t \t 0016420 006 002 t h e n 006 001 ( S E T Q 0016440 P A S S W O R D ( 006 002 i f 006 001 0016460 ( C D R P W H a s h E n t r 0016500 y ) \r \t \t \t \t \t 006 002 t h e 0016520 n 006 001 ( \ D E C R Y P T . P W 0016540 D ( C D R P W H a s h E n t 0016560 r y ) ) \r \t \t \t \t \t 006 002 e l s 0016600 e 006 001 ( P R O M P T F O R W O 0016620 R D " ( p a s s w o r d ) " 0016640 N I L N I L \r \t \t \t \t \t \t 0016660 \t P R O M P T F O R W 0016700 O R D s t r e a m T ) ) ) \r \t 0016720 \t \t ( 006 002 i f 006 001 ( A N D P 0016740 A S S W O R D H O S T ) \r \t \t 0016760 \t 006 002 t h e n 006 001 0017000 0017020 006 003 ( * U 0017040 p d a t e t h e L O G I N P 0017060 A S S W O R D S t a b l e i 0017100 f u s e r h a s s u p p l 0017120 i e d 006 001 \r \t \t \t \t \t \t \t 0017140 006 003 n e w i n f o r m a 0017160 t i o n , b u t n o c a c 0017200 h e i n g p o s s i b l e i 0017220 f H O S T n o t 006 001 \r \t \t 0017240 \t \t \t \t \t 006 003 s u p p 0017260 l i e d . ) 006 001 \r \t \t \t \t ( S 0017300 E T P A S S W O R D H O S T 0017320 U s e r N a m e P A S S W O R 0017340 D ) ) ) \r \t ( R E 0017360 T U R N T ) ) \r \t ( P R O G 0017400 ( ( H o s t ' s A t t n C h a 0017420 r ( 006 002 f e t c h 006 001 ( L O 0017440 G I N S Y S T E M T Y P E A T 0017460 T N C H A R ) 006 002 o f 006 001 H 0017500 o s t S Y S T E M T Y P E ) ) \r 0017520 \t \t ( W I N D O W ( A N D ( 0017540 D I S P L A Y S T R E A M P T 0017560 y p e S c r i p t S t r e a m ) 0017600 \r \t \t \t ( W F R O M D 0017620 S T y p e S c r i p t S t r e 0017640 a m ) ) ) \r \t \t ( 3 S E C S . t 0017660 i c s ( I T I M E S 3 \ R 0017700 C L K S E C O N D ) ) \r \t \t ( 5 0017720 S E C S . t i c s ( I T I M E 0017740 S 5 \ R C L K S E C O N D ) 0017760 ) \r \t \t C H A R M E S S A G E 0020000 P A G E S I Z E P A G E P A 0020020 T T E R N ) \r \t ( 0020040 \ R S 2 3 2 I N S U R E . L I N 0020060 E B U F F E R ( O R ( F I X 0020100 P ( 006 002 f e t c h 006 001 ( L O 0020120 G I N S Y S T E M T Y P E M I 0020140 N I M A L L I N E B U F F E R S 0020160 I Z E ) \r \t \t \t \t \t \t 0020200 006 002 o f 006 001 H o s t S Y S T E 0020220 M T Y P E ) ) \r \t \t \t \t \t 0020240 2 5 6 ) ) \r \t ( 0020260 A N D W I N D O W ( T O T O 0020300 P W W I N D O W ) ) \r \t 0020320 ( R S 2 3 2 C L E A R B 0020340 U F F E R ( Q U O T E B O T 0020360 H ) ) \r \t ( M A P 0020400 C ( D E F E R R E D C O N S T 0020420 A N T ( C O N S ( Q U O T E 0020440 \ R S 2 3 2 I N S U R E . L I 0020460 N E B U F F E R ) \r \t \t \t \t \t 0020500 ( \ O N P A T H S . C C 0020520 O D E ( Q U O T E ( 006 002 \ R 0020540 S 2 3 2 L O G I N . C H E C K S 0020560 T O P 006 001 \r \t \t \t \t \t \t \t \t \t 0020600 \t \ R S 2 3 2 B O U T S T R I 0020620 N G \r \t \t \t \t \t \t \t \t \t \t R 0020640 S 2 3 2 W R I T E S T R I N G 0020660 \r \t \t \t \t \t \t \t \t \t \t \ 0020700 D S P P R I N T C H A R \r \t \t 0020720 \t \t \t \t \t \t \t \t R S 2 3 2 0020740 W R I T E B Y T E \r \t \t \t \t \t 0020760 \t \t \t \t \t R S 2 3 2 R E 0021000 A D B Y T E \r \t \t \t \t \t \t \t \t 0021020 \t \t R S 2 3 2 R E A D S T R 0021040 I N G \r \t \t \t \t \t \t \t \t \t \t 0021060 R S 2 3 2 F O R C E O U T P U T 0021100 \r \t \t \t \t \t \t \t \t \t 0021120 \ R S 2 3 2 L O G I N . M S G D 0021140 A L L Y \r \t \t \t \t \t \t \t \t \t \t 0021160 \t S T R P O S ) ) \r \t \t \t 0021200 \t \t \t \t ( Q U O T E 0021220 ( \ R S 2 3 2 I N S U R E . L I 0021240 N E B U F F E R C H C O N 1 0021260 \r \t \t \t \t \t \t \t \t \t \t \t N 0021300 C H A R S \r \t \t \t \t \t \t \t \t \t 0021320 \t \t C H A R C O D E P \r \t \t \t 0021340 \t \t \t \t \t \t \t \t D S P B A C K U 0021360 P \r \t \t \t \t \t \t \t \t \t \t \t 0021400 E R R O R \r \t \t \t \t \t \t \t 0021420 \t \t \t \ L I S P E 0021440 R R O R \r \t \t \t \t \t \t \t \t \t \t 0021460 \ I L L E G A L . A R 0021500 G \r \t \t \t \t \t \t \t \t \t \t \t 0021520 R A I D \r \t \t \t \t \t \t \t 0021540 \t \t \t \t B L O C K \r \t 0021560 \t \t \t \t \t \t \t \t \t \t \ C L O 0021600 C K 0 \r \t \t \t \t \t \t \t \t \t \t \t 0021620 H E L P \r \t \t \t \t \t 0021640 \t \t \t \t \t \t \ D A Y T I M E 0 0021660 \r \t \t \t \t \t \t \t \t \t \t 0021700 \ I L L E G A L . A R G \r \t \t 0021720 \t \t \t \t \t \t \t \t \t S H O U L D 0021740 N T \r \t \t \t \t \t \t \t \t \t \t 0021760 \ G E T B A S E S T R I N G 0022000 \r \t \t \t \t \t \t \t \t \t \t \t D I 0022020 S M I S S \r \t \t \t \t \t \t \t \t \t 0022040 \t \t C L O C K 0 \r \t \t \t 0022060 \t \t \t \t \t \t \t \ S T O 0022100 P S C R O L L ? \r \t \t \t \t \t \t 0022120 \t \t \t \t B I T M A P C 0022140 R E A T E \r \t \t \t \t \t \t \t \t \t 0022160 \t D S P B A C K C O L 0022200 O R \r \t \t \t \t \t \t \t \t \t \t 0022220 F O N T C R E A T E 0022240 \r \t \t \t \t \t \t \t \t \t \t 0022260 \ S H O W C A R E T \r \t \t 0022300 \t \t \t \t \t \t \t \t \t C R E A T 0022320 E W \r \t \t \t \t \t \t \t \t \t \t \t 0022340 O P E N W \r \t \t \t \t \t \t 0022360 \t \t \t \t \t M K S T R I N G \r 0022400 \t \t \t \t \t \t \t \t \t \t \t E R 0022420 R O R X \r \t \t \t \t \t \t \t \t \t \t 0022440 \ R U N . P R O C E S 0022460 S \r \t \t \t \t \t \t \t \t \t \ C 0022500 a n o n i c a l i z e T i m e r 0022520 U n i t s \r \t \t \t \t \t \t \t \t \t 0022540 \t \t \ M A P C H A R S \r \t \t \t 0022560 \t \t \t \t \t \t \t \t M E N 0022600 U ) ) \r \t \t \t \t \t \t \t 0022620 6 5 5 3 5 ) ) ) \r \t \t 0022640 ( F U N C T I O N \ F R E S H 0022660 E N U P F N ) ) \r \t 0022700 ( 006 002 t o 006 001 6 \r \t \t 006 0022720 002 d o 006 001 ( A N D ( 006 002 \ R 0022740 S 2 3 2 L O G I N . C H E C K S 0022760 T O P 006 001 ) \r \t \t \t ( G O 0023000 S T O P L O G I N ) ) \r \t \t 0023020 ( 006 002 i f 006 001 H o s t ' 0023040 s A t t n C h a r \r \t \t \t 006 002 0023060 t h e n 006 001 ( A N D T y p e 0023100 S c r i p t S t r e a m ( B O 0023120 U T T y p e S c r i p t S t r 0023140 e a m H o s t ' s A t t n C h 0023160 a r ) ) \r \t \t \t ( R 0023200 S 2 3 2 W R I T E B Y T E H o 0023220 s t ' s A t t n C h a r T ) ) 0023240 \r \t \t ( 006 002 d u r i n 0023260 g 006 001 5 S E C S . t i c s 006 0023300 002 u n t i l 006 001 ( S E T Q C 0023320 H A R ( R S 2 3 2 P E E K B Y 0023340 T E ) ) 006 002 t i m e r U n i t 0023360 s 006 001 ( Q U O T E T I C K S 0023400 ) \r \t \t \t 006 002 u s i n g B o x 006 0023420 001 \ R S 2 3 2 L O G I N . T I 0023440 M E R ) \r \t \t 006 002 r e p e a 0023460 t u n t i l 006 001 C H A R ) \r \t 0023500 ( 006 002 i f 006 001 ( 0023520 N U L L C H A R ) \r \t \t 0023540 006 002 t h e n 006 001 0023560 0023600 006 003 0023620 ( * S i g h , 6 i n t e r 0023640 v a l s o f 5 s e c o n d 0023660 s h a v e g o n e b y , 0023700 a n d n o 006 001 \r \t \t \t \t \t \t 0023720 \t 006 003 c o m m u n i c 0023740 a t i o n f r o m t h e r 0023760 e m o v e h o s t . ) 006 001 \r \t 0024000 \t \t ( 006 002 i f 006 001 T y p e S c 0024020 r i p t S t r e a m \r \t \t \t 0024040 006 002 t h e n 006 001 ( \ R S 2 0024060 3 2 B O U T S T R I N G T y p 0024100 e S c r i p t S t r e a m ( M 0024120 K S T R I N G ( Q U O T E \r 0024140 \t \t \t \t \t \t \t \t \t 0024160 N o R e s p o n s e F r o m H o 0024200 s t ) ) ) ) \r \t \t \t ( R E T U R 0024220 N ( Q U O T E N o R e s p o 0024240 n s e F r o m H o s t ) ) ) \r 0024260 * 0024340 006 003 ( * 0024360 W a i t u n t i l H o s t 0024400 R e s p o n d s ) 006 001 \r \t 0024420 ( 006 002 d o 006 001 ( \ R 0024440 S 2 3 2 . C H E C K U A R T ) 0024460 0024500 006 003 ( * G o b b 0024520 l e u p a n y r e p l i e 0024540 s , w a i t i n g f o r a 0024560 q u i e s c e n t 006 001 \r \t \t 0024600 \t \t \t \t \t 006 003 i n t e 0024620 r v a l o f a t l e a s t 0024640 5 s e c o n d s ) 006 001 \r \t \t 0024660 006 002 r e p e a t u n t i l 006 0024700 001 ( N U L L ( 006 002 \ R S 2 3 0024720 2 L O G I N . M S G D A L L Y 006 0024740 001 5 S E C S . t i c s N I L 0024760 T y p e S c r i p t S t r e a 0025000 m W I N D O W ) ) ) \r \t 0025020 ( A N D ( 006 002 \ R S 2 0025040 3 2 L O G I N . C H E C K S T O 0025060 P 006 001 ) \r \t \t ( G O S 0025100 T O P L O G I N ) ) \r \t 0025120 ( 006 002 f o r 006 001 C P R 0025140 E V I O U S C H A R 006 002 i n s 0025160 t r i n g 006 001 ( 006 002 f e t c h 0025200 006 001 ( L O G I N S Y S T E M T 0025220 Y P E L O G I N P A T T E R N 0025240 ) 006 002 o f 006 001 H o s t S Y S 0025260 T E M T Y P E ) \r \t \t 006 002 d 0025300 o 006 001 ( S E L C H A R Q C \r 0025320 \t \t \t ( ( # ^ X ) 0025340 \r \t \t \t \t ( R S 2 3 2 W R I T 0025360 E S T R I N G U s e r N a m e 0025400 ) ) \r \t \t \t ( ( # 0025420 ^ Y ) \r \t \t \t \t ( R S 2 3 2 F 0025440 O R C E O U T P U T ) \r \t \t \t \t 0025460 ( 006 002 i f 006 001 ( S E L C H A 0025500 R Q P R E V I O U S C H A R \r 0025520 \t \t \t \t \t ( ( C R 0025540 E S C ) 006 003 ( * D 0025560 a l l y , b e c a u s e s o 0025600 m e l o s i n g O S ' s w 0025620 o n ' t b e r e a d y t o 0025640 006 001 \r \t \t \t \t \t \t \t 0025660 006 003 r e c e i v e P W u n t 0025700 i l a f t e r t h e y h a 0025720 v e t y p e d o u t t h e 0025740 i r p r o m p t ) 006 001 \r \t \t \t 0025760 \t \t \t ( S E T Q M E S S A G 0026000 E ( 006 002 \ R S 2 3 2 L O G I N 0026020 . M S G D A L L Y 006 001 3 S E C 0026040 S . t i c s T \r \t \t \t \t \t \t 0026060 \t \t \t \t T y p e S c r i p t S 0026100 t r e a m \r \t \t \t \t \t \t \t \t \t 0026120 \t W I N D O W ) ) \r \t 0026140 \t \t \t \t \t ( S T R P O S " P 0026160 A S S W O R D " M E S S A G E 0026200 N I L N I L N I L N I L 0026220 \r \t \t \t \t \t \t \t U P P E R C 0026240 A S E A R R A Y ) ) \r \t \t \t \t \t 0026260 T ) \r \t \t \t \t 0026300 006 002 t h e n 006 001 ( A N D 0026320 ( N O T ( N U L L P A S S 0026340 W O R D ) ) \r \t \t \t \t \t 0026360 ( R S 2 3 2 W R I T E S T 0026400 R I N G P A S S W O R D T ) 0026420 ) ) ) \r \t \t \t ( R 0026440 S 2 3 2 W R I T E B Y T E C ) 0026460 ) \r \t \t ( S E T Q P 0026500 R E V I O U S C H A R C ) ) \r 0026520 \t ( A N D ( 006 002 0026540 \ R S 2 3 2 L O G I N . C H E C 0026560 K S T O P 006 001 ) \r \t \t ( 0026600 G O S T O P L O G I N ) ) \r \t 0026620 ( R S 2 3 2 F O R 0026640 C E O U T P U T ) \r \t 0026660 ( 006 002 u n t i l 006 001 ( N U 0026700 L L ( 006 002 \ R S 2 3 2 L O G I 0026720 N . M S G D A L L Y 006 001 5 S E 0026740 C S . t i c s N I L T y p e 0026760 S c r i p t S t r e a m W I N 0027000 D O W ) ) \r \t \t 006 002 d o 006 001 0027020 ( \ R S 2 3 2 . C H E C K U A 0027040 R T ) 0027060 006 003 ( * G o 0027100 b b l e u p a n y r e p l 0027120 i e s , w a i t i n g f o r 0027140 a q u i e s c e n t 006 001 \r 0027160 \t \t \t \t \t \t \t 006 003 i n 0027200 t e r v a l o f a t l e a 0027220 s t 5 s e c o n d s ) 006 001 ) 0027240 \r \t ( A N D ( 006 0027260 002 \ R S 2 3 2 L O G I N . C H E 0027300 C K S T O P 006 001 ) \r \t \t 0027320 ( G O S T O P L O G I N ) ) \r 0027340 \t ( S E T Q \ R 0027360 S 2 3 2 L O G I N . L A S T H O 0027400 S T N A M E H O S T ) \r \t 0027420 ( S E T Q \ R S 2 3 0027440 2 L O G I N . L A S T H O S T S 0027460 Y S T E M T Y P E H o s t S Y 0027500 S T E M T Y P E ) \r \t 0027520 ( R S 2 3 2 C L E A R B U F 0027540 F E R ( Q U O T E I N P U T 0027560 ) ) \r \t ( 006 002 i f 0027600 006 001 W I N D O W \r \t \t 006 0027620 002 t h e n 006 001 ( 006 002 \ R S 2 3 0027640 2 L O G I N . S E N D P A G E S 0027660 I Z E 006 001 W I N D O W H o s 0027700 t S Y S T E M T Y P E 3 S E C 0027720 S . t i c s ) ) \r 0027740 * 0030020 006 003 ( * S t a n d 0030040 a r d n o r m a l e x i t . 0030060 ) 006 001 \r \t ( R E T 0030100 U R N N I L ) \r \t S T O 0030120 P L O G I N \r \t ( 0030140 R S 2 3 2 C L E A R B U F F E R 0030160 ( Q U O T E B O T H ) ) \r \t 0030200 ( R E T U R N ( 0030220 Q U O T E S t o p L o g i n ) 0030240 ) ) ) ) ) \r \r ( 006 004 \ R S 2 3 2 0030260 L O G I N . C H E C K S T O P 006 0030300 001 \r ( L A M B D A N I L 0030320 * 0030360 006 0030400 003 ( * J o n L " 3 0 - J U N 0030420 - 8 3 2 1 : 1 3 " ) 006 001 \r 0030440 ( A N D ( \ R S 2 3 2 C H 0030460 E C K . B L O C K ) \r \t ( E Q 0030500 \ R S 2 3 2 C H A T . M E N U 0030520 S I G N A L ( Q U O T E M E 0030540 N U ) ) \r \t ( E Q ( M E N U 0030560 \ R S 2 3 2 C H A T M E N U ) 0030600 \r \t ( P R O G 1 ( Q 0030620 U O T E S t o p L o g i n ) \r 0030640 \t \t ( S E T Q \ R S 2 0030660 3 2 C H A T . M E N U S I G N A 0030700 L ) ) ) ) ) ) \r \r ( 006 004 \ R S 2 0030720 3 2 L O G I N . M S G D A L L Y 0030740 006 001 \r ( L A M B D A ( W A 0030760 I T ? . t i c s F O R C E T R 0031000 U N C 7 ? T y p e S c r i p t 0031020 S t r e a m W I N D O W P ) \r 0031040 * 0031120 006 003 ( 0031140 * J o n L " 1 2 - M a r - 8 0031160 4 1 5 : 3 7 " ) 006 001 \r 0031200 ( \ R S 2 3 2 I N S U R E . L I 0031220 N E B U F F E R 2 5 6 ) 0031240 0031260 006 003 ( * N o 0031300 t e t h a t \ R S 2 3 2 I N 0031320 S U R E . L I N E B U F F E R 0031340 s e t s u p 006 001 \r \t \t \t \t \t 0031360 \t \t 006 003 \ R S 2 3 2 S 0031400 T R P T R ) 006 001 \r ( P R 0031420 O G ( ( M E S S A G E ( R S 0031440 2 3 2 R E A D S T R I N G N I 0031460 L N I L N I L ( O R ( F 0031500 I X P W A I T ? . t i c s ) \r 0031520 \t \t \t \t \t \t \ R C L K 0031540 S E C O N D ) \r \t \t \t \t 0031560 ( Q U O T E T I C K S ) \r \t 0031600 \t \t \t \ R S 2 3 2 S T 0031620 R P T R ) ) ) \r 0031640 ( 006 002 i f 006 001 ( 006 002 \ R S 0031660 2 3 2 L O G I N . C H E C K S T 0031700 O P 006 001 ) \r \t 006 002 t 0031720 h e n 006 001 ( ( L A M B D A ( 0031740 O P O S ) \r \t \t ( 0031760 R E T F R O M O P O S ( Q U 0032000 O T E S t o p L o g i n ) \r \t 0032020 \t \t \t T ) ) \r \t \t ( S 0032040 T K P O S ( Q U O T E R S 2 0032060 3 2 L O G I N ) ) ) \r \t 0032100 006 002 e l s e i f 006 001 ( O R ( 0032120 N O T ( S T R I N G P M E S 0032140 S A G E ) ) \r \t \t 0032160 ( Z E R O P ( 006 002 f f e t c h 0032200 006 001 ( S T R I N G P L E N G 0032220 T H ) 006 002 o f 006 001 M E S S A 0032240 G E ) ) ) \r \t 006 002 t 0032260 h e n 006 001 ( S E T Q M E S S 0032300 A G E ) \r \t 006 002 e l s e 0032320 006 001 ( 006 002 i f 006 001 ( O R F 0032340 O R C E T R U N C 7 ? ( A N D 0032360 \ R S 2 3 2 C H A T 7 ? ( I 0032400 L E S S P 7 ( 006 002 f e t c h 0032420 006 001 ( R S 2 3 2 C H A R A C T 0032440 E R I S T I C S \r \t \t \t \t \t \t 0032460 \t \t \t \t B I T S P E 0032500 R C H A R ) \r \t \t \t \t \t \t \t \t 0032520 006 002 o f 006 001 R S 2 3 2 0032540 I N I T ) ) ) ) \r \t \t 0032560 006 002 t h e n 006 001 ( 006 002 b i n d 0032600 006 001 C ( J _ 0 ) 006 002 f 0032620 o r 006 001 I 006 002 f r o m 006 001 0032640 1 006 002 t o 006 001 ( 006 002 f f e t 0032660 c h 006 001 ( S T R I N G P L E 0032700 N G T H ) 006 002 o f 006 001 M E S 0032720 S A G E ) \r \t \t \t 006 002 0032740 d o 006 001 ( S E T Q C ( L O 0032760 A D B Y T E ( N T H C H A R C 0033000 O D E M E S S A G E I ) \r \t 0033020 \t \t \t \t \t 0 7 ) ) \r \t \t \t 0033040 \t ( 006 002 i f 006 001 ( O R ( A N 0033060 D W I N D O W P ( E Q C 0033100 ( C H A R C O D E L F ) ) ) \r 0033120 \t \t \t \t \t ( F M E M B C \ R 0033140 S 2 3 2 C H A T . I g n o r e C 0033160 h a r c o d e s ) ) \r \t \t \t \t 0033200 006 002 t h e n 006 001 0033220 0033240 006 003 ( * F l u s h L F ' s 0033260 s i n c e t h e C R w i l 0033300 l g e n e r a t e i t o n 0033320 a d i s p l a y 006 001 \r \t \t \t 0033340 \t \t \t \t 006 003 s t r e a 0033360 m ) 006 001 \r \t \t \t \t \t N I L \r \t 0033400 \t \t \t 006 002 e l s e 006 001 ( R 0033420 P L C H A R C O D E M E S S A 0033440 G E ( 006 002 a d d 006 001 J 1 ) 0033460 \r \t \t \t \t \t \t C ) ) \r \t 0033500 \t \t 006 002 f i n a l l y 0033520 006 001 ( 006 002 f r e p l a c e 006 001 0033540 ( S T R I N G P L E N G T H 0033560 ) 006 002 o f 006 001 M E S S A G E 0033600 006 002 w i t h 006 001 J ) ) ) \r \t 0033620 \t ( A N D ( 006 002 t y p e ? 006 0033640 001 S T R E A M T y p e S c r 0033660 i p t S t r e a m ) \r \t \t 0033700 ( \ R S 2 3 2 B O U T S T 0033720 R I N G T y p e S c r i p t S 0033740 t r e a m M E S S A G E ) ) ) 0033760 \r ( R E T U 0034000 R N M E S S A G E ) ) ) ) \r \r 0034020 ( 006 004 \ R S 2 3 2 L O G I N . S 0034040 E N D P A G E S I Z E 006 001 \r 0034060 ( L A M B D A ( W I N D O W 0034100 H o s t S Y S T E M T Y P E D 0034120 A L L Y . t i c s ) 0034140 006 003 ( * 0034160 J o n L " 2 7 - S E P - 8 3 0034200 1 3 : 0 0 " ) 006 001 \r ( P 0034220 R O G ( ( P A G E S I Z E ( 0034240 W I N D O W P R O P W I N D O 0034260 W ( Q U O T E P A G E S I Z 0034300 E ) ) ) \r \t ( P A G E P A 0034320 T T E R N ( 006 002 f e t c h 006 001 0034340 ( L O G I N S Y S T E M T Y P 0034360 E P A G E S I Z E P A T T E R 0034400 N ) 006 002 o f 006 001 H o s t S Y 0034420 S T E M T Y P E ) ) \r \t ( 0034440 O U T S T R M ( G E T S T R E 0034460 A M W I N D O W ) ) \r \t 0034500 M S G ) \r ( 0034520 006 002 i f 006 001 ( A N D P A G E 0034540 S I Z E P A G E P A T T E R N 0034560 ) \r \t 006 002 t h e n 006 0034600 001 ( R S 2 3 2 C L E A R B U F 0034620 F E R ( Q U O T E I N P U T 0034640 ) ) \r \t \t ( 006 002 i f 006 001 0034660 ( S E T Q M S G ( 006 002 f e t 0034700 c h 006 001 ( L O G I N S Y S T E 0034720 M T Y P E A T T N C H A R ) 0034740 006 002 o f 006 001 H o s t S Y S T E 0034760 M T Y P E ) ) \r \t \t 0035000 006 002 t h e n 006 001 ( R S 2 3 2 0035020 W R I T E B Y T E M S G T ) 0035040 \r \t \t \t ( 006 002 \ R S 2 3 0035060 2 L O G I N . M S G D A L L Y 006 0035100 001 D A L L Y . t i c s N I L 0035120 O U T S T R M T ) \r \t \t \t 0035140 ( R S 2 3 2 C L E A R B U 0035160 F F E R ( Q U O T E I N P U 0035200 T ) ) ) \r \t \t ( R E S E T 0035220 F O R M ( R A D I X 1 0 ) \r 0035240 \t \t \t ( 006 002 f o r 006 0035260 001 X 006 002 i n s t r i n g 006 001 0035300 P A G E P A T T E R N \r \t \t \t 0035320 \t 006 002 d o 006 001 ( S E L C H A 0035340 R Q X \r \t \t \t \t \t 0035360 ( ( # ^ X # ^ Y ) \r \t \t \t \t \t 0035400 \t ( R S 2 3 2 W R I T E C H A R 0035420 S ( M K S T R I N G \r \t \t \t \t 0035440 \t \t \t \t ( 006 002 i f 006 001 ( 0035460 E Q X ( C H A R C O D E # 0035500 ^ X ) ) \r \t \t \t \t \t \t \t \t 0035520 006 002 t h e n 006 001 \r 0035540 * 0035620 006 003 ( * 0035640 # ^ X i s t h e L I N E L 0035660 E N G T H ( o r t h e n u 0035700 m b e r o f " X " 006 001 \r \t 0035720 \t \t \t \t \t \t 006 003 p o s 0035740 i t i o n s ) ) 006 001 \r \t \t \t \t \t 0035760 \t \t \t \t ( C A D R P A 0036000 G E S I Z E ) \r \t \t \t \t \t \t \t \t 0036020 006 002 e l s e 006 001 ( C 0036040 A R P A G E S I Z E ) ) ) ) ) 0036060 \r \t \t \t \t \t ( R S 2 0036100 3 2 W R I T E B Y T E X ) ) ) 0036120 ) \r \t \t ( R S 2 3 2 F O R 0036140 C E O U T P U T ) \r \t \t ( 0036160 006 002 \ R S 2 3 2 L O G I N . M S 0036200 G D A L L Y 006 001 N I L N I L 0036220 O U T S T R M T ) ) ) ) ) \r 0036240 \r ( 006 004 \ R S 2 3 2 . P & L . F 0036260 I N D G O O D N A M E S 006 001 \r 0036300 ( L A M B D A ( M S G ) 0036320 * 0036360 006 003 ( * 0036400 J o n L " 2 - D e c - 8 3 0036420 1 7 : 2 7 " ) 006 001 \r 0036440 * 0036520 006 003 ( * G i v 0036540 e o u t o n l y t h e n 0036560 a m e s w i t h o u t h y p 0036600 h e n s i n t h e m , f o 0036620 r 006 001 \r \t \t \t \t \t \t \t 0036640 006 003 e a c h s u c h h a s 0036660 a n o n - h y p h e n a t e 0036700 d v e r s i o n . 006 001 \r \t \t \t 0036720 \t \t \t \t 006 003 E . g . , 0036740 S A I L f o r S U - A I ) 0036760 006 001 \r ( M A P C O N C 0037000 ( 006 002 i f 006 001 ( S T R E Q U A 0037020 L M S G " { L o g i n t h 0037040 r u R S 2 3 2 } H o s t n a 0037060 m e = " ) \r \t \t 006 002 t h e 0037100 n 006 001 R S 2 3 2 O S T Y P E S 0037120 \r \t 006 002 e l s e 006 0037140 001 R S 2 3 2 L O G I N S Y S T 0037160 E M T Y P E I N F O ) \r \t 0037200 ( F U N C T I O N ( L A M 0037220 B D A ( X ) \r \t \t ( S E T Q 0037240 X ( C A R X ) ) \r \t \t ( 0037260 A N D ( S T R P O S L ( D E 0037300 F E R R E D C O N S T A N T ( 0037320 M A K E B I T T A B L E ( C H 0037340 A R C O D E ( - ) ) \r \t \t \t \t 0037360 \t \t \t T ) ) \r \t \t 0037400 \t X ) \r \t \t 0037420 ( L I S T X ) ) ) ) ) ) 0037440 ) \r ) \r \r ( R P A Q ? 006 002 \ R 0037460 S 2 3 2 L O G I N . L A S T H O 0037500 S T N A M E 006 001 N I L ) \r \r ( 0037520 R P A Q ? 006 002 \ R S 2 3 2 L O 0037540 G I N . L A S T H O S T S Y S T 0037560 E M T Y P E 006 001 N I L ) \r \r ( 0037600 R P A Q ? 006 002 \ R S 2 3 2 L O 0037620 G I N . T I M E R 006 001 ( S E T 0037640 U P T I M E R 0 ) ) \r \r ( R P 0037660 A Q ? 006 002 \ R S 2 3 2 S T R P 0037700 T R 006 001 ( A L L O C S T R I N 0037720 G 0 ) ) \r ( D E C L A R E : 0037740 D O E V A L @ C O M P I L E D 0037760 O N T C O P Y \r \r ( A D D T O V 0040000 A R G L O B A L V A R S R S 0040020 2 3 2 O S T Y P E S R S 2 3 2 0040040 L O G I N S Y S T E M T Y P E I 0040060 N F O \ R S 2 3 2 L O G I N . 0040100 L A S T H O S T N A M E \r \t 0040120 \ R S 2 3 2 L O G I N . L A S 0040140 T H O S T S Y S T E M T Y P E 0040160 \ R S 2 3 2 L O G I N . T I M E 0040200 R \ R S 2 3 2 S T R P T R ) \r 0040220 ) \r \r ( R P A Q ? 006 002 \ R S 2 0040240 3 2 C H A T 7 ? 006 001 T ) \r \r ( 0040260 R P A Q ? 006 002 \ R S 2 3 2 C H 0040300 A T . E O L s e q u e n c e 006 001 0040320 " \r " ) \r \r ( R P A Q ? 006 002 0040340 \ R S 2 3 2 C H A T . N E W L I 0040360 N E C H A R 006 001 ( C H A R C O 0040400 D E L F ) ) \r \r ( R P A Q ? 0040420 006 002 \ R S 2 3 2 C H A T . I g n 0040440 o r e C h a r c o d e s 006 001 ( 0040460 L I S T ( C H A R C O D E N 0040500 U L L ) ) ) \r ( D E C L A R E : 0040520 D O E V A L @ C O M P I L E 0040540 D O N T C O P Y \r \r ( A D D T O 0040560 V A R G L O B A L V A R S \ 0040600 R S 2 3 2 C H A T 7 ? ) \r ) \r ( 0040620 D E C L A R E : D O E V A L @ 0040640 C O M P I L E D O N T C O P Y 0040660 \r \r ( S P E C V A R S \ R S 2 0040700 3 2 C H A T . N E W L I N E C H 0040720 A R \ R S 2 3 2 C H A T . E O 0040740 L s e q u e n c e \ R S 2 3 2 0040760 C H A T . I g n o r e C h a r c 0041000 o d e s ) \r ) \r ( P U T P R O P 0041020 S R S 2 3 2 L O G I N C O P 0041040 Y R I G H T ( " X e r o x C 0041060 o r p o r a t i o n " 1 9 8 3 0041100 1 9 8 4 ) ) \r ( D E C L A R E 0041120 : D O N T C O P Y \r ( F I 0041140 L E M A P ( N I L ( 3 0 8 9 0041160 1 6 1 6 3 ( R S 2 3 2 . P R 0041200 O M P T & L O G I N 3 0 9 9 0041220 . 4 5 7 9 ) ( R S 2 3 2 L O 0041240 G I N 4 5 8 1 . 1 2 4 5 3 0041260 ) ( \r \ R S 2 3 2 L O G I N . 0041300 C H E C K S T O P 1 2 4 5 5 0041320 . 1 2 7 4 3 ) ( \ R S 2 3 2 0041340 L O G I N . M S G D A L L Y 1 0041360 2 7 4 5 . 1 4 3 5 0 ) ( \ 0041400 R S 2 3 2 L O G I N . S E N D P 0041420 A G E S I Z E \r 1 4 3 5 2 . 0041440 1 5 5 1 9 ) ( \ R S 2 3 2 . 0041460 P & L . F I N D G O O D N A M E 0041500 S 1 5 5 2 1 . 1 6 1 6 1 ) 0041520 ) ) ) ) \r S T O P \r 0041532