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