$ 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