$ od -c -N 50000 [eris]<Lisp>Carol>LIBRARY>RS232LOGIN!1
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