$ od -c -N 50000 [eris]<Lisp>Harmony>Library>RS232LOGIN.DCOM!2
0000000 ( F I L E C R E A T E D " 9
0000020 - O c t - 8 4 1 3 : 5 4 : 2 7
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P > H A
0000100 R M O N Y > L I B R A R Y > R S
0000120 2 3 2 L O G I N . ; 2 ) \r "
0000140 3 - O c t - 8 4 1 7 : 1 8 : 0
0000160 4 " b c o m p l ' d i n "
0000200 I N T E R L I S P - D 3 - O
0000220 c t - 8 4 . . . " d a t e d
0000240 " 3 - O c t - 8 4 1 7 : 4
0000260 5 : 4 5 " ) \r ( F I L E C R E A
0000300 T E D " 5 - O c t - 8 4 0
0000320 0 : 2 5 : 3 1 " { E R I S } <
0000340 L I S P C O R E > L I B R A R Y
0000360 > R S 2 3 2 L O G I N . ; 8 1
0000400 7 8 9 2 c h a n g e s t o :
0000420 ( F N S \r R S 2 3 2 L O G I
0000440 N ) p r e v i o u s d a t e
0000460 : " 4 - A u g - 8 4 2 3 :
0000500 3 1 : 4 0 " { E R I S } < L I
0000520 S P C O R E > L I B R A R Y > R
0000540 S 2 3 2 L O G I N . ; 7 ) \r R S
0000560 2 3 2 . P R O M P T & L O G I N
0000600 D 1 \r ( P 1 H O S T . S Y
0000620 S T E M T Y P E P 0 H O S
0000640 T I 0 T y p e S c r i p t
0000660 S t r e a m F 2 N E T W O
0000700 R K O S T Y P E S ) \0 265 002 001 \0
0000720 001 021 001 ` \0 \0 \t \0 \0 277 \b \0 \0 222 261
0000740 \0 207 ` \0 \0 \t \0 \0 277 n 002 \0 \t \0 \0 277
0000760 o \0 \0 \0 ` \0 \0 g \0 \0 ` \0 \0 h g \0
0001000 \0 \r 006 \0 \0 \t \0 \0 X 263 X l 002 \t \0 \0
0001020 260 312 H ` \0 \0 \n \0 \0 265 \a H R \n \0 \0
0001040 002 Y 263 S ` \0 \0 \t \0 \0 277 n 002 \0 \t \0
0001060 \0 277 o \0 \0 \0 h g \0 \0 ` \0 \0 h g \0
0001100 \0 \r 006 \0 \0 \t \0 \0 Y 265 \b l 002 \t \0 \0
0001120 216 ` \0 \0 \n \0 \0 263 023 o \0 \0 \0 \t \0 \0
0001140 277 \b \0 \0 262 256 g \0 \0 020 H I 032 ` \0 \0
0001160 032 027 \0 \0 277 H h d I @ ` \0 \0 g \0 \0
0001200 \r \a \0 \0 020 \0 ( 2 6 2 Q R S 2 3
0001220 2 L O G I N 2 2 2 Q \ R S 2
0001240 3 2 L O G I N . C H E C K S T O
0001260 P 2 1 6 Q H E L P 2 0 5 Q
0001300 A S S O C 1 7 6 Q R I N G
0001320 B E L L S 1 6 6 Q M K A T O
0001340 M 1 6 3 Q P R O M P T F O R
0001360 W O R D 1 3 7 Q \ R S 2 3 2
0001400 I N S U R E . L I N E B U F F E
0001420 R 1 3 0 Q F R E S H L I N E
0001440 1 1 6 Q A S S O C 1 0 7 Q
0001460 A S S O C 7 6 Q R I N G B
0001500 E L L S 6 6 Q M K A T O M
0001520 6 3 Q P R O M P T F O R W O R
0001540 D 3 5 Q \ R S 2 3 2 I N S U
0001560 R E . L I N E B U F F E R 2 6
0001600 Q F R E S H L I N E 1 4 Q
0001620 \ R S 2 3 2 L O G I N . C H E C
0001640 K S T O P 1 0 Q D S P R E S
0001660 E T ) \r ( 2 5 6 Q T T Y 2 5
0001700 3 Q P R O M P T W I N D O W
0001720 2 4 2 Q R S 2 3 2 O S T Y P E
0001740 S 2 3 6 Q R S 2 3 2 O S T Y
0001760 P E S 2 2 7 Q S t o p L o g
0002000 i n 2 0 2 Q R S 2 3 2 L O G
0002020 I N S Y S T E M T Y P E I N F O
0002040 1 5 7 Q T T Y 1 5 3 Q P
0002060 R O M P T W I N D O W 1 5 0 Q
0002100 \ R S 2 3 2 . P & L . F I N D
0002120 G O O D N A M E S 1 2 5 Q P
0002140 R O M P T W I N D O W 1 0 4 Q
0002160 R S 2 3 2 O S T Y P E S 5 7
0002200 Q T T Y 5 3 Q P R O M P T
0002220 W I N D O W 5 0 Q \ R S 2 3
0002240 2 . P & L . F I N D G O O D N A
0002260 M E S 4 5 Q \ R S 2 3 2 L O
0002300 G I N . L A S T H O S T N A M E
0002320 2 3 Q P R O M P T W I N D O
0002340 W 5 P R O M P T W I N D O W
0002360 ) \r ( 2 1 3 Q " S o r r y ,
0002400 I d o n ' t k n o w t h
0002420 a t S Y S T E M T Y P E ;
0002440 t y p e O K t o t r y a
0002460 g a i n . \r " 1 4 4 Q " H
0002500 o s t S Y S T E M T Y P E =
0002520 " 4 2 Q " { L o g i n t h
0002540 r u R S 2 3 2 } H o s t n a
0002560 m e : " ) \r R S 2 3 2 L O G I
0002600 N D 1 \r ( P 2 0 Q P R E V
0002620 I O U S C H A R P 1 7 Q C
0002640 P 1 2 Q P A G E P A T T E
0002660 R N P 1 1 Q P A G E S I Z
0002700 E P 1 0 Q M E S S A G E
0002720 P 7 C H A R P 6 5 S E
0002740 C S . t i c s P 5 3 S E C
0002760 S . t i c s P 4 W I N D O
0003000 W P 3 H o s t ' s A t t n
0003020 C h a r P 2 L o g i n N a
0003040 m e P 1 P W H a s h E n t
0003060 r y P 0 H S T I 6 U
0003100 R G E N C Y . O P T I O N I
0003120 5 P R O M P T F O R W O R D s
0003140 t r e a m I 4 T y p e S c
0003160 r i p t S t r e a m I 3 H
0003200 o s t S Y S T E M T Y P E I
0003220 2 P A S S W O R D I 1 U
0003240 s e r N a m e I 0 H O S T
0003260 F 2 4 Q N E T W O R K O S
0003300 T Y P E S ) 003 Z 024 001 \0 \a ` \0 \0
0003320 003 246 g \0 \0 \t \0 \0 277 D d 004 ` \0 \0 360
0003340 262 024 g \0 \0 \n \0 \0 263 G D o \0 \0 \0 \n
0003360 \0 \0 260 < 245 i \t \0 \0 260 3 D d g \0 \0
0003400 360 223 277 h 260 ( \t \0 \0 252 D \t \0 \0 245 D
0003420 d i 360 226 277 D \t \0 \0 260 023 004 l 004 360 227
0003440 D g \0 \0 \n \0 \0 203 D \t \0 \0 b \b 277 C
0003460 003 001 g \0 \0 360 263 @ 021 020 \0 C ` \0 \0 \n
0003500 \0 \0 002 X 265 / @ 262 " @ ` \0 \0 \n \0 \0
0003520 265 \b @ W ( \n \0 \0 002 X 232 H ` \0 \0 \n
0003540 \0 \0 002 X 265 017 @ 265 D o \0 \0 \0 C \n \0
0003560 \0 277 H b 006 023 B 262 024 B 005 \a 255 B 004 l
0003600 004 360 264 006 B \t \0 \0 b 004 277 F 243 i b \f
0003620 277 @ d 223 ` \0 \0 035 003 001 h d i \v \0 \0
0003640 021 002 002 \b \0 \0 262 024 h 260 k ` \0 \0 \n \0
0003660 \0 002 X 262 266 h b \0 260 271 A 263 6 I 001 b
0003700 002 263 0 E \t \0 \0 277 @ 234 o \0 \0 \0 @ o
0003720 \0 \0 \0 \v \0 \0 203 o \0 \0 \0 J h E h F
0003740 \r 006 \0 \0 \t \0 \0 b 002 277 \b \0 \0 222 h 260
0003760 % B 223 I 002 263 036 I 002 225 I 002 \t \0 \0 214
0004000 o \0 \0 \0 h d E i F \r 006 \0 \0 b 004 222
0004020 @ 265 x i 022 264 003 202 261 001 037 C 002 001 D \t
0004040 \0 \0 264 006 D \t \0 \0 ` \0 \0 l 003 332 ` \0
0004060 \0 l 005 332 021 t \r C 002 002 002 002 001 d 005 001
0004100 241 005 002 265 003 j d n 002 \0 361 243 277 n 002 \0
0004120 \t \0 \0 277 L 224 L \t \0 \0 277 g \0 \0 \t \0
0004140 \0 277 o \0 \0 \0 _ 026 d 002 263 035 o \0 \0 \0
0004160 o \0 \0 \0 o \0 \0 \0 n 377 377 \v \0 \0 \n \0
0004200 \0 030 i 031 277 O 026 001 216 A B \v \0 \0 277 260
0004220 204 d 001 \t \0 \0 277 002 003 265 370 k _ 032 l 006
0004240 361 222 261 \0 213 \b \0 \0 231 g \0 \0 \t \0 \0 g
0004260 \0 \0 020 K 235 D 225 D K \n \0 \0 277 K i \n
0004300 \0 \0 277 ` \0 \0 004 l 002 360 223 ` \0 \0 202 l
0004320 002 037 006 \0 \0 w N 366 _ 030 277 O 030 g \0 \0
0004340 \n \0 \0 263 ? ` \0 \0 231 ` \0 \0 262 ! \b \0
0004360 \0 260 033 ` \0 \0 233 ` \0 \0 310 \0 n 200 x 345
0004400 j 360 204 n 200 \0 t 361 243 \b \0 \0 277 ` \0 \0
0004420 ` \0 \0 360 247 ` \0 \0 ` \0 \0 302 200 h _ 016
0004440 262 273 O 016 263 O 032 k 330 261 377 r O 016 263
0004460 025 D 265 006 g \0 \0 020 g \0 \0 \t \0 \0 \n \0
0004500 \0 277 260 362 \b \0 \0 277 N h D L \f \0 \0 263
0004520 365 \b \0 \0 222 261 377 T C 002 002 001 021 Q 023 O
0004540 034 006 \0 \0 310 003 _ $ 277 O 034 006 \0 \0 311 \0
0004560 _ & 277 O $ O 034 006 \0 \0 310 002 k 331 330 _
0004600 " 277 O $ O " 361 263 d O & O $ d k 330
0004620 _ $ 277 302 _ 036 d l 230 360 226 277 A \t \0 \0
0004640 260 C l 231 360 262 9 \b \0 \0 277 O l \r 360
0004660 246 O l 033 360 262 036 M i D L \f \0 \0 _
0004700 020 277 o \0 \0 \0 O 020 h d d d ` \0 \0 \r
0004720 \a \0 \0 200 i 235 B 233 B i \n \0 \0 204 O 036
0004740 \t \0 \0 277 O 036 _ 277 260 231 023 \b \0 \0 222
0004760 261 376 271 \b \0 \0 277 N h D L \f \0 \0 224 \b
0005000 \0 \0 260 364 \b \0 \0 222 261 376 241 @ 027 \0 \0 277
0005020 C 027 \0 \0 277 g \0 \0 \t \0 \0 277 L d 225 C
0005040 M \v \0 \0 h 020 \0 ( 1 5 2 6 Q \ R
0005060 S 2 3 2 L O G I N . S E N D P A
0005100 G E S I Z E 1 5 1 5 Q R S 2
0005120 3 2 C L E A R B U F F E R 1 4
0005140 7 1 Q \ R S 2 3 2 L O G I N .
0005160 C H E C K S T O P 1 4 6 4 Q
0005200 \ R S 2 3 2 . C H E C K U A R T
0005220 1 4 6 0 Q \ R S 2 3 2 L O G
0005240 I N . M S G D A L L Y 1 4 5 0
0005260 Q R S 2 3 2 F O R C E O U T P
0005300 U T 1 4 4 1 Q \ R S 2 3 2 L
0005320 O G I N . C H E C K S T O P 1
0005340 4 2 5 Q R S 2 3 2 W R I T E B
0005360 Y T E 1 4 1 7 Q R S 2 3 2 W
0005400 R I T E S T R I N G 1 4 0 5 Q
0005420 S T R P O S 1 3 6 1 Q \ R
0005440 S 2 3 2 L O G I N . M S G D A L
0005460 L Y 1 3 3 4 Q R S 2 3 2 F O
0005500 R C E O U T P U T 1 3 2 2 Q
0005520 R S 2 3 2 W R I T E S T R I N G
0005540 1 2 0 6 Q \ R S 2 3 2 L O G
0005560 I N . C H E C K S T O P 1 2 0
0005600 1 Q \ R S 2 3 2 L O G I N . M
0005620 S G D A L L Y 1 1 7 1 Q \ R
0005640 S 2 3 2 . C H E C K U A R T 1
0005660 1 6 3 Q \ R S 2 3 2 B O U T S
0005700 T R I N G 1 1 6 0 Q M K S T
0005720 R I N G 1 0 7 6 Q \ R S 2 3
0005740 2 . P R O C E S S I N T E R R U
0005760 P T 1 0 4 3 Q \ R S 2 3 2 C
0006000 . P R O C E S S I N T E R R U P
0006020 T 1 0 2 5 Q T I M E R E X P
0006040 I R E D ? 7 6 4 Q R S 2 3 2
0006060 W R I T E B Y T E 7 5 6 Q B
0006100 O U T 7 4 1 Q R S 2 3 2 C L
0006120 E A R B U F F E R 7 3 2 Q \
0006140 R S 2 3 2 L O G I N . C H E C K
0006160 S T O P 7 1 0 Q \ F R E S H
0006200 E N U P F N 7 0 0 Q S E T P
0006220 A S S W O R D 6 6 3 Q \ A P
0006240 P E N D 2 6 6 0 Q \ O N P A
0006260 T H S . C C O D E 6 2 3 Q R
0006300 S 2 3 2 C L E A R B U F F E R
0006320 6 1 4 Q T O T O P W 6 0 5 Q
0006340 \ R S 2 3 2 I N S U R E . L I
0006360 N E B U F F E R 5 3 2 Q W F
0006400 R O M D S 5 2 4 Q D I S P L
0006420 A Y S T R E A M P 4 7 7 Q P
0006440 R O M P T F O R W O R D 4 6 1
0006460 Q \ D E C R Y P T . P W D 4
0006500 3 7 Q \ R S 2 3 2 L O G I N .
0006520 C H E C K S T O P 4 3 1 Q M
0006540 K A T O M 4 2 6 Q P R O M P
0006560 T F O R W O R D 4 1 0 Q C O
0006600 N C A T 3 7 1 Q F R E S H L
0006620 I N E 3 4 3 Q A S S O C 3
0006640 3 0 Q \ R S 2 3 2 L O G I N .
0006660 C H E C K S T O P 3 2 2 Q U
0006700 S E R N A M E 2 7 2 Q M K S
0006720 T R I N G 2 4 3 Q E R R O R
0006740 2 2 4 Q A S S O C 2 1 2 Q
0006760 A S S O C 2 0 2 Q A S S O
0007000 C 1 6 4 Q A S S O C 1 3 6
0007020 Q \ I L L E G A L . A R G 1
0007040 3 1 Q O P E N S T R E A M 1
0007060 1 3 Q G E T S T R E A M 1 0
0007100 0 Q D I S P L A Y S T R E A M
0007120 P 7 3 Q W I N D O W P 5 3
0007140 Q G E T S T R E A M 4 4 Q
0007160 E R R O R 3 2 Q O P E N P
0007200 1 2 Q E R R O R ) \r ( 1 5 1 2
0007220 Q I N P U T 1 5 0 6 Q \ R
0007240 S 2 3 2 L O G I N . L A S T H O
0007260 S T S Y S T E M T Y P E 1 5 0
0007300 1 Q \ R S 2 3 2 L O G I N . L
0007320 A S T H O S T N A M E 1 4 0 1
0007340 Q U P P E R C A S E A R R A Y
0007360 1 2 5 4 Q S T R I N G P 1
0007400 2 4 0 Q S T R I N G P 1 2 2
0007420 6 Q S T R I N G P 1 1 5 5 Q
0007440 N o R e s p o n s e F r o m H
0007460 o s t 1 1 5 1 Q N o R e s p
0007500 o n s e F r o m H o s t 1 1 1
0007520 5 Q \ R S 2 3 2 I R I N G . R
0007540 E A D 1 1 1 2 Q \ R S 2 3 2
0007560 I R I N G B U F 1 1 0 5 Q \
0007600 R S 2 3 2 I R I N G . W R I T E
0007620 1 1 0 2 Q \ R S 2 3 2 I R I
0007640 N G . R E A D 1 0 5 4 Q \ D
0007660 L i o n T T Y I n L o c 1 0 5
0007700 0 Q \ R S 2 3 2 D L i o n ?
0007720 1 0 3 6 Q \ R S 2 3 2 B A C K
0007740 G R O U N D E R R O R S T A T U
0007760 S 1 0 3 2 Q \ R S 2 3 2 D L
0010000 i o n R S 2 3 2 C ? 1 0 2 2 Q
0010020 T I C K S 1 0 0 7 Q F I X
0010040 P 1 0 0 0 Q \ R S 2 3 2 L O
0010060 G I N . T I M E R 7 7 0 Q \
0010100 R S 2 3 2 L O G I N . T I M E R
0010120 7 4 4 Q S t o p L o g i n
0010140 7 3 6 Q B O T H 6 2 0 Q B
0010160 O T H 5 4 3 Q \ R C L K S E
0010200 C O N D 5 3 5 Q \ R C L K S
0010220 E C O N D 3 4 0 Q R S 2 3 2
0010240 L O G I N S Y S T E M T Y P E I
0010260 N F O 3 1 1 Q L O G I N P A
0010300 S S W O R D S 2 2 1 Q R S 2
0010320 3 2 L O G I N S Y S T E M T Y P
0010340 E I N F O 1 7 7 Q R S 2 3 2
0010360 O S T Y P E S 1 6 1 Q R S 2
0010400 3 2 L O G I N S Y S T E M T Y P
0010420 E I N F O 1 4 7 Q L O G I N
0010440 S Y S T E M T Y P E 1 2 6 Q
0010460 O U T P U T 6 2 Q N O N E
0010500 2 7 Q O U T P U T 2 1 Q 004
0010520 003 S T R E A M T Y P E # 7 R
0010540 S 2 3 2 N o t I n i t i a l i z
0010560 e d 2 R S 2 3 2 I N I T ) \r
0010600 ( 1 3 7 0 Q " P A S S W O R
0010620 D " 6 5 2 Q ( \ R S 2 3 2 I
0010640 N S U R E . L I N E B U F F E R
0010660 C H C O N 1 N C H A R S C
0010700 H A R C O D E P D S P B A C K
0010720 U P E R R O R \ L I S P E R
0010740 R O R \ I L L E G A L . A R G
0010760 R A I D B L O C K \ C L O
0011000 C K 0 H E L P \ D A Y T I M
0011020 E 0 \ I L L E G A L . A R G
0011040 S H O U L D N T \ G E T B A S
0011060 E S T R I N G D I S M I S S
0011100 C L O C K 0 \ S T O P S C R O
0011120 L L ? B I T M A P C R E A T E
0011140 D S P B A C K C O L O R F O
0011160 N T C R E A T E \ S H O W C A
0011200 R E T C R E A T E W O P E N
0011220 W M K S T R I N G E R R O R
0011240 X \ R U N . P R O C E S S \
0011260 C a n o n i c a l i z e T i m e
0011300 r U n i t s \ M A P C H A R S
0011320 M E N U M A C H I N E T Y P
0011340 E P L A Y T U N E F L A S H
0011360 W I N D O W R E T F R O M S
0011400 T K P O S E R R O R ! \ C R
0011420 E A T E . T T Y D I S P L A Y S
0011440 T R E A M \ D S P P R I N T C
0011460 R / L F \ B L T C H A R \ C
0011500 A R E T . D O W N \ G E T S T
0011520 R E A M ) 6 4 6 Q ( \ R S 2
0011540 3 2 L O G I N . C H E C K S T O
0011560 P \ R S 2 3 2 B O U T S T R I
0011600 N G R S 2 3 2 W R I T E S T R
0011620 I N G \ D S P P R I N T C H A
0011640 R R S 2 3 2 W R I T E B Y T E
0011660 R S 2 3 2 R E A D B Y T E R
0011700 S 2 3 2 R E A D S T R I N G R
0011720 S 2 3 2 F O R C E O U T P U T
0011740 \ R S 2 3 2 L O G I N . M S G D
0011760 A L L Y S T R P O S ) 6 4 2
0012000 Q ( \ R S 2 3 2 I N S U R E .
0012020 L I N E B U F F E R \ D S P P
0012040 R I N T C R / L F \ B L T C H
0012060 A R \ G E T S T R E A M \ C
0012100 A R E T . D O W N ) 6 3 0 Q
0012120 ( N I L ) 4 6 6 Q " ( p a
0012140 s s w o r d ) " 4 1 5 Q " L
0012160 o g i n I D : " 4 0 5 Q "
0012200 : " 4 0 0 Q " L o g i n I
0012220 D f o r " 2 3 7 Q " W e
0012240 r e a l l y m u s t k n o
0012260 w w h a t t h e H o s t S
0012300 Y S T E M T Y P E i s " 4 1
0012320 Q " N o t o p e n f o r
0012340 o u t p u t " ) \r \ R S 2 3 2 L
0012360 O G I N . C H E C K S T O P D
0012400 1 \r N I L \0 037 \0 \0 \0 \0 \b \0 \0 264
0012420 032 ` \0 \0 g \0 \0 360 264 021 ` \0 \0 \t \0 \0
0012440 g \0 \0 h 027 \0 \0 277 360 020 \0 ( 2 3 Q
0012460 M E N U 2 \ R S 2 3 2 C H E
0012500 C K . B L O C K ) \r ( 3 2 Q \
0012520 R S 2 3 2 C H A T . M E N U S I
0012540 G N A L 2 6 Q S t o p L o g
0012560 i n 2 0 Q \ R S 2 3 2 C H A
0012600 T M E N U 1 2 Q M E N U 7
0012620 \ R S 2 3 2 C H A T . M E N U
0012640 S I G N A L ) \r ( ) \r \ R S 2 3
0012660 2 L O G I N . M S G D A L L Y
0012700 D 1 \r ( P 5 C P 4 J
0012720 P 3 I P 1 O P O S P
0012740 0 M E S S A G E I 3 W
0012760 I N D O W P I 2 T y p e S
0013000 c r i p t S t r e a m I 1
0013020 F O R C E T R U N C 7 ? I 0
0013040 W A I T ? . t i c s F 6
0013060 \ R S 2 3 2 C H A T . I g n o r
0013100 e C h a r c o d e s ) \0 232 006 001
0013120 \0 004 n 002 \0 \t \0 \0 h d d @ d 005 001 241
0013140 005 002 265 005 ` \0 \0 g \0 \0 ` \0 \0 \r 006 \0
0013160 \0 021 001 \0 \b \0 \0 262 026 g \0 \0 \t \0 \0 021
0013200 001 001 I g \0 \0 i \v \0 \0 023 260 ^ H 005 \a
0013220 264 \t H 310 002 j 360 221 h 020 A 256 ` \0 \0 262
0013240 > ` \0 \0 002 001 l \a 361 262 4 H 310 002 k j
0013260 021 023 005 K J 361 263 " H K ) l 177 345 275 C
0013300 224 M l \n 360 253 M V 034 247 H L k 330 \ M
0013320 + 277 K k 330 [ 260 336 H L 315 002 023 B 004 `
0013340 \0 \0 360 224 B H \n \0 \0 H 020 \0 ( 2 2 6
0013360 Q \ R S 2 3 2 B O U T S T R I
0013400 N G 6 7 Q R E T F R O M 5
0013420 4 Q S T K P O S 4 4 Q \ R
0013440 S 2 3 2 L O G I N . C H E C K S
0013460 T O P 3 6 Q R S 2 3 2 R E A
0013500 D S T R I N G 5 \ R S 2 3 2
0013520 I N S U R E . L I N E B U F F E
0013540 R ) \r ( 2 1 7 Q 004 003 S T R E A
0013560 M T Y P E # 1 2 1 Q R S 2 3
0013600 2 I N I T 1 1 4 Q \ R S 2 3
0013620 2 C H A T 7 ? 6 3 Q S t o p
0013640 L o g i n 5 1 Q R S 2 3 2 L
0013660 O G I N 3 2 Q \ R S 2 3 2 S
0013700 T R P T R 2 7 Q T I C K S
0013720 2 4 Q \ R C L K S E C O N D )
0013740 \r ( ) \r \ R S 2 3 2 L O G I N .
0013760 S E N D P A G E S I Z E A 0 0 0
0014000 1 D 1 \r ( N A M E E R R O R
0014020 S E T L ( 0 N I L ) P
0014040 1 X F 5 P A G E S I Z E
0014060 F 6 P A G E P A T T E R N
0014100 F 7 M A C R O Y ) \0 S 005
0014120 003 002 \0 V 021 A 004 H 006 \0 \0 310 003 273 H 006
0014140 \0 \0 311 \0 274 K H 006 \0 \0 310 002 k 331 330 Z
0014160 277 K J 361 263 + L K d k 330 273 302 Y d l
0014200 230 360 245 d l 231 360 262 023 l 230 360 222 U 002 200
0014220 U 001 \t \0 \0 \t \0 \0 260 330 \t \0 \0 260 323 023
0014240 h c 016 i 020 \0 ( 1 1 1 Q R S 2 3
0014260 2 W R I T E B Y T E 1 0 4 Q
0014300 R S 2 3 2 W R I T E S T R I N G
0014320 1 0 1 Q M K S T R I N G ) \r
0014340 ( 2 6 Q S T R I N G P 1 6 Q
0014360 S T R I N G P 7 S T R I N
0014400 G P ) \r ( ) \r \ R S 2 3 2 L O G
0014420 I N . S E N D P A G E S I Z E
0014440 D 1 \r ( P 7 R E S E T S T A
0014460 T E P 6 M A C R O Y P
0014500 4 O L D V A L U E P 3 M
0014520 S G P 2 O U T S T R M P
0014540 1 P A G E P A T T E R N P
0014560 0 P A G E S I Z E I 2
0014600 D A L L Y . t i c s I 1 H
0014620 o s t S Y S T E M T Y P E I
0014640 0 W I N D O W F 1 0 Q R
0014660 E S E T V A R S L S T ) \0 212 \b
0014700 001 \0 003 @ g \0 \0 \n \0 \0 A 002 002 002 001 @
0014720 \t \0 \0 021 023 003 H 264 ^ I 264 [ g \0 \0 \t
0014740 \0 \0 277 A 002 001 [ 265 O l \n \t \0 \0 021 1
0014760 \a g \0 \0 L h 032 032 h 032 W 020 032 c 020 275
0015000 o \0 \0 \0 g \0 \0 \n \0 \0 245 g \0 \0 _ 016
0015020 277 M 002 c 020 277 g \0 \0 M 001 001 002 \n \0 \0
0015040 277 O 016 223 \b \0 \0 277 023 \b \0 \0 277 h d J
0015060 i \f \0 \0 h 020 i \n \0 \0 277 B h J i \f
0015100 \0 \0 277 g \0 \0 \t \0 \0 277 260 237 \0 ( 2 0
0015120 5 Q R S 2 3 2 C L E A R B U F
0015140 F E R 1 7 6 Q \ R S 2 3 2 L
0015160 O G I N . M S G D A L L Y 1 6
0015200 6 Q R S 2 3 2 W R I T E B Y T
0015220 E 1 6 0 Q \ R S 2 3 2 L O G
0015240 I N . M S G D A L L Y 1 5 0 Q
0015260 R S 2 3 2 F O R C E O U T P U
0015300 T 1 4 3 Q E R R O R ! 1 3
0015320 4 Q A P P L Y 1 0 6 Q \ R
0015340 S 2 3 2 L O G I N . S E N D P A
0015360 G E S I Z E A 0 0 0 1 5 2 Q
0015400 R A D I X 3 6 Q R S 2 3 2 C
0015420 L E A R B U F F E R 1 7 Q G
0015440 E T S T R E A M 6 G E T W I
0015460 N D O W U S E R P R O P ) \r ( 2
0015500 0 2 Q I N P U T 1 2 5 Q R
0015520 A D I X 1 1 2 Q E R R O R
0015540 1 0 3 Q I N T E R N A L 6 0
0015560 Q R A D I X 3 3 Q I N P U
0015600 T 3 P A G E S I Z E ) \r (
0015620 1 0 0 Q ( \ R S 2 3 2 L O G I
0015640 N . S E N D P A G E S I Z E A 0
0015660 0 0 1 ) ) \r \ R S 2 3 2 . P & L
0015700 . F I N D G O O D N A M E S D
0015720 1 \r ( P 4 X I 0 M S G
0015740 ) \0 W 005 \0 \0 001 021 @ 003 @ o \0 \0 \0
0015760 \n \0 \0 224 ` \0 \0 260 : ` \0 \0 260 5 d 001
0016000 021 001 004 L 001 274 o \0 \0 \0 [ d 002 254 o \0
0016020 \0 \0 i \n \0 \0 030 i 031 277 K 001 L \n \0 \0
0016040 264 005 L h 032 022 X 003 226 I 265 \f H Z Y 277
0016060 002 003 265 314 J 020 \t \0 \0 Y H 031 260 363 \0 (
0016100 1 2 0 Q L A S T 6 7 Q S T
0016120 R P O S L 5 5 Q M A K E B I
0016140 T T A B L E 1 2 Q S T R E Q
0016160 U A L ) \r ( 2 3 Q R S 2 3 2 L
0016200 O G I N S Y S T E M T Y P E I N
0016220 F O 1 6 Q R S 2 3 2 O S T Y
0016240 P E S ) \r ( 5 1 Q ( 5 5 Q )
0016260 4 1 Q ( N I L ) 7 " { L
0016300 o g i n t h r u R S 2 3 2 }
0016320 H o s t n a m e = " ) \r (
0016340 P R E T T Y C O M P R I N T R
0016360 S 2 3 2 L O G I N C O M S ) \r (
0016400 R P A Q Q R S 2 3 2 L O G I N
0016420 C O M S ( ( C O M S ( * T
0016440 e m p o r a r y p a t c h )
0016460 ( P ( M O V D ? ( Q U O T E
0016500 E V Q ) ( Q U O T E \ E N
0016520 C R Y P T . P W D ) ) ( M O V
0016540 D ? ( \r Q U O T E E V Q )
0016560 ( Q U O T E \ D E C R Y P T .
0016600 P W D ) ) ( O R ( A N D (
0016620 B O U N D P ( Q U O T E U P
0016640 P E R C A S E A R R A Y ) ) (
0016660 S T R P O S " f o o " " F O
0016700 O " N I L N I L \r N I L
0016720 N I L U P P E R C A S E A R R
0016740 A Y ) ) ( F I L E S L O A D
0016760 ( S Y S L O A D F R O M L I
0017000 S P U S E R S ) B S E A R C H
0017020 ) ) ) ) ( F I L E S ( S Y S
0017040 L O A D ) R S 2 3 2 ) ( *
0017060 \r L O G I N f a c i l i t i e
0017100 s ) ( D E C L A R E : E V A
0017120 L @ C O M P I L E D O N T C O
0017140 P Y ( P ( O R ( G E T M A
0017160 C R O P R O P ( Q U O T E R
0017200 S 2 3 2 I N I T I A L I Z E C H
0017220 E C K ) \r C O M P I L E R M A
0017240 C R O P R O P S ) ( L O A D F
0017260 R O M ( Q U O T E R S 2 3 2
0017300 ) ) ) ) ) ( R E C O R D S L
0017320 O G I N S Y S T E M T Y P E )
0017340 ( V A R S R S 2 3 2 O S T Y P
0017360 E S \r R S 2 3 2 L O G I N S Y
0017400 S T E M T Y P E I N F O ) ( F
0017420 N S R S 2 3 2 . P R O M P T &
0017440 L O G I N R S 2 3 2 L O G I N
0017460 \ R S 2 3 2 L O G I N . C H E
0017500 C K S T O P \r \ R S 2 3 2 L O
0017520 G I N . M S G D A L L Y \ R S
0017540 2 3 2 L O G I N . S E N D P A G
0017560 E S I Z E \ R S 2 3 2 . P & L
0017600 . F I N D G O O D N A M E S )
0017620 ( I N I T V A R S ( \r \ R S 2
0017640 3 2 L O G I N . L A S T H O S T
0017660 N A M E N I L ) ( \ R S 2 3
0017700 2 L O G I N . L A S T H O S T S
0017720 Y S T E M T Y P E N I L ) (
0017740 \ R S 2 3 2 L O G I N . T I M E
0017760 R ( S E T U P T I M E R 0 )
0020000 ) \r ( \ R S 2 3 2 S T R P T R
0020020 ( A L L O C S T R I N G 0 )
0020040 ) ) ( G L O B A L V A R S R
0020060 S 2 3 2 O S T Y P E S R S 2 3
0020100 2 L O G I N S Y S T E M T Y P E
0020120 I N F O \r \ R S 2 3 2 L O G I
0020140 N . L A S T H O S T N A M E \
0020160 R S 2 3 2 L O G I N . L A S T H
0020200 O S T S Y S T E M T Y P E \ R
0020220 S 2 3 2 L O G I N . T I M E R
0020240 \ R S 2 3 2 S T R P T R ) ( I
0020260 N I T V A R S ( \r \ R S 2 3 2
0020300 C H A T 7 ? T ) ( \ R S 2 3
0020320 2 C H A T . E O L s e q u e n c
0020340 e " \r " ) ( \ R S 2 3 2 C H
0020360 A T . N E W L I N E C H A R (
0020400 C H A R C O D E L F ) ) ( \
0020420 R S 2 3 2 C H A T . I g n o r e
0020440 C h a r c o d e s ( L I S T
0020460 ( C H A R C O D E N U L L ) )
0020500 ) ) ( \r G L O B A L V A R S
0020520 \ R S 2 3 2 C H A T 7 ? ) ( S
0020540 P E C V A R S \ R S 2 3 2 C H
0020560 A T . N E W L I N E C H A R \
0020600 R S 2 3 2 C H A T . E O L s e q
0020620 u e n c e \r \ R S 2 3 2 C H A
0020640 T . I g n o r e C h a r c o d e
0020660 s ) ) ) \r ( M O V D ? ( Q U O
0020700 T E E V Q ) ( Q U O T E \
0020720 E N C R Y P T . P W D ) ) \r ( M
0020740 O V D ? ( Q U O T E E V Q )
0020760 ( Q U O T E \ D E C R Y P T
0021000 . P W D ) ) \r ( O R ( A N D
0021020 ( B O U N D P ( Q U O T E U
0021040 P P E R C A S E A R R A Y ) )
0021060 ( S T R P O S " f o o " " F
0021100 O O " N I L N I L N I L
0021120 N I L U P P E R C A S E A R R
0021140 A Y ) ) ( \r F I L E S L O A D
0021160 ( S Y S L O A D F R O M L
0021200 I S P U S E R S ) B S E A R C
0021220 H ) ) \r ( F I L E S L O A D (
0021240 S Y S L O A D ) R S 2 3 2 ) \r
0021260 ( T Y P E R E C O R D L O G I
0021300 N S Y S T E M T Y P E ( A T T
0021320 N C H A R L O G I N P A T T E
0021340 R N P A G E S I Z E P A T T E
0021360 R N M I N I M A L L I N E B U
0021400 F F E R S I Z E ) ) \r ( R P A Q
0021420 Q R S 2 3 2 O S T Y P E S (
0021440 ( M A X C . T E N E X ) (
0021460 S U M E X - A I M . T O P S
0021500 2 0 ) ( S U M E X . T O P
0021520 S 2 0 ) ( N I L . T E N E
0021540 X ) ) ) \r ( R P A Q Q R S 2 3
0021560 2 L O G I N S Y S T E M T Y P E
0021600 I N F O ( ( T E N E X L O G
0021620 I N S Y S T E M T Y P E 3 "
0021640 L O G I N 230 231 \r \r " " L E
0021660 N G T H 231 \r W I D T H 230 \r "
0021700 5 1 2 ) ( T O P S 2 0 L O
0021720 G I N S Y S T E M T Y P E 3
0021740 " L O G I N 230 033 231 \r " " T E
0021760 R M I N A L W I D T H 230 \r T
0022000 E R M I N A L L E N G T H 231
0022020 \r " 5 1 2 ) ( V M S L O G
0022040 I N S Y S T E M T Y P E 1 3
0022060 " 230 \r 231 \r " " S E T T E R M
0022100 I N A L / W I D T H = 230 / P A G
0022120 E = 231 \r " 5 1 2 ) ( U N I X
0022140 L O G I N S Y S T E M T Y P E
0022160 1 3 " 230 \r 231 \r " N I L 5
0022200 1 2 ) ( W A I T S L O G I N
0022220 S Y S T E M T Y P E 3 " L O
0022240 G I N 230 \r 231 \r " N I L 1 5
0022260 3 6 ) ( I T S L O G I N S Y
0022300 S T E M T Y P E 2 6 " : L O
0022320 G I N 230 \r 231 \r " " : T C T Y
0022340 P L I N E L E N G T H 230 P
0022360 A G E S I Z E 231 \r " 5 1 2 )
0022400 ( T O P S 1 0 L O G I N S Y
0022420 S T E M T Y P E 3 " L O G I
0022440 N 230 \r 231 \r " N I L 5 1 2 )
0022460 ) ) \r ( R P A Q ? \ R S 2 3 2
0022500 L O G I N . L A S T H O S T N A
0022520 M E N I L ) \r ( R P A Q ? \
0022540 R S 2 3 2 L O G I N . L A S T H
0022560 O S T S Y S T E M T Y P E N I
0022600 L ) \r ( R P A Q ? \ R S 2 3 2
0022620 L O G I N . T I M E R ( S E T
0022640 U P T I M E R 0 ) ) \r ( R P A
0022660 Q ? \ R S 2 3 2 S T R P T R
0022700 ( A L L O C S T R I N G 0 ) )
0022720 \r ( R P A Q ? \ R S 2 3 2 C H
0022740 A T 7 ? T ) \r ( R P A Q ? \
0022760 R S 2 3 2 C H A T . E O L s e q
0023000 u e n c e " \r " ) \r ( R P A Q
0023020 ? \ R S 2 3 2 C H A T . N E W
0023040 L I N E C H A R ( C H A R C O
0023060 D E L F ) ) \r ( R P A Q ? \
0023100 R S 2 3 2 C H A T . I g n o r e
0023120 C h a r c o d e s ( L I S T
0023140 ( C H A R C O D E N U L L ) )
0023160 ) \r ( P U T P R O P S R S 2 3
0023200 2 L O G I N C O P Y R I G H T
0023220 ( " X e r o x C o r p o r a
0023240 t i o n " 1 9 8 3 1 9 8 4 )
0023260 ) \r N I L \r
0023266