$ od -c -N 50000 [eris]<Lisp>Harmony>Library>GRAPEVINE.DCOM!1
0000000 ( F I L E C R E A T E D " 1 1
0000020 - J u l - 8 4 1 6 : 4 1 : 4 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > G R A P E V
0000120 I N E . ; 3 ) \r " 2 - J u l
0000140 - 8 4 2 3 : 3 9 : 1 0 " r e
0000160 c o m p i l e d e x p r s :
0000200 \ O P E N G V C O N N E C T I O
0000220 N i n W O R K d a t e d
0000240 " 3 - J u l - 8 4 0 0 : 3 7
0000260 : 2 7 " ) \r ( F I L E C R E A T
0000300 E D " 1 1 - J u l - 8 4 1 6
0000320 : 4 0 : 0 9 " { E R I S } < L
0000340 I S P C O R E > L I B R A R Y >
0000360 G R A P E V I N E . ; 3 3 7 8
0000400 8 7 c h a n g e s t o : (
0000420 F N S \r \ O P E N G V C O N N
0000440 E C T I O N ) p r e v i o u s
0000460 d a t e : " 1 - J u n - 8
0000500 4 1 1 : 4 8 : 3 3 " { E R I
0000520 S } < L I S P C O R E > L I B R
0000540 A R Y > G R A P E V I N E . ; 2
0000560 ) \r G V . A U T H E N T I C A T
0000600 E D 1 \r ( I 1 K E Y I
0000620 0 N A M E ) \0 021 \0 \0 \0 002 l \t
0000640 @ \t \0 \0 A \t \0 \0 h 032 \v \0 \0 020 \0 (
0000660 1 6 Q \ G V O P 1 1 Q \ C
0000700 H E C K K E Y 5 \ C H E C K
0000720 N A M E ) \r N I L \r N I L \r G V
0000740 . C H E C K S T A M P D 1 \r (
0000760 I 1 O L D S T A M P I 0
0001000 N A M E ) \0 024 \0 \0 \0 002 l 006 @
0001020 \t \0 \0 A \t \0 \0 h 032 g \0 \0 \f \0 \0 020
0001040 \0 ( 2 1 Q \ G V O P 1 1 Q
0001060 \ C H E C K S T A M P 5 \ C
0001100 H E C K N A M E ) \r ( 1 6 Q \
0001120 R E C E I V E S T A M P ) \r N I
0001140 L \r G V . E X P A N D D 1 \r (
0001160 I 1 O L D S T A M P I 0
0001200 N A M E ) \0 023 \0 \0 \0 002 k @ \t
0001220 \0 \0 A \t \0 \0 h 032 g \0 \0 \f \0 \0 020 \0
0001240 ( 2 0 Q \ G V O P 1 0 Q \
0001260 C H E C K S T A M P 4 \ C H
0001300 E C K N A M E ) \r ( 1 5 Q \ R
0001320 E C E I V E R L I S T ) \r N I L
0001340 \r G V . I D E N T I F Y C A L L
0001360 E R D 1 \r ( I 1 K E Y I
0001400 0 N A M E ) \0 021 \0 \0 \0 002 l
0001420 ! @ \t \0 \0 A \t \0 \0 h 032 \v \0 \0 020 \0
0001440 ( 1 6 Q \ G V O P 1 1 Q \
0001460 C H E C K K E Y 5 \ C H E C
0001500 K N A M E ) \r N I L \r N I L \r G
0001520 V . I D E N T I F Y M E D 1 \r
0001540 ( P 0 n p w ) \0 020 001 \0 \0 \0
0001560 h \t \0 \0 021 001 \0 H 001 H 002 \n \0 \0 020 \0
0001600 ( 1 5 Q G V . I D E N T I F Y
0001620 C A L L E R 3 \ I N T E R N
0001640 A L / G E T P A S S W O R D ) \r
0001660 N I L \r N I L \r G V . I S I N L
0001700 I S T D 1 \r ( I 4 W H E R
0001720 E I 3 W H I C H I 2
0001740 W H A T I 1 S T R I N G
0001760 I 0 N A M E ) \0 ) \0 \0 \0 005
0002000 l . @ \t \0 \0 A \t \0 \0 ` \0 \0 B 265 003
0002020 j C 265 003 j D 265 003 j h 032 032 032 032 h 032
0002040 032 g \0 \0 \f \0 \0 020 \0 ( 4 6 Q \ G
0002060 V O P 1 1 Q \ C H E C K S T
0002100 R I N G 5 \ C H E C K N A M
0002120 E ) \r ( 4 3 Q \ R E C E I V E
0002140 B O O L 1 4 Q \ 3 B Y T E K
0002160 L U D G E K E Y ) \r N I L \r G V
0002200 . I S M E M B E R C L O S U R E
0002220 D 1 \r ( I 1 S T R I N G
0002240 I 0 N A M E ) \0 024 \0 \0 \0 002
0002260 l + @ \t \0 \0 A \t \0 \0 h 032 g \0 \0 \f
0002300 \0 \0 020 \0 ( 2 1 Q \ G V O P 1
0002320 1 Q \ C H E C K S T R I N G
0002340 5 \ C H E C K N A M E ) \r ( 1
0002360 6 Q \ R E C E I V E B O O L )
0002400 \r N I L \r G V . I S M E M B E R
0002420 D I R E C T D 1 \r ( I 1 S
0002440 T R I N G I 0 N A M E )
0002460 \0 024 \0 \0 \0 002 l ( @ \t \0 \0 A \t \0 \0
0002500 h 032 g \0 \0 \f \0 \0 020 \0 ( 2 1 Q \
0002520 G V O P 1 1 Q \ C H E C K S
0002540 T R I N G 5 \ C H E C K N A
0002560 M E ) \r ( 1 6 Q \ R E C E I V
0002600 E B O O L ) \r N I L \r G V . R E
0002620 A D C O N N E C T D 1 \r ( I
0002640 0 N A M E ) \0 017 \0 \0 \0 001 l \a
0002660 @ \t \0 \0 h g \0 \0 \f \0 \0 020 \0 ( 1 4
0002700 Q \ G V O P 5 \ C H E C K
0002720 N A M E ) \r ( 1 1 Q \ R E C E
0002740 I V E R N A M E ) \r N I L \r G V
0002760 . R E A D E N T R Y D 1 \r ( I
0003000 2 R E A D F N I 1 O L
0003020 D S T A M P I 0 N A M E )
0003040 \0 027 \0 \0 \0 003 l 005 @ \t \0 \0 A \t \0
0003060 \0 h 032 B 265 005 g \0 \0 \f \0 \0 020 \0 ( 2
0003100 4 Q \ G V O P 1 1 Q \ C H
0003120 E C K S T A M P 5 \ C H E C
0003140 K N A M E ) \r ( 2 1 Q \ R E C
0003160 E I V E C L I S T ) \r ( ) \r G V
0003200 . R E A D F R I E N D S D 1 \r
0003220 ( I 2 R E A D F N I 1
0003240 O L D S T A M P I 0 N A M
0003260 E ) \0 027 \0 \0 \0 003 l 004 @ \t \0 \0 A
0003300 \t \0 \0 h 032 B 265 005 g \0 \0 \f \0 \0 020 \0
0003320 ( 2 4 Q \ G V O P 1 1 Q \
0003340 C H E C K S T A M P 5 \ C H
0003360 E C K N A M E ) \r ( 2 1 Q \ R
0003400 E C E I V E R L I S T ) \r ( ) \r
0003420 G V . R E A D M E M B E R S D
0003440 1 \r ( I 2 R E A D F N I
0003460 1 O L D S T A M P I 0 N
0003500 A M E ) \0 027 \0 \0 \0 003 l 002 @ \t \0
0003520 \0 A \t \0 \0 h 032 B 265 005 g \0 \0 \f \0 \0
0003540 020 \0 ( 2 4 Q \ G V O P 1 1 Q
0003560 \ C H E C K S T A M P 5 \
0003600 C H E C K N A M E ) \r ( 2 1 Q
0003620 \ R E C E I V E R L I S T ) \r (
0003640 ) \r G V . R E A D O W N E R S
0003660 D 1 \r ( I 2 R E A D F N I
0003700 1 O L D S T A M P I 0
0003720 N A M E ) \0 027 \0 \0 \0 003 l 003 @ \t
0003740 \0 \0 A \t \0 \0 h 032 B 265 005 g \0 \0 \f \0
0003760 \0 020 \0 ( 2 4 Q \ G V O P 1 1
0004000 Q \ C H E C K S T A M P 5
0004020 \ C H E C K N A M E ) \r ( 2 1 Q
0004040 \ R E C E I V E R L I S T ) \r
0004060 ( ) \r G V . R E A D R E M A R K
0004100 D 1 \r ( I 0 N A M E ) \0
0004120 017 \0 \0 \0 001 l \b @ \t \0 \0 h g \0 \0 \f
0004140 \0 \0 020 \0 ( 1 4 Q \ G V O P 5
0004160 \ C H E C K N A M E ) \r ( 1 1
0004200 Q \ R E C E I V E R N A M E )
0004220 \r N I L \r G V . A D D F O R W A
0004240 R D D 1 \r ( I 3 P A S S W
0004260 O R D I 2 I D E N T I F Y
0004300 U S E R I 1 S T R I N G
0004320 I 0 N A M E ) \0 030 \0 \0 \0 004
0004340 l 025 @ \t \0 \0 A \t \0 \0 h 032 h B 265 003
0004360 i C \r 006 \0 \0 020 \0 ( 2 5 Q \ G V
0004400 O P 1 1 Q \ C H E C K S T R
0004420 I N G 5 \ C H E C K N A M E
0004440 ) \r N I L \r N I L \r G V . A D D
0004460 F R I E N D D 1 \r ( I 3 P
0004500 A S S W O R D I 2 I D E N
0004520 T I F Y U S E R I 1 S T R
0004540 I N G I 0 N A M E ) \0 030
0004560 \0 \0 \0 004 l 027 @ \t \0 \0 A \t \0 \0 h 032
0004600 h B 265 003 i C \r 006 \0 \0 020 \0 ( 2 5 Q
0004620 \ G V O P 1 1 Q \ C H E C
0004640 K S T R I N G 5 \ C H E C K
0004660 N A M E ) \r N I L \r N I L \r G V
0004700 . A D D L I S T O F M E M B E R
0004720 S D 1 \r ( P 1 p I 3
0004740 P A S S W O R D I 2 I D E
0004760 N T I F Y U S E R I 1 S T
0005000 R I N G L I S T I 0 N A M
0005020 E ) \0 ^ 002 \0 \0 004 l 037 @ \t \0 \0 A
0005040 003 265 027 o \0 \0 \0 A \n \0 \0 h 032 h B 265
0005060 003 i C \r 006 \0 \0 020 001 005 \a 247 A 001 004 l
0005100 004 360 262 341 A 021 021 001 H Y 003 265 \t i 022 262
0005120 324 A 260 331 002 262 035 I 002 001 005 \a 250 I 002 001
0005140 004 l 004 360 264 352 I 001 I 002 001 \n \0 \0 242 h
0005160 260 336 I 002 260 325 \0 ( 1 2 4 Q A L P
0005200 H O R D E R 3 5 Q \ G V O P
0005220 2 1 Q E R R O R 5 \ C H
0005240 E C K N A M E ) \r N I L \r ( 1 5
0005260 Q " m u s t h a v e o r d
0005300 e r e d l i s t o f s t r
0005320 i n g s " ) \r G V . A D D M A I
0005340 L B O X D 1 \r ( I 3 P A S
0005360 S W O R D I 2 I D E N T I
0005400 F Y U S E R I 1 S T R I N
0005420 G I 0 N A M E ) \0 030 \0 \0
0005440 \0 004 l 024 @ \t \0 \0 A \t \0 \0 h 032 h B
0005460 265 003 i C \r 006 \0 \0 020 \0 ( 2 5 Q \
0005500 G V O P 1 1 Q \ C H E C K S
0005520 T R I N G 5 \ C H E C K N A
0005540 M E ) \r N I L \r N I L \r G V . A
0005560 D D M E M B E R D 1 \r ( I 3
0005600 P A S S W O R D I 2 I D
0005620 E N T I F Y U S E R I 1 S
0005640 T R I N G I 0 N A M E )
0005660 \0 030 \0 \0 \0 004 l 023 @ \t \0 \0 A \t \0 \0
0005700 h 032 h B 265 003 i C \r 006 \0 \0 020 \0 ( 2
0005720 5 Q \ G V O P 1 1 Q \ C H
0005740 E C K S T R I N G 5 \ C H E
0005760 C K N A M E ) \r N I L \r N I L \r
0006000 G V . A D D O W N E R D 1 \r (
0006020 I 3 P A S S W O R D I 2
0006040 I D E N T I F Y U S E R I
0006060 1 S T R I N G I 0 N A M
0006100 E ) \0 030 \0 \0 \0 004 l 026 @ \t \0 \0 A
0006120 \t \0 \0 h 032 h B 265 003 i C \r 006 \0 \0 020
0006140 \0 ( 2 5 Q \ G V O P 1 1 Q
0006160 \ C H E C K S T R I N G 5 \
0006200 C H E C K N A M E ) \r N I L \r N
0006220 I L \r G V . C H A N G E C O N N
0006240 E C T D 1 \r ( I 3 P A S S
0006260 W O R D I 2 I D E N T I F
0006300 Y U S E R I 1 S I T E I
0006320 0 N A M E ) \0 E \0 \0 \0 004 l
0006340 021 @ \t \0 \0 A 005 \a 265 1 A d 004 l 004 360
0006360 222 d 263 ' 003 263 026 A d d 005 001 245 d 005 002
0006400 241 005 003 247 253 ` \0 \0 b 002 225 A \t \0 \0 265
0006420 \n o \0 \0 \0 A \n \0 \0 h 032 h B C \r 006
0006440 \0 \0 020 \0 ( 1 0 2 Q \ G V O P
0006460 7 1 Q E R R O R 5 7 Q P O
0006500 R T S T R I N G 5 \ C H E C
0006520 K N A M E ) \r ( 5 0 Q \ L O C
0006540 A L P U P N E T H O S T ) \r ( 6
0006560 5 Q " I n v a l i d S i t e
0006600 " ) \r G V . C H A N G E P A S S
0006620 W O R D D 1 \r ( I 3 P A S
0006640 S W O R D I 2 I D E N T I
0006660 F Y U S E R I 1 K E Y I
0006700 0 N A M E ) \0 030 \0 \0 \0 004 l
0006720 020 @ \t \0 \0 A \t \0 \0 h 032 h B 265 003 i
0006740 C \r 006 \0 \0 020 \0 ( 2 5 Q \ G V O
0006760 P 1 1 Q \ C H E C K K E Y
0007000 5 \ C H E C K N A M E ) \r N I
0007020 L \r N I L \r G V . C H A N G E R
0007040 E M A R K D 1 \r ( I 3 P A
0007060 S S W O R D I 2 I D E N T
0007100 I F Y U S E R I 1 S T R I
0007120 N G I 0 N A M E ) \0 030 \0
0007140 \0 \0 004 l 022 @ \t \0 \0 A \t \0 \0 h 032 h
0007160 B 265 003 i C \r 006 \0 \0 020 \0 ( 2 5 Q
0007200 \ G V O P 1 1 Q \ C H E C K
0007220 S T R I N G 5 \ C H E C K N
0007240 A M E ) \r N I L \r N I L \r G V .
0007260 C R E A T E G R O U P D 1 \r (
0007300 I 2 P A S S W O R D I 1
0007320 I D E N T I F Y U S E R I
0007340 0 N A M E ) \0 023 \0 \0 \0 003 l 016
0007360 @ \t \0 \0 h d A 265 003 i B \r 006 \0 \0 020
0007400 \0 ( 2 0 Q \ G V O P 5 \ C
0007420 H E C K N A M E ) \r N I L \r N I
0007440 L \r G V . C R E A T E I N D I V
0007460 I D U A L D 1 \r ( I 3 P A
0007500 S S W O R D I 2 I D E N T
0007520 I F Y U S E R I 1 K E Y
0007540 I 0 N A M E ) \0 030 \0 \0 \0 004
0007560 l \f @ \t \0 \0 A \t \0 \0 h 032 h B 265 003
0007600 i C \r 006 \0 \0 020 \0 ( 2 5 Q \ G V
0007620 O P 1 1 Q \ C H E C K K E Y
0007640 5 \ C H E C K N A M E ) \r N
0007660 I L \r N I L \r G V . D E L E T E
0007700 G R O U P D 1 \r ( I 2 P A
0007720 S S W O R D I 1 I D E N T
0007740 I F Y U S E R I 0 N A M E
0007760 ) \0 023 \0 \0 \0 003 l 017 @ \t \0 \0 h d
0010000 A 265 003 i B \r 006 \0 \0 020 \0 ( 2 0 Q
0010020 \ G V O P 5 \ C H E C K N A
0010040 M E ) \r N I L \r N I L \r G V . D
0010060 E L E T E I N D I V I D U A L
0010100 D 1 \r ( I 2 P A S S W O R D
0010120 I 1 I D E N T I F Y U S E
0010140 R I 0 N A M E ) \0 023 \0 \0
0010160 \0 003 l \r @ \t \0 \0 h d A 265 003 i B \r
0010200 006 \0 \0 020 \0 ( 2 0 Q \ G V O P
0010220 5 \ C H E C K N A M E ) \r N I
0010240 L \r N I L \r G V . N E W N A M E
0010260 D 1 \r ( I 3 P A S S W O R
0010300 D I 2 I D E N T I F Y U S
0010320 E R I 1 G V . N E W N A M
0010340 E I 0 N A M E ) \0 030 \0 \0
0010360 \0 004 l @ \t \0 \0 A \t \0 \0 h 032 h B
0010400 265 003 i C \r 006 \0 \0 020 \0 ( 2 5 Q \
0010420 G V O P 1 1 Q \ C H E C K N
0010440 A M E 5 \ C H E C K N A M E
0010460 ) \r N I L \r N I L \r G V . R E M
0010500 O V E F O R W A R D D 1 \r ( I
0010520 3 P A S S W O R D I 2
0010540 I D E N T I F Y U S E R I 1
0010560 S T R I N G I 0 N A M E
0010600 ) \0 030 \0 \0 \0 004 l 032 @ \t \0 \0 A \t
0010620 \0 \0 h 032 h B 265 003 i C \r 006 \0 \0 020 \0
0010640 ( 2 5 Q \ G V O P 1 1 Q \
0010660 C H E C K S T R I N G 5 \ C
0010700 H E C K N A M E ) \r N I L \r N I
0010720 L \r G V . R E M O V E F R I E N
0010740 D D 1 \r ( I 3 P A S S W O
0010760 R D I 2 I D E N T I F Y U
0011000 S E R I 1 S T R I N G I
0011020 0 N A M E ) \0 030 \0 \0 \0 004 l
0011040 034 @ \t \0 \0 A \t \0 \0 h 032 h B 265 003 i
0011060 C \r 006 \0 \0 020 \0 ( 2 5 Q \ G V O
0011100 P 1 1 Q \ C H E C K S T R I
0011120 N G 5 \ C H E C K N A M E )
0011140 \r N I L \r N I L \r G V . R E M O
0011160 V E M A I L B O X D 1 \r ( I
0011200 3 P A S S W O R D I 2 I
0011220 D E N T I F Y U S E R I 1
0011240 S T R I N G I 0 N A M E )
0011260 \0 030 \0 \0 \0 004 l 031 @ \t \0 \0 A \t \0
0011300 \0 h 032 h B 265 003 i C \r 006 \0 \0 020 \0 (
0011320 2 5 Q \ G V O P 1 1 Q \ C
0011340 H E C K S T R I N G 5 \ C H
0011360 E C K N A M E ) \r N I L \r N I L
0011400 \r G V . R E M O V E M E M B E R
0011420 D 1 \r ( I 3 P A S S W O R
0011440 D I 2 I D E N T I F Y U S
0011460 E R I 1 S T R I N G I
0011500 0 N A M E ) \0 030 \0 \0 \0 004 l 030
0011520 @ \t \0 \0 A \t \0 \0 h 032 h B 265 003 i C
0011540 \r 006 \0 \0 020 \0 ( 2 5 Q \ G V O P
0011560 1 1 Q \ C H E C K S T R I N
0011600 G 5 \ C H E C K N A M E ) \r
0011620 N I L \r N I L \r G V . R E M O V
0011640 E O W N E R D 1 \r ( I 3 P
0011660 A S S W O R D I 2 I D E N
0011700 T I F Y U S E R I 1 S T R
0011720 I N G I 0 N A M E ) \0 030
0011740 \0 \0 \0 004 l 033 @ \t \0 \0 A \t \0 \0 h 032
0011760 h B 265 003 i C \r 006 \0 \0 020 \0 ( 2 5 Q
0012000 \ G V O P 1 1 Q \ C H E C
0012020 K S T R I N G 5 \ C H E C K
0012040 N A M E ) \r N I L \r N I L \r G V
0012060 . M A K E K E Y D 1 \r ( P 3
0012100 C P 2 J P 1 R P
0012120 0 I I 1 I S C L E A R
0012140 I 0 S T R I N G ) \0 J 004
0012160 \0 \0 002 j l \b o \0 \0 \0 j d \f \0 \0 021
0012200 " 003 @ H k 330 ) [ 262 2 I H l \a 345 Z
0012220 I J ( A 244 K l I 346 273 l A K 361 254 K
0012240 d l Z 361 247 l A 331 l a 330 200 K 340 l 377
0012260 345 346 * 277 H k 330 270 260 312 I 020 \0 ( 1 3
0012300 Q A R R A Y ) \r N I L \r ( 6
0012320 ( B I T S 1 0 Q ) ) \r \ G V
0012340 O P D 1 \r ( I 5 P A S S W
0012360 O R D I 4 I D E N T I F Y
0012400 U S E R I 3 R E A D F N
0012420 I 2 i t e m L i s t I 1
0012440 n a m e I 0 O P ) \0 017
0012460 \0 \0 \0 006 A @ A B 032 032 C D E \r 005 \0
0012500 \0 020 \0 ( 1 4 Q \ E N Q U I R E
0012520 ) \r N I L \r ( ) \r \ E N Q U I R
0012540 E D 1 \r ( P 3 I N F O P
0012560 2 C O N N P 1 R E S U
0012600 L T P 0 R E G I S T R Y
0012620 I 4 P A S S W O R D I 3
0012640 I D E N T I F Y U S E R I
0012660 2 R E A D F N I 1 A R G
0012700 S I 0 N A M E F 4 G
0012720 V N A M E T Y P E ) 001 ( 004 001 \0
0012740 005 ` \0 \0 021 1 003 H \t \0 \0 Z 243 g \0 \0
0012760 020 C 265 032 J A \n \0 \0 Y 265 003 202 261 \0 223
0013000 \b \0 \0 277 J 002 002 h 030 277 260 335 i 360 227 \b
0013020 \0 \0 [ 001 b 006 277 J d 002 002 002 002 002 001 C
0013040 360 263 324 002 002 002 002 002 001 C \n \0 \0 263 307 J
0013060 l ! C \t \0 \0 D 265 004 K 002 \t \0 \0 h 032
0013100 032 032 \n \0 \0 Y 265 016 \b \0 \0 277 J 002 002 h
0013120 030 277 260 225 343 d l 006 360 225 277 g \0 \0 260 037
0013140 d l \a 360 225 277 g \0 \0 260 024 d l \t 360 224
0013160 277 g \0 \0 207 j 360 221 h 202 \b \0 \0 Y 265 003
0013200 202 261 \0 206 J 002 002 002 002 002 C 030 277 261 377 g
0013220 l 377 345 c \b 277 I 343 Y d k 360 225 277 g \0
0013240 \0 260 _ d j 360 235 277 B 227 J 001 k B 017 016
0013260 260 P i 260 M d l \b 360 262 036 277 H ` \0 \0
0013300 360 244 g \0 \0 260 ; J 002 002 h 030 277 @ 002 g
0013320 \0 \0 032 X 261 377 024 d l 006 360 225 277 g \0 \0
0013340 260 d l 003 360 225 277 g \0 \0 260 025 d l \a
0013360 360 224 277 g \0 \0 210 l \t 360 223 g \0 \0 200 I
0013400 271 J 002 002 h 030 I 020 \0 ( 2 3 3 Q S
0013420 H O U L D N T 1 5 1 Q B L O
0013440 C K 1 4 3 Q \ P E R F O R M
0013460 G V O P 1 3 4 Q \ C H E C K
0013500 K E Y 1 2 4 Q \ C H E C K N
0013520 A M E 1 1 3 Q E Q U A L 6
0013540 0 Q \ I N T E R N A L / G E T
0013560 P A S S W O R D 4 1 Q B L O
0013600 C K 2 7 Q \ P E R F O R M G
0013620 V O P 1 1 Q F I N D R E G S
0013640 E R V E R ) \r ( 4 3 4 Q A l l
0013660 D o w n 4 2 4 Q B a d P a s
0013700 s w o r d 4 1 1 Q N o t A l
0013720 l o w e d 3 7 6 Q B a d R N
0013740 a m e 3 6 0 Q G V 3 4 3 Q
0013760 B a d R N a m e 3 3 6 Q R
0014000 E G R O O T 2 7 7 Q N o C h
0014020 a n g e 2 2 2 Q A l l D o w
0014040 n 2 0 7 Q B a d P a s s w o
0014060 r d 1 7 4 Q B a d R N a m e
0014100 1 6 Q A l l D o w n 2 R
0014120 E G R O O T ) \r ( ) \r \ P E R F
0014140 O R M G V O P A 0 0 0 1 D 1 \r
0014160 ( N A M E E R R O R S E T L
0014200 ( 2 E R R O R S E T . W 1
0014220 E R R O R S E T . V 0 E R
0014240 R O R S E T . U ) P 2 e
0014260 P 0 S T R E A M F 3 C
0014300 O N N F 4 A R G S ) \0 )
0014320 003 002 \0 003 S 002 001 021 021 001 T 213 d 001 021 001
0014340 002 H J \n \0 \0 023 002 003 265 363 H \t \0 \0 277
0014360 S 001 Y 341 I 330 022 h 032 020 \0 ( 3 2
0014400 Q B S P F O R C E O U T P U T
0014420 2 1 Q \ S E N D I T E M ) \r
0014440 N I L \r ( ) \r \ P E R F O R M G
0014460 V O P D 1 \r ( I 1 A R G S
0014500 I 0 C O N N ) \0 \n \0 \0 \0
0014520 002 o \0 \0 \0 \t \0 \0 001 020 \0 ( 6 \ P
0014540 E R F O R M G V O P A 0 0 0 1 )
0014560 \r N I L \r ( 3 ( D U M M Y .
0014600 F O R . E R R O R S E T ) ) \r F
0014620 I N D R E G S E R V E R D 1 \r
0014640 ( P 0 N E W S O C I 1
0014660 E R R O R F L G I 0 R E G
0014700 I S T R Y ) \0 n 003 \0 \0 002 021 0 002
0014720 @ 003 246 @ \t \0 \0 b \0 277 ` \0 \0 Y 003 265
0014740 7 h 265 3 @ A \n \0 \0 l * l ( ` \0 \0
0014760 \f \0 \0 X 265 016 A 264 036 o \0 \0 \0 @ \n \0
0015000 \0 020 002 002 002 @ 030 H 002 002 i 030 H ` \0 \0
0015020 032 027 \0 \0 H 020 001 Z 002 002 001 263 033 @ ` \0
0015040 \0 360 251 @ J 002 002 002 001 \n \0 \0 230 J 002 002
0015060 i 030 277 J 260 256 I 002 260 245 \0 ( 1 3 6 Q
0015100 E Q U A L 6 3 Q E R R O R
0015120 4 5 Q O P E N C L O S E S T
0015140 S O C K E T 3 3 Q L O C A T
0015160 E S O C K E T S 1 1 Q \ U N
0015200 P A C K R E G ) \r ( 1 2 3 Q R
0015220 E G R O O T 1 0 6 Q \ G V C
0015240 O N N E C T I O N S 1 0 2 Q
0015260 \ G V C O N N E C T I O N S 4
0015300 2 Q \ R E G . I O T I M E O U
0015320 T 1 7 Q \ G V C O N N E C T
0015340 I O N S ) \r ( 5 7 Q " C o u l
0015360 d n ' t o p e n c o n n e c
0015400 t i o n f o r " ) \r L O C A T
0015420 E S O C K E T S D 1 \r ( P 3
0015440 c n P 2 r N a m e I
0015460 1 E R R O R F L G I 0 S
0015500 I T E ) \0 _ 004 \0 \0 002 @ ` \0 \0 \n
0015520 \0 \0 230 ` \0 \0 A i \v \0 \0 020 @ \t \0 \0
0015540 003 265 \r A 264 \n o \0 \0 \0 @ \n \0 \0 002 021
0015560 1 003 H 003 265 004 I 020 001 272 I J \t \0 \0 005
0015600 \a [ 227 K h i \v \0 \0 265 027 J h i \v \0
0015620 \0 265 017 A 264 \f o \0 \0 \0 J K 032 \n \0 \0
0015640 \n \0 \0 271 H 002 X 260 314 \0 ( 1 2 7 Q
0015660 \ N C O N C 2 1 2 4 Q H E L
0015700 P 1 0 5 Q E T H E R P O R T
0015720 7 5 Q E T H E R P O R T 6
0015740 3 Q G V . R E A D C O N N E C
0015760 T 4 2 Q E R R O R 2 4 Q
0016000 G V . R E A D M E M B E R S 1
0016020 7 Q E T H E R P O R T 6 E
0016040 Q U A L ) \r ( 1 2 Q R E G R O
0016060 O T N L S N A M E 3 R E G R
0016100 O O T ) \r ( 1 1 6 Q " C a n '
0016120 t l o o k u p c o n n e c
0016140 t n a m e " 3 6 Q " N o t
0016160 a v a l i d s i t e " ) \r
0016200 O P E N C L O S E S T S O C K E
0016220 T D 1 \r ( P 1 0 Q L O C A
0016240 L F L G P 7 V A L P 6
0016260 P O R T P 5 N E X T P O
0016300 R T P 4 B E T W E E N P R
0016320 O B E P 3 C N T I M E P
0016340 2 S O C P 1 P U P P
0016360 0 M Y N E T I 3 T I M
0016400 E O U T I 2 C O N N S O C
0016420 I 1 P O L L S O C I 0
0016440 P O R T L I S T ) \0 357 016 \0 \0
0016460 004 ` \0 \0 343 021 241 \n 021 0 \r @ 260 , d 001
0016500 _ 022 277 A 233 O 022 001 343 H 360 224 i _ 020 263
0016520 030 d 001 _ 026 277 O 030 265 \t O 026 h 032 _ 032
0016540 202 O 026 & _ 030 277 002 003 265 325 O 032 022 b \0
0016560 265 ] O 020 262 a H 341 h 032 @ 032 b \0 277 \b
0016600 \0 \0 Z l 002 037 \t \0 \0 ` \0 \0 366 [ @ ]
0016620 J \t \0 \0 L 225 L \t \0 \0 262 K M 001 M 002
0016640 265 003 @ 275 276 \b \0 \0 Y N 001 A 265 \b N 002
0016660 265 004 l 005 k h J g \0 \0 \r \a \0 \0 277 J
0016700 I \n \0 \0 277 L 004 l 002 360 236 L 217 \t \0 \0
0016720 b \0 277 260 237 @ 263 251 h 020 l 002 037 \t \0 \0
0016740 ` \0 \0 366 274 \b \0 \0 277 J \t \0 \0 Y 262 '
0016760 I 312 037 207 l 002 360 262 036 I 310 % B 265 017 I
0017000 l 036 320 _ 024 310 \b O 024 310 \t 365 032 C \n \0
0017020 \0 _ 016 265 \v K \t \0 \0 242 261 377 z h 020 \0
0017040 ( 3 4 7 Q T I M E R E X P I R
0017060 E D ? 3 3 7 Q \ O P E N G V
0017100 C O N N E C T I O N 2 7 3 Q
0017120 G E T P U P 2 6 6 Q B L O C
0017140 K 2 5 6 Q \ C L O C K 0 2
0017160 3 6 Q S O R T . P U P H O S T
0017200 S . B Y . D I S T A N C E 2 2
0017220 2 Q S E N D P U P 2 1 4 Q
0017240 S E T U P P U P 1 6 6 Q A L
0017260 L O C A T E . P U P 1 5 0 Q
0017300 T I M E R E X P I R E D ? 1 4
0017320 2 Q D I S C A R D P U P S 1
0017340 2 7 Q \ C L O C K 0 1 2 0 Q
0017360 \ G E T M I S C S O C K E T )
0017400 \r ( 2 6 1 Q \ B E T W E E N P
0017420 R O B E D E L A Y 2 1 0 Q F
0017440 R E E 1 3 2 Q \ C O N N E C
0017460 T T I M E O U T 2 \ L O C A
0017500 L P U P N E T H O S T ) \r N I L
0017520 \r \ O P E N G V C O N N E C T I
0017540 O N D 1 \r ( P 0 I N S T R
0017560 E A M I 1 T I M E O U T
0017600 I 0 F R N S O C K E T ) \0
0017620 # 001 \0 \0 002 @ h d A h g \0 \0 \r 006 \0
0017640 \0 021 001 \0 H d 236 d \t \0 \0 h d d d h
0017660 032 032 032 032 032 032 020 \0 ( 2 5 Q B S P
0017700 O U T P U T S T R E A M 1 3 Q
0017720 O P E N B S P S T R E A M ) \r
0017740 ( 7 \ G V . W H E N C L O S E
0017760 D ) \r ( ) \r G V . K I L L S O C
0020000 K E T D 1 \r ( I 1 T I M E
0020020 O U T I 0 S O C K E T )
0020040 \0 \v \0 \0 \0 002 @ 001 A \n \0 \0 \b \0 \0 020
0020060 \0 ( 1 0 Q B L O C K 5 C L
0020100 O S E B S P S T R E A M ) \r N I
0020120 L \r ( ) \r \ G V . W H E N C L O
0020140 S E D D 1 \r ( P 0 C O N N
0020160 I 0 B S P S T R E A M )
0020200 \0 , 001 \0 \0 001 ` \0 \0 260 # d 001 021 001 \0
0020220 H 001 @ 360 262 026 H 002 002 002 002 002 h 030 277 H
0020240 ` \0 \0 \n \0 \0 027 \0 \0 277 023 002 003 265 336 h
0020260 020 \0 ( 3 7 Q D R E M O V E ) \r
0020300 ( 4 2 Q \ G V C O N N E C T I
0020320 O N S 3 4 Q \ G V C O N N E
0020340 C T I O N S 2 \ G V C O N N
0020360 E C T I O N S ) \r N I L \r \ C H
0020400 E C K K E Y D 1 \r ( I 0 K
0020420 E Y ) \0 \v \0 \0 \0 001 @ d 005 006 220 020
0020440 \t \0 \0 020 \0 ( 1 0 Q G V . M A K
0020460 E K E Y ) \r N I L \r N I L \r \ C
0020500 H E C K N A M E D 1 \r ( I 0
0020520 N A M E ) \0 * \0 \0 \0 001 @ 003 253
0020540 @ 265 005 \b \0 \0 \t \0 \0 b \0 277 l @ @ 001
0020560 \t \0 \0 @ 002 \t \0 \0 330 361 221 @ 020 o \0 \0
0020600 \0 @ \n \0 \0 020 \0 ( 4 7 Q E R R O
0020620 R 3 2 Q N C H A R S 2 5 Q
0020640 N C H A R S 1 3 Q \ U N P
0020660 A C K R E G 1 0 Q \ N O N A
0020700 M E E R R ) \r N I L \r ( 4 3 Q
0020720 " n a m e t o o l o n g -
0020740 m u s t b e < 6 5 c h
0020760 a r s " ) \r \ C H E C K S T A M
0021000 P D 1 \r ( I 0 S T A M P )
0021020 \0 032 \0 \0 \0 001 @ 265 \a ` \0 \0 037 020 004
0021040 ` \0 \0 360 221 @ 020 o \0 \0 \0 @ \n \0 \0 020
0021060 \0 ( 2 7 Q E R R O R ) \r ( 1 3
0021100 Q 004 003 T I M E S T A M P T Y P
0021120 E # 5 004 003 T I M E S T A M P
0021140 T Y P E # ) \r ( 2 3 Q " n o t
0021160 a t i m e s t a m p " ) \r
0021200 \ C H E C K S T R I N G D 1 \r
0021220 ( I 0 S T R I N G ) \0 f \0
0021240 \0 \0 001 @ \t \0 \0 d g \0 \0 360 263 H d g
0021260 \0 \0 360 262 - 277 @ 001 262 # @ 001 004 l 004 360
0021300 262 033 @ 002 262 027 @ 002 004 l 004 360 235 @ 001 g
0021320 \0 \0 @ 002 \v \0 \0 b \0 260 035 o \0 \0 \0 217
0021340 g \0 \0 360 226 @ \t \0 \0 b \0 211 o \0 \0 \0
0021360 @ \n \0 \0 277 @ \t \0 \0 l @ 361 230 o \0 \0
0021400 \0 @ \n \0 \0 020 @ 020 \0 ( 1 4 1 Q E
0021420 R R O R 1 2 5 Q N C H A R S
0021440 1 2 0 Q E R R O R 1 0 5 Q
0021460 M K S T R I N G 6 3 Q C O
0021500 N C A T 3 T Y P E N A M E )
0021520 \r ( 7 7 Q L I T A T O M 5 6
0021540 Q % . 1 6 Q L I S T P 7
0021560 S T R I N G P ) \r ( 1 3 5 Q
0021600 " s t r i n g t o o l o n g
0021620 " 1 1 4 Q " b a d s t r i
0021640 n g a r g " 7 3 Q " b a d
0021660 s t r i n g a r g " ) \r \ N
0021700 O N A M E E R R D 1 \r N I L
0021720 \0 \t \0 \0 \0 \0 o \0 \0 \0 \t \0 \0 020 \0 (
0021740 6 E R R O R ) \r N I L \r ( 3
0021760 " m u s t h a v e n a m e
0022000 f o r G V u s e r o p " )
0022020 \r \ U N P A C K R E G D 1 \r (
0022040 P 0 P P O S I 0 R E G
0022060 ) \0 ; 001 \0 \0 001 o \0 \0 \0 @ \n \0 \0
0022100 021 001 \0 H 262 023 @ k H k 331 \v \0 \0 @ H
0022120 k 330 \n \0 \0 032 020 o \0 \0 \0 @ \n \0 \0 230
0022140 @ \t \0 \0 g \0 \0 032 020 @ \t \0 \0 ` \0 \0
0022160 032 020 \0 ( 6 4 Q M K A T O M 5
0022200 3 Q M K A T O M 4 6 Q S T
0022220 R P O S 3 4 Q S U B A T O M
0022240 2 5 Q S U B A T O M 7 S
0022260 T R P O S ) \r ( 6 7 Q D E F A
0022300 U L T R E G I S T R Y 5 6 Q
0022320 A r p a G a t e w a y ) \r ( 4 2
0022340 Q " @ " 3 " . " ) \r \ S E
0022360 N D I T E M D 1 \r ( P 1 0 Q
0022400 e P 5 l e n g t h P
0022420 4 b P 1 I I 1 I T
0022440 E M I 0 O U T S T R E A M
0022460 ) 001 { \t \0 \0 002 A d d 005 001 241 005 002
0022500 237 277 @ A 343 \n \0 \0 @ A l 377 345 \n \0 \0
0022520 020 004 l 004 360 244 A 005 \a 262 025 A 225 @ A \n
0022540 \0 \0 020 @ j \n \0 \0 @ j \n \0 \0 020 A d
0022560 005 006 262 036 277 l \a j 021 002 001 I H 361 222 261
0022600 001 1 @ A I ( \n \0 \0 277 I k 330 Y 260 356
0022620 004 ` \0 \0 360 262 T @ A 310 \0 021 002 003 J K
0022640 343 \n \0 \0 277 J K l 377 345 \n \0 \0 023 @ A
0022660 310 001 A 310 002 365 n 377 377 345 021 002 003 J K 343
0022700 \n \0 \0 277 J K l 377 345 \n \0 \0 023 @ A 310
0022720 001 A 310 002 365 343 343 021 002 003 J K 343 \n \0 \0
0022740 J K l 377 345 \n \0 \0 020 A 003 265 006 \b \0 \0
0022760 020 d 001 ` \0 \0 360 262 031 277 A 215 d 001 021 001
0023000 004 @ L l 377 345 \n \0 \0 023 002 003 265 360 h 020
0023020 002 004 l 004 360 262 N 021 006 @ A 001 \t \0 \0
0023040 A 002 \t \0 \0 k 330 330 275 ^ M 343 \n \0 \0 277
0023060 N M l 377 345 \n \0 \0 277 @ j \n \0 \0 277 @
0023100 j \n \0 \0 A 001 @ \n \0 \0 @ l . \n \0 \0
0023120 A 002 @ \n \0 \0 M k 345 j 360 244 @ j \n \0
0023140 \0 h 020 @ A j 021 022 \b N 003 265 033 O 016 022
0023160 021 002 003 J K 343 \n \0 \0 277 J K l 377 345 \n
0023200 \0 \0 023 A 260 ) 001 _ 020 277 O 016 O 020 \t \0
0023220 \0 k 330 342 l 002 330 330 _ 016 277 N 002 ^ 260 314
0023240 d 001 021 001 \b @ O 020 \n \0 \0 023 002 003 265 362
0023260 h 020 \0 ( 5 6 2 Q \ S E N D S T
0023300 R I N G 5 3 0 Q N C H A R S
0023320 5 1 1 Q \ B O U T 5 0 0 Q
0023340 \ B O U T 4 5 0 Q B O U T
0023360 4 3 5 Q P R I N 3 4 2 7 Q
0023400 B O U T 4 2 1 Q P R I N 3
0023420 4 1 3 Q \ B O U T 4 0 5 Q
0023440 \ B O U T 3 7 7 Q \ B O U
0023460 T 3 6 6 Q \ B O U T 3 5 4
0023500 Q N C H A R S 3 4 7 Q N C
0023520 H A R S 3 2 0 Q B O U T 2
0023540 6 7 Q S H O U L D N T 2 5 7
0023560 Q \ B O U T 2 4 7 Q \ B O
0023600 U T 2 2 3 Q \ B O U T 2 1
0023620 2 Q \ B O U T 1 6 4 Q \ B
0023640 O U T 1 5 3 Q \ B O U T 1
0023660 2 0 Q B O U T 6 4 Q \ B O
0023700 U T 5 7 Q \ B O U T 5 1 Q
0023720 \ S E N D S T R I N G 2 7 Q
0023740 \ B O U T 1 7 Q \ B O U T
0023760 ) \r ( 2 7 5 Q \ 3 B Y T E K L
0024000 U D G E K E Y 1 3 3 Q 004 003 T
0024020 I M E S T A M P T Y P E # ) \r N
0024040 I L \r \ S E N D S T R I N G D
0024060 1 \r ( P 0 L I 1 S T R
0024100 I N G I 0 S T R E A M )
0024120 \0 D 001 \0 \0 002 A \t \0 \0 021 001 \0 H l @
0024140 361 231 o \0 \0 \0 A \n \0 \0 h 020 @ H 343 \n
0024160 \0 \0 277 @ H l 377 345 \n \0 \0 @ j \n \0 \0
0024200 277 @ l @ \n \0 \0 A @ \n \0 \0 H k 345 j
0024220 360 244 @ j \n \0 \0 h 020 \0 ( 1 0 0 Q
0024240 B O U T 6 5 Q P R I N 3 6
0024260 0 Q \ B O U T 5 1 Q \ B O
0024300 U T 4 4 Q \ B O U T 3 3 Q
0024320 \ B O U T 2 3 Q E R R O R
0024340 3 N C H A R S ) \r N I L \r (
0024360 1 7 Q " s t r i n g t o o
0024400 l o n g " ) \r \ S E N D W O R D
0024420 D 1 \r ( I 1 W O R D I
0024440 0 O U T S T R E A M ) \0 020 \0
0024460 \0 \0 002 @ A 343 \n \0 \0 @ A l 377 345 \n \0
0024500 \0 020 \0 ( 1 5 Q \ B O U T 5
0024520 \ B O U T ) \r N I L \r N I L \r \
0024540 R E C E I V E B O O L D 1 \r (
0024560 I 0 S T R E A M ) \0 024 \0 \0
0024600 \0 001 @ \t \0 \0 d k 360 221 i 020 j 360 221 h
0024620 020 \b \0 \0 020 \0 ( 2 1 Q S H O U L
0024640 D N T 3 B I N ) \r N I L \r N
0024660 I L \r \ R E C E I V E C L I S T
0024700 D 1 \r ( P 2 $ $ T E M 3
0024720 P 0 $ $ T E M 4 I 0 S
0024740 T R E A M ) \0 . 005 \0 \0 001 @ i \n
0024760 \0 \0 @ 341 @ 330 021 A 004 k \ H 361 263
0025000 031 @ \t \0 \0 273 J 265 \f K h 032 Z 271 L k
0025020 330 260 353 K & 272 260 370 I 020 \0 ( 2 7 Q
0025040 \ R E C E I V E C O M P O N E N
0025060 T 4 \ R E C E I V E S T A M
0025100 P ) \r N I L \r N I L \r \ R E C E
0025120 I V E C O M P O N E N T D 1 \r
0025140 ( P 2 $ $ T E M 3 P 0
0025160 $ $ T E M 4 I 0 S T R E A
0025200 M ) \0 + 005 \0 \0 001 @ 341 @ 330 021
0025220 A 004 k \ H 361 263 033 @ 341 @ 330 273 J
0025240 265 \f K h 032 Z 271 L k 330 260 351 K & 272 260
0025260 370 I 020 \0 N I L \r N I L \r N I L \r
0025300 \ R E C E I V E R L I S T D 1
0025320 \r ( P 5 S T R L E N P 1
0025340 N W O R D S P 0 S T A M
0025360 P I 0 I N S T R E A M )
0025400 \0 < 006 \0 \0 001 @ \t \0 \0 @ 341 @ 330
0025420 021 B 005 I j 361 262 ' @ d 341 @ 330 ]
0025440 \n \0 \0 I M k 330 342 l 002 330 331 271 274 K 265
0025460 \t L h 032 [ 272 260 335 L & 273 260 330 H J 032
0025500 020 \0 ( 3 4 Q \ R E C E I V E S
0025520 T R I N G 3 \ R E C E I V E
0025540 S T A M P ) \r N I L \r N I L \r \
0025560 R E C E I V E R N A M E D 1 \r
0025600 ( I 0 I N S T R E A M ) \0
0025620 \f \0 \0 \0 001 @ d 341 @ 330 \n \0 \0 020
0025640 \0 ( 1 1 Q \ R E C E I V E S T
0025660 R I N G ) \r N I L \r N I L \r \ R
0025700 E C E I V E S T A M P D 1 \r (
0025720 I 1 O L D S T A M P I 0
0025740 S T R E A M ) \0 I \0 \0 \0 002 A
0025760 d i 360 262 026 277 @ 277 @ 277 @ 277 @
0026000 277 @ 277 @ 260 . 004 ` \0 \0 360 246 `
0026020 \0 \0 037 b 002 200 A @ 341 @ 330 315 \0 277
0026040 A k 320 @ 341 @ 330 @ 341 @ 330 341
0026060 341 344 \n \0 \0 A 020 \0 ( 1 0 5 Q \ P
0026100 U T F I X P ) \r ( 4 2 Q 004 003 T
0026120 I M E S T A M P T Y P E # 3 5
0026140 Q 004 003 T I M E S T A M P T Y P
0026160 E # ) \r ( ) \r \ R E C E I V E S
0026200 T R I N G D 1 \r ( P 1 i
0026220 I 1 L E N G T H I 0 S
0026240 T R E A M ) \0 _ 006 \0 \0 002 A l @
0026260 361 230 o \0 \0 \0 A \n \0 \0 020 @ 277 @
0026300 A k 021 B 005 I H 361 263 4 @ ] l 9 361
0026320 227 ` \0 \0 M l \n 331 215 l 0 M 361 244 M l
0026340 0 331 204 ` \0 \0 M 320 274 K 265 \r L h 032 [
0026360 272 I k 330 Y 260 321 L & 273 260 367 A k 345 j
0026400 360 242 @ 277 J 022 \t \0 \0 020 \0 ( 1 3 4
0026420 Q C O N C A T L I S T 1 4 Q
0026440 E R R O R ) \r ( 7 0 Q \ O n
0026460 e C h a r A t o m B a s e 4 6
0026500 Q \ O n e C h a r A t o m B a
0026520 s e ) \r ( 1 0 Q " s t r e a
0026540 m m u s t b e c o n f u s
0026560 e d - s t r i n g t o o
0026600 l o n g " ) \r \ R E C E I V E W
0026620 O R D D 1 \r ( I 0 S O C K
0026640 E T ) \0 020 \0 \0 \0 001 @ \t \0 \0 l \b
0026660 \n \0 \0 @ \t \0 \0 344 020 \0 ( 1 4 Q B
0026700 S P B I N 1 0 Q L S H 3
0026720 B S P B I N ) \r N I L \r N I L \r
0026740 \ S K I P W O R D D 1 \r ( I
0026760 0 S T R E A M ) \0 006 \0 \0 \0 001
0027000 @ @ 020 \0 N I L \r N I L \r ( )
0027020 \r ( P R E T T Y C O M P R I N T
0027040 G R A P E V I N E C O M S ) \r
0027060 ( R P A Q Q G R A P E V I N E
0027100 C O M S ( ( C O M S ( * F
0027120 u n c t i o n s f o r i n t
0027140 e r r o g a t i n g t h e d
0027160 a t a b a s e ) ( F N S G V
0027200 . A U T H E N T I C A T E \r G
0027220 V . C H E C K S T A M P G V .
0027240 E X P A N D G V . I D E N T I
0027260 F Y C A L L E R G V . I D E N
0027300 T I F Y M E G V . I S I N L I
0027320 S T G V . I S M E M B E R C L
0027340 O S U R E \r G V . I S M E M B
0027360 E R D I R E C T G V . R E A D
0027400 C O N N E C T G V . R E A D E
0027420 N T R Y G V . R E A D F R I E
0027440 N D S G V . R E A D M E M B E
0027460 R S G V . R E A D O W N E R S
0027500 \r G V . R E A D R E M A R K )
0027520 ( * F u n c t i o n s w h
0027540 i c h u p d a t e t h e d
0027560 a t a b a s e ) ( F N S G V
0027600 . A D D F O R W A R D G V . A
0027620 D D F R I E N D \r G V . A D D
0027640 L I S T O F M E M B E R S G V
0027660 . A D D M A I L B O X G V . A
0027700 D D M E M B E R G V . A D D O
0027720 W N E R G V . C H A N G E C O
0027740 N N E C T G V . C H A N G E P
0027760 A S S W O R D \r G V . C H A N
0030000 G E R E M A R K G V . C R E A
0030020 T E G R O U P G V . C R E A T
0030040 E I N D I V I D U A L G V . D
0030060 E L E T E G R O U P G V . D E
0030100 L E T E I N D I V I D U A L G
0030120 V . N E W N A M E \r G V . R E
0030140 M O V E F O R W A R D G V . R
0030160 E M O V E F R I E N D G V . R
0030200 E M O V E M A I L B O X G V .
0030220 R E M O V E M E M B E R G V .
0030240 R E M O V E O W N E R ) ( F N
0030260 S G V . M A K E K E Y ) ( \r
0030300 D E C L A R E : D O E V A L @
0030320 C O M P I L E D O N T C O P Y
0030340 ( M A C R O S K E Y P C R
0030360 E A T E K E Y G E T K E Y B Y
0030400 T E S E T K E Y B Y T E ) ) )
0030420 ( C O M S ( * T a l k i n
0030440 g t o \r R e g S e r v e r
0030460 s ) ( F N S \ G V O P \ E
0030500 N Q U I R E \ P E R F O R M G
0030520 V O P F I N D R E G S E R V E
0030540 R L O C A T E S O C K E T S )
0030560 ( A D D V A R S ( \ G V C O
0030600 N N E C T I O N S ) ) \r ( V A
0030620 R S ( R E G R O O T ( Q U O
0030640 T E ( G V . G V ) ) ) (
0030660 R E G R O O T N L S N A M E "
0030700 G r a p e v i n e R S e r v e r
0030720 " ) ( \ R E G . I O T I M E O
0030740 U T 3 0 0 0 0 ) ) ( \r D E C
0030760 L A R E : D O E V A L @ C O M
0031000 P I L E D O N T C O P Y ( C
0031020 O M S * G V P R O T O C O L
0031040 D E F S ) ) ) ( C O M S ( *
0031060 M a k i n g s e r v e r c
0031100 o n n e c t i o n s ) ( F N S
0031120 \r O P E N C L O S E S T S O C
0031140 K E T \ O P E N G V C O N N E
0031160 C T I O N G V . K I L L S O C
0031200 K E T \ G V . W H E N C L O S
0031220 E D ) ( D E C L A R E : D O
0031240 E V A L @ C O M P I L E D O N
0031260 T C O P Y ( \r R E C O R D S
0031300 G V C O N N E C T I O N ) ( C
0031320 O N S T A N T S ( \ D E F A U
0031340 L T P O L L I N G S O C 5 ) )
0031360 ( G L O B A L V A R S \ B E
0031400 T W E E N P R O B E D E L A Y
0031420 \r \ C O N N E C T T I M E O U T
0031440 ) ) ( V A R S ( \ B E T W E
0031460 E N P R O B E D E L A Y 1 0 0
0031500 ) ( \ C O N N E C T T I M E O
0031520 U T 5 0 0 0 ) ) ) ( C O M S
0031540 ( * C h e c k i n g a r g
0031560 u m e n t s ) \r ( F N S \ C
0031600 H E C K K E Y \ C H E C K N A
0031620 M E \ C H E C K S T A M P \
0031640 C H E C K S T R I N G \ N O N
0031660 A M E E R R \ U N P A C K R E
0031700 G ) ( I N I T V A R S ( D E
0031720 F A U L T R E G I S T R Y ) \r )
0031740 ( D E C L A R E : D O E V A
0031760 L @ C O M P I L E D O N T C O
0032000 P Y ( G L O B A L V A R S D
0032020 E F A U L T R E G I S T R Y )
0032040 ( R E C O R D S T I M E S T A
0032060 M P ) ) ( I N I T R E C O R D
0032100 S \r T I M E S T A M P ) ) (
0032120 C O M S ( * I / O p r i m
0032140 i t i v e s ) ( F N S \ S E
0032160 N D I T E M \ S E N D S T R I
0032200 N G \ S E N D W O R D ) ( F
0032220 N S \ R E C E I V E B O O L
0032240 \r \ R E C E I V E C L I S T \
0032260 R E C E I V E C O M P O N E N T
0032300 \ R E C E I V E R L I S T \
0032320 R E C E I V E R N A M E \ R E
0032340 C E I V E S T A M P \ R E C E
0032360 I V E S T R I N G \ R E C E I
0032400 V E W O R D \r \ S K I P W O R
0032420 D ) ( V A R S ( \ 3 B Y T E
0032440 K L U D G E K E Y ( Q U O T E
0032460 $ $ 3 b y t e $ $ ) ) ) ( D
0032500 E C L A R E : D O E V A L @ C
0032520 O M P I L E D O N T C O P Y
0032540 ( M A C R O S \r \ R E C E I V
0032560 E W O R D \ S K I P W O R D
0032600 \ S E N D W O R D ) ( C O N S
0032620 T A N T S ( \ M A X G V S T R
0032640 I N G 6 4 ) ) ( G L O B A L
0032660 V A R S \ 3 B Y T E K L U D G
0032700 E K E Y ) ) ) ( \r D E C L A R
0032720 E : D O N T E V A L @ L O A D
0032740 E V A L @ C O M P I L E D O
0032760 N T C O P Y ( P ( S E L E C
0033000 T Q ( C O M P I L E M O D E )
0033020 ( D ( F I L E S L O A D (
0033040 L O A D C O M P ) P U P \r B
0033060 S P ) ) ( P D P - 1 0 ( F I
0033100 L E S L O A D ( L O A D C O M
0033120 P ) P U P 1 0 B S P A U X )
0033140 ) N I L ) ) ) ) ) \r ( A D D T
0033160 O V A R \ G V C O N N E C T I
0033200 O N S ) \r ( R P A Q Q R E G R
0033220 O O T ( G V . G V ) ) \r (
0033240 R P A Q R E G R O O T N L S N
0033260 A M E " G r a p e v i n e R S
0033300 e r v e r " ) \r ( R P A Q Q \
0033320 R E G . I O T I M E O U T 3 0
0033340 0 0 0 ) \r ( R P A Q Q \ B E T
0033360 W E E N P R O B E D E L A Y 1
0033400 0 0 ) \r ( R P A Q Q \ C O N N
0033420 E C T T I M E O U T 5 0 0 0 )
0033440 \r ( R P A Q ? D E F A U L T R
0033460 E G I S T R Y ) \r ( / D E C L A
0033500 R E D A T A T Y P E ( Q U O T
0033520 E T I M E S T A M P ) ( Q U
0033540 O T E ( ( B I T S 1 6 ) F
0033560 I X P ) ) ) \r ( R P A Q Q \ 3
0033600 B Y T E K L U D G E K E Y $ $
0033620 3 b y t e $ $ ) \r ( P U T P R O
0033640 P S G R A P E V I N E C O P
0033660 Y R I G H T ( " X e r o x C
0033700 o r p o r a t i o n " 1 9 8 3
0033720 1 9 8 4 ) ) \r N I L \r
0033734