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