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