$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>PupRTPOpenClose.br
0000000  002 002 005 006  \0  \0  \0 017  \0  \0 001   $  \0  \0 001   3
0000020   \0  \0 004 341  \0  \0 005 005  \0  \0  \0  \0  \0  \0  \0   #
0000040   \0      \0 025  \a   l   R   T   P   S   o   c  \0   @  \0 001
0000060   \r   O   p   e   n   R   T   P   S   o   c   k   e   t  \0   @
0000100   \0 002 016   C   l   o   s   e   R   T   P   S   o   c   k   e
0000120    t  \0  \0   @  \0 003 024   R   T   P   H   a   n   d   l   e
0000140    U   n   c   o   m   m   o   n   P   u   p  \0  \0   @  \0 004
0000160  006   R   T   P   F   S   M  \0  \0   A  \0 005  \t   R   T   P
0000200    A   c   t   i   o   n  \0   @  \0 006  \n   B   u   i   l   d
0000220    A   b   o   r   t  \0  \0   @  \0  \a 016   C   o   m   p   l
0000240    e   t   e   R   T   P   P   u   p  \0  \0  \0  \0  \0  \b   S
0000260    e   t   T   i   m   e   r  \0  \0  \0  \0  \0  \v   D   e   f
0000300    a   u   l   t   A   r   g   s  \0  \0  \0  \0  \a   p   u   p
0000320    C   t   x   Q  \0  \0  \0  \0 023   D   e   f   a   u   l   t
0000340    O   t   h   e   r   P   u   p   P   r   o   c  \0  \0  \0  \0
0000360  016   d   e   f   a   u   l   t   T   i   m   e   o   u   t  \0
0000400   \0  \0  \0  \0  \a   p   u   p   Z   o   n   e  \0  \0  \0  \0
0000420   \b   A   l   l   o   c   a   t   e  \0  \0  \0  \0  \0  \f   r
0000440    t   p   S   t   a   c   k   S   i   z   e  \0  \0  \0  \0  \0
0000460  021   I   n   i   t   i   a   l   i   z   e   C   o   n   t   e
0000500    x   t  \0  \0  \0  \0 020   R   T   P   S   o   c   k   e   t
0000520    P   r   o   c   e   s   s  \0  \0  \0  \0  \0  \v   I   n   s
0000540    e   r   t   A   f   t   e   r  \0  \0  \0  \0  \f   p   u   p
0000560    L   e   v   e   l   1   C   t   x  \0  \0  \0  \0  \0  \a   E
0000600    n   q   u   e   u   e  \0  \0  \0  \0 004   N   o   o   p  \0
0000620   \0  \0  \0  \0 017   T   i   m   e   r   H   a   s   E   x   p
0000640    i   r   e   d  \0  \0  \0  \0 005   B   l   o   c   k  \0  \0
0000660   \0  \0  \a   U   n   q   u   e   u   e  \0  \0  \0  \0 004   F
0000700    r   e   e  \0  \0  \0  \0  \0  \t   R   T   P   F   i   l   t
0000720    e   r  \0  \0  \0  \0 006   M   u   l   t   E   q  \0  \0  \0
0000740   \0  \0  \b   S   e   t   P   u   p   I   D  \0  \0  \0  \0  \0
0000760   \v   S   e   t   P   u   p   D   P   o   r   t  \0  \0  \0  \0
0001000   \v   C   o   m   p   l   e   t   e   P   u   p  \0  \0  \0  \0
0001020  006   G   e   t   P   B   I  \0  \0  \0  \0  \0  \t   M   o   v
0001040    e   B   l   o   c   k  \0  \0  \0  \0 006   S   y   s   E   r
0001060    r  \0  \0  \0  \0  \0 021   A   p   p   e   n   d   S   t   r
0001100    i   n   g   T   o   P   u   p  \0  \a  \0 002  \0 001  \0 003
0001120   \0 322  \0 004 001   #  \0 005 001 367  \0 006 002 207  \0  \a
0001140  003   {  \0  \b 003 225 003 255 003 255   Z 001  \f 370  \0 031
0001160   \f 367   B  \v   !   @ 306  \0   B  \f   "  \f 255  \0   i   <
0001200   \0 002   " 004   :  \f   C 001   !   Q 306  \0   =   P   Z 020
0001220  375  \0   Z 021   :  \f   Z 022   =   K   Z 023   =   J   Z 024
0001240    =   I   Z 025   9   H   Z 003 254  \0   i   F  \0  \b   "  \n
0001260    -   D   i   D  \0 002   B  \r   =   N   Z 021   9   M   Z 022
0001300    9   L   Z 003   "  \r   -   9   i   I  \0 004   " 004   :  \r
0001320    C 003   "  \n   :  \r   C 004   " 005   :  \r   C 005   " 005
0001340    =   & 345  \f 001  \n   :  \r   Z 003   " 005   -   K   i   K
0001360   \0 003 001  \a  \0 027  \0  \0   " 005   *  \r   i   E  \0 002
0001400    "  \r   : 004   C  \r   :  \a   #  \0   : 004   C 017   :  \a
0001420    # 001   : 004   C 020 205  \0   : 004   C 016   "  \b   : 004
0001440    C 022   %   =   : 004   C 024 001   8  \0  \v  \0  \0  \0  \0
0001460   \0  \0  \0  \0  \0  \r  \0  \0  \0  \0  \0  \0 375   P   Z 016
0001500    " 004 255  \0   i   -  \0 002   " 006 375   P 345  \f 001  \a
0001520  204  \0 001   \  \0  \0  \0 004  \0 016  \0  \0 001   1   9   %
0001540    Z 016   " 004   9 372 346  \0 255 220  \f 361 200  \0   " 004
0001560  255   P   i 026  \0 002   " 006   9 031 345  \f 001 006 204  \0
0001600  001   E  \0  \0  \0  \0  \0  \0 001 033   " 004   ) 016   i  \b
0001620   \0 002 204  \0 001   ; 001 024   " 006 001  \t  \0  \0  \0  \0
0001640   \f 355  \0   4  \f 355  \0  \f  \0 002  \0 003  \f 350  \0 004
0001660   \0 005 377 354 377 325 377 324 377 302 377 301 001 001   !   T
0001700  306  \0   *  \t   i 231  \0 002   i   P  \0  \0   : 004   # 016
0001720    9   M 347  \0   B 020   " 020   : 016 345  \f 001  \a   !   D
0001740  306  \0   i   N  \0 001 202  \r 001 360   " 020   9 337 345  \r
0001760  001 005   " 020   9 261 345  \f 001 003 204  \0 001  \a   " 004
0002000  255  \0   i   T  \0 002 205  \0 001 001  \f 366   Z 001  \f 370
0002020   \0 016  \f 367   B 006   " 006   9 310 345   K 001 003   = 211
0002040    Z 005   " 005 202  \r 001 005   " 004   ) 300   i 271  \0 002
0002060    !   U 306  \0   * 005   i   S  \0 002   : 004   # 016   9 026
0002100  347  \0   B  \b   "  \b   9   J 345  \r 001  \a   !   G 306  \0
0002120    i 027  \0 001 202  \r 001  \v   " 004   )   I   i 241  \0 002
0002140  375  \0   Z 005 001 006  \0 017  \0  \0  \0 377   i 376  \0  \0
0002160    "  \b 202  \f 001 343   : 004   ;  \r   Z  \t 001 004  \0  \0
0002200    i 364  \0  \0   :  \t   ; 006 372  \f 001 373   :  \t   # 005
0002220    *  \t   i   J  \0 002   :  \t   # 004   *  \t   i   F  \0 002
0002240    " 005 202  \f 204 001 205  \0 001 002  \0  \0  \f 366   Z 001
0002260   \f 370  \0  \f  \f 367 001   B   : 005   # 023   9   A 347 300
0002300  202  \f 001  \v   : 005   # 020   9   ; 347 300   * 005   9   9
0002320  356  \0 202 300  \f 360 377  \0 001   ,  \0  \a  \0   G 375  \0
0002340    Z 003   " 005 255  \0   i   .  \0 003 001   =  \0 004 374  \0
0002360    Z 003   " 005 254  \0   i   &  \0 003 001   5 374  \0   Z 003
0002400    " 005 255  \0   i 037  \0 003   B 006   " 005   9 032 346  \0
0002420    * 004   9 033 356  \0   9 032   Z 003   i 031  \0 003   * 006
0002440  217  \0 242  \0 001      \0  \0  \0  \0 205  \0 001 034 001 033
0002460    : 004   # 016   9 233 347  \0 001  \r  \f 355  \0   u 377  \0
0002500   \0 023  \0  \0  \f 355  \0 017  \0  \b  \0 003  \0  \0  \f 355
0002520   \0  \n  \f 350  \0 005  \0 005 377 322 377 350 377 320 377 300
0002540  377 307 001 344 202  \r 001  \b   : 005   Z 003   " 004   )   W
0002560    i   W  \0 003 001      \t  \a  \v   R   F   C       r   e   f
0002600    u   s   e   d 342  \0   B 003   " 004 255  \0   i   J  \0 003
0002620    B 006   " 005   9   G 346  \0 212  \0   " 006   i   J  \0 002
0002640    " 005   9   H 346  \0 212  \0   " 006   i   E  \0 002   " 006
0002660    i   C  \0 001 001   N 374  \0   Z 003   " 005 254  \0   i 302
0002700   \0 003 202  \r 001  \a   : 005   Z 003   " 004   ) 207   i   (
0002720   \0 003 001   ? 374  \0   Z 003   " 005 254  \0   i 263  \0 003
0002740  202  \r 001  \a   : 005   Z 003   " 004   ) 257   i 031  \0 003
0002760  001   0 374  \0   Z 003   " 005 254  \0   i 244  \0 003 202  \r
0003000  001  \r   : 005   Z 003   " 004   ) 032   i  \n  \0 003   " 005
0003020    : 004 017 022  \0 001 375  \0   Z 005 001 033  \0 005  \0 233
0003040   \0  \0  \0  \v 001 026   : 005   #  \n   9  \n 347  \0 001  \t
0003060   \0  \0  \0 020  \0  \0  \0  \0  \f 355  \0  \v  \0 006  \0 377
0003100   \f 350  \0  \v  \0 004 377 307 377 267 377 324 377   6 001 001
0003120    " 005 001 001  \f 366   Z 001  \f 370  \0 017  \f 367  \t   Q
0003140  005 001  \0 001  \0 002  \0 003  \0 004  \0 005  \0 006  \0  \a
0003160  002 002  \0 001  \0 002  \0 003  \0 004  \0 005  \0 006  \0  \a
0003200  002 003  \0 001  \0 002  \0 003  \0 004  \0 005  \0 006  \0  \a
0003220  002  \0 003  \0 002  \0  \a 005  \b 006 002 005 002 006 002  \0
0003240  002  \0 003  \0 002  \0 003  \0 003  \0 003  \0 002  \0 002  \0
0003260  001  \0 004 003 006 003 006 003 001 004 006 005 001 006 001  \a
0003300  001  \0 002  \a 001 002 002  \a 002  \a 002  \a 002  \a 002  \a
0003320  001  \0 001 001 001 002 002 004 002 004  \b 006  \b 006 001  \a
0003340  001  \0 001 001 001 002 001 003 001 004  \b  \0 002  \0 001  \a
0003360  002  \0 005 001 002 002 002 003 002 004  \a 005 002  \0 002  \a
0003400  342  \0   B  \a  \t  \t   }  \0  \0   d   }  \0   }  \0   }  \0
0003420   \0   d 003 350   }  \0 342  \0   B  \b   : 004   # 016   9 220
0003440  347  \0   B  \t   "  \a   * 005  \f 357  \0  \b   :  \t 236  \0
0003460    #  \0   9   W 347 300   : 006   Z 003   * 004   i   S  \0 003
0003500    "  \a   * 005  \f 357  \0  \b   :  \t 236  \0   #  \0   9   K
0003520  347  \0   * 004   9   I 356  \0  \f 360  \0 377   " 004   9   E
0003540  346  \0   : 004   + 016   9   ? 357  \0   :  \b 276  \0   +  \0
0003560    i   =  \0 002  \f 366   Z 001  \f 370  \0  \r  \f 367 001   ^
0003600    " 005   i   ^  \0 001   B 006   " 006   9   [ 346  \0   * 005
0003620    9   Y 356  \0   9   X   Z 003   i   W  \0 003   9   V   Z 003
0003640    " 006   )   T   i   T  \0 003 001   S   : 005   # 016 202   @
0003660  205   p 202  \r 001   X   : 005   # 016   9 025 347  \0   9   L
0003700  345  \f 001   &   " 005   9   P 346  \0   * 006   9   N 356  \0
0003720    9   C   Z 003   i   9  \0 003   " 005   9   8 346  \0 001  \a
0003740  377  \0  \0  \0  \0 377  \0 016  \0 021 001   :   * 006   9   )
0003760  356  \0   9   )   Z 003   i   (  \0 003   " 005   9   # 346  \0
0004000    * 006   9   [ 356  \0   9 037   Z 003   i 036  \0 003   " 005
0004020    i 027  \0 001   B  \a   " 006   9   Q 346  \0 212  \0   "  \a
0004040    i   N  \0 002   "  \a   9  \r 346  \0   * 005   9  \v 356  \0
0004060    9  \n   Z 003   i  \t  \0 003 001 020  \f 355  \0   z  \0  \0
0004100   \0 023  \0 005  \0 003  \0  \0  \0 034  \0  \b  \0  \0  \f 355
0004120   \0 206  \f 355  \0  \b  \0 002   9 370   Z 003   "  \a   ) 366
0004140    i 366  \0 003 001   |  \0 017  \0  \v   " 005   9 357 346  \0
0004160    * 006   9 347 356  \0   9 347   Z 003   i 346  \0 003 001   o
0004200    : 005   # 016   9 260 347  \0   : 005   Z  \b 375  \0   Z  \t
0004220  375   P 345  \f 001 025  \t 017 032   C   o   n   n   e   c   t
0004240    i   o   n       a   t   t   e   m   p   t       a   b   o   r
0004260    t   e   d  \0 342  \0 001 021  \0  \r  \0 020 001 346  \t  \v
0004300  022   C   o   n   n   e   c   t   i   o   n       a   b   o   r
0004320    t   e   d  \0 342  \0 001 001   B 003   "  \b   *  \t   i   +
0004340   \0 003   B 006   " 005   9 300 346  \0 212  \0   " 006   i   $
0004360   \0 002   " 006   i   "  \0 001 001   2   " 005   i 241  \0 001
0004400    B 006   9 034   Z 003   " 006   ) 032   i 241  \0 003 001   '
0004420    " 005   i 226  \0 001   B 006   9 021   Z 003   " 006   ) 245
0004440    i 226  \0 003 001 034   " 005   )  \v   i  \v  \0 002 001 027
0004460    " 004 001  \b 001 334 001 344 001 347  \0 026  \0  \n  \b 300
0004500   \0  \0  \f 350  \0  \b  \0  \t 377 344 377 330 377   / 377 031
0004520  377 215 377 227  \0 004 377 354 377 347 001 001  \f 366   Z 001
0004540   \f 370  \0  \r  \f 367   " 004   i   (  \0 001   B  \a   "  \a
0004560    9 346 346  \0   )   #  \f 361  \0 377   " 005   :  \a   C 023
0004600    : 006   Z 003   "  \a   ) 033   i 033  \0 003   "  \a 001 001
0004620   \f 366   Z 001  \f 370  \0  \f  \f 367   : 004   # 002   9 021
0004640  346  \0 212  \0   " 004   i 310  \0 002   : 006   Z 003   " 004
0004660    * 005   i 303  \0 003  \f 366 002 353  \0  \t  \0 003  \0  \0
0004700   \0 017  \0   #  \0  \0  \0  \0 001   !  \0  \0 001 333 002 275
0004720  003   f 002 362 002 301  \0   g  \0   b  \0   c  \0   d  \0   e
0004740   \0   i  \0   h  \0   y  \0   v  \0 216  \0 215  \0 217  \0 232
0004760  001  \v 001  \0 001   _ 001   ` 001   m 001   r 003   g 003   *
0005000  003   h 003 250 002 357 003   l 003 253  \0  \0                
0005014