$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>PupBSPOpenClose.br
0000000  002 002 004   <  \0  \0  \0 017  \0  \0 001   p  \0  \0 001   }
0000020   \0  \0 004 017  \0  \0 004   ;  \0  \0  \0  \0  \0  \0  \0   +
0000040   \0      \0   G  \a   l   B   S   P   S   o   c  \0      \0   3
0000060   \f   o   f   f   s   e   t   B   S   P   S   t   r  \0  \0   @
0000100   \0 001 017   C   r   e   a   t   e   B   S   P   S   t   r   e
0000120    a   m  \0   @  \0 002 016   C   l   o   s   e   B   S   P   S
0000140    o   c   k   e   t  \0  \0   A  \0 003  \r   B   S   P   F   l
0000160    u   s   h   I   n   p   u   t  \0   A  \0 004 023   B   S   P
0000200    I   n   p   u   t   S   u   c   k   e   r   U   p   p   e   r
0000220   \0   @  \0 005 017   B   S   P   P   u   t   I   n   t   e   r
0000240    r   u   p   t  \0   @  \0 006 024   B   S   P   H   a   n   d
0000260    l   e   U   n   c   o   m   m   o   n   P   u   p  \0  \0  \0
0000300   \0  \0 004   Z   e   r   o  \0  \0  \0  \0  \0  \t   M   o   v
0000320    e   B   l   o   c   k  \0  \0  \0  \0  \b   S   e   t   T   i
0000340    m   e   r  \0  \0  \0  \0  \0  \n   B   S   P   P   u   p   P
0000360    r   o   c  \0  \0  \0  \0  \0  \f   B   S   P   T   i   m   e
0000400    r   P   r   o   c  \0  \0  \0  \0  \0 003   M   i   n  \0  \0
0000420   \0  \0  \b   S   e   t   B   l   o   c   k  \0  \0  \0  \0  \0
0000440  006   S   y   s   E   r   r  \0  \0  \0  \0  \0  \n   B   S   P
0000460    G   e   t   B   y   t   e  \0  \0  \0  \0  \0  \n   B   S   P
0000500    P   u   t   B   y   t   e  \0  \0  \0  \0  \0  \t   B   S   P
0000520    C   l   o   s   e   s  \0  \0  \0  \0  \t   B   S   P   E   n
0000540    d   o   f   s  \0  \0  \0  \0  \t   B   S   P   E   r   r   o
0000560    r   s  \0  \0  \0  \0 016   d   e   f   a   u   l   t   T   i
0000600    m   e   o   u   t  \0  \0  \0  \0  \0 016   B   S   P   F   o
0000620    r   c   e   O   u   t   p   u   t  \0  \0  \0  \0  \0 017   T
0000640    i   m   e   r   H   a   s   E   x   p   i   r   e   d  \0  \0
0000660   \0  \0  \a   D   i   s   m   i   s   s  \0  \0  \0  \0 016   C
0000700    l   o   s   e   R   T   P   S   o   c   k   e   t  \0  \0  \0
0000720   \0  \0  \n   R   e   l   e   a   s   e   P   B   I  \0  \0  \0
0000740   \0  \0 004   N   o   o   p  \0  \0  \0  \0  \0  \n   F   l   u
0000760    s   h   Q   u   e   u   e  \0  \0  \0  \0  \0 021   C   l   o
0001000    s   e   L   e   v   e   l   1   S   o   c   k   e   t  \0  \0
0001020   \0  \0 016   B   S   P   P   r   e   p   a   r   e   I   P   B
0001040    I  \0  \0  \0  \0  \0  \r   B   S   P   G   e   t   C   l   e
0001060    a   n   u   p  \0  \0  \0  \0 005   B   l   o   c   k  \0  \0
0001100   \0  \0 006   G   e   t   P   B   I  \0  \0  \0  \0  \0 021   A
0001120    p   p   e   n   d   S   t   r   i   n   g   T   o   P   u   p
0001140   \0  \0  \0  \0  \b   S   e   t   P   u   p   I   D  \0  \0  \0
0001160   \0  \0  \v   C   o   m   p   l   e   t   e   P   u   p  \0  \0
0001200   \0  \0  \n   S   e   t   T   i   m   e   o   u   t  \0  \0  \0
0001220   \0  \0  \t   R   T   P   F   i   l   t   e   r  \0  \0  \0  \0
0001240  006   M   u   l   t   E   q  \0  \0  \0  \0  \0  \b   S   e   a
0001260    r   c   h   T   Q  \0  \0  \0  \0  \0 017   D   o   u   b   l
0001300    e   I   n   c   r   e   m   e   n   t  \0  \0  \0  \0 020   D
0001320    o   u   b   l   e   D   i   f   f   e   r   e   n   c   e  \0
0001340   \0 006  \0 003  \0 001  \0 004  \0 245  \0 005 001   G  \0 006
0001360  001   b  \0  \a 001   r  \0  \b 001 354 002 221 002 221   Z 001
0001400   \f 370  \0  \f  \f 367   : 004   # 016   9   \ 347  \0   9   [
0001420  345  \r 001  \n   : 004   # 016   9   U 347  \0   9   U 345  \r
0001440  001 003 205  \0 001   R   " 004   9   R 346  \0   )   Q   i   Q
0001460   \0 002   " 004   9   O 346  \0   B 005   " 004   9   L 346  \0
0001500    9   K   Z 003   * 005   i   I  \0 003   " 004   9   G 346  \0
0001520    9   C   Z 003   * 005   i   A  \0 003   " 004   9   ] 346  \0
0001540    9   ;   Z 003   * 005   i   9  \0 003   " 004   9   V 346  \0
0001560    9   3   Z 003   * 005   i   1  \0 003   " 004   9   O 346  \0
0001600    9   +   Z 003   * 005   i   )  \0 003   " 004   9   H 346  \0
0001620    9   #   Z 003   * 005   i   !  \0 003   " 004   9   A 346  \0
0001640  255  \0   i   M  \0 002   " 004   9   K 346  \0   )   J   i   G
0001660   \0 002   : 004   # 022   : 004   C 025   %   D   : 004   C 022
0001700  001 016  \0 377  \0 003  \0 004  \f 355  \0   =  \0 025  \0   2
0001720   \0  \0  \0 017  \0 026  \0 002  \0  \0  \0 030   %   W   : 004
0001740    C 024   !   U   : 004   C   .   : 004   # 003   9   Q 347 300
0001760    )   P   i   P  \0 002   : 004   C   *   " 004   =   L 346  \0
0002000    B 006   9   J   Z 003   " 006   -   H   i   H  \0 003   %   G
0002020    : 006   C 003 001 006  \0 032  \0   !  \0 037  \0   #  \0 023
0002040    %   C   : 006   C 004   %   H   : 006   C 002   %   F   : 006
0002060    C  \b   %   D   : 006   C  \a   " 006 001 005  \0  \0  \0   /
0002100    . 340  \0  \0  \f 366   Z 001  \f 370  \0  \f  \f 367   B 006
0002120    " 006 375   P 344   K 001 003   =   ;   Z 005   : 004   # 016
0002140    9 261 347  \0   9 260 345  \r 001  \b   : 004   # 016   9 252
0002160  347  \0   9 252 345  \f 001   O   " 004   i   -  \0 001   !   ,
0002200  306  \0   * 005   i 334  \0 002 001   ;  \0  \0  \0   d 377  \0
0002220   \0 005  \0  \0  \0  \0  \0  \f  \0  \0  \0  \0  \0  \0   " 004
0002240    i 036  \0 001 001 020  \0  \0   ! 027 306  \0   i 031  \0 001
0002260  202  \f 001 005 001   "  \0  \0  \0  \0  \0  \0 375  \0   Z 005
0002300  001   * 001 033   : 004   # 016   9 020 347  \0 001 017  \0  \0
0002320   \f 355  \0   !  \0  \0  \0  \a  \f 355  \0 022  \0  \0  \0  \0
0002340   \f 355  \0  \v  \f 355  \0 027  \0 377  \f 351  \0 002  \0 004
0002360  377 334  \0 003 377 332 001 343 205   P   i   F  \0 001   : 004
0002400    #   % 202  \f 001 315   : 004   #   2   9   Q 347 004 205   P
0002420  202  \f 001 306   %   M   : 004   C 024   " 004   i   I  \0 001
0002440    " 004   * 005   i   F  \0 002   B 005   %   H   : 004   C 022
0002460    %   G   : 004   C 024   : 004   #   C 202  \r 001 005   : 004
0002500    #   C   i   <  \0 001 001  \t   " 004   9   I 346  \0   i   H
0002520   \0 001 205   P   i 031  \0 001   : 004   # 003   9 306 347  \0
0002540    : 004   + 003   9 225 357 300 245  \f 001 357   " 004   9   J
0002560  346  \0   i   6  \0 001   " 004   i   F  \0 001   " 005 202  \f
0002600  204 001 205  \0 001 002  \0  \0  \f 366   Z 001  \f 370  \0  \t
0002620   \f 367   " 004 255  \0   i   B  \0 002   B 005   " 005 202  \r
0002640  001  \t   " 005   9   D 345  \r 001 005  \f 366   @  \0  \0  \0
0002660   \0  \0   " 004   i   =  \0 001 001 355  \0  \0  \f 366  \0  \0
0002700    Z 001  \f 370  \0  \t  \f 367   " 004   i 211  \0 001   " 004
0002720    9   0 346  \0   )   /   i   /  \0 002  \f 366  \0   0  \0  \0
0002740    Z 001  \f 370  \0 020  \f 367   B  \b   "  \b   9   % 345   K
0002760  001 003 374  \0   Z  \a   !   ! 306  \0   *  \a   i 034  \0 002
0003000  001 021  \0 035  \0  \0   "  \a 202   J 001  \a   ! 026 306  \0
0003020    i 025  \0 001 202  \f 001 003 001 036  \0  \0 205  \0 001   Z
0003040  001 032   : 004   # 016   9 017 347  \0 001 016  \b 232  \0  \0
0003060   \0 023  \0  \n  \0 240  \0 004  \0  \t  \0 361  \f 355  \0  \v
0003100   \f 355  \0   H  \0 377  \f 351  \0 002  \0 004 377 335  \0 003
0003120  377 333 001 345   : 004   # 001   9 366 347  \0 202  \r 001 017
0003140    : 004   # 003   9 360 347  \0 202  \r 001  \t   : 004   #   2
0003160    9 236 347 004 205   P 202  \f 001 002 001 004   i   Y  \0  \0
0003200  001 300   " 004   i   V  \0 001   B  \n   " 005   :  \n   C 023
0003220    : 006   Z 003   "  \n   )   N   i   N  \0 003   " 004   9   L
0003240  346  \0 212  \0   "  \n   i   I  \0 002   " 004   9 230 346  \0
0003260    :  \n   C 001   "  \n   )   B   i   B  \0 002   " 004   9   @
0003300  346  \0   )   I  \f 361   @  \0   " 004   i   F  \0 001 204  \0
0003320  001 001  \f 366   Z 001  \f 370  \0  \f  \f 367 375  \0   Z 003
0003340    " 005 254  \0   i   W  \0 003 202  \r 001   U 001   V   " 005
0003360    9   V 346  \0   * 004   9     356  \0   i   R  \0 002 202  \r
0003400  001   )   : 004   #   2   9   ' 347 004 205   P 202  \r 001   "
0003420    " 004 254  \0   i   F  \0 002   B 006   " 006 202  \r 001 032
0003440    " 004   9  \n 346  \0 255   P   i   `  \0 002 001  \n  \0  \0
0003460   \0  \0  \0 003  \0  \0  \0   !  \0  \0  \0 024  \0  \0  \0   2
0003500    " 004   9 376 346  \0 255  \0  \f 361   @  \0   " 006   i   N
0003520   \0 001 001   b   @  \0  \0  \0   " 004   9   K 346  \0   * 005
0003540    9 036 356  \0   i   M  \0 002   B 006   " 006 202  \f 001 032
0003560    " 004   9   ? 346  \0 255   P   i   8  \0 002   " 004   9 340
0003600  346  \0   )   ?  \f 361      \0   " 005   : 004 017 025  \0 001
0003620  001  \f  \0  \0  \f 355  \0   @  \f 355  \0   -  \0  \v  \0  \0
0003640   \0  \0   " 005   i   #  \0 001   " 006 202 220 202  \f 001 034
0003660    " 004 254  \0   i 276  \0 002   B 005   " 005 202  \r 001 024
0003700    " 004   9 027 346  \0 212  \0   " 005   i 267  \0 002   " 005
0003720    9 346 346  \0 254  \0   i  \t  \0 002   9 024   Z 003   " 005
0003740    ) 022   i 255  \0 003  \f 366  \0  \0 001   _  \f 355  \0 024
0003760   \0 032 001 022   : 005   #  \n   9  \a 347  \0 001 006  \0  \0
0004000       \0  \0 026  \0 025  \0 377  \f 351  \0 002  \0 025 377   p
0004020   \0 024 377 243 001 001   " 005   i 351  \0 001  \f 366  \0   +
0004040   \0  \0  \0 314  \0  \0  \0  \0  \0 360 001   Y  \0  \0  \0  \0
0004060   \0   j  \0   n 001 234  \0 243  \0 307  \0 313  \0 317  \0 316
0004100   \0 320  \0 325  \0 335  \0 336  \0 337  \0 351  \0 354 001 237
0004120  001   E 001   Z 002   w 001   a 001   q 001 204 001 217 001 231
0004140  002 031 002 032 002 034 002 036 002     002   - 002   K 002   Q
0004160  002   R 002   v 002 201  \0  \0                                
0004170