$ od -c -N 50000 [eris]<Lisp>Fugue.6>BCPL>LispBCPLSources.dm!1
0000000  377  \0  \0   C   a   l   l   S   u   b   r   s   .   b   c   p
0000020    l  \0 373 232 373 023   R  \0  \0 376 001  \0 252   X   /   /
0000040        T   h   i   s       f   i   l   e       w   r   i   t   t
0000060    e   n       f   r   o   m       L   L   P   A   R   A   M   S
0000100        o   n       2   4   -   M   A   Y   -   8   3       2   3
0000120    :   2   7   :   0   2  \r  \r   e   x   t   e   r   n   a   l
0000140        [  \r   u   C   o   d   e   C   h   e   c   k  \r   S   t
0000160    a   c   k   O   v   e   r   f   l   o   w  \r   N   W   W   I
0000200    n   t   e   r   r   u   p   t  \r   P   a   g   e   F   a   u
0000220    l   t  \r   S   t   a   t   s   O   v   e   r   f   l   o   w
0000240   \r   N   O   O   P   S   U   B   R  \r   B   A   C   K   G   R
0000260    O   U   N   D   S   U   B   R  \r   C   H   E   C   K   B   C
0000300    P   L   P   A   S   S   W   O   R   D  \r   D   I   S   K   P
0000320    A   R   T   I   T   I   O   N  \r   D   S   P   B   O   U   T
0000340   \r   D   S   P   R   A   T   E  \r   G   A   T   H   E   R   S
0000360    T   A   T   S  \r   G   E   T   P   A   C   K   E   T   B   U
0000400    F   F   E   R  \r   L   I   S   P   F   I   N   I   S   H  \r
0000420    M   O   R   E   V   M   E   M   F   I   L   E  \r   R 376 001
0000440   \0   p   i   A   I   D  \r   R   E   A   D   R   A   W   P   B
0000460    I  \r   W   R   I   T   E   R   A   W   P   B   I  \r   S   E
0000500    T   S   C   R   E   E   N   C   O   L   O   R  \r   S   H   O
0000520    W   D   I   S   P   L   A   Y  \r   P   U   P   L   E   V   E
0000540    L   1   S   T   A   T   E  \r   W   R   I   T   E   S   T   A
0000560    T   S  \r   C   O   N   T   E   X   T   S   W   I   T   C   H
0000600   \r   C   O   P   Y   S   Y   S   0   S   U   B   R  \r   W   R
0000620    I   T   E   M   A   P   S   U   B   R  \r   ]  \r   l   e   t
0000640        C   A   L   L   S   U   B   R   S   (   )       b   e    
0000660    [  \r   u   C   o   d   e   C   h   e   c   k   (   )        
0000700                                                                 
*
0000740                    /   /   0  \r   S   t   a   c   k   O   v   e
0000760    r   f   l   o   w   (   )                                    
0001000                                                                 
0001020                            /   /   1  \r   N   W   W   I   n   t
0001040    e   r   r 376 001  \0 262   Q   u   p   t   (   )            
0001060                                                                 
*
0001120        /   /   2  \r   P   a   g   e   F   a   u   l   t   (   )
0001140                                                                 
*
0001200                /   /   3  \r   S   t   a   t   s   O   v   e   r
0001220    f   l   o   w   (   )                                        
0001240                                                                 
0001260                                        /   /   4  \r   N   O   O
0001300    P   S   U   B   R   (   )                                    
0001320                                                                 
0001340                                                                /
0001360    /   5  \r   B   A   C   K   G   R   O   U   N   D   S   U   B
0001400    R   (   )                                                    
0001420                                                                 
0001440                        /   /   6 376 001  \0   B   4  \r   C   H
0001460    E   C   K   B   C   P   L   P   A   S   S   W   O   R   D   (
0001500    )                                                            
0001520                                                                 
0001540    /   /   7  \r   D   I   S   K   P   A   R   T   I   T   I   O
0001560    N   (   )                                                    
0001600                                                                 
0001620                            /   /   1   0  \r   D   S   P   B   O
0001640    U   T   (   )                                                
0001660                                                                 
0001700                                                        /   /   1
0001720    1  \r   D   S   P   R   A   T   E   (   )                    
0001740                                                                 
*
0002000                    /   /   1   2  \r   G   A   T   H   E   R   S
0002020    T   A   T   S   (   )                                        
0002040                                                      376 001  \0
0002060  271 033                                                        
0002100    /   /   1   3  \r   G   E   T   P   A   C   K   E   T   B   U
0002120    F   F   E   R   (   )                                        
0002140                                                                 
0002160                                /   /   1   4  \r   L   I   S   P
0002200    F   I   N   I   S   H   (   )                                
0002220                                                                 
0002240                                                            /   /
0002260    1   5  \r   M   O   R   E   V   M   E   M   F   I   L   E   (
0002300    )                                                            
0002320                                                                 
0002340                        /   /   1   6  \r   R   A   I   D   (   )
0002360                                                                 
*
0002420                                                    /   /   1   7
0002440   \r   R   E   A   D   R   A   W   P   B   I   (   )            
0002460          376 001  \0   - 307                                    
0002500                                                                 
0002520                                    /   /   2   0  \r   W   R   I
0002540    T   E   R   A   W   P   B   I   (   )                        
0002560                                                                 
0002600                                                                /
0002620    /   2   1  \r   S   E   T   S   C   R   E   E   N   C   O   L
0002640    O   R   (   )                                                
0002660                                                                 
0002700                            /   /   2   2  \r   S   H   O   W   D
0002720    I   S   P   L   A   Y   (   )                                
0002740                                                                 
0002760                                                        /   /   2
0003000    3  \r   P   U   P   L   E   V   E   L   1   S   T   A   T   E
0003020    (   )                                                        
0003040                                                                 
0003060                    /   /   2 376  \0 344   d 305   4  \r   W   R
0003100    I   T   E   S   T   A   T   S   (   )                        
0003120                                                                 
*
0003160    /   /   2   5  \r   C   O   N   T   E   X   T   S   W   I   T
0003200    C   H   (   )                                                
0003220                                                                 
0003240                                /   /   2   6  \r   C   O   P   Y
0003260    S   Y   S   0   S   U   B   R   (   )                        
0003300                                                                 
0003320                                                            /   /
0003340    2   7  \r   W   R   I   T   E   M   A   P   S   U   B   R   (
0003360    )                                                            
0003400                                                                 
0003420                                        /   /   3   0  \r   ]  \r
0003440  377  \0  \0   D   i   s   p   l   a   y   I   O   S   u   b   r
0003460    s   .   b   c   p   l  \0 373 232 373 270 211  \0  \0 376 001
0003500   \0 347 035   /   /       D   i   s   p   l   a   y   I   O   S
0003520    u   b   r   s   .   b   c   p   l       -       S   u   b   r
0003540    s       w   h   i   c   h       d   e   a   l       w   i   t
0003560    h       d   i   s   p   l   a   y  \r   /   /       L   a   s
0003600    t       c   h   a   n   g   e       M   a   y       1   2   ,
0003620        1   9   8   1           1   2   :   4   7       A   M    
0003640    b   y       B   e   a   u       S   h   e   i   l  \r   /   /
0003660        L   a   s   t       c   h   a   n   g   e       M   a   r
0003700    c   h       1   ,       1   9   8   1           8   :   5   6
0003720        P   M       b   y       B   e   a   u       S   h   e   i
0003740    l  \r   /   /       T   r   i   l   l       c   h   a   n   g
0003760    e       F   e   b   r   u   a   r   y       2   4   ,       1
0004000    9   8   1           1   :   5   8       P   M       b   y    
0004020    B   e   a   u       S   h   e   i   l  \r   /   /       L   a
0004040    s   t       c   h   a   n   g   e       F   e   b   r   u   a
0004060    r   y       3   ,       1   9   8   1           4   :   0   3
0004100        P   M 376 001  \0 022 321       b   y       B   e   a   u
0004120        S   h   e   i   l  \r   /   /       M   o   r   e       X
0004140    B   i   t   B   l   t       c   h   a   n   g   e   s       J
0004160    a   n   u   a   r   y       2   8   ,       1   9   8   1    
0004200        6   :   1   4       P   M       b   y       B   e   a   u
0004220        S   h   e   i   l  \r   /   /       X   B   i   t   B   l
0004240    t       c   h   a   n   g   e       D   e   c   e   m   b   e
0004260    r       1   6   ,       1   9   8   0           1   0   :   0
0004300    4       A   M       b   y       A   l   a   n       B   e   l
0004320    l  \r  \r  \t   g   e   t       "   A   l   t   o   D   e   f
0004340    s   .   d   "  \r  \t   g   e   t       "   L   i   s   p   B
0004360    c   p   l   .   d   e   c   l   "  \r  \t   g   e   t       "
0004400    K   b   d   D   e   f   s   .   d   "  \r  \t   g   e   t    
0004420    "   S   t   r   e   a   m   s   .   d   "  \r  \r   e   x   t
0004440    e   r   n   a   l       [  \t  \t   /   /           p   r   o
0004460    c   e   d   u   r   e   s       d   e   f   i   n   e   d    
0004500    h   e   r   e  \r  \t   W   c 376 001  \0 005 216   ;       W
0004520    s   ;       D   S   P   B   O   U   T   ;       F   l   a   s
0004540    h   S   c   r   e   e   n   ;       S   E   T   S   C   R   E
0004560    E   N   C   O   L   O   R   ;       S   H   O   W   D   I   S
0004600    P   L   A   Y  \r                  \t   S   e   t   S   c   r
0004620    e   e   n   C   o   l   o   r   ;       B   c   p   l   D   i
0004640    s   p   l   a   y   ;       S   t   e   a   l   F   r   o   m
0004660    B   c   p   l   D   i   s   p   l   a   y   ;       A   d   d
0004700    T   o   B   c   p   l   D   i   s   p   l   a   y  \r  \t  \t
0004720   \t   /   /           s   t   a   t   i   c   s       d   e   f
0004740    i   n   e   d       h   e   r   e  \r  \t   @   d   l   i   s
0004760    p   D   s   p   ;       @   D   i   s   p   l   a   y   A   d
0005000    d   r   H   i   ;       @   d   s   p   S   t   a   r   t   A
0005020    d   d   r   ;       @   d   s   p   A   r   e   a  \r  \t   @
0005040    D   L   i   s   p   D   C   B   ;       @   d   s   p   S   c
0005060    a   n   L   i   n   e   s  \r  \t   ]  \r  \r   e   x   t   e
0005100    r   n   a   l       [  \t  \t   /   /           p 376 001  \0
0005120  353 214   r   o   c   e   d   u   r   e   s       u   s   e   d
0005140   \r  \t   C   a   l   l   S   w   a   t   ;       R   A   I   D
0005160    C   o   d   e   ;       Z   e   r   o   ;       C   r   e   a
0005200    t   e   D   i   s   p   l   a   y   S   t   r   e   a   m   ;
0005220        S   h   o   w   D   i   s   p   l   a   y   S   t   r   e
0005240    a   m  \r  \t   D   i   s   m   i   s   s  \r  \t   S   m   a
0005260    l   l   U   n   b   o   x   ;       E   q   N   I   L  \r  \t
0005300    P   u   t   s   ;       C   l   o   s   e   s   ;       C   h
0005320    a   r   W   i   d   t   h   ;       E   r   a   s   e   B   i
0005340    t   s   ;       G   e   t   B   i   t   P   o   s   ;       G
0005360    e   t   L   m   a   r   g  \r  \t   ]  \r  \r   e   x   t   e
0005400    r   n   a   l       [  \t  \t   /   /           s   t   a   t
0005420    i   c   s       u   s   e   d  \r  \t   d   s   p   ;       s
0005440    y   s   F   o   n   t   ;       E   m   u   l   a   t   o   r
0005460    S   p   a   c   e   ;       @   R   M   S   K   ;       V   M
0005500    D   i   s   p   l   a   y  \r  \t   ]  \r  \r   s   t   a   t
0005520    i   c 376 001  \0   j   I       [  \r  \t   @   d   l   i   s
0005540    p   D   s   p   ;       @   D   i   s   p   l   a   y   A   d
0005560    d   r   H   i   =   0   ;       D   i   s   p   l   a   y   P
0005600    a   g   e   s   =   0   ;       @   d   s   p   S   t   a   r
0005620    t   A   d   d   r   ;       @   D   L   i   s   p   D   C   B
0005640   \r  \t   @   d   s   p   A   r   e   a   ;       @   d   s   p
0005660    S   c   a   n   L   i   n   e   s  \r  \t   ]  \r  \r   s   t
0005700    r   u   c   t   u   r   e       E   D   C   B   :       [  \t
0005720   \t  \t   /   /       E   x   t   e   n   d   e   d       D   C
0005740    B  \r  \t   @   D   C   B       =       [       b   l   a   n
0005760    k       b   i   t       o   f   f   s   e   t       D   C   B
0006000    .   h   e   i   g   h   t  \r                                
0006020                                        L   o   n   g   P   t   r
0006040    F   l   g       b   i   t       1  \t   /   /       O   v   e
0006060    r   l   a   i   d       o   n       D   C   B   .   h   e   i
0006100    g   h   t  \r                                                
0006120                        n   S 376 001  \0   6   n   c   a   n   L
0006140    i   n   e   s       b   i   t       1   5  \r                
0006160                                                ]  \r  \t   A   d
0006200    d   r   L   o       w   o   r   d  \t  \t  \t   /   /       t
0006220    o       b   e       D   0       c   o   m   p   a   t   i   b
0006240    l   e  \r  \t   A   d   d   r   H   i       w   o   r   d  \r
0006260       \t  \t   ]  \r  \r   /   /       T   h   e       f   o   l
0006300    l   o   w   i   n   g       h   a   c   k       a   l   l   o
0006320    w   s       u   s       t   o       f   e   t   c   h       t
0006340    h   e       n   u   m   b   e   r       o   f       l   i   n
0006360    e   s       f   r   o   m       a       d   i   s   p   l   a
0006400    y  \r   /   /       s   t   r   e   a   m   .           T   h
0006420    e       c   o   m   p   l   e   t   e       d   e   c   l   a
0006440    r   a   t   i   o   n       f   r   o   m       w   h   i   c
0006460    h       t   h   i   s       i   s       c   r   i   b   b   e
0006500    d       i   s       i   n       t   h   e       O   S  \r   /
0006520    /       s   o   u   r   c   e       f   i   l 376 001  \0 347
0006540  215   e       D   s   p   S   t   r   e   a   m   s   B   .   b
0006560    c   p   l  \r  \r   s   t   r   u   c   t   u   r   e       D
0006600    i   s   p   S   t   r   m       [       b   l   a   n   k    
0006620    w   o   r   d       2   9   ;       n   l       w   o   r   d
0006640            ]  \r  \r   s   t   r   u   c   t   u   r   e       S
0006660    t   r   i   n   g   :       [       l   e   n   g   t   h    
0006700    b   y   t   e   ;       c   h   a   r   ^   1   ,   2   5   5
0006720        b   y   t   e       ]  \r  \r   m   a   n   i   f   e   s
0006740    t       [       s   o   u   r   c   e   G   r   a   y       =
0006760        3  \r  \t               L   o   n   g   D   C   B   S   e
0007000    a   l       =       #   1   7   7   4   2   3  \t   /   /    
0007020    c   h   e   c   k   e   d       b   y       d   i   s   p   l
0007040    a   y       u   c   o   d   e  \r  \t       ]  \r  \r   l   e
0007060    t       W   s   (   s   t   r   )       b   e       f   o   r
0007100        i       =       1       t   o       s   t   r   >   >   S
0007120    t   r   i   n   g   .   l   e   n   g   t   h       d   o    
0007140    P 376 001  \0   k 273   u   t   s   (   d   s   p   ,   s   t
0007160    r   >   >   S   t   r   i   n   g   .   c   h   a   r   ^   i
0007200    )  \r  \r   a   n   d       W   c   (   c   h   )       b   e
0007220        P   u   t   s   (   d   s   p   ,   c   h   )  \r  \r   a
0007240    n   d       D   S   P   B   O   U   T   (   l   v   B   y   t
0007260    e   )       =       v   a   l   o   f  \r           [  \r    
0007300                l   e   t       c   h   a   r       =       S   m
0007320    a   l   l   U   n   b   o   x   (   l   v   B   y   t   e   )
0007340    &   R   M   S   K  \r                   t   e   s   t       c
0007360    h   a   r       e   q       E   R   A   S   E   C   H   A   R
0007400    C   O   D   E  \t  \t   /   /       I   s       c   h   a   r
0007420        a   n       e   r   a   s   e   r   ?  \r                
0007440            i   f   n   o   t       P   u   t   s   (   d   s   p
0007460    ,       c   h   a   r   )  \r                           i   f
0007500    s   o           u   n   l   e   s   s       G   e   t   B   i
0007520    t   P   o   s   (   d   s   p   )       l   e       G   e   t
0007540    L   m   a   r   g   ( 376 001  \0   \ 313   d   s   p   )  \r
0007560                                                                d
0007600    o       E   r   a   s   e   B   i   t   s   (   d   s   p   ,
0007620        -   C   h   a   r   W   i   d   t   h   (   s   y   s   F
0007640    o   n   t   ,       $   A   )   ,       0   )  \r            
0007660        r   e   s   u   l   t   i   s       l   v   B   y   t   e
0007700   \r           ]  \r  \r   a   n   d       F   l   a   s   h   S
0007720    c   r   e   e   n   (   )       b   e  \r           [  \r    
0007740                S   e   t   S   c   r   e   e   n   C   o   l   o
0007760    r   (   t   r   u   e   )  \r                   D   i   s   m
0010000    i   s   s   (   6   0   )  \t  \t  \t  \t   /   /       6   0
0010020        x       1   0   m   s   e   c       =       .   6       s
0010040    e   c   s  \r                   S   e   t   S   c   r   e   e
0010060    n   C   o   l   o   r   (   f   a   l   s   e   )  \r        
0010100    ]  \r  \r   a   n   d       S   E   T   S   C   R   E   E   N
0010120    C   O   L   O   R   (   l   v   V   a   l   )       =       v
0010140    a   l   o   f  \r           [  \t  \t   / 376 001  \0   - 271
0010160    /       w   a   s       i   n       L   i   s   p       b   u
0010200    t       L   i   s   p       s   h   o   u   l   d   n   t    
0010220    k   n   o   w       w   h   e   r   e       b   c   p   l    
0010240    c   o   r   e       i   s  \r               S   e   t   S   c
0010260    r   e   e   n   C   o   l   o   r   (   n   o   t       E   q
0010300    N   I   L   (   l   v   V   a   l   )   )  \r               r
0010320    e   s   u   l   t   i   s       l   v   V   a   l  \r        
0010340    ]  \r  \r   a   n   d       S   e   t   S   c   r   e   e   n
0010360    C   o   l   o   r   (   f   l   g   )       b   e  \r        
0010400        [  \r               l   e   t       A   d   r   D   C   B
0010420        =       @   d   i   s   p   l   a   y   L   i   s   t   H
0010440    e   a   d  \t   /   /       c   h   a   n   g   e       t   o
0010460        b   l   a   c   k   /   w   h   i   t   e              \r
0010500                w   h   i   l   e       A   d   r   D   C   B    
0010520    d   o  \t  \t  \t   /   /       e   l   s   e       e   n   d
0010540        o   f       D   C   B       c   h   a   i   n  \r        
0010560  376 001  \0   .   o                   [       A   d   r   D   C
0010600    B   >   >   D   C   B   .   b   a   c   k   g   r   o   u   n
0010620    d       =       f   l   g   ;       A   d   r   D   C   B    
0010640    =       A   d   r   D   C   B   >   >   D   C   B   .   n   e
0010660    x   t       ]  \r               ]  \r  \r   a   n   d       S
0010700    H   O   W   D   I   S   P   L   A   Y   (   l   v   B   l   k
0010720    ,       l   v   R   a   s   t   e   r   W   i   d   t   h   )
0010740        =       v   a   l   o   f  \r               [  \r        
0010760        i   f       E   q   N   I   L   (   l   v   B   l   k   )
0011000        t   h   e   n  \t  \t  \t   /   /       g   i   v   e    
0011020    a   l   l       t   h   e       s   p   a   c   e       t   o
0011040        d   s   p  \r                       [       B   c   p   l
0011060    D   i   s   p   l   a   y   (   8   0   8   )  \t  \t  \t   /
0011100    /       t   h   i   s       t   u   r   n   s       o   f   f
0011120        L   i   s   p       D   i   s   p   l   a   y  \r        
0011140                        D   i   s   p   l   a   y   A   d   d   r
0011160    H   i       =     376 001  \0   E 271   0  \t  \t   /   /    
0011200    t   h   i   s       r   e   c   o   r   d   s       t   h   a
0011220    t  \r                               r   e   s   u   l   t   i
0011240    s       l   v   B   l   k  \r                       ]  \r    
0011260            D   i   s   p   l   a   y   A   d   d   r   H   i    
0011300    =       l   v   B   l   k   >   >   V   A   .   v   a   h   i
0011320   \r   /   /       f   i   x       u   p       d   c   b       f
0011340    o   r       D   L   i   s   p   D   i   s   p   l   a   y    
0011360    -       o   t   h   e   r       f   i   e   l   d   s       a
0011400    r   e       O   K       a   l   r   e   a   d   y  \r        
0011420        D   L   i   s   p   D   C   B   >   >   E   D   C   B   .
0011440    w   i   d   t   h       =       S   m   a   l   l   U   n   b
0011460    o   x   (   l   v   R   a   s   t   e   r   W   i   d   t   h
0011500    )  \r               D   L   i   s   p   D   C   B   >   >   E
0011520    D   C   B   .   L   o   n   g   P   t   r   F   l   g       =
0011540        t   r   u   e  \r               D   L   i   s   p   D   C
0011560    B   >   >   E   D   C   B   .   b   i 376 001  \0 335   D   t
0011600    m   a   p       =       L   o   n   g   D   C   B   S   e   a
0011620    l  \r               D   L   i   s   p   D   C   B   >   >   E
0011640    D   C   B   .   n   S   c   a   n   L   i   n   e   s       =
0011660        4   0   4  \r               D   L   i   s   p   D   C   B
0011700    >   >   E   D   C   B   .   A   d   d   r   H   i       =    
0011720    l   v   B   l   k   >   >   V   A   .   v   a   h   i  \r    
0011740            D   L   i   s   p   D   C   B   >   >   E   D   C   B
0011760    .   A   d   d   r   L   o       =       l   v   B   l   k   >
0012000    >   V   A   .   v   a   l   o  \r               S   h   o   w
0012020    D   i   s   p   l   a   y   S   t   r   e   a   m   (   d   l
0012040    i   s   p   D   s   p   ,       D   S   a   l   o   n   e   )
0012060   \r               r   e   s   u   l   t   i   s       l   v   B
0012100    l   k  \r               ]  \r  \r   a   n   d       B   c   p
0012120    l   D   i   s   p   l   a   y   (   n   S   c   a   n   L   i
0012140    n   e   s   )       b   e  \r           [  \r   /   /       T
0012160    u   r   n   s       o   n       d   s   p   ,       g   i 376
0012200  001  \0 022 376   v   i   n   g       i   t       n   S   c   a
0012220    n   L   i   n   e   s       o   f       d   i   s   p   l   a
0012240    y       s   p   a   c   e   .       I   f       i   t       i
0012260    s       r   u   n   n   i   n   g   ,  \r   /   /       t   h
0012300    e       D   L   i   s   p       d   i   s   p   l   a   y    
0012320    i   s       t   u   r   n   e   d       o   f   f   ,       b
0012340    e   c   a   u   s   e       w   e       a   r   e       a   b
0012360    o   u   t       t   o       s   h   o   w       d   s   p    
0012400    a   l   o   n   e   .  \r               i   f       D   i   s
0012420    p   l   a   y   A   d   d   r   H   i       t   h   e   n    
0012440    S   h   o   w   D   i   s   p   l   a   y   S   t   r   e   a
0012460    m   (   d   l   i   s   p   D   s   p   ,       D   S   d   e
0012500    l   e   t   e   )  \r  \r               d   s   p   S   c   a
0012520    n   L   i   n   e   s       =       n   S   c   a   n   L   i
0012540    n   e   s  \r               l   e   t       n   l   i   n   e
0012560    s       =       (   n   S   c   a   n   L   i   n   e   s   /
0012600    (   s   y   s 376 001  \0   m 312   F   o   n   t   !   -   2
0012620    )   )       -       1  \r  \r               i   f       (   d
0012640    s   p       n   e       0   )       &       (   d   s   p   >
0012660    >   D   i   s   p   S   t   r   m   .   n   l       n   e    
0012700    n   l   i   n   e   s   )       t   h   e   n  \r            
0012720                [       S   h   o   w   D   i   s   p   l   a   y
0012740    S   t   r   e   a   m   (   d   s   p   ,       D   S   d   e
0012760    l   e   t   e   )   ;       C   l   o   s   e   s   (   d   s
0013000    p   )   ;       d   s   p   =   0       ]  \r  \r            
0013020    i   f       (   d   s   p       e   q       0   )       &    
0013040    (   n   l   i   n   e   s       g   r       0   )       t   h
0013060    e   n  \r                       [       d   s   p       =    
0013100    C   r   e   a   t   e   D   i   s   p   l   a   y   S   t   r
0013120    e   a   m   (   n   l   i   n   e   s   ,       d   s   p   S
0013140    t   a   r   t   A   d   d   r   ,       d   s   p   A   r   e
0013160    a   ,       s   y   s   F   o   n   t   )  \r                
0013200                S   h   o   w   D   i 376 001  \0 002 307   s   p
0013220    l   a   y   S   t   r   e   a   m   (   d   s   p   ,       D
0013240    S   a   l   o   n   e   )  \r                       ]  \r    
0013260        ]  \r  \r   a   n   d       A   d   d   T   o   B   c   p
0013300    l   D   i   s   p   l   a   y   (   p   t   r   ,       N   ,
0013320        S   )       b   e  \r           [  \r   /   /           A
0013340    d   d       N       w   o   r   d   s       a   n   d       S
0013360        s   c   a   n   l   i   n   e   s       t   o       d   s
0013400    p   A   r   e   a       i   f       p   t   r       i   s    
0013420    a   t       e   n   d       o   f       d   s   p   A   r   e
0013440    a  \r                   i   f       p   t   r       e   q    
0013460    (   d   s   p   S   t   a   r   t   A   d   d   r       +    
0013500    d   s   p   A   r   e   a   )       t   h   e   n       d   s
0013520    p   A   r   e   a       =       d   s   p   A   r   e   a    
0013540    +       N  \r                   B   c   p   l   D   i   s   p
0013560    l   a   y   (   d   s   p   S   c   a   n   L   i   n   e   s
0013600        +       S   )  \r                   i   f       D 376 001
0013620   \0 322   g   i   s   p   l   a   y   A   d   d   r   H   i    
0013640    t   h   e   n       S   h   o   w   D   i   s   p   l   a   y
0013660    S   t   r   e   a   m   (   d   l   i   s   p   D   s   p   ,
0013700        D   S   b   e   l   o   w   ,       d   s   p   )  \r    
0013720                i   f       V   M   D   i   s   p   l   a   y    
0013740    t   h   e   n       S   h   o   w   D   i   s   p   l   a   y
0013760    S   t   r   e   a   m   (   V   M   D   i   s   p   l   a   y
0014000    ,       D   S   a   b   o   v   e   ,       d   s   p   )  \r
0014020            ]  \r  \r   a   n   d       S   t   e   a   l   F   r
0014040    o   m   B   c   p   l   D   i   s   p   l   a   y   (   N   ,
0014060        S   )       =       v   a   l   o   f  \r           [  \r
0014100    /   /           T   a   k   e       N       w   o   r   d   s
0014120        a   n   d       S       s   c   a   n   l   i   n   e   s
0014140        f   r   o   m       d   s   p   A   r   e   a   ,       i
0014160    f       d   s   p   A   r   e   a       i   s       b   i   g
0014200    g   e   r       t   h   a   n       N  \r                   i
0014220    f       N 376 001  \0 324   v       g   e       d   s   p   A
0014240    r   e   a       t   h   e   n       C   a   l   l   S   w   a
0014260    t   (   "   T   o   o       g   r   e   e   d   y   "   )  \r
0014300                    d   s   p   A   r   e   a       =       d   s
0014320    p   A   r   e   a       -       N  \r                   B   c
0014340    p   l   D   i   s   p   l   a   y   (   d   s   p   S   c   a
0014360    n   L   i   n   e   s       -       S   )  \r                
0014400    i   f       D   i   s   p   l   a   y   A   d   d   r   H   i
0014420        t   h   e   n       S   h   o   w   D   i   s   p   l   a
0014440    y   S   t   r   e   a   m   (   d   l   i   s   p   D   s   p
0014460    ,       D   S   b   e   l   o   w   ,       d   s   p   )  \r
0014500                    i   f       V   M   D   i   s   p   l   a   y
0014520        t   h   e   n       S   h   o   w   D   i   s   p   l   a
0014540    y   S   t   r   e   a   m   (   V   M   D   i   s   p   l   a
0014560    y   ,       D   S   a   b   o   v   e   ,       d   s   p   )
0014600   \r                   l   e   t       p   t   r       =       d
0014620    s   p   S   t   a   r   t   A 376  \0   5   > 006   d   d   r
0014640        +       d   s   p   A   r   e   a  \r                   Z
0014660    e   r   o   (   p   t   r   ,       N   )  \r                
0014700    r   e   s   u   l   t   i   s       p   t   r  \r           ]
0014720   \r  \r 377  \0  \0   D   u   m   m   y   I   n   i   t   .   b
0014740    c   p   l  \0 373 227 336 304   7  \0  \0 376  \0 245   O 240
0014760    /   /       D   u   m   m   y   I   n   i   t   .   b   c   p
0015000    l   .           P   l   a   c   e   h   o   l   d   e   r    
0015020    i   n       l   o   a   d   u   p   .  \r   /   /       L   a
0015040    s   t       c   h   a   n   g   e       S   e   p   t   e   m
0015060    b   e   r       2   7   ,       1   9   8   1           1   0
0015100    :   5   6       P   M       b   y       B   i   l   l       v
0015120    a   n       M   e   l   l   e  \r  \r   e   x   t   e   r   n
0015140    a   l       S   t   a   r   t   O   f   A   l   l   o   c   B
0015160    l   o   c   k  \r  \r   l   e   t       S   t   a   r   t   O
0015200    f   A   l   l   o   c   B   l   o   c   k   (   )       b   e
0015220        [       ]  \r 377  \0  \0   F   i   l   e   I   O   S   u
0015240    b   r   s   .   b   c   p   l  \0 373 232 373 256 207  \0  \0
0015260  376 001  \0 031   T   /   /       F   i   l   e   I   O   S   u
0015300    b   r   s   .   b   c   p   l  \r   /   /       L   a   s   t
0015320        c   h   a   n   g   e       M   a   y       2   5   ,    
0015340    1   9   8   3           1   0   :   4   4       A   M       b
0015360    y       B   i   l   l       v   a   n       M   e   l   l   e
0015400   \r   /   /       L   a   s   t       c   h   a   n   g   e    
0015420    A   p   r   i   l       5   ,       1   9   8   3           4
0015440    :   4   8       P   M       b   y       B   i   l   l       v
0015460    a   n       M   e   l   l   e  \r   /   /       M   a   j   o
0015500    r       p   r   u   n   i   n   g       D   e   c   e   m   b
0015520    e   r       1   4   ,       1   9   8   2           2   :   4
0015540    7       P   M       b   y       B   i   l   l       v   a   n
0015560        M   e   l   l   e  \r   /   /       L   a   s   t       c
0015600    h   a   n   g   e       O   c   t   o   b   e   r       2   5
0015620    ,       1   9   8   2           1   2   :   4   3       P   M
0015640        b   y       B   i   l   l       v   a   n       M   e   l
0015660    l   e  \r   /   / 376 001  \0   u 203       L   a   s   t    
0015700    c   h   a   n   g   e       J   u   l   y       2   1   ,    
0015720    1   9   8   2           9   :   5   0       P   M       b   y
0015740        B   i   l   l       v   a   n       M   e   l   l   e  \r
0015760    /   /       L   a   s   t       c   h   a   n   g   e       M
0016000    a   r   c   h       2   9   ,       1   9   8   2           3
0016020    :   5   3       P   M       b   y       B   i   l   l       v
0016040    a   n       M   e   l   l   e  \r   /   /       L   a   s   t
0016060        c   h   a   n   g   e       A   u   g   u   s   t       2
0016100    ,       1   9   8   1           1   2   :   4   3       A   M
0016120        b   y       B   e   a   u       S   h   e   i   l  \r   /
0016140    /       T   o   n   e       c   h   a   n   g   e       M   a
0016160    r   c   h       1   7   ,       1   9   8   1           4   :
0016200    4   9       P   M       b   y       B   e   a   u       S   h
0016220    e   i   l  \r   /   /       C   h   o   r   d       c   h   a
0016240    n   g   e       N   o   v   e   m   b   e   r       2   0   ,
0016260        1   9   8   0           2   :   5 376 001  \0 215  \n   2
0016300        P   M       b   y       B   e   a   u       S   h   e   i
0016320    l  \r   /   /       P   r   e   v   i   o   u   s       l   a
0016340    s   t       c   h   a   n   g   e       A   u   g   u   s   t
0016360        1   8   ,       1   9   8   0           1   2   :   3   1
0016400        P   M       b   y       B   e   a   u       S   h   e   i
0016420    l  \r  \r  \t   g   e   t       "   A   l   t   o   F   i   l
0016440    e   S   y   s   .   d   "  \r  \t   g   e   t       "   D   i
0016460    s   k   s   .   d   "  \r  \t   g   e   t       "   L   i   s
0016500    p   B   c   p   l   .   d   e   c   l   "  \r  \t   g   e   t
0016520        "   S   t   a   t   s   .   d   e   c   l   "  \r  \t   g
0016540    e   t       "   S   t   r   e   a   m   s   .   d   "  \r  \r
0016560    e   x   t   e   r   n   a   l       [  \t   /   /       d   e
0016600    f   i   n   e   d       h   e   r   e  \r  \t   C   O   P   Y
0016620    S   Y   S   0   S   U   B   R  \r  \r  \t   O   u   t   p   u
0016640    t   S   t   r   e   a   m  \t  \t   /   /       u   s   e   d
0016660        b   y       s   t   a   t   s       t   o       a   c 376
0016700  001  \0   O   m   c   e   s   s       l   o   g       f   i   l
0016720    e  \r  \r  \t  \t   /   /       s   t   a   t   i   c   s    
0016740    u   s   e   d  \r  \t   @   l   v   N   I   L   ;       @   T
0016760    o   p   L   e   v   e   l   F   r   a   m   e  \r  \t   s   y
0017000    s   D   i   s   k   ;       L   i   s   p   F   m   a   p   ;
0017020        @   M   i   s   c   S   T   A   T   S   b   a   s   e  \r
0017040   \r  \t  \t   /   /       O   .   S   .       p   r   o   c   e
0017060    d   u   r   e   s       u   s   e   d  \r  \t   R   e   s   e
0017100    t   s   ;       C   l   o   s   e   s   ;       W   r   i   t
0017120    e   B   l   o   c   k   ;       Z   e   r   o   ;       C   a
0017140    l   l   S   w   a   t   ;       M   i   n   ;       M   y   F
0017160    r   a   m   e  \r  \t   T   r   u   n   c   a   t   e   D   i
0017200    s   k   S   t   r   e   a   m   ;       C   r   e   a   t   e
0017220    D   i   s   k   S   t   r   e   a   m   ;       A   c   t   O
0017240    n   D   i   s   k   P   a   g   e   s   ;       W   r   i   t
0017260    e   D   i   s   k   P   a   g   e   s      \r  \t   F   l   u
0017300    s   h   D   D 376 001  \0   \   k  \r  \r  \t  \t   /   /    
0017320    p   r   o   c   e   d   u   r   e   s       u   s   e   d  \r
0017340   \t   @   B   G   e   t   B   a   s   e   ;       @   B   S   e
0017360    t   B   R   ;       @   X   S   e   t   R   e   a   d   B   R
0017400    ;       @   R   R   e   a   d  \r  \t   @   X   G   e   t   B
0017420    a   s   e   ;       I   G   e   t   B   a   s   e   ;       I
0017440    P   u   t   B   a   s   e  \r  \t   E   q   N   I   L   ;    
0017460    R   A   I   D   C   o   d   e   ;       E   m   U   n   b   o
0017500    x   ;       E   m   A   d   d   r  \r  \t   S   m   a   l   l
0017520    U   n   b   o   x   ;       M   k   S   m   a   l   l   P   o
0017540    s   ;       M   k   S   m   a   l   l   N   e   g  \r  \t   S
0017560    y   s   E   r   r   ;       I   n   d   e   x   e   d   P   a
0017600    g   e   I   O  \r  \t   ]  \r  \r   m   a   n   i   f   e   s
0017620    t       [  \r  \t   l   e   n   C   B       =       #   2   5
0017640   \r  \t   I   F   P   c   b   s   t   a   r   t       =       #
0017660    2   0   0  \r  \t   ]  \r  \r   l   e   t       G   e   t   F
0017700    p   t   r   A   r   g   (   l   v 376 001  \0 251 250   F   p
0017720    t   r   ,       f   )       b   e  \r               [  \r    
0017740            X   S   e   t   R   e   a   d   B   R   (   l   v   F
0017760    p   t   r   )  \r               f   o   r       i       =    
0020000    0       t   o       l   F   P   -   1       d   o       f   !
0020020    i       =       R   R   e   a   d   (   i   )  \r            
0020040    ]  \r  \r   a   n   d       H   i   n   t   E   r   r   o   r
0020060    (   s   ,       c   b   ,       c   o   d   e   )       =    
0020100    v   a   l   o   f  \t   /   /       B   F   S       e   r   r
0020120    o   r   s       -       d   i   f   f       a   r   g   s    
0020140    f   r   o   m       S   y   s   E   r   r  \r               [
0020160   \r               M   y   F   r   a   m   e   (   )   !   0    
0020200    =       T   o   p   L   e   v   e   l   F   r   a   m   e  \t
0020220   \t   /   /       s   e   t       r   e   t   u   r   n       a
0020240    d   d   r       t   o       r   e   t   u   r   n       f   r
0020260    o   m       S   U   B   R  \r               r   e   s   u   l
0020300    t   i   s       s   e   l   e   c   t   o   n       c 376 001
0020320   \0   I 001   o   d   e       i   n   t   o  \t  \t   /   /    
0020340    e   r   r   o   r       c   o   d   e       s   w   i   t   c
0020360    h  \r                                                        
0020400        [       c   a   s   e       1   1   0   2   :       M   k
0020420    S   m   a   l   l   N   e   g   (   -   2   2   )  \t   /   /
0020440        e   r   r   o   r       2   2       i   f       d   i   s
0020460    k       f   u   l   l  \r                                    
0020500                                    c   a   s   e       1   1   0
0020520    5   :       M   k   S   m   a   l   l   N   e   g   (   -   4
0020540    1   )  \t   /   /       e   r   r   o   r       4   1       i
0020560    f       p   r   o   t   e   c   t   e   d  \r                
0020600                                                        d   e   f
0020620    a   u   l   t   :               S   y   s   E   r   r   (   0
0020640    ,       c   o   d   e   )       ]  \r           ]      \r  \r
0020660    a   n   d       O   u   t   p   u   t   S   t   r   e   a   m
0020700    (   l   v   F   i   d   )       =       v   a   l   o   f  \r
0020720              376 001  \0   t 260   [  \r               l   e   t
0020740        f   p       =       v   e   c       l   F   P   ;       G
0020760    e   t   F   p   t   r   A   r   g   (   l   v   F   i   d   ,
0021000        f   p   )  \r               l   e   t       s   t       =
0021020        C   r   e   a   t   e   D   i   s   k   S   t   r   e   a
0021040    m   (   f   p   ,       k   s   T   y   p   e   W   r   i   t
0021060    e   O   n   l   y   ,       w   o   r   d   I   t   e   m   ,
0021100        0   ,       S   t   r   e   a   m   E   r   r   o   r   )
0021120   \r               u   n   l   e   s   s       s   t       d   o
0021140        R   A   I   D   C   o   d   e   (   "   C   a   n   t    
0021160    c   r   e   a   t   e       s   t   r   e   a   m   "   ,    
0021200    l   v   F   i   d   )  \r               r   e   s   u   l   t
0021220    i   s       s   t  \r               ]  \r  \r   a   n   d    
0021240    C   O   P   Y   S   Y   S   0   S   U   B   R   (   l   v   F
0021260    i   d   )       =       v   a   l   o   f  \r               [
0021300   \r               l   e   t       s   t       =       O   u   t
0021320    p   u   t   S   t   r   e   a 376 001  \0 003 333   m   (   l
0021340    v   F   i   d   )  \r               l   e   t       p   v   e
0021360    c       =       v   e   c       4   *   W   o   r   d   s   P
0021400    e   r   P   a   g   e  \r               Z   e   r   o   (   p
0021420    v   e   c   ,       W   o   r   d   s   P   e   r   P   a   g
0021440    e   )  \r               W   r   i   t   e   B   l   o   c   k
0021460    (   s   t   ,       p   v   e   c   ,       W   o   r   d   s
0021500    P   e   r   P   a   g   e   )  \t   /   /       p   a   g   e
0021520        1       <   -       i   s   f       i   n   d   e   x    
0021540    p   a   g   e  \r  \r               l   e   t       L   a   s
0021560    t       =       I   G   e   t   B   a   s   e   (   I   F   P
0021600    N   A   c   t   i   v   e   P   a   g   e   s   )       +    
0021620    F   i   r   s   t   V   m   e   m   B   l   o   c   k       -
0021640        1  \r               l   e   t       i       =       F   i
0021660    r   s   t   V   m   e   m   B   l   o   c   k  \r            
0021700    [       l   e   t       n   p       =       M   i   n   (   L
0021720    a   s   t       -       i   ,           4   )  \r 376 001  \0
0021740  250 365                       I   n   d   e   x   e   d   P   a
0021760    g   e   I   O   (   L   i   s   p   F   m   a   p   ,       i
0022000    ,       p   v   e   c   ,       n   p   ,       1   )  \r    
0022020                    W   r   i   t   e   B   l   o   c   k   (   s
0022040    t   ,       p   v   e   c   ,       n   p   *   W   o   r   d
0022060    s   P   e   r   P   a   g   e   )  \r                       i
0022100        =       i       +       n   p  \r               ]       r
0022120    e   p   e   a   t   u   n   t   i   l       i       g   e    
0022140    L   a   s   t  \r  \r               T   r   u   n   c   a   t
0022160    e   D   i   s   k   S   t   r   e   a   m   (   s   t   )  \t
0022200   \t  \t   /   /       i   n       c   a   s   e       u   s   i
0022220    n   g       o   l   d       f   i   l   e  \r               R
0022240    e   s   e   t   s   (   s   t   )   ;       C   l   o   s   e
0022260    s   (   s   t   )  \r               r   e   s   u   l   t   i
0022300    s       l   v   N   I   L  \r               ]  \r  \r   a   n
0022320    d       S   t   r   e   a   m   E   r   r   o   r   (   s   ,
0022340        c 376  \0   ; 205 204   o   d   e   )       =       H   i
0022360    n   t   E   r   r   o   r   (   s   ,       0   ,       c   o
0022400    d   e   )  \t   /   /       a   d   j   u   s   t       a   r
0022420    g   s       f   o   r       H   i   n   t   E   r   r   o   r
0022440       \r 377  \0  \0   K   b   d   D   e   f   s   .   d  \0 373
0022460  232 001   z   #  \0  \0 376 001  \0 214   U   /   /  \r   /   /
0022500        D   e   f   i   n   i   t   i   o   n   s       f   o   r
0022520        B   C   P   L   -   c   o   d   e   d       k   e   y   b
0022540    o   a   r   d       p   a   c   k   a   g   e  \r   /   /    
0022560    l   a   s   t       e   d   i   t   e   d       N   o   v   e
0022600    m   b   e   r       1   6   ,       1   9   8   2           2
0022620    :   5   4       P   M       b   y       B   i   l   l       v
0022640    a   n       M   e   l   l   e  \r   /   /  \r   /   /       C
0022660    o   p   y   r   i   g   h   t       X   e   r   o   x       C
0022700    o   r   p   o   r   a   t   i   o   n       1   9   7   9   ,
0022720        1   9   8   0   ,       1   9   8   1  \r  \r  \r   m   a
0022740    n   i   f   e   s   t       N   o   O   f   K   e   y   s    
0022760    =       7   2  \t   /   /       6   4       k   e   y   b   o
0023000    a   r   d       k   e   y   s   ,       8       b   u   t   t
0023020    o   n   s  \r   s   t   r   u   c   t   u   r   e       I   n
0023040    p   u   t   D   a   t   u   m   M   a   p       [       c   o
0023060    d   e   ^   0   ,   (   N   o   O   f   K 376 001  \0   B 353
0023100    e   y   s   -   1   )       b   y   t   e       ]  \r      \r
0023120    s   t   r   u   c   t   u   r   e       U   s   e   r   S   t
0023140    a   t   e       [  \t   k   e   y   s  \t   w   o   r   d    
0023160    5  \r  \t   ]  \r   m   a   n   i   f   e   s   t       U   S
0023200    s   i   z   e       =       5  \r  \r   m   a   n   i   f   e
0023220    s   t       [  \r  \t   U   p   S   t   r   o   k   e       =
0023240        #   1   0  \t   /   /       m   u   s   t       b   e    
0023260    #   1   0  \r  \t   D   o   w   n   S   t   r   o   k   e    
0023300    =       0  \t   /   /       m   u   s   t       b   e       0
0023320   \r  \t   ]  \r  \r   m   a   n   i   f   e   s   t       [  \r
0023340   \t   K   e   y   b   o   a   r   d   L   e   v   e   l  \t   =
0023360        1   3  \r  \t   b   u   t   t   o   n   s  \t  \t   =    
0023400    #   1   7   7   0   3   0  \r  \t   K   e   y   s  \t  \t   =
0023420        #   1   7   7   0   3   4  \r  \t   c   u   r   s   o   r
0023440    X   m   a   x  \t   =       6   0   6   -   1   6  \r  \t   c
0023460    u   r   s   o   r   Y   m   a   x  \t   =       8   0   8  \r
0023500  376 001  \0 211 303           ]  \r  \r   /   /       t   h   e
0023520        i   n   p   u   t       k   e   y   s       u   s   e    
0023540    t   h   e       s   t   a   n   d   a   r   d       A   S   C
0023560    I   I       e   n   c   o   d   i   n   g  \r   /   /       t
0023600    h   e       m   o   u   s   e       a   n   d       k   e   y
0023620    s   e   t       u   s   e       #   2   0   0       a   n   d
0023640        a   b   o   v   e  \r   /   /  \r   m   a   n   i   f   e
0023660    s   t       x   x   x       =       0  \r   m   a   n   i   f
0023700    e   s   t       [  \r  \t   c   t   r   l  \t   =       x   x
0023720    x  \r  \t   h   s   1  \t   =       #   2   0   7  \r  \t   h
0023740    s   2  \t   =       #   2   0   6  \r  \t   h   s   3  \t   =
0023760        #   2   0   5  \r  \t   h   s   4  \t   =       #   2   0
0024000    4  \r  \t   h   s   5  \t   =       #   2   0   3  \r  \t   m
0024020    b   1  \t   =       #   2   0   2  \r  \t   m   b   2  \t   =
0024040        #   2   0   1  \r  \t   m   b   3  \t   =       #   2   0
0024060    0  \r  \t   e   s   c  \t   =           #   3   3  \r  \t   t
0024100    a   b  \t   =     376 001  \0 035   U       #   1   1  \r  \t
0024120    l   f  \t   =           #   1   2  \r  \t   d   e   l  \t   =
0024140        #   1   7   7  \r  \t   b   s  \t   =               #   1
0024160   \r  \t   s   p   r   1  \t   =       #   3   0   1  \r  \t   r
0024200    t   n  \t   =           #   1   5  \r  \t   s   p   r   2  \t
0024220    =       #   3   0   2  \r  \t   s   p   r   3  \t   =       #
0024240    3   0   3  \r  \t   s   p   a   c   e  \t   =           #   4
0024260    0  \r  \t   l   s   h   f   t  \t   =       x   x   x  \r  \t
0024300    r   s   h   f   t  \t   =       x   x   x  \r  \t   l   o   c
0024320    k  \t   =       x   x   x  \r  \t   C   T   R   L  \t   =    
0024340    c   t   r   l  \r  \t   H   S   1  \t   =       h   s   1  \r
0024360   \t   H   S   2  \t   =       h   s   2  \r  \t   H   S   3  \t
0024400    =       h   s   3  \r  \t   H   S   4  \t   =       h   s   4
0024420   \r  \t   H   S   5  \t   =       h   s   5  \r  \t   M   B   1
0024440   \t   =       m   b   1  \r  \t   M   B   2  \t   =       m   b
0024460    2  \r  \t   M   B   3  \t   =       m   b   3  \r  \t   E   S
0024500    C  \t   =           #   3   3  \r  \t 376  \0 245   ;   v   T
0024520    A   B  \t   =           #   1   1  \r  \t   L   F  \t   =    
0024540        #   1   2  \r  \t   D   E   L  \t   =       #   1   7   7
0024560   \r  \t   B   S  \t   =               #   1  \r  \t   S   P   R
0024600    1  \t   =       s   p   r   1  \r  \t   R   T   N  \t   =    
0024620        #   1   5  \r  \t   S   P   R   2  \t   =       s   p   r
0024640    2  \r  \t   S   P   R   3  \t   =       s   p   r   3  \r  \t
0024660    S   P   A   C   E  \t   =           #   4   0  \r  \t   L   S
0024700    H   F   T  \t   =       l   s   h   f   t  \r  \t   R   S   H
0024720    F   T  \t   =       r   s   h   f   t  \r  \t   L   O   C   K
0024740   \t   =       l   o   c   k  \r  \t   S  \t   =       #   4   0
0024760    0  \r   ]  \r 377  \0  \0   K   b   d   I   o   S   u   b   r
0025000    s   .   b   c   p   l  \0 373 233   J 021 365  \0  \0 376 001
0025020   \0 271   ~   /   /       K   b   d   I   O   S   u   b   r   s
0025040    .   b   c   p   l  \r   /   /       L   a   s   t       c   h
0025060    a   n   g   e       J   u   l   y       2   3   ,       1   9
0025100    8   3           9   :   4   5       P   M       b   y       B
0025120    i   l   l       v   a   n       M   e   l   l   e  \r   /   /
0025140        M   a   j   o   r       p   r   u   n   i   n   g       D
0025160    e   c   e   m   b   e   r       1   4   ,       1   9   8   2
0025200            2   :   5   5       P   M       b   y       B   i   l
0025220    l       v   a   n       M   e   l   l   e  \r   /   /       L
0025240    a   s   t       c   h   a   n   g   e       J   u   l   y    
0025260    2   1   ,       1   9   8   2           9   :   5   1       P
0025300    M       b   y       B   i   l   l       v   a   n       M   e
0025320    l   l   e  \r   /   /       W   i   n   d       c   h   a   n
0025340    g   e       A   p   r   i   l       2   9   ,       1   9   8
0025360    2           1   2   :   4   7       P   M       b   y       B
0025400    i   l   l       v   a   n       M   e   l   l   e  \r   /   /
0025420        L   a 376 001  \0   Y 334   s   t       c   h   a   n   g
0025440    e       J   a   n   u   a   r   y       1   4   ,       1   9
0025460    8   2           6   :   3   2       P   M       b   y       B
0025500    i   l   l       v   a   n       M   e   l   l   e  \r   /   /
0025520        L   a   s   t       c   h   a   n   g   e       O   c   t
0025540    o   b   e   r       1   ,       1   9   8   1           1   2
0025560    :   0   3       P   M       b   y       B   i   l   l       v
0025600    a   n       M   e   l   l   e  \r   /   /       L   a   s   t
0025620        c   h   a   n   g   e       M   a   y       1   4   ,    
0025640    1   9   8   1           1   2   :   5   1       A   M       b
0025660    y       B   e   a   u       S   h   e   i   l  \r   /   /    
0025700    P   a   t   c   h   e   d       T   o   n   e       c   h   a
0025720    n   g   e       A   p   r   i   l       2   ,       1   9   8
0025740    1           1   :   2   6       A   M       b   y       B   e
0025760    a   u       S   h   e   i   l      \r   /   /       L   a   s
0026000    t       c   h   a   n   g   e       F   e   b   r   u   a   r
0026020    y       6   ,       1   9   8 376 001  \0 334   0   1        
0026040    2   :   0   1       P   M       b   y       B   e   a   u    
0026060    S   h   e   i   l  \r   /   /       L   a   s   t       c   h
0026100    a   n   g   e       D   e   c   e   m   b   e   r       1   1
0026120    ,       1   9   8   0           1   0   :   2   1       P   M
0026140        b   y       B   e   a   u       S   h   e   i   l  \r   /
0026160    /       C   h   o   r   d       c   h   a   n   g   e       N
0026200    o   v   e   m   b   e   r       1   9   ,       1   9   8   0
0026220            8   :   4   8       P   M       b   y       B   e   a
0026240    u       S   h   e   i   l  \r  \r  \t   g   e   t       "   A
0026260    l   t   o   D   e   f   s   .   d   "  \r  \t   g   e   t    
0026300    "   L   i   s   p   B   c   p   l   .   d   e   c   l   "  \r
0026320   \t   g   e   t       "   K   b   d   D   e   f   s   .   d   "
0026340   \r  \t   g   e   t       "   S   t   r   e   a   m   s   .   d
0026360    "  \r  \t   g   e   t       "   S   y   s   D   e   f   s   .
0026400    d   "  \r  \r   e   x   t   e   r   n   a   l       [  \t  \t
0026420   \t   /   /       S   U   B   R   S       d   e   f 376 001  \0
0026440  314 016   i   n   e   d  \r  \t   N   W   W   I   n   t   e   r
0026460    r   u   p   t  \r  \t  \t  \t  \t   /   /       o   t   h   e
0026500    r       p   r   o   c   e   d   u   r   e   s       d   e   f
0026520    i   n   e   d  \r  \t   K   B   D   i   n   i   t  \r  \t  \t
0026540   \t  \t   /   /       s   t   a   t   i   c   s       d   e   f
0026560    i   n   e   d  \r  \t   k   e   y   s  \r  \t  \t  \t  \t   /
0026600    /       O   S       p   r   o   c   e   d   u   r   e   s    
0026620    u   s   e   d  \r  \t   F   i   n   d   I   n   t   e   r   r
0026640    u   p   t   M   a   s   k   ;       I   n   i   t   i   a   l
0026660    i   z   e   I   n   t   e   r   r   u   p   t   ;       C   a
0026700    l   l   S   w   a   t   ;       B   l   o   c   k  \r  \t   G
0026720    e   t   s   ;       P   u   t   s   ;       E   n   d   o   f
0026740    s   ;       R   e   s   e   t   s   ;       M   a   x   ;    
0026760    M   i   n   ;       S   e   t   B   l   o   c   k   ;       Z
0027000    e   r   o   ;       M   o   v   e   B   l   o   c   k  \r  \r
0027020   \t  \t  \t  \t   /   /       o   t   h   e   r       p   r   o
0027040    c   s 376 001  \0   6 350  \r  \t   A   l   l   o   c   V   e
0027060    c   ;       R   A   I   D   C   o   d   e   ;       F   l   a
0027100    s   h   S   c   r   e   e   n  \r  \r  \t  \t  \t  \t   /   /
0027120        s   t   a   t   i   c   s       u   s   e   d  \r  \t   O
0027140    s   B   u   f   f   e   r   ;       @   l   v   N   I   L   ;
0027160        @   R   M   S   K   ;       S   c   r   e   e   n   W   i
0027200    d   t   h  \r  \t   l   i   s   p   S   t   a   r   t   e   d
0027220    ;       i   n   s   i   d   e   R   a   i   d  \r  \t   ]  \r
0027240   \r   s   t   a   t   i   c           [  \r  \t   @   K   B   D
0027260    F   l   g       =       f   a   l   s   e  \r  \t   @   N   e
0027300    w   U   S   ;       @   O   l   d   U   S  \r  \t   k   e   y
0027320    s  \r  \t   L   o   c   k   S   h   i   f   t  \r  \t   @   D
0027340    o   w   n   S   t   r   o   k   e   s   ;       @   U   p   S
0027360    t   r   o   k   e   s  \r  \t   A   S   C   I   I   m   a   p
0027400   \r  \t   @   M   E   Q   L   o   ;       @   M   E   Q   H   i
0027420   \r  \t   S   c   r   e   e   n   W   i   d   t   h   =       1
0027440    0   0   0  \t   /   /     376 001  \0 310 263   t   o       u
0027460    s   e       f   o   r       c   l   i   p   p   i   n   g    
0027500    u   n   t   i   l       I   n   i   t       L   i   s   p   R
0027520    e   g   s  \r  \t   ]  \r  \r   m   a   n   i   f   e   s   t
0027540        [  \r  \t   K   B   S   t   a   c   k   S   i   z   e    
0027560    =       2   5   6  \t  \t  \t   /   /       s   t   a   c   k
0027600        d   e   p   t   h       f   o   r       i   n   t   e   r
0027620    r   u   p   t   s  \r  \t   T   r   a   c   k   M   o   u   s
0027640    e       =       t   r   u   e  \r  \t   ]  \r  \r   s   t   r
0027660    u   c   t   u   r   e       [  \t  \t   /   /       f   u   n
0027700    c   t   i   o   n       k   e   y   s  \r  \t   b   l   a   n
0027720    k       w   o   r   d       2  \r  \t   b   l   a   n   k    
0027740    b   i   t       4   ;       C   t   r   l   B   i   t       b
0027760    i   t   ;       b   l   a   n   k       b   i   t       4   ;
0030000        L   S   h   i   f   t   B   i   t       b   i   t   ;    
0030020    b   l   a   n   k       b   i   t       6  \r  \t   b   l   a
0030040    n   k       b   y   t   e   ;       L   o   c 376 001  \0 206
0030060    d   k   S   h   i   f   t   B   i   t       b   i   t   ;    
0030100    b   l   a   n   k       b   i   t       3   ;       R   S   h
0030120    i   f   t   B   i   t       b   i   t   ;       S   w   a   t
0030140    B   i   t       b   i   t   ;       b   l   a   n   k       b
0030160    i   t       2  \r  \t   ]  \r  \r   /   /       N   o   r   m
0030200    a   l   l   y       i   n   i   t       c   o   d   e       l
0030220    i   k   e       K   B   D   i   n   i   t       w   o   u   l
0030240    d       b   e       i   n       a       s   e   p   a   r   a
0030260    t   e       f   i   l   e       s   o       i   t   s       c
0030300    o   d   e  \r   /   /       s   p   a   c   e       c   o   u
0030320    l   d       b   e       r   e   c   l   a   i   m   e   d   ,
0030340        b   u   t       m   o   s   t       o   f       i   t    
0030360    i   s       c   o   n   s   t   a   n   t   s       t   h   a
0030400    t       h   a   v   e       t   o       b   e  \r   /   /    
0030420    a   r   o   u   n   d       a   t       r   u   n       t   i
0030440    m   e       a   n   y   w   a   y   ,       s   o       w   e
0030460      376 001  \0   _ 344   d   o   n   t       b   o   t   h   e
0030500    r   .  \r  \r   l   e   t       K   B   D   i   n   i   t   (
0030520    )       b   e  \r           [  \r               D   o   w   n
0030540    S   t   r   o   k   e   s  \t   =       t   a   b   l   e    
0030560    [       #   1   7   7   7   7   7   ;       #   1   7   7   7
0030600    7   7   ;       #   1   7   3   6   7   6   ;       #   1   7
0030620    7   5   6   4   ;       #   3   7   7       ]  \r            
0030640    U   p   S   t   r   o   k   e   s  \t   =       t   a   b   l
0030660    e       [       #   0   0   0   0   0   0   ;       #   0   0
0030700    0   0   0   0   ;       #   0   0   0   0   0   0   ;       #
0030720    0   0   0   0   0   0   ;       #   3   7   7       ]  \r    
0030740            L   o   c   k   S   h   i   f   t  \t   =       t   a
0030760    b   l   e       [       #   0   1   3   5   2   0   ;       #
0031000    0   3   6   7   4   0   ;       #   0   1   3   6   0   0   ;
0031020        #   1   7   5   4   0   0   ;       #   0   0   0       ]
0031040   \r  \r               A   S   C   I   I   m   a   p       =    
0031060    t   a   b   l   e     376 001  \0 353 355   [  \r   /   /    
0031100    U   n   s   h   i   f   t   e   d       c   h   a   r   a   c
0031120    t   e   r   s   ,       w   o   r   d       0  \r  \t   b   s
0031140    *   S   +   l   f   ;           $   \   *   S   +   $   /   ;
0031160            $   p   *   S   +   $   -   ;           $   k   *   S
0031200    +   $   0   ;  \r  \t   $   v   *   S   +   $   u   ;        
0031220    $   d   *   S   +   $   7   ;           $   e   *   S   +   $
0031240    6   ;           $   4   *   S   +   $   5   ;  \r   /   /    
0031260    w   o   r   d       1  \r  \t   s   p   r   1   *   S   +   s
0031300    p   r   2   ;           $   ]   *   S   +   $   '   ;        
0031320    $   ,   *   S   +   $   l   ;           $   o   *   S   +   $
0031340    x   ;  \r  \t   $   i   *   S   +   $   9   ;                
0031360            $   a   *   S   +   $   s   ;           $   q   *   S
0031400    +   $   w   ;           $   2   *   S   +   $   3   ;  \r   /
0031420    /       w   o   r   d       2  \r  \t   x   x   x   *   S   +
0031440    d   e   l   ;           $   _   *   S   +   r   t   n   ;    
0031460            $   ;   *   S   +   $   .   ;     376 001  \0 204   J
0031500            l   s   h   f   t   *   S   +   $   z   ;  \r  \t   $
0031520    b   *   S   +   $   j   ;                   $   c   *   S   +
0031540    c   t   r   l   ;           $   f   *   S   +   t   a   b   ;
0031560            e   s   c   *   S   +   $   1   ;  \r   /   /       w
0031600    o   r   d       3  \r  \t   x   x   x   *   S   +   x   x   x
0031620    ;           s   p   r   3   *   S   +   r   s   h   f   t   ;
0031640            $   =   *   S   +   $   [   ;           s   p   a   c
0031660    e   *   S   +   l   o   c   k   ;  \r  \t   $   m   *   S   +
0031700    $   n   ;                   $   8   *   S   +   $   h   ;    
0031720                            $   y   *   S   +   $   g   ;        
0031740    $   t   *   S   +   $   r  \r   /   /       B   u   t   t   o
0031760    n   s  \r  \t   m   b   2   *   S   +   m   b   3   ;        
0032000    m   b   1   *   S   +   h   s   5   ;           h   s   4   *
0032020    S   +   h   s   3   ;           h   s   2   *   S   +   h   s
0032040    1   ;  \r   /   /       S   h   i   f   t   e   d       c   h
0032060    a   r   a   c   t   e   r   s   ,       w   o   r   d       0
0032100  376 001  \0 361   (  \r  \t   B   S   *   S   +   L   F   ;    
0032120        $   |   *   S   +   $   ?   ;           $   P   *   S   +
0032140    $   -   ;           $   K   *   S   +   $   )   ;  \r  \t   $
0032160    V   *   S   +   $   U   ;           $   D   *   S   +   $   &
0032200    ;           $   E   *   S   +   $   ~   ;           $   $   *
0032220    S   +   $   %   ;  \r   /   /       w   o   r   d       1  \r
0032240   \t   S   P   R   1   *   S   +   S   P   R   2   ;           $
0032260    }   *   S   +   $   "   ;           $   <   *   S   +   $   L
0032300    ;           $   O   *   S   +   $   X   ;  \r  \t   $   I   *
0032320    S   +   $   (   ;                           $   A   *   S   +
0032340    $   S   ;           $   Q   *   S   +   $   W   ;           $
0032360    @   *   S   +   $   #   ;  \r   /   /       w   o   r   d    
0032400    2  \r  \t   x   x   x   *   S   +   D   E   L   ;           $
0032420    ^   *   S   +   R   T   N   ;               $   :   *   S   +
0032440    $   >   ;               L   S   H   F   T   *   S   +   $   Z
0032460    ;  \r  \t   $   B   *   S   +   $   J   ;                   $
0032500    C   *   S   +   C 376 001  \0 233 221   T   R   L   ;        
0032520    $   F   *   S   +   T   A   B   ;           E   S   C   *   S
0032540    +   $   !   ;  \r   /   /       w   o   r   d       3  \r  \t
0032560    x   x   x   *   S   +   x   x   x   ;           S   P   R   3
0032600    *   S   +   R   S   H   F   T   ;           $   +   *   S   +
0032620    $   {   ;           S   P   A   C   E   *   S   +   L   O   C
0032640    K   ;  \r  \t   $   M   *   S   +   $   N   ;                
0032660    $   *   *   *   S   +   $   H   ;                           $
0032700    Y   *   S   +   $   G   ;           $   T   *   S   +   $   R
0032720   \r   /   /       b   u   t   t   o   n   s  \r  \t   M   B   2
0032740    *   S   +   M   B   3   ;           M   B   1   *   S   +   H
0032760    S   5   ;           H   S   4   *   S   +   H   S   3   ;    
0033000        H   S   2   *   S   +   H   S   1   ;  \r                
0033020                                                                 
0033040    ]  \r  \r               O   l   d   U   S       =       A   l
0033060    l   o   c   V   e   c   (   U   S   s   i   z   e   )  \t  \t
0033100    /   /       F   i   l   l       i   n 376 001  \0 364 256    
0033120    f   r   o   m       K   e   y   s       =       #   1   7   7
0033140    0   3   4  \r               M   o   v   e   B   l   o   c   k
0033160    (   O   l   d   U   S   ,       K   e   y   s   ,       U   S
0033200    s   i   z   e   -   1   )   ;       O   l   d   U   S   !   (
0033220    U   S   s   i   z   e   -   1   )   =   @   b   u   t   t   o
0033240    n   s  \r               N   e   w   U   S       =       A   l
0033260    l   o   c   V   e   c   (   U   S   s   i   z   e   )  \r  \r
0033300    /   /       s   y   s   t   e   m       k   e   y   b   o   a
0033320    r   d       b   u   f   f   e   r  \r               k   e   y
0033340    s       =       A   l   l   o   c   V   e   c   (   l   S   T
0033360    )   ;       S   e   t   B   l   o   c   k   (   k   e   y   s
0033400    ,       C   a   l   l   S   w   a   t   ,       l   S   T   )
0033420   \r               k   e   y   s   >   >   S   T   .   p   a   r
0033440    1       =       O   s   B   u   f   f   e   r  \r            
0033460    k   e   y   s   >   >   S   T   .   g   e   t   s       =    
0033500    k   b   d   G   e   t   s  \r               k   e   y   s 376
0033520  001  \0   ! 227   >   >   S   T   .   p   u   t   s       =    
0033540    k   b   d   P   u   t   s  \r               k   e   y   s   >
0033560    >   S   T   .   e   n   d   o   f       =       k   b   d   E
0033600    m   p   t   y  \r               k   e   y   s   >   >   S   T
0033620    .   r   e   s   e   t       =       k   b   d   R   e   s   e
0033640    t  \r  \r               l   e   t       W   a   k   e   B   i
0033660    t       =       F   i   n   d   I   n   t   e   r   r   u   p
0033700    t   M   a   s   k   (   1       l   s   h   i   f   t       (
0033720    K   e   y   b   o   a   r   d   L   e   v   e   l   -   1   )
0033740    )  \r               I   n   i   t   i   a   l   i   z   e   I
0033760    n   t   e   r   r   u   p   t   (   A   l   l   o   c   V   e
0034000    c   (   K   B   S   t   a   c   k   S   i   z   e   )   ,   K
0034020    B   S   t   a   c   k   S   i   z   e   ,   W   a   k   e   B
0034040    i   t   ,   K   B   D   H   a   n   d   l   e   r   )  \r    
0034060            @   d   i   s   p   l   a   y   I   n   t   e   r   r
0034100    u   p   t       =       @   d   i   s   p   l   a   y   I   n
0034120    t   e   r   r 376 001  \0 037 016   u   p   t       %       W
0034140    a   k   e   B   i   t  \t   /   /       a   r   m       t   h
0034160    e       i   n   t   e   r   r   u   p   t  \r  \r           ]
0034200   \r  \r   a   n   d       K   B   D   H   a   n   d   l   e   r
0034220    (   )       b   e  \r           [  \t  \t   /   /       c   l
0034240    i   p       a   n   d       t   r   a   c   k       m   o   u
0034260    s   e  \t  \r   c   o   m   p   i   l   e   i   f       n   o
0034300    t       T   r   a   c   k   M   o   u   s   e  \r            
0034320    t   h   e   n       [  \r  \t   u   n   l   e   s   s       (
0034340    i   n   s   i   d   e   R   a   i   d       %       n   o   t
0034360        l   i   s   p   S   t   a   r   t   e   d   )       d   o
0034400        r   e   t   u   r   n  \r  \t   ]  \r  \r               @
0034420    m   o   u   s   e   X       =       @   m   o   u   s   e   X
0034440        l   e       -   1   6   ?       -   1   6   ,  \r  \t  \t
0034460    @   m   o   u   s   e   X       g   r       S   c   r   e   e
0034500    n   W   i   d   t   h   ?       S   c   r   e   e   n   W   i
0034520    d   t   h   ,       @   m   o   u 376 001  \0 352   j   s   e
0034540    X  \r  \t  \t  \t   /   /       l   e   t       m   o   u   s
0034560    e       g   e   t       a       c   u   r   s   o   r       w
0034600    i   d   t   h   '   s       o   f   f       l   e   f   t    
0034620    a   n   d       t   o   p  \r               @   c   u   r   s
0034640    o   r   X       =       @   m   o   u   s   e   X  \r        
0034660        @   m   o   u   s   e   Y       =       @   m   o   u   s
0034700    e   Y       l   e       -   1   6   ?       -   1   6   ,  \r
0034720   \t  \t   @   m   o   u   s   e   Y       g   r       c   u   r
0034740    s   o   r   Y   m   a   x   ?       c   u   r   s   o   r   Y
0034760    m   a   x   ,       @   m   o   u   s   e   Y  \r            
0035000    @   c   u   r   s   o   r   Y       =       @   m   o   u   s
0035020    e   Y  \r  \r               u   n   l   e   s   s       (   i
0035040    n   s   i   d   e   R   a   i   d       %       n   o   t    
0035060    l   i   s   p   S   t   a   r   t   e   d   )       d   o    
0035100    r   e   t   u   r   n  \r  \r               M   o   v   e   B
0035120    l   o   c   k   (   N   e   w   U   S   ,       K   e 376 001
0035140   \0 273 354   y   s   ,       U   S   s   i   z   e   -   1   )
0035160   \r               N   e   w   U   S   !   (   U   S   s   i   z
0035200    e   -   1   )   =   @   b   u   t   t   o   n   s  \r        
0035220        f   o   r       i       =       0       t   o       U   S
0035240    s   i   z   e   -   2       d   o  \r                   [    
0035260    l   e   t       o   l   d       =       O   l   d   U   S    
0035300    !       i  \r                           l   e   t       n   e
0035320    w       =       N   e   w   U   S       !       i  \r        
0035340                    l   e   t       x       =       o   l   d    
0035360    &       n   o   t       n   e   w       &       D   o   w   n
0035400    S   t   r   o   k   e   s   !   i  \r                        
0035420    i   f       x       n   e       0       t   h   e   n       K
0035440    e   y   A   c   t   i   o   n   (   x   ,       i   ,       D
0035460    o   w   n   S   t   r   o   k   e   )  \r                    
0035500        /   /       n   e   x   t       t   w   o       l   i   n
0035520    e   s       n   o   t       n   e   e   d   e   d       a   s
0035540        U   p 376 001  \0   + 311   s   t   r   o   k   e   [   1
0035560    -   4   ]   =   0  \r                           /   /       x
0035600        =       n   o   t       o   l   d       &       n   e   w
0035620        &       U   p   S   t   r   o   k   e   s   !   i  \r    
0035640                        /   /       i   f       x       n   e    
0035660    0       t   h   e   n       K   e   y   A   c   t   i   o   n
0035700    (   x   ,       i   ,       U   p   S   t   r   o   k   e   )
0035720   \r                   ]  \r  \r  \r               K   B   D   F
0035740    l   g   =   O   l   d   U   S   ;       O   l   d   U   S   =
0035760    N   e   w   U   S   ;       N   e   w   U   S   =   K   B   D
0036000    F   l   g  \r               /   /       K   B   D   F   l   g
0036020        i   s       u   s   e   d       b   y       N   W   W   I
0036040    n   t   e   r   r   u   p   t       t   o       d   e   c   i
0036060    d   e       w   h   e   n       a       6   0   h   z       i
0036100    n   t   e   r   r   u   p   t       h   a   s  \r            
0036120    /   /       t   a   k   e   n       p   l   a   c   e   .    
0036140    I   f       s   o   ,       N 376 001  \0 307 016   W   W   I
0036160    n   t   e   r   r   u   p   t       w   i   l   l       B   l
0036200    o   c   k   (   )       a   n   d       z   e   r   o       K
0036220    B   D   F   l   g  \r           ]  \r  \r   a   n   d       K
0036240    e   y   A   c   t   i   o   n       (   b   ,       w   ,    
0036260    a   c   t   i   o   n   )       b   e  \r           [  \r    
0036300            l   e   t       s   h   m       =       (   N   e   w
0036320    U   S   >   >   L   S   h   i   f   t   B   i   t       e   q
0036340        0   ?       -   1   ,       N   e   w   U   S   >   >   R
0036360    S   h   i   f   t   B   i   t       e   q       0   ?       -
0036400    1   ,  \r                           N   e   w   U   S   >   >
0036420    L   o   c   k   S   h   i   f   t   B   i   t       e   q    
0036440    0   ?       L   o   c   k   S   h   i   f   t   !   w   ,    
0036460    0   )  \r               l   e   t       m   ,       x       =
0036500        1   ,       w       l   s   h   i   f   t       4  \r    
0036520            [  \r                   i   f       (   b   &   m   )
0036540        n   e       0       t   h   e   n  \r         376 001  \0
0036560    3 366               [  \r                       /   /       "
0036600    +       a   c   t   i   o   n   "       b   e   l   o   w    
0036620    o   n   l   y       a   f   f   e   c   t   s       b   u   t
0036640    t   o   n   s  \r                       l   e   t       c    
0036660    =       A   S   C   I   I   m   a   p   >   >   I   n   p   u
0036700    t   D   a   t   u   m   M   a   p   .   c   o   d   e   ^   (
0036720    (   s   h   m   &   m   )       e   q       0   ?       x   ,
0036740        x   +   N   o   O   f   K   e   y   s   )       +       a
0036760    c   t   i   o   n  \r                       i   f       (   N
0037000    e   w   U   S   >   >   C   t   r   l   B   i   t       e   q
0037020        0   )       &       (   c       g   e       #   1   0   0
0037040    )       t   h   e   n       c       =       c       &       #
0037060    2   3   7  \r                       u   n   l   e   s   s    
0037100    P   u   t   s   (   k   e   y   s   ,       c   )       d   o
0037120        F   l   a   s   h   S   c   r   e   e   n   (   )  \r    
0037140                ]  \r               m   ,       x       =       m
0037160        l 376 001  \0   j 376   s   h   i   f   t       1   ,    
0037200    x   +   1  \r               ]       r   e   p   e   a   t   w
0037220    h   i   l   e       m       n   e       0  \r           ]  \r
0037240   \r   a   n   d       k   b   d   G   e   t   s   (   s   t   )
0037260        =       v   a   l   o   f  \t  \t   /   /       g   e   t
0037300        w   i   t   h       w   a   i   t       f   o   r       i
0037320    n   p   u   t   ;       f   o   r       R   a   i   d  \r    
0037340        [  \r               l   e   t       R   =   s   t   >   >
0037360    S   T   .   p   a   r   1  \r               w   h   i   l   e
0037400        R   >   >   O   s   B   U   F   .   O   u   t       e   q
0037420        R   >   >   O   s   B   U   F   .   I   n       d   o    
0037440    B   l   o   c   k   (   )  \t   /   /       l   o   o   p    
0037460    w   h   i   l   e       s   t       e   m   p   t   y      \r
0037500                l   e   t       x       =       @   (   R   >   >
0037520    O   s   B   U   F   .   O   u   t   )  \r               l   e
0037540    t       t       =       R   >   >   O   s   B   U   F   .   O
0037560    u   t       +       1  \r 376 001  \0   2 316               i
0037600    f       t       e   q       R   >   >   O   s   B   U   F   .
0037620    L   a   s   t       t   h   e   n       t       =       R   >
0037640    >   O   s   B   U   F   .   F   i   r   s   t  \r            
0037660    R   >   >   O   s   B   U   F   .   O   u   t       =       t
0037700   \r               r   e   s   u   l   t   i   s       x  \r    
0037720        ]  \r  \r   a   n   d       k   b   d   R   e   s   e   t
0037740    (   s   t   )       b   e  \r           [       l   e   t    
0037760    b   u   f       =       s   t   >   >   S   T   .   p   a   r
0040000    1  \r                   l   e   t       x       =       b   u
0040020    f   >   >   O   s   B   U   F   .   F   i   r   s   t  \r    
0040040                b   u   f   >   >   O   s   B   U   F   .   I   n
0040060        =       x  \r                   b   u   f   >   >   O   s
0040100    B   U   F   .   O   u   t       =       x  \r           ]  \r
0040120   \r   a   n   d       k   b   d   E   m   p   t   y   (   s   t
0040140    )       =       v   a   l   o   f       [       l   e   t    
0040160    R   =   s   t   >   >   S   T   .   p   a   r 376 001  \0   R
0040200    H   1  \r                                                    
0040220                                                            r   e
0040240    s   u   l   t   i   s       R   >   >   O   s   B   U   F   .
0040260    O   u   t       e   q       R   >   >   O   s   B   U   F   .
0040300    I   n       ]  \r  \r   a   n   d       k   b   d   P   u   t
0040320    s   (   s   t   ,       x   )       =       v   a   l   o   f
0040340   \r           [  \r               l   e   t       b   u   f    
0040360    =       s   t   >   >   S   T   .   p   a   r   1  \r        
0040400        l   e   t       t       =       b   u   f   >   >   O   s
0040420    B   U   F   .   I   n       +       1      \r               i
0040440    f       t       e   q       b   u   f   >   >   O   s   B   U
0040460    F   .   L   a   s   t       t   h   e   n       t       =    
0040500    b   u   f   >   >   O   s   B   U   F   .   F   i   r   s   t
0040520   \r               i   f       t       e   q       b   u   f   >
0040540    >   O   s   B   U   F   .   O   u   t       t   h   e   n    
0040560    r   e   s   u   l   t   i   s       f   a   l   s   e  \t   /
0040600    / 376 001  \0 335  \v   O   v   e   r   f   l   o   w  \r    
0040620            @   (   b   u   f   >   >   O   s   B   U   F   .   I
0040640    n   )       =       x  \r               b   u   f   >   >   O
0040660    s   B   U   F   .   I   n       =       t  \r               r
0040700    e   s   u   l   t   i   s       t   r   u   e  \r           ]
0040720   \r  \r   a   n   d       N   W   W   I   n   t   e   r   r   u
0040740    p   t   (   )       =       v   a   l   o   f  \t   /   /    
0040760    R   u   n       w   h   e   n   e   v   e   r       a   n    
0041000    i   n   t   e   r   r   u   p   t       o   c   c   u   r   s
0041020        (   >   6   0   h   z   )   .  \r           [      \r    
0041040            i   f       (   @   (   k   b   d   A   d   +   2   )
0041060        &       #   4   1   0   2   )       e   q       0  \t  \t
0041100    /   /       C   T   R   L   -   S   H   I   F   T   -   D   E
0041120    L  \r                           t   h   e   n       R   A   I
0041140    D   C   o   d   e       (   "   C   t   r   l   -   S   h   i
0041160    f   t   -   D   e   l       e   m   e   r   g   e   n   c   y
0041200        i   n   t   e   r 376  \0   % 225   @   r   u   p   t   "
0041220    ,       l   v   N   I   L   )  \r               r   e   s   u
0041240    l   t   i   s       l   v   N   I   L  \r           ]  \r  \r
0041260  377  \0  \0   L   i   s   p   B   c   p   l   .   d   e   c   l
0041300   \0 373 232 373 021 232  \0  \0 376 001  \0   7  \n   /   /    
0041320    L   i   s   p   B   c   p   l   .   d   e   c   l   .       D
0041340    e   c   l   a   r   a   t   i   o   n   s       f   i   l   e
0041360        f   o   r       I   n   t   e   r   L   i   s   p   -   D
0041400        B   c   p   l       c   o   d   e  \r   /   /       F   u
0041420    g   u   e       c   h   a   n   g   e       M   a   y       2
0041440    4   ,       1   9   8   3           1   1   :   3   5       P
0041460    M       b   y       B   i   l   l       v   a   n       M   e
0041500    l   l   e  \r   /   /       F   u   g   u   e       c   h   a
0041520    n   g   e       A   p   r   i   l       5   ,       1   9   8
0041540    3           4   :   5   2       P   M       b   y       B   i
0041560    l   l       v   a   n       M   e   l   l   e  \r   /   /    
0041600    C   h   o   r   u   s       c   h   a   n   g   e       J   a
0041620    n   u   a   r   y       1   9   ,       1   9   8   3        
0041640    4   :   4   9       P   M       b   y       B   i   l   l    
0041660    v   a   n       M   e   l   l   e  \r   /   /       W   i   n
0041700    d       c   h   a   n   g   e       M   a   r   c 376 001  \0
0041720  301 326   h       1   8   ,       1   9   8   2           1   2
0041740    :   1   4       P   M       b   y       B   i   l   l       v
0041760    a   n       M   e   l   l   e  \r   /   /       s   u   b   r
0042000        r   e   n   u   m   b   e   r   i   n   g       J   a   n
0042020    u   a   r   y       5   ,       1   9   8   2           2   :
0042040    5   0       P   M       b   y       v   a   n       M   e   l
0042060    l   e   ,       M   a   s   i   n   t   e   r       a   t    
0042100    k   b   d  \r   /   /       M   D   S       t   a   b   l   e
0042120        c   h   a   n   g   e       D   e   c   e   m   b   e   r
0042140        3   0   ,       1   9   8   1           1   1   :   3   8
0042160        P   M       b   y       B   i   l   l       v   a   n    
0042200    M   e   l   l   e  \r   /   /       C   o   n   B   r   i   o
0042220        c   h   a   n   g   e       D   e   c   e   m   b   e   r
0042240        2   4   ,       1   9   8   1           5   :   1   8    
0042260    P   M       b   y       B   i   l   l       v   a   n       M
0042300    e   l   l   e  \r   /   /       A   l   l   e   g   r   o    
0042320    c   h 376 001  \0 263 262   a   n   g   e       O   c   t   o
0042340    b   e   r       1   2   ,       1   9   8   1           1   1
0042360    :   1   3       P   M       b   y       B   i   l   l       v
0042400    a   n       M   e   l   l   e  \r   /   /       A   l   l   e
0042420    g   r   o       c   h   a   n   g   e       A   u   g   u   s
0042440    t       4   ,       1   9   8   1           4   :   2   1    
0042460    P   M       b   y       B   e   a   u       S   h   e   i   l
0042500   \r  \r  \r   m   a   n   i   f   e   s   t       W   i   n   d
0042520    F   l   g       =       t   r   u   e  \r  \r   g   e   t    
0042540    "   L   i   s   p   B   c   p   l   .   p   a   r   a   m   s
0042560    "  \t  \t   /   /       D   e   f   i   n   i   t   i   o   n
0042600    s       f   r   o   m       L   i   s   p  \r   m   a   n   i
0042620    f   e   s   t  \r  \t   [       B   c   p   l   V   e   r   s
0042640    i   o   n                   =       #   2   1   4   0   0  \t
0042660   \t   /   /       4   3   ,   0  \r                            
0042700                M   i   n   R   a   m   F   o   r   B   c   p   l
0042720            =       #   1   0 376 001  \0   r   t   4   0   0  \t
0042740   \t   /   /       2   1   ,   0  \r                            
0042760                M   i   n   L   i   s   p   F   o   r   B   c   p
0043000    l       =       #   1   0   7   4   0   0  \t  \t   /   /    
0043020    2   1   7   ,   0  \r  \t   ]  \r  \r   c   o   m   p   i   l
0043040    e   i   f       (   B   c   p   l   V   e   r   s   i   o   n
0043060        l   s       M   i   n   B   c   p   l   V   e   r   s   i
0043100    o   n   )       %       (   L   i   s   p   V   e   r   s   i
0043120    o   n       l   s       M   i   n   L   i   s   p   F   o   r
0043140    B   c   p   l   )  \r                       t   h   e   n    
0043160    [       E   r   r   o   r   (   "   L   i   s   p   /   B   c
0043200    p   l       c   o   m   p   i   l   e       v   e   r   s   i
0043220    o   n       m   i   s   m   a   t   c   h   "   )       ]  \r
0043240   \r   m   a   n   i   f   e   s   t       [  \t  \t  \t  \t   /
0043260    /       m   i   s   c   e   l   l   a   n   e   o   u   s  \r
0043300   \t   S   t   a   c   k   E   n   d       =       #   3   3   5
0043320   \t  \t  \t   /   /       c   h   e   c   k   e 376 001  \0 273
0043340    K   d       b   y       G   e   t   F   r   a   m   e  \r  \t
0043360    D   o   l   p   h   i   n       =       4  \t  \t  \t   /   /
0043400        D   o   l   p   h   i   n   s       a   r   e       A   l
0043420    t   o       I   V   '   s  \r  \t   D   o   r   a   d   o    
0043440    =       5  \t  \t  \t   /   /       D   o   r   a   d   o   s
0043460        a   r   e       A   l   t   o       V   '   s  \r  \t   P
0043500    a   g   e   s   P   e   r   S   e   g   m   e   n   t       =
0043520        2   5   6  \r  \t   W   o   r   d   s   P   e   r   P   a
0043540    g   e       =       2   5   6  \r  \t   ]  \r  \r   s   t   r
0043560    u   c   t   u   r   e       [       H   i   B   y   t   e    
0043600    b   y   t   e   ;       L   o   B   y   t   e       b   y   t
0043620    e       ]  \t   /   /       f   o   r       e   x   t   r   a
0043640    c   t   i   n   g       b   y   t   e   s       f   r   o   m
0043660        w   o   r   d   s  \r  \r   s   t   r   u   c   t   u   r
0043700    e       V   A   :  \t  \t  \t  \t   /   /       2   4   -   b
0043720    i   t       v   i   r   t   u   a   l       a   d   d   r   e
0043740    s 376  \0 366 335   N   s       i   n       2       w   o   r
0043760    d   s  \r               [  \t   v   a   h   i       w   o   r
0044000    d       =       [       b   l   a   n   k       b   y   t   e
0044020    ;       s   e   g   m   e   n   t       b   y   t   e       ]
0044040   \r  \t   v   a   l   o       w   o   r   d       =       [    
0044060    p   a   g   e   N       b   y   t   e   ;       w   o   r   d
0044100    N       b   y   t   e       ]  \r               ]  \r  \r   s
0044120    t   r   u   c   t   u   r   e       V   P   :  \t  \t  \t  \t
0044140    /   /       v   i   r   t   u   a   l       p   a   g   e  \r
0044160                [  \t   s   e   g   m   e   n   t       b   y   t
0044200    e   ;       p   a   g   e       b   y   t   e       ]  \r  \r
0044220    m   a   n   i   f   e   s   t       I   n   t   e   r   f   a
0044240    c   e   P   a   g   e   V   P       =       I   N   T   E   R
0044260    F   A   C   E   s   p   a   c   e       l   s   h   i   f   t
0044300        8       +       I   N   T   E   R   F   A   C   E   b   a
0044320    s   e       r   s   h   i   f   t       8  \r 377  \0  \0   L
0044340    i   s   p   0   .   b   c   p   l  \0 373 232   )   r 375  \0
0044360   \0 376 001  \0 256   .   /   /       L   i   s   p   0   .   b
0044400    c   p   l           I   n   i   t   a   l       e   n   t   r
0044420    y       p   o   i   n   t       i   s       S   t   a   r   t
0044440    L   i   s   p  \r   /   /       L   a   s   t       c   h   a
0044460    n   g   e       D   e   c   e   m   b   e   r       1   6   ,
0044500        1   9   8   2           1   0   :   3   4       P   M    
0044520    b   y       B   i   l   l       v   a   n       M   e   l   l
0044540    e  \r   /   /       L   a   s   t       c   h   a   n   g   e
0044560        O   c   t   o   b   e   r       6   ,       1   9   8   2
0044600            6   :   1   2       P   M       b   y       B   i   l
0044620    l       v   a   n       M   e   l   l   e  \r   /   /       L
0044640    a   s   t       c   h   a   n   g   e       J   u   l   y    
0044660    2   0   ,       1   9   8   2           1   0   :   4   2    
0044700    P   M       b   y       B   i   l   l       v   a   n       M
0044720    e   l   l   e  \r   /   /       L   a   s   t       c   h   a
0044740    n   g   e       M   a   r   c   h       2   3   ,       1   9
0044760    8   2           9   : 376 001  \0 017 272   3   0       P   M
0045000        b   y       B   i   l   l       v   a   n       M   e   l
0045020    l   e  \r   /   /       L   a   s   t       c   h   a   n   g
0045040    e       S   e   p   t   e   m   b   e   r       2   7   ,    
0045060    1   9   8   1           1   0   :   5   6       P   M       b
0045100    y       B   i   l   l       v   a   n       M   e   l   l   e
0045120   \r   /   /       T   o   n   e       c   h   a   n   g   e    
0045140    M   a   r   c   h       1   7   ,       1   9   8   1        
0045160    4   :   5   6       P   M       b   y       B   e   a   u    
0045200    S   h   e   i   l  \r   /   /       L   a   s   t       c   h
0045220    a   n   g   e       F   e   b   r   u   a   r   y       2   4
0045240    ,       1   9   8   1           1   :   5   5       P   M    
0045260    b   y       B   e   a   u       S   h   e   i   l  \r   /   /
0045300        P   h   r   a   s   e       c   h   a   n   g   e       N
0045320    o   v   e   m   b   e   r       2   4   ,       1   9   8   0
0045340            1   2   :   1   3       P   M       b   y       B   e
0045360    a   u       S   h   e   i   l  \r  \r  \t 376 001  \0 253 002
0045400    g   e   t       "   L   i   s   p   B   c   p   l   .   d   e
0045420    c   l   "  \r  \t   g   e   t       "   S   y   s   D   e   f
0045440    s   .   D   "  \r  \r   e   x   t   e   r   n   a   l       [
0045460   \r  \t   S   a   v   e   d   U   F   P   ;       S   a   v   e
0045500    d   S   C   P   ;       @   C   o   n   t   e   x   t   Q   ;
0045520        T   o   p   L   e   v   e   l   F   r   a   m   e  \r  \t
0045540    @   l   v   N   I   L   ;       @   l   v   K   T   ;       @
0045560    l   v   V   P   t   r   ;       @   V   P   t   r   0   ;    
0045600    @   V   P   t   r   1   ;       @   R   M   S   K  \t   /   /
0045620        u   s   e   f   u   l       v   a   l   u   e   s  \r  \r
0045640   \t   B   c   p   l   D   i   s   p   l   a   y   ;       M   k
0045660    S   m   a   l   l   P   o   s   ;       R   e   m   a   p   M
0045700    e   m   o   r   y  \t  \t   /   /       p   r   o   c   e   d
0045720    u   r   e   s       u   s   e   d  \r  \t   I   r   e   s   u
0045740    m   e   ;       R   A   I   D   C   o   d   e   ;       C   l
0045760    o   s   e   S   t   a   t   s   ;       S   e   r   i   a   l
0046000  376 001  \0   9 306  \r  \t   A   l   l   o   c   V   e   c   ;
0046020        M   a   i   n   I   n   i   t   ;       S   h   o   r   t
0046040    S   t   a   c   k  \t  \t   /   /       f   r   o   m       m
0046060    a   i   n   i   n   i   t   .   b   c   p   l  \r  \t   A   l
0046100    l   o   c   P   t   r  \t  \t  \t  \t   /   /       a   l   l
0046120    o   c   a   t   e   r       s   t   a   t   i   c  \r  \t   S
0046140    t   a   r   t   P   u   p  \t  \t  \t  \t   /   /       L   i
0046160    s   p       P   u   p  \r  \t   E   n   q   u   e   u   e   ;
0046200        M   a   x   ;       M   y   F   r   a   m   e   ;       J
0046220    u   n   t   a   ;       B   l   o   c   k  \t   /   /       O
0046240    S       p   r   o   c   s  \r  \t   I   n   i   t   i   a   l
0046260    i   z   e   C   o   n   t   e   x   t   ;       C   a   l   l
0046300    C   o   n   t   e   x   t   L   i   s   t  \r  \r  \t   l   v
0046320    U   s   e   r   F   i   n   i   s   h   P   r   o   c  \t   /
0046340    /       S   t   a   t   i   c   s       u   s   e   d  \r  \t
0046360    l   v   A   b   o   r   t   F   l   a   g  \r  \t   @   S   u
0046400    b   r   A   r   g 376 001  \0   m   {   s   O   f   f   s   e
0046420    t   ;       S   u   b   r   A   r   g   s   V   e   c   t   o
0046440    r   ;       @   u   P   C   T   r   a   c   e   A   d   d   r
0046460   \r  \t   i   n   s   i   d   e   R   a   i   d   ;       c   a
0046500    l   l   R   a   i   d  \r  \r  \t  \t  \t  \t   /   /       s
0046520    t   a   t   i   c   s       d   e   f   i   n   e   d  \r  \t
0046540    L   i   s   p   S   t   a   c   k   L   e   n   g   t   h  \r
0046560   \t   P   u   p   Z   o   n   e   L   e   n   g   t   h  \r  \t
0046600    L   i   s   p   S   t   a   c   k   S   t   a   r   t  \r  \t
0046620    P   u   p   Z   o   n   e   S   t   a   r   t  \r  \t   l   i
0046640    s   p   S   t   a   r   t   e   d  \r  \r  \t   L   i   s   p
0046660    F   i   n   i   s   h   P   r   o   c   ;       L   i   s   p
0046700    C   l   e   a   n   u   p   ;       S   y   s   E   r   r  \t
0046720   \t   /   /       p   r   o   c   e   d   u   r   e   s       d
0046740    e   f   i   n   e   d  \r  \t   ]  \r  \r   s   t   a   t   i
0046760    c       [  \r  \t   @   T   o   p   L   e   v   e   l   F   r
0047000    a   m   e   ;       @   C   o   n   t 376 001  \0 251 310   e
0047020    x   t   Q   ;       S   u   b   r   A   r   g   s   V   e   c
0047040    t   o   r  \r  \t   @   l   v   N   I   L   ;       @   l   v
0047060    K   T   ;       @   l   v   V   P   t   r   ;       @   V   P
0047100    t   r   0   ;       @   V   P   t   r   1   ;       @   R   M
0047120    S   K       =       #   3   7   7  \r  \t   l   i   s   p   S
0047140    t   a   r   t   e   d       =       f   a   l   s   e  \r  \t
0047160    L   i   s   p   S   t   a   c   k   L   e   n   g   t   h  \r
0047200   \t   P   u   p   Z   o   n   e   L   e   n   g   t   h  \r  \t
0047220    L   i   s   p   S   t   a   c   k   S   t   a   r   t  \r  \t
0047240    P   u   p   Z   o   n   e   S   t   a   r   t  \r  \t   ]  \r
0047260   \r   m   a   n   i   f   e   s   t       S   c   r   e   e   n
0047300    S   c   a   n   L   i   n   e   s       =       8   0   8  \t
0047320    /   /       v   e   r   t   i   c   a   l       s   c   r   e
0047340    e   n       s   i   z   e      \r  \r  \r   l   e   t       S
0047360    t   a   r   t   L   i   s   p   (   )       b   e       J   u
0047400    n   t   a   (   l   e   v   S   t   r   e   a   m   s   , 376
0047420  001  \0 310 317   I   n   i   t   L   i   s   p   )  \t  \t   /
0047440    /       m   a   i   n       e   n   t   r   y  \r  \r   a   n
0047460    d       I   n   i   t   L   i   s   p   (   )       b   e  \r
0047500                [  \r   /   /       E   v   e   n   t   u   a   l
0047520    E   n   d   O   f   S   t   a   c   k       i   s       a   n
0047540        e   s   t   i   m   a   t   e       o   f       h   o   w
0047560        m   u   c   h       s   t   a   c   k       s   p   a   c
0047600    e       w   e       w   i   l   l       n   e   e   d  \r   /
0047620    /       a   f   t   e   r       t   h   e       c   a   l   l
0047640        t   o       M   a   i   n   I   n   i   t   .           M
0047660    a   i   n   I   n   i   t       a   s   s   i   g   n   s    
0047700    t   h   e       r   e   s   t       (   i   n   c   l   u   d
0047720    i   n   g       i   t   s  \r   /   /       o   w   n       s
0047740    t   a   c   k   )       t   o       t   h   e       d   i   s
0047760    p   l   a   y   ,       w   h   i   c   h       w   e       t
0050000    u   r   n       o   n   .  \r               [       l   e   t
0050020        E   v   e 376 001  \0 272 030   n   t   u   a   l   E   n
0050040    d   O   f   S   t   a   c   k   =   S   h   o   r   t   S   t
0050060    a   c   k   (   2   5   6   )  \r                       M   a
0050100    i   n   I   n   i   t   (   E   v   e   n   t   u   a   l   E
0050120    n   d   O   f   S   t   a   c   k   )  \r                    
0050140    @   S   t   a   c   k   E   n   d   =   E   v   e   n   t   u
0050160    a   l   E   n   d   O   f   S   t   a   c   k  \t  \t   /   /
0050200        s   e   t   s       e   n   d       o   f       s   t   a
0050220    c   k  \r               ]  \r               B   c   p   l   D
0050240    i   s   p   l   a   y   (   S   c   r   e   e   n   S   c   a
0050260    n   L   i   n   e   s   -   1   5   )  \t   /   /       g   i
0050300    v   e       B   c   p   l       d   s   p       a   l   l    
0050320    t   h   e       s   c   r   e   e   n       s   p   a   c   e
0050340   \r  \t  \t  \t   /   /       s   a   v   e       a       f   e
0050360    w       l   i   n   e   s       t   o       p   r   o   t   e
0050400    c   t       a   g   a   i   n   s   t       o   v   e   r   s
0050420    c   a   n  \r               S   t 376 001  \0   l 331   a   r
0050440    t   P   u   p   (   P   u   p   Z   o   n   e   S   t   a   r
0050460    t   ,       P   u   p   Z   o   n   e   L   e   n   g   t   h
0050500    )  \r  \t  \t  \t   /   /       S   t   a   r   t       t   h
0050520    e       P   u   p       w   o   r   l   d       i   f       t
0050540    h   e   r   e       i   s       a       3   m   b       e   t
0050560    h   e   r   n   e   t  \r  \r               /   /       I   n
0050600    i   t       t   h   e       T   o   p   L   e   v   e   l    
0050620    c   o   n   t   e   x   t       a   n   d       p   u   t    
0050640    i   t       o   n       C   o   n   t   e   x   t   Q  \r    
0050660            E   n   q   u   e   u   e   (   C   o   n   t   e   x
0050700    t   Q   ,  \r  \t   I   n   i   t   i   a   l   i   z   e   C
0050720    o   n   t   e   x   t   (   L   i   s   p   S   t   a   c   k
0050740    S   t   a   r   t   ,   L   i   s   p   S   t   a   c   k   L
0050760    e   n   g   t   h   ,   T   o   p   L   e   v   e   l   )   )
0051000   \r               C   a   l   l   C   o   n   t   e   x   t   L
0051020    i   s   t   (   C   o   n   t   e   x   t   Q   !   0 376 001
0051040   \0 242   `   )       r   e   p   e   a   t  \t  \t   /   /    
0051060    S   t   a   r   t       t   h   e       c   o   n   t   e   x
0051100    t   s       r   u   n   n   i   n   g  \r               ]  \r
0051120   \r   a   n   d       T   o   p   L   e   v   e   l   (   )    
0051140    b   e  \r               [  \r               T   o   p   L   e
0051160    v   e   l   F   r   a   m   e       =       M   y   F   r   a
0051200    m   e   (   )  \r               l   i   s   p   S   t   a   r
0051220    t   e   d       =       t   r   u   e  \r               i   n
0051240    s   i   d   e   R   a   i   d       =       f   a   l   s   e
0051260   \r               @   l   v   A   b   o   r   t   F   l   a   g
0051300        =       1  \t  \t  \t  \t   /   /       d   i   s   a   b
0051320    l   e       s   h   i   f   t   -   s   w   a   t  \r        
0051340        i   f       c   a   l   l   R   a   i   d  \r            
0051360                t   h   e   n       R   A   I   D   C   o   d   e
0051400    (   "   S   t   a   r   t   i   n   g       L   i   s   p   "
0051420    ,       l   v   N   I   L   )  \r               S   u   b   r
0051440    A   r   g 376 001  \0 350 267   s   O   f   f   s   e   t    
0051460    =       (   S   u   b   r   A   r   g   s   V   e   c   t   o
0051500    r   -   1   )   -   T   o   p   L   e   v   e   l   F   r   a
0051520    m   e           /   /       -   1       a   d   j   u   s   t
0051540    s       i   n   d   x       o   r   i   g  \r               I
0051560    r   e   s   u   m   e   (   l   v   K   T   )  \t  \t  \t  \t
0051600    /   /       n   e   v   e   r       r   e   t   u   r   n   s
0051620    ;       T   =   >   s   t   a   r   t   u   p  \r            
0051640    ]  \r  \r   a   n   d       S   y   s   E   r   r   (   p   1
0051660    ,       e   C   o   d   e   )       b   e  \r                
0051700    R   A   I   D   C   o   d   e   (   s   e   l   e   c   t   o
0051720    n       e   C   o   d   e       i   n   t   o  \r            
0051740                                                    [       c   a
0051760    s   e       1   1   0   1   :       "   H   a   r   d       d
0052000    i   s   k       e   r   r   o   r   "  \r                    
0052020                                                    c   a   s   e
0052040        1   1   0   2   :       " 376 001  \0 264   L   D   i   s
0052060    k       f   u   l   l   "  \r                                
0052100                                        c   a   s   e       1   1
0052120    0   3   :           c   a   s   e       1   1   0   4   :    
0052140    "   B   a   d       d   i   s   k       c   o   m   m   a   n
0052160    d   "  \r                                                    
0052200                    d   e   f   a   u   l   t   :               "
0052220    S   y   s   E   r   r   "       ]   ,  \r                    
0052240                                    M   k   S   m   a   l   l   P
0052260    o   s   (   e   C   o   d   e   )   )  \r  \r   a   n   d    
0052300    L   i   s   p   C   l   e   a   n   u   p   (   )       b   e
0052320   \r               [  \r   /   /               i   f       (   S
0052340    a   v   e   d   S   C   P   +   1   )       t   h   e   n    
0052360    @   l   v   S   w   a   t   C   o   n   t   e   x   t   P   r
0052400    o   c       =       S   a   v   e   d   S   C   P  \t   /   /
0052420        r   e   s   t   o   r   e       S   w   a   t       p   r
0052440    o   c  \r               i   f       (   S   a   v 376 001  \0
0052460  201 310   e   d   U   F   P   +   1   )       t   h   e   n    
0052500    @   l   v   U   s   e   r   F   i   n   i   s   h   P   r   o
0052520    c       =       S   a   v   e   d   U   F   P  \t   /   /    
0052540    r   e   s   t   o   r   e       f   i   n   i   s   h       p
0052560    r   o   c  \r   /   /               i   f       u   P   C   T
0052600    r   a   c   e   A   d   d   r       t   h   e   n       u   P
0052620    C   T   r   a   c   i   n   g   (   f   a   l   s   e   )  \t
0052640    /   /       t   u   r   n       o   f   f       a   n   y    
0052660    u   P   c       l   o   g   g   i   n   g  \r               C
0052700    l   o   s   e   S   t   a   t   s   (   )  \t  \t  \t  \t   /
0052720    /       t   u   r   n       o   f   f       s   t   a   t   s
0052740   \r               B   c   p   l   D   i   s   p   l   a   y   (
0052760    0   )  \t  \t  \t   /   /       t   u   r   n       o   f   f
0053000        a   n   y       d   i   s   p   l   a   y   s  \r        
0053020        R   e   m   a   p   M   e   m   o   r   y   (   )  \t  \t
0053040   \t   /   /       r   e   s   t   o   r   e       m   a   p  \r
0053060          376  \0   A 342 265       ]  \r  \r   a   n   d       L
0053100    i   s   p   F   i   n   i   s   h   P   r   o   c   (   )    
0053120    b   e  \r               [  \r               L   i   s   p   C
0053140    l   e   a   n   u   p   (   )  \r               f   i   n   i
0053160    s   h  \r               ]  \r 377  \0  \0   L   o   a   d   R
0053200    a   m   .   a   s   m  \0 373 232   )   p 356  \0  \0 376  \0
0053220  375   m 002   ;       L   o   a   d   R   a   m   .   a   s   m
0053240    .      \r  \r   ;       P   r   o   c   e   d   u   r   e   s
0053260        d   e   f   i   n   e   d  \r  \t   .   e   n   t  \t   L
0053300    o   a   d   R   a   m  \r  \r   ;       L   i   s   p       e
0053320    x   t   e   n   d   e   d       N   o   v   a       i   n   s
0053340    t   r   u   c   t   i   o   n   s       -       d   i   s   p
0053360    a   t   c   h       i   n   t   o       m   i   c   r   o   c
0053400    o   d   e  \r  \t   .   d   u   s   r  \t   L   R   J       =
0053420        #   6   1   0   3   6  \r  \r  \t   .   S   R   E   L  \r
0053440    L   o   a   d   R   a   m   :  \t   l   r   j  \r  \r  \t   .
0053460    N   R   E   L  \r  \r   l   r   j   :  \r  \t   s   t   a    
0053500    3   ,       s   a   v   A   c   3  \t  \t   ;       l   o   a
0053520    d   r   a   m       s   m   a   s   h   e   s       a   c   3
0053540   \r  \t   L   R   J  \r  \t   l   d   a       3   ,       s   a
0053560    v   A   c   3  \r  \t   j   m   p       1   ,   3  \r  \r   s
0053600    a   v   A   c   3   :  \t   0  \r  \r  \t   .   E   N   D  \r
0053620  377  \0  \0   M   a   i   n   I   n   i   t   .   b   c   p   l
0053640   \0 373 233   E 266  \n  \0  \0 376 001  \0 365 215   /   /    
0053660    M   a   i   n   I   n   i   t   .   b   c   p   l   .        
0053700    B   u   l   k       o   f       t   h   e       i   n   i   t
0053720    i   a   l   i   z   a   t   i   o   n       c   o   d   e   .
0053740   \r   /   /       L   a   s   t       c   h   a   n   g   e    
0053760    J   u   l   y       2   0   ,       1   9   8   3           2
0054000    :   2   3       P   M       b   y       B   i   l   l       v
0054020    a   n       M   e   l   l   e  \r   /   /       L   a   s   t
0054040        c   h   a   n   g   e       M   a   y       2   5   ,    
0054060    1   9   8   3           1   1   :   2   2       A   M       b
0054100    y       B   i   l   l       v   a   n       M   e   l   l   e
0054120   \r   /   /       L   a   s   t       c   h   a   n   g   e    
0054140    M   a   r   c   h       2   4   ,       1   9   8   3        
0054160    9   :   0   6       P   M       b   y       B   i   l   l    
0054200    v   a   n       M   e   l   l   e  \r   /   /       L   a   s
0054220    t       c   h   a   n   g   e       D   e   c   e   m   b   e
0054240    r       2   1   ,       1   9   8   2           5 376 001  \0
0054260  023 027   :   1   8       P   M       b   y       B   i   l   l
0054300        v   a   n       M   e   l   l   e  \r   /   /       r   e
0054320    o   r   g   a   n   i   z   e   d       d   s   k       i   n
0054340    i   t       J   u   n   e       8   ,       1   9   8   2    
0054360        9   :   5   7       P   M       b   y       B   i   l   l
0054400        v   a   n       M   e   l   l   e  \r   /   /       L   a
0054420    s   t       c   h   a   n   g   e       M   a   y       2   4
0054440    ,       1   9   8   2           1   2   :   1   4       P   M
0054460        b   y       B   i   l   l       v   a   n       M   e   l
0054500    l   e  \r   /   /       I   n   i   t   L   i   s   p   R   e
0054520    g   s       c   h   a   n   g   e       M   a   y       1   9
0054540    ,       1   9   8   2           1   0   :   2   3       P   M
0054560        b   y       B   i   l   l       v   a   n       M   e   l
0054600    l   e  \r   /   /       c   o   m   m   a   n   d       p   a
0054620    r   s   e       c   h   a   n   g   e       M   a   r   c   h
0054640        1   9   ,       1   9   8   2           1   :   0   5    
0054660    P   M 376 001  \0   g   Z       b   y       B   i   l   l    
0054700    v   a   n       M   e   l   l   e  \r   /   /       L   a   s
0054720    t       c   h   a   n   g   e       M   a   r   c   h       1
0054740    8   ,       1   9   8   2           1   :   4   2       P   M
0054760        b   y       B   i   l   l       v   a   n       M   e   l
0055000    l   e  \r  \r  \t   g   e   t       "   A   l   t   o   F   i
0055020    l   e   S   y   s   .   d   "  \r  \t   g   e   t       "   A
0055040    l   t   o   D   e   f   s   .   d   "  \r  \t   g   e   t    
0055060    "   L   i   s   p   B   c   p   l   .   d   e   c   l   "  \r
0055100   \t   g   e   t       "   S   t   a   t   s   .   d   e   c   l
0055120    "  \r  \t   g   e   t       "   S   t   r   e   a   m   s   .
0055140    d   "  \r  \r   e   x   t   e   r   n   a   l       [  \t   /
0055160    /       d   e   f   i   n   e   d       h   e   r   e  \r  \t
0055200    A   l   l   o   c   V   e   c   ;       M   a   i   n   I   n
0055220    i   t   ;       S   h   o   r   t   S   t   a   c   k   ;    
0055240    S   a   v   e   d   U   F   P   ;       S   a   v   e   d   S
0055260    C   P   ;       G   i   v 376 001  \0   L   L   e   U   p  \r
0055300   \t   S   w   a   p   C   u   r   s   o   r   s   ;       R   e
0055320    s   t   o   r   e   C   u   r   s   o   r  \r  \r  \t  \t   /
0055340    /       O   .   S   .       p   r   o   c   e   d   u   r   e
0055360    s  \r  \t   R   e   s   e   t   s   ;       C   l   o   s   e
0055400    s   ;       M   o   v   e   B   l   o   c   k   ;       R   e
0055420    a   d   B   l   o   c   k   ;       C   r   e   a   t   e   D
0055440    i   s   k   S   t   r   e   a   m   ;       F   i   l   e   L
0055460    e   n   g   t   h  \r  \t   I   n   i   t   i   a   l   i   z
0055500    e   Z   o   n   e   ;       Z   e   r   o   ;       U   s   c
0055520    ;       M   a   x   ;       M   i   n   ;       C   h   a   r
0055540    W   i   d   t   h   ;       S   e   t   F   i   l   e   P   o
0055560    s  \r  \t   A   l   l   o   c   a   t   e   ;       W   s   s
0055600    ;       E   n   d   o   f   s   ;       G   e   t   s   ;    
0055620    O   p   e   n   F   i   l   e   ;       S   h   o   w   D   i
0055640    s   p   l   a   y   S   t   r   e   a   m   ;       P   o   s
0055660    i   t   i   o   n   P   a   g   e  \r  \t   M 376 001  \0   i
0055700    ]   y   F   r   a   m   e   ;       C   a   l   l   S   w   a
0055720    t   ;       S   y   s   E   r   r  \r  \r  \t  \t   /   /    
0055740    O   S       s   t   a   t   i   c   s      \r  \t   d   s   p
0055760    ;       s   y   s   Z   o   n   e   ;       s   y   s   F   o
0056000    n   t   ;       f   p   S   y   s   D   i   r   ;       f   p
0056020    C   o   m   C   m   ;       f   p   S   y   s   F   o   n   t
0056040    ;       s   y   s   D   i   s   k   ;       f   p   R   e   m
0056060    C   m  \r  \t   U   s   e   r   N   a   m   e   ;       l   v
0056100    S   y   s   Z   o   n   e   ;       l   v   S   y   s   E   r
0056120    r   ;       l   v   U   s   e   r   F   i   n   i   s   h   P
0056140    r   o   c  \r  \r  \t  \t   /   /       o   t   h   e   r    
0056160    l   i   b   r   a   r   y       p   r   o   c   e   d   u   r
0056200    e   s  \r  \t   L   o   o   k   u   p   E   n   t   r   i   e
0056220    s   ;       S   e   t   u   p   R   e   a   d   P   a   r   a
0056240    m   ;       R   e   a   d   P   a   r   a   m   ;       E   v
0056260    a   l   P   a   r   a   m  \r  \r  \t  \t   /   /       L   I
0056300    s 376 001  \0 001 251   p       p   r   o   c   e   d   u   r
0056320    e   s  \r  \t   M   a   c   h   i   n   e   T   y   p   e   ;
0056340        V   e   r   s   i   o   n   ;       L   i   s   p   F   i
0056360    n   i   s   h   P   r   o   c   ;       I   n   i   t   L   i
0056400    s   p   R   e   g   s  \r  \t   S   e   r   i   a   l   ;    
0056420    I   P   u   t   B   a   s   e   ;       L   o   a   d   R   a
0056440    m   ;       L   I   S   P   F   I   N   I   S   H  \r  \r  \t
0056460   \t   /   /       S   U   B   R       b   a   s   e   ,       s
0056500    o   m   e       i   n   i   t       c   o   d   e       b   a
0056520    s   e  \r  \t   u   C   o   d   e   C   h   e   c   k   ;    
0056540    I   n   i   t   F   m   a   p  \r  \r  \t  \t   /   /       i
0056560    n   i   t   i   a   l   i   z   a   t   i   o   n       o   n
0056600    l   y  \r  \t   G   e   t   R   a   m   V   e   r   s   i   o
0056620    n   ;       S   e   t   u   p   L   i   s   p   M   e   m   ;
0056640        K   B   D   i   n   i   t   ;       R   e   m   o   t   e
0056660    I   n   i   t   V   m   e   m   ;       L   o   c   a   l   I
0056700    n   i   t   V   m   e 376 001  \0   6 377   m  \r  \r  \t  \t
0056720    /   /       s   t   a   t   i   c   s       e   x   p   o   r
0056740    t   e   d  \r  \t   A   l   l   o   c   P   t   r   ;       A
0056760    l   l   o   c   E   n   d   ;       A   l   l   o   c   I   n
0057000    F   i   r   s   t   B   l   o   c   k   ;       l   a   s   t
0057020    S   t   a   t   i   c   A   l   l   o   c   a   t   i   o   n
0057040   \r  \t   s   t   a   t   s   F   P   ;       s   y   s   F   o
0057060    n   t   C   h   a   r   W   i   d   t   h  \r  \t   S   c   r
0057100    e   e   n   W   o   r   d   s   ;       c   a   l   l   R   a
0057120    i   d  \r  \t   R   a   m   V   e   r   s   i   o   n   ;    
0057140    M   i   n   L   i   s   p   F   o   r   R   a   m  \r  \t   H
0057160    o   s   t   M   a   g   i   c   0   ;       H   o   s   t   M
0057200    a   g   i   c   1   ;       H   o   s   t   M   a   g   i   c
0057220    2  \r  \t   V   m   e   m   S   t   r   e   a   m   ;       S
0057240    y   s   i   n   N   a   m   e  \r  \t   f   i   l   l   M   e
0057260    m   o   r   y   ;       h   a   v   e   U   c   o   d   e   ;
0057300        a   l   t   o   U   c   o   d   e   F 376 001  \0 261   D
0057320    p   ;       u   C   o   d   e   L   o   a   d   e   d  \r  \t
0057340    e   x   t   r   a   B   u   f   f   e   r   s   ;       e   x
0057360    t   r   a   B   u   f   L   e   n   g   t   h  \r  \t  \r  \t
0057400   \t   /   /       s   t   a   t   i   c   s       u   s   e   d
0057420   \r  \t   @   S   u   b   r   B   a   s   e   ;       @   l   v
0057440    N   I   L   ;       @   l   v   K   T   ;       @   l   v   V
0057460    P   t   r   ;       @   V   P   t   r   0   ;       S   u   b
0057500    r   A   r   g   s   V   e   c   t   o   r  \r  \t   @   B   c
0057520    p   l   ;       @   C   o   n   t   e   x   t   Q      \r  \t
0057540    @   d   s   p   S   t   a   r   t   A   d   d   r   ;       @
0057560    d   s   p   A   r   e   a   ;       @   d   l   i   s   p   D
0057600    s   p   ;       @   D   L   i   s   p   D   C   B  \r  \t   E
0057620    m   u   l   a   t   o   r   S   p   a   c   e  \r  \t   L   i
0057640    s   p   S   t   a   c   k   L   e   n   g   t   h   ;       S
0057660    t   a   r   t   O   f   A   l   l   o   c   B   l   o   c   k
0057700   \r  \t   P   u   p   Z   o   n   e   L   e   n   g   t   h  \r
0057720  376 001  \0 243 254  \t   L   i   s   p   S   t   a   c   k   S
0057740    t   a   r   t  \r  \t   P   u   p   Z   o   n   e   S   t   a
0057760    r   t  \r  \t   ]  \r  \r   s   t   a   t   i   c       [  \r
0060000   \t   A   l   l   o   c   P   t   r  \t  \t  \t   /   /       s
0060020    e   t       i   n       I   n   i   t   L   i   s   p  \r  \t
0060040    A   l   l   o   c   E   n   d  \t  \t  \t   /   /       e   n
0060060    d       o   f       f   i   x   e   d       a   l   l   o   c
0060100        r   e   g   i   o   n  \r  \t   A   l   l   o   c   I   n
0060120    F   i   r   s   t   B   l   o   c   k  \t  \t   /   /       t
0060140    r   u   e       w   h   e   n       i   n       f   i   x   e
0060160    d       b   l   o   c   k  \r  \t   l   a   s   t   S   t   a
0060200    t   i   c   A   l   l   o   c   a   t   i   o   n  \t  \t   /
0060220    /       l   a   s   t       A   l   l   o   c   P   t   r    
0060240    i   n       f   i   x   e   d       r   e   g   i   o   n  \r
0060260   \t   S   a   v   e   d   U   F   P       =       -   1  \r  \t
0060300    S   a   v   e   d   S   C   P       =       -   1  \t  \t  \t
0060320    /   /       u   s 376 001  \0 202   F   e   d       t   o    
0060340    s   a   v   e       O   S       p   r   o   c   s  \r  \t   s
0060360    t   a   t   s   F   P       =       0  \t  \t  \t   /   /    
0060400    F   P       f   o   r       L   i   s   p   .   s   t   a   t
0060420    s  \r  \t   s   y   s   F   o   n   t   C   h   a   r   W   i
0060440    d   t   h  \t  \t   /   /       w   i   d   t   h       o   f
0060460        a       c   h   a   r   ,       f   o   r       R   a   i
0060500    d  \r  \t   d   o   n   t   G   i   v   e   U   p       =    
0060520    f   a   l   s   e  \t  \t   /   /       i   f       t   r   u
0060540    e   ,       c   a   l   l       s   w   a   t       i   n   s
0060560    t   e   a   d       o   f  \r  \t  \t  \t  \t  \t   /   /    
0060600        q   u   i   t   t   i   n   g       o   n       s   t   a
0060620    r   t   u   p       e   r   r   o   r   s  \r  \t   S   c   r
0060640    e   e   n   W   o   r   d   s  \t  \t  \t   /   /       t   h
0060660    e   s   e       3       f   r   o   m       I   n   i   t   L
0060700    i   s   p   R   e   g   s  \r  \t   R   a   m   V   e   r   s
0060720    i   o   n  \r  \t   M   i   n   L   i 376 001  \0   S   v   s
0060740    p   F   o   r   R   a   m  \r  \t   H   o   s   t   M   a   g
0060760    i   c   0  \r  \t   H   o   s   t   M   a   g   i   c   1  \r
0061000   \t   H   o   s   t   M   a   g   i   c   2  \r  \t   V   m   e
0061020    m   S   t   r   e   a   m       =       0  \t  \t   /   /    
0061040    n   o   n   z   e   r   o       w   h   i   l   e       a   n
0061060        O   S       v   m   e   m       s   t   r   e   a   m    
0061100    i   s       o   p   e   n  \r  \t   S   y   s   i   n   N   a
0061120    m   e       =       0  \t  \t   /   /       f   o   r       e
0061140    r   r   o   r       m   s   g   s  \r  \t   f   i   l   l   M
0061160    e   m   o   r   y       =       f   a   l   s   e  \t  \t   /
0061200    /       T       -   >       f   i   l   l       u   p       m
0061220    e   m   o   r   y       c   o   m   p   l   e   t   e   l   y
0061240   \r  \t   h   a   v   e   U   c   o   d   e       =       f   a
0061260    l   s   e  \t   /   /       t   r   u   e       i   f       s
0061300    t   a   r   t   e   d       w   i   t   h       L   i   s   p
0061320        m   i   c   r   o   c   o   d   e  \r  \t   u   C   o 376
0061340  001  \0 221 227   d   e   L   o   a   d   e   d       =       f
0061360    a   l   s   e  \t   /   /       t   r   u   e       a   f   t
0061400    e   r       u   c   o   d   e       l   o   a   d   e   d  \r
0061420   \t   a   l   t   o   U   c   o   d   e   F   p       =       0
0061440   \t  \t   /   /       m   a   y   b   e       t   h   e       F
0061460    p       f   o   r       A   l   t   o   D   0   M   c   .   e
0061500    b  \r  \t   c   a   l   l   R   a   i   d       =       f   a
0061520    l   s   e  \t   /   /       i   f       t   r   u   e   ,    
0061540    c   a   l   l       R   a   i   d       o   n       s   t   a
0061560    r   t   u   p  \r  \t   e   x   t   r   a   B   u   f   f   e
0061600    r   s  \r  \t   e   x   t   r   a   B   u   f   L   e   n   g
0061620    t   h  \t  \t   /   /       f   o   r       L   i   s   p   '
0061640    s       u   s   e  \r  \t   e   b   C   r   e   a   t   i   o
0061660    n   D   a   t   e       =       0  \r  \t   ]  \r  \r   m   a
0061700    n   i   f   e   s   t       [  \r  \t   N   I   L   N   u   m
0061720        =       #   0  \t  \t  \t   /   /       a   t   o   m    
0061740    #       f   o 376 001  \0 356   j   r       N   I   L  \r  \t
0061760    T   N   u   m       =       #   1   1   4  \t  \t  \t   /   /
0062000        a   t   o   m       #       f   o   r       T  \r  \t   S
0062020    u   b   r   A   r   g   s   P   t   r       =       #   2   1
0062040    0  \t  \t   /   /       a   d   d   r       w   h   e   r   e
0062060        u   c   o   d   e       p   u   t   s       a   r   g   s
0062100   \r  \t   M   a   x   S   u   b   r   A   r   g   s       =    
0062120    1   2  \t  \t   /   /       m   a   x   i   m   u   m       n
0062140    a   r   g   s       f   o   r       a   n   y       s   u   b
0062160    r  \r  \t   l   E   D   C   B       =       6  \t  \t  \t   /
0062200    /       e   x   t   e   n   d   e   d       D   C   B       l
0062220    e   n   g   t   h  \r  \t   l   F   i   l   e   N   a   m   e
0062240        =       8   0  \t  \t  \t   /   /       f   i   l   e    
0062260    n   a   m   e       l   e   n   g   t   h       i   n       w
0062300    o   r   d   s  \r  \t   M   i   n   P   u   p   Z   o   n   e
0062320    L   e   n   g   t   h       =       8   0   0   0  \t  \t   /
0062340    /       s   p   a   c   e       f 376 001  \0 355 346   o   r
0062360        p   u   p       z   o   n   e  \r  \t   D   e   f   a   u
0062400    l   t   L   i   s   p   S   t   a   c   k   L   e   n   g   t
0062420    h       =       2   4   0   0  \t   /   /       ~   1   0    
0062440    p   a   g   e   s       f   o   r       b   c   p   l   /   l
0062460    i   s   p       s   t   a   c   k      \r  \t   e   x   t   r
0062500    a   B   u   f   W   a   n   t   e   d       =       1   2   *
0062520    W   o   r   d   s   P   e   r   P   a   g   e           /   /
0062540        h   o   w       m   u   c   h       b   u   f   f   e   r
0062560        t   o       g   i   v   e       t   o       L   i   s   p
0062600   \r  \t   E   b   C   r   e   a   t   i   o   n   D   a   t   e
0062620    S   t   a   r   t       =       4  \t  \t   /   /       i   .
0062640    e   .       t   h   i   r   d       w   o   r   d       o   f
0062660        f   i   l   e  \r  \t   L   i   s   p   V   e   r   s   i
0062700    o   n   S   t   a   r   t       =       #   2   0   0  \t  \t
0062720    /   /       b   y   t   e   p   o   s       i   n       e   b
0062740        f   i   l   e       o   f       v   e   r   s   i 376 001
0062760   \0   3   o   o   n       #   s  \r  \t   E   x   t   r   a   Z
0063000    o   n   e   S   i   z   e       =       2   *   W   o   r   d
0063020    s   P   e   r   P   a   g   e  \t   /   /       h   o   w    
0063040    m   u   c   h       t   o       a   l   l   o   c   a   t   e
0063060        o   n       /   Z  \r  \t   ]  \r  \r   s   t   r   u   c
0063100    t   u   r   e       V   e   r   s   :  \r                    
0063120                [  \t  \t  \t  \t  \t   /   /       M   i   c   r
0063140    o   c   o   d   e       V   e   r   s   i   o   n       w   o
0063160    r   d  \r  \t   m   a   c   h   T   y   p   e       b   i   t
0063200        4  \t  \t  \t  \t   /   /       m   a   c   h   i   n   e
0063220        t   y   p   e  \r  \t   e   m   u   l   T   y   p   e    
0063240    b   i   t       4  \t  \t  \t  \t   /   /       e   m   u   l
0063260    a   t   o   r   s       s   u   p   p   o   r   t   e   d  \r
0063300   \t   b   l   a   n   k       b   y   t   e  \r  \t   ]  \r  \r
0063320    s   t   r   u   c   t   u   r   e       S   t   r   i   n   g
0063340    :       [       l   e   n   g   t   h       b   y   t   e   ;
0063360        c   h 376 001  \0 356 362   a   r   ^   1   ,   2   5   5
0063400        b   y   t   e       ]  \r  \r   /   /       T   h   e    
0063420    a   d   d   r   e   s   s       o   f       A   l   l   o   c
0063440    V   e   c       i   s       u   s   e   d       a   s       t
0063460    h   e       b   a   s   e       o   f       t   h   e       i
0063500    n   i   t   i   a   l   i   z   a   t   i   o   n       c   o
0063520    d   e       i   n  \r   /   /       I   n   i   t   L   i   s
0063540    p       (   w   h   i   c   h       a   l   l   o   c   a   t
0063560    e   s       r   u   n       t   i   m   e       s   t   o   r
0063600    a   g   e       s   t   a   r   t   i   n   g       h   e   r
0063620    e   )   .       D   o       n   o   t       m   o   v   e  \r
0063640    /   /       w   i   t   h   i   n       t   h   e       f   i
0063660    l   e       o   r       c   h   a   n   g   e       o   r   d
0063700    e   r       o   f       f   i   l   e       l   o   a   d    
0063720    w   i   t   h   o   u   t       b   e   i   n   g       c   a
0063740    r   e   f   u   l   .  \r  \r   l   e   t       A   l   l   o
0063760    c   V   e   c   (   n   ,     376 001  \0   C 322   a   l   i
0064000    g   n   ;       n   u   m   a   r   g   s       n   a   r   g
0064020    s   )       =       v   a   l   o   f  \r  \r   /   /       A
0064040    l   l   o   c   P   t   r       i   s       i   n   i   t   i
0064060    a   l   i   z   e   d       t   o       t   h   e       f   i
0064100    r   s   t       a   d   d   r   e   s   s       t   h   a   t
0064120        c   a   n       b   e       u   s   e   d       t   o    
0064140    a   l   l   o   c   a   t   e  \r   /   /       p   e   r   m
0064160    a   n   e   n   t       d   a   t   a       s   t   r   u   c
0064200    t   u   r   e   s       (   A   l   l   o   c   V   e   c   )
0064220    .       T   h   e       f   i   r   s   t       t   w   o    
0064240    a   l   l   o   c   a   t   i   o   n   s       (   t   h   e
0064260   \r   /   /       P   u   p       z   o   n   e       a   n   d
0064300        t   h   e       B   c   p   l   /   L   i   s   p       r
0064320    u   n       t   i   m   e       s   t   a   c   k   )       a
0064340    r   e       m   a   d   e       o   v   e   r       t   h   e
0064360        t   o   p       o   f       t   h   e  \r   / 376 001  \0
0064400  312   N   /       i   n   i   t   i   a   l   i   z   a   t   i
0064420    o   n       c   o   d   e       a   n   d       a   r   e    
0064440    n   o   t       w   r   i   t   t   e   n       i   n   t   o
0064460        u   n   t   i   l       t   h   e       i   n   i   t   i
0064500    a   l   i   z   a   t   i   o   n       i   s  \r   /   /    
0064520    c   o   m   p   l   e   t   e   .  \r  \r               [  \r
0064540    /   /       I   f       a   l   i   g   n       i   s       s
0064560    p   e   c   i   f   i   e   d   ,       t   h   e       a   l
0064600    l   o   c   a   t   i   o   n       i   s       a   l   i   g
0064620    n       w   o   r   d       a   l   i   g   n   e   d   ,    
0064640    f   o   r       a   l   i   g   n       a       p   o   w   e
0064660    r       o   f       2   .  \r               i   f       n   a
0064700    r   g   s       e   q       2       t   h   e   n       [    
0064720    l   e   t       m   a   s   k   =   a   l   i   g   n   -   1
0064740   \r                                                            
0064760                                        A   l   l   o   c   P   t
0065000    r   = 376 001  \0 362 272   (   A   l   l   o   c   P   t   r
0065020    +   m   a   s   k   )       &       (   n   o   t       m   a
0065040    s   k   )  \r                                                
0065060                                            ]  \r               l
0065100    e   t       a   d   d   r   =   A   l   l   o   c   P   t   r
0065120   \t  \t   /   /       S   a   v   e       e   x   i   s   t   i
0065140    n   g       p   o   i   n   t   e   r       f   o   r       r
0065160    e   s   u   l   t  \r               A   l   l   o   c   P   t
0065200    r   =   A   l   l   o   c   P   t   r   +   n  \t  \t   /   /
0065220        M   o   v   e       t   o       a   f   t   e   r       t
0065240    h   i   s       a   l   l   o   c   a   t   i   o   n  \r    
0065260            t   e   s   t       A   l   l   o   c   I   n   F   i
0065300    r   s   t   B   l   o   c   k  \r  \t   i   f   s   o       i
0065320    f       U   s   c   (   A   l   l   o   c   P   t   r   ,    
0065340    A   l   l   o   c   E   n   d   )       g   r       0  \r  \t
0065360   \t   t   h   e   n       C   a   l   l   S   w   a   t       (
0065400    "   N   o   t       e   n 376 001  \0 033   i   o   u   g   h
0065420        i   n   i   t   i   a   l       a   l   l   o   c   a   t
0065440    i   o   n       s   p   a   c   e   "   )  \r  \t   i   f   n
0065460    o   t       i   f       U   s   c       (   A   l   l   o   c
0065500    P   t   r   ,       @   S   t   a   c   k   E   n   d   )    
0065520    g   r       0  \r  \t  \t   t   h   e   n       @   S   t   a
0065540    c   k   E   n   d   =   A   l   l   o   c   P   t   r  \t   /
0065560    /       R   e   s   e   t       e   n   d       o   f       s
0065600    t   a   c   k       t   o       a   f   t   e   r       a   l
0065620    l   o   c   a   t   i   o   n  \r               r   e   s   u
0065640    l   t   i   s       a   d   d   r  \r               ]  \r  \r
0065660    a   n   d       M   a   i   n   I   n   i   t   (   E   v   e
0065700    n   t   u   a   l   E   n   d   O   f   S   t   a   c   k   )
0065720        b   e  \r               [  \r               l   e   t    
0065740    m   a   k   e   Z   o   n   e       =       f   a   l   s   e
0065760   \r               d   s   p       =       0  \t  \t  \t  \t  \t
0066000    /   /       t   u   r   n       o   f   f     376 001  \0  \b
0066020  321   a   n   y       d   i   s   p   l   a   y  \r            
0066040    A   l   l   o   c   P   t   r       =       S   t   a   r   t
0066060    O   f   A   l   l   o   c   B   l   o   c   k  \r            
0066100    A   l   l   o   c   E   n   d       =       A   l   l   o   c
0066120    V   e   c  \r               A   l   l   o   c   I   n   F   i
0066140    r   s   t   B   l   o   c   k       =       t   r   u   e  \t
0066160    /   /       d   o       s   o   m   e       i   n   i   t   i
0066200    a   l       a   l   l   o   c       i   n       f   i   x   e
0066220    d  \r  \t  \t  \t  \t   /   /       b   l   o   c   k       r
0066240    e   s   e   r   v   e   d       b   y       l   o   a   d   e
0066260    r  \r  \r   /   /       I   n   i   t   i   a   l   i   z   e
0066300        n   e   w       k   e   y   b   o   a   r   d       d   r
0066320    i   v   e   r   .           D   o   n   e       q   u   i   c
0066340    k   l   y       s   o       t   y   p   e   a   h   e   a   d
0066360        i   s       n   o   t       l   o   s   t  \r            
0066400    K   B   D   i   n   i   t   (   )  \r  \r   /   /       W   e
0066420      376 001  \0 363   t   w   i   l   l       n   e   e   d    
0066440    s   p   a   c   e       f   o   r       t   h   e       s   i
0066460    n   g   l   e       d   i   s   k       s   t   r   e   a   m
0066500        t   h   a   t       c   a   n       b   e       o   p   e
0066520    n       a   t  \r   /   /       o   n   c   e       (   e   i
0066540    t   h   e   r       s   t   a   t   s       o   r       i   n
0066560    i   t   i   a   l   i   z   a   t   i   o   n   )       p   l
0066600    u   s       s   o   m   e       e   x   t   r   a       s   p
0066620    a   c   e       f   o   r       o   t   h   e   r  \r   /   /
0066640        d   i   v   e   r   s   e       a   l   l   o   c   a   t
0066660    i   o   n   s   .       H   e   r   e       w   e       c   r
0066700    e   a   t   e       a       S   y   s   Z   o   n   e       o
0066720    f       a   p   p   r   o   x   .       t   h   e       r   i
0066740    g   h   t       s   i   z   e   .  \r  \r   /   /       T   h
0066760    i   s       c   o   u   l   d       l   a   t   e   r       b
0067000    e       m   e   r   g   e   d       i   n   t   o       t   h
0067020    e       P   u   p   Z 376 001  \0   J 222   o   n   e       b
0067040    y       I   n   i   t   S   y   s   t   e   m  \r            
0067060    [  \r               l   e   t       s   z   l   =   2   *   (
0067100    l   K   S   +   W   o   r   d   s   P   e   r   P   a   g   e
0067120    )   +   W   o   r   d   s   P   e   r   P   a   g   e  \t   /
0067140    /       s   t   r   e   a   m   +   b   u   f   f   e   r   *
0067160    2       p   l   u   s       1       p   a   g   e  \r        
0067200        s   y   s   Z   o   n   e       =       I   n   i   t   i
0067220    a   l   i   z   e   Z   o   n   e   (   A   l   l   o   c   V
0067240    e   c   (   s   z   l   )   ,   s   z   l   )  \t   /   /    
0067260    f   o   r       u   s  \r               @   l   v   S   y   s
0067300    Z   o   n   e       =       s   y   s   Z   o   n   e  \t  \t
0067320   \t  \t   /   /       f   o   r       O   s  \r               ]
0067340   \r  \r   /   /       d   o   n   '   t       d   o       t   h
0067360    i   s       u   n   t   i   l       s   y   s   Z   o   n   e
0067400        e   x   i   s   t   s  \r               i   f       V   e
0067420    r   s   i   o   n   (   )   <   <   V   e 376 001  \0   q 257
0067440    r   s   .   e   m   u   l   T   y   p   e       e   q       4
0067460   \t  \t   /   /       L   i   s   p       e   m   u   l       =
0067500        4  \r                       t   h   e   n       h   a   v
0067520    e   U   c   o   d   e       =       t   r   u   e  \r  \r    
0067540            l   e   t       R   a   m   V   ,       M   i   n   B
0067560    c   p   l   F   o   r   R   a   m   ,       M   L   F   R   ,
0067600        s   w   ,       p   n   u   m   ,       p   p   m   ,    
0067620    h   o   s   t   0   ,       h   o   s   t   1   ,       h   o
0067640    s   t   2  \r                               =       0   ,    
0067660    n   i   l   ,       n   i   l   ,       n   i   l   ,       n
0067700    i   l   ,       n   i   l   ,       0   ,       0   ,       0
0067720   \t   /   /       a   d   j   a   c   e   n   t       f   o   r
0067740        I   n   i   t   L   i   s   p   R   e   g   s  \r  \r    
0067760            l   e   t       o   r   i   g   C   u   r   s   o   r
0070000        =       v   e   c       1   6  \r               S   w   a
0070020    p   C   u   r   s   o   r   s       (   o   r   i   g   C   u
0070040  376 001  \0 210 230   r   s   o   r   ,       t   a   b   l   e
0070060    [  \r  \t  \t  \t  \t   #   1   7   7   7   7   7   ;       #
0070100    1   0   0   0   0   1   ;       #   4   0   0   0   2   ;    
0070120    #   2   5   5   4   4   ;  \r  \t  \t  \t  \t       #   1   7
0070140    7   7   0   ;               #   7   7   6   0   ;           #
0070160    3   7   4   0   ;           #   1   7   0   0   ;  \r  \t  \t
0070200   \t  \t           #   1   1   0   0   ;               #   2   4
0070220    4   0   ;           #   4   2   2   0   ;       #   1   0   6
0070240    1   0   ;  \r  \t  \t  \t  \t       #   2   1   7   0   4   ;
0070260        #   4   7   7   4   2   ;       #   1   7   7   7   7   7
0070300    ;       #   1   7   7   7   7   7       ]   )  \r  \t  \t  \t
0070320    /   /       s   e   t       h   o   u   r   -   g   l   a   s
0070340    s       c   u   r   s   o   r  \r  \r   /   /       S   e   t
0070360        u   p       u   c   o   c   e   /   b   c   p   l       c
0070400    o   m   m   u   n   i   c   a   t   i   o   n       a   r   e
0070420    a       i   n       l   o   c   a   t   i   o   n   s       #
0070440    2   0   0   -   # 376 001  \0 373   -   2   7   7  \r        
0070460        @   S   t   a   t   s   P   t   r       =       0  \t  \t
0070500    /   /       n   o       s   t   a   t   s       i   n   i   t
0070520    i   a   l   l   y  \r               @   #   2   0   6       =
0070540        #   2   0   0   0       %       l   v       B   c   p   l
0070560   \t   /   /       =       J   M   P       @   B   c   p   l    
0070600   \r               @   #   2   0   7       =       #   7   7   4
0070620    0   0  \t  \t   /   /       C   a   l   l   S   w   a   t    
0070640    i   n       c   a   s   e       #   2   0   6       g   e   t
0070660    s       c   l   o   b   b   e   r   e   d  \r  \r   /   /    
0070700    S   u   b   r       a   r   g   u   m   e   n   t       p   a
0070720    s   s   i   n   g       s   t   r   u   c   t   u   r   e   s
0070740    .       S   u   b   r   A   r   g   s   P   t   r       =    
0070760    #   2   1   0  \r               S   u   b   r   A   r   g   s
0071000    V   e   c   t   o   r       =       A   l   l   o   c   V   e
0071020    c   (   M   a   x   S   u   b   r   A   r   g   s   )  \t   /
0071040    /       B   c   p   l       a   r   g 376 001  \0   X   *   s
0071060        v   e   c   t   o   r  \r               f   o   r       i
0071100        =       0       t   o       M   a   x   S   u   b   r   A
0071120    r   g   s   -   1       d   o       S   u   b   r   A   r   g
0071140    s   V   e   c   t   o   r   !   i   =   S   u   b   r   A   r
0071160    g   s   P   t   r   +   2   *   i  \r  \r   /   /       B   i
0071200    n   d   i   n   g       v   a   r   i   o   u   s       a   t
0071220    o   m       p   o   i   n   t   e   r   s       w   h   i   c
0071240    h       g   o       b   a   c   k       t   o       L   i   s
0071260    p   .  \r   /   /       T   h   e       a   t   o   m       n
0071300    u   m   b   e   r   s       o   f       T       a   n   d    
0071320    N   I   L       u   s   e   d       t   o       c   o   m   e
0071340        f   r   o   m       t   h   e       I   P   a   g   e   ,
0071360        n   o   w       c   o   n   s   t   a   n   t   s  \r    
0071400            l   v   N   I   L       =       M   a   k   e   A   t
0071420    o   m   P   t   r   (   N   I   L   N   u   m   )  \r        
0071440        l   v   K   T       =       M   a   k   e   A   t   o 376
0071460  001  \0 025 250   m   P   t   r   (   T   N   u   m   )  \r  \r
0071500    /   /       B   i   n   d       v   a   r   i   o   u   s    
0071520    s   t   a   t   i   c   s  \r               l   v   V   P   t
0071540    r       =       l   v       V   P   t   r   0  \r            
0071560    S   u   b   r   B   a   s   e       =       l   v       u   C
0071600    o   d   e   C   h   e   c   k  \t  \t   /   /       F   i   r
0071620    s   t       S   U   B   R  \r  \r   /   /       S   e   t    
0071640    u   p       c   o   n   t   e   x   t       s   t   r   u   c
0071660    t   u   r   e   s       f   o   r       P   u   p       p   a
0071700    c   k   a   g   e  \r               C   o   n   t   e   x   t
0071720    Q   =   A   l   l   o   c   V   e   c   (   2   )   ;        
0071740    C   o   n   t   e   x   t   Q   !   0   =   0  \t   /   /    
0071760    A   l   l   o   c   a   t   e       a   n   d       e   m   p
0072000    t   y       C   o   n   t   e   x   t   Q  \r  \r   /   /    
0072020    O   p   e   n       t   h   e       s   y   s   f   o   n   t
0072040        f   i   l   e   ,       g   e   t       t   h   e       f
0072060    i   l   e     376 001  \0 304   q   l   e   n   g   t   h    
0072100    a   n   d       a   l   l   o   c   a   t   e       s   p   a
0072120    c   e       f   o   r       t   h   e       f   o   n   t  \r
0072140                [       l   e   t       s       =       C   r   e
0072160    a   t   e   D   i   s   k   S   t   r   e   a   m   (   f   p
0072200    S   y   s   F   o   n   t   ,       k   s   T   y   p   e   R
0072220    e   a   d   O   n   l   y   ,       w   o   r   d   I   t   e
0072240    m   )  \r                       l   e   t       s   l       =
0072260        (   F   i   l   e   L   e   n   g   t   h   (   s   )    
0072300    +       1   )       r   s   h   i   f   t       1  \t   /   /
0072320        i   n       w   o   r   d   s  \r                       i
0072340    f       U   s   c   (   A   l   l   o   c   P   t   r   +   s
0072360    l   ,       A   l   l   o   c   E   n   d   )       g   r    
0072400    0  \r  \t   t   h   e   n       [  \t  \t  \t  \t   /   /    
0072420    S   y   s   F   o   n   t       t   o   o       b   i   g  \r
0072440   \t  \t   C   l   o   s   e   s   (   s   )  \t  \t   /   /    
0072460    c   l   o   s   e       i   t  \r 376 001  \0 371 367  \t  \t
0072500    l   e   t       s       =       O   p   e   n   F   i   l   e
0072520        (   "   G   a   c   h   a   1   0   .   a   l   "   ,    
0072540    k   s   T   y   p   e   R   e   a   d   O   n   l   y   ,    
0072560    w   o   r   d   I   t   e   m   )  \r  \t  \t  \t  \t  \t   /
0072600    /       t   r   y       f   o   r       a       c   o   m   m
0072620    o   n       s   m   a   l   l   e   r       f   o   n   t  \r
0072640   \t  \t   i   f       s       e   q       0  \r  \t  \t        
0072660        t   h   e   n       G   i   v   e   U   p       (   "   S
0072700    o   r   r   y   ,       y   o   u   r       S   y   s   F   o
0072720    n   t   .   a   l       i   s       t   o   o       b   i   g
0072740    *   N   /   /       "   ,  \r  \t  \t           "   C   o   u
0072760    l   d   n   '   t       f   i   n   d       {   D   S   K   }
0073000    G   a   c   h   a   1   0   .   a   l       (   a   n       a
0073020    c   c   e   p   t   a   b   l   e       a   l   t   e   r   n
0073040    a   t   i   v   e   )   "   )  \r  \t  \t   l   e   t       s
0073060    l       =       (   F   i   l   e   L   e   n   g   t 376 001
0073100   \0 362 315   h   (   s   )       +       1   )       r   s   h
0073120    i   f   t       1  \t   /   /       G   a   c   h   a       s
0073140    i   z   e  \r  \t  \t   ]  \r                       l   e   t
0073160        f   o   n   t   b   l   k       =       A   l   l   o   c
0073200    V   e   c   (   s   l   )  \t  \t  \t   /   /       s   p   a
0073220    c   e       f   o   r       s   y   s   F   o   n   t  \r    
0073240                    R   e   s   e   t   s   (   s   )  \r        
0073260                R   e   a   d   B   l   o   c   k   (   s   ,    
0073300    f   o   n   t   b   l   k   ,       s   l   )  \r            
0073320            C   l   o   s   e   s   (   s   )  \r               /
0073340    /       T   h   e       s   y   s   F   o   n   t       s   t
0073360    a   t   i   c       i   s       s   e   t       t   o       t
0073400    h   e       t   h   i   r   d       w   o   r   d       o   f
0073420        t   h   e       f   o   n   t   ,       w   h   i   c   h
0073440        i   s  \r               /   /       w   h   a   t       i
0073460    s       w   a   n   t   e   d       b   y       t   h   e    
0073500    c   h   a 376 001  \0 220   }   r   a   c   t   e   r       d
0073520    i   s   p   l   a   y       r   o   u   t   i   n   e   s   .
0073540   \r                       s   y   s   F   o   n   t   =   f   o
0073560    n   t   b   l   k   +   2  \r                       s   y   s
0073600    F   o   n   t   C   h   a   r   W   i   d   t   h       =    
0073620    C   h   a   r   W   i   d   t   h       (   s   y   s   F   o
0073640    n   t   ,       $   A   )  \t   /   /       f   o   r       R
0073660    a   i   d  \r               ]  \r  \r  \r   /   /       R   e
0073700    a   d       c   o   m   m   a   n   d       l   i   n   e    
0073720    -       d   e   c   i   d   e   s       w   h   e   t   h   e
0073740    r       s   y   s   i   n       o   r       r   e   s   u   m
0073760    e  \r  \r               l   e   t       f   o   o       =    
0074000    v   e   c       l   F   i   l   e   N   a   m   e  \r        
0074020        S   y   s   i   n   N   a   m   e       =       f   o   o
0074040   \r               S   y   s   i   n   N   a   m   e   !   0    
0074060    =       0  \t  \t  \t   /   /       e   m   p   t   y       u
0074100    n   t   i   l       o   n   e 376 001  \0 255 353       i   s
0074120        s   p   e   c   i   f   i   e   d  \r               l   e
0074140    t       s   t   a   t   s   N   a   m   e       =       v   e
0074160    c       l   F   i   l   e   N   a   m   e  \r               s
0074200    t   a   t   s   N   a   m   e   !   0       =       0  \t  \t
0074220   \t   /   /       e   m   p   t   y       u   n   t   i   l    
0074240    o   n   e       i   s       s   p   e   c   i   f   i   e   d
0074260   \r               l   e   t       L   i   s   p   U   c   o   d
0074300    e   N   a   m   e       =       v   e   c       l   F   i   l
0074320    e   N   a   m   e  \r               t   e   s   t       h   a
0074340    v   e   U   c   o   d   e  \r                           i   f
0074360    s   o       L   i   s   p   U   c   o   d   e   N   a   m   e
0074400    !   0       =       0  \t  \t   /   /       d   o   n   '   t
0074420        n   e   e   d       t   o       l   o   a   d       m   i
0074440    c   r   o   c   o   d   e  \r                       i   f   n
0074460    o   t       t   e   s   t       M   a   c   h   i   n   e   T
0074500    y   p   e   (   )       e   q       D   o   l   p 376 001  \0
0074520  363 256   h   i   n  \r  \t                       i   f   s   o
0074540        M   o   v   e   B   l   o   c   k   (   L   i   s   p   U
0074560    c   o   d   e   N   a   m   e   ,       "   D   o   l   p   h
0074600    i   n   L   i   s   p   M   c   .   e   b   "   ,       9   )
0074620   \r  \t                   i   f   n   o   t       M   o   v   e
0074640    B   l   o   c   k   (   L   i   s   p   U   c   o   d   e   N
0074660    a   m   e   ,       "   D   o   r   a   d   o   L   i   s   p
0074700    M   c   .   e   b   "   ,       8   )  \r               l   e
0074720    t       l   i   s   p   U   c   o   d   e   F   p       =    
0074740    0  \r               l   e   t       A   l   t   o   U   c   o
0074760    d   e   N   a   m   e       =       v   e   c       l   F   i
0075000    l   e   N   a   m   e  \r               M   o   v   e   B   l
0075020    o   c   k   (   A   l   t   o   U   c   o   d   e   N   a   m
0075040    e   ,       (   M   a   c   h   i   n   e   T   y   p   e   (
0075060    )       e   q       D   o   l   p   h   i   n   ?       "   A
0075100    l   t   o   D   0   M   c   .   e   b   "   ,       "   A   l
0075120    t   o 376 001  \0 311 353   D   1   M   c   .   e   b   "   )
0075140    ,       6   )  \r               l   e   t       a   s   k   e
0075160    d   F   o   r   A   l   t   o       =       f   a   l   s   e
0075200   \r               l   e   t       q   u   i   t   E   a   r   l
0075220    y       =       f   a   l   s   e  \r  \r       [   C   o   m
0075240    P   a   r   s   e  \r               l   e   t       b   o   d
0075260    y       =       v   e   c       l   F   i   l   e   N   a   m
0075300    e  \r               l   e   t       C   O   M   s   t   r   e
0075320    a   m       =       C   r   e   a   t   e   D   i   s   k   S
0075340    t   r   e   a   m   (   f   p   C   o   m   C   m   ,       k
0075360    s   T   y   p   e   R   e   a   d   O   n   l   y   ,       c
0075400    h   a   r   I   t   e   m   )  \r               l   e   t    
0075420    s   w   i   t   c   h   ,       b   o   d   y   l   e   n   ,
0075440        b   o   d   y   w   o   r   d   s       =       0   ,    
0075460    0   ,       0  \r               l   e   t       f   i   r   s
0075500    t   N   a   m   e   F   o   u   n   d       =       0  \r    
0075520   \t   [  \t  \t  \t  \t   / 376 001  \0 353 372   /       b   e
0075540    g   i   n       l   o   o   p  \r  \t   l   e   t       c   h
0075560        =       E   n   d   o   f   s   (   C   O   M   s   t   r
0075600    e   a   m   )   ?       $   *   N   ,       G   e   t   s   (
0075620    C   O   M   s   t   r   e   a   m   )  \r  \t   s   w   i   t
0075640    c   h   o   n       c   h       i   n   t   o  \r  \t        
0075660        [  \r  \t               c   a   s   e       $   *   S   :
0075700        c   a   s   e       $   *   N   :  \t  \t  \t   /   /    
0075720    e   n   d       o   f       t   o   k   e   n  \r  \t  \t   i
0075740    f       f   i   r   s   t   N   a   m   e   F   o   u   n   d
0075760        e   q       0  \r  \t  \t               t   h   e   n    
0076000    e   n   d   c   a   s   e  \r  \t  \t   i   f       b   o   d
0076020    y   l   e   n  \r  \t  \t               t   h   e   n       [
0076040   \r  \t  \t  \t   b   o   d   y   >   >   S   t   r   i   n   g
0076060    .   l   e   n   g   t   h       =       b   o   d   y   l   e
0076100    n  \r  \t  \t  \t   b   o   d   y   w   o   r   d   s       =
0076120        (   b   o   d   y   l   e   n       r   s 376 001  \0   0
0076140  231   h   i   f   t       1   )       +       1  \r  \t  \t  \t
0076160    ]  \r  \t  \t   s   w   i   t   c   h   o   n       s   w   i
0076200    t   c   h       i   n   t   o  \r  \t  \t               [  \r
0076220   \t  \t               c   a   s   e       0   :       c   a   s
0076240    e       -   1   :  \t  \t   /   /       n   o       s   w   i
0076260    t   c   h  \r  \t  \t  \t   i   f       b   o   d   y   l   e
0076300    n       e   q       0  \r  \t  \t  \t               t   h   e
0076320    n       e   n   d   c   a   s   e  \t   /   /       e   l   s
0076340    e       f   a   l   l       t   h   r   u       f   o   r    
0076360    d   e   f   a   u   l   t       /   I  \r  \t  \t            
0076400    c   a   s   e       $   I   :       c   a   s   e       $   i
0076420    :  \t  \t   /   /       s   y   s   i   n       n   a   m   e
0076440   \r  \t  \t  \t   t   e   s   t       b   o   d   y   l   e   n
0076460   \r  \t  \t  \t               i   f   s   o       M   o   v   e
0076500    B   l   o   c   k   (   S   y   s   i   n   N   a   m   e   ,
0076520        b   o   d   y   ,       b   o   d   y   w   o   r   d   s
0076540    ) 376 001  \0 304 262  \r  \t  \t  \t           i   f   n   o
0076560    t       M   o   v   e   B   l   o   c   k   (   S   y   s   i
0076600    n   N   a   m   e   ,       "   L   i   s   p   .   s   y   s
0076620    o   u   t   "   ,       6   )  \r  \t  \t  \t   e   n   d   c
0076640    a   s   e  \r  \t  \t               c   a   s   e       $   N
0076660    :       c   a   s   e       $   n   :  \t  \t   /   /       s
0076700    e   t       U   s   e   r   N   a   m   e  \r  \t  \t  \t   u
0076720    n   l   e   s   s       b   o   d   y   w   o   r   d   s    
0076740    g   r       U   s   e   r   N   a   m   e   !   -   1  \r  \t
0076760   \t  \t               d   o       M   o   v   e   B   l   o   c
0077000    k   (   U   s   e   r   N   a   m   e   ,       b   o   d   y
0077020    ,       b   o   d   y   w   o   r   d   s   )  \r  \t  \t  \t
0077040    e   n   d   c   a   s   e  \r  \t  \t               c   a   s
0077060    e       $   S   :       c   a   s   e       $   s   :  \t  \t
0077100    /   /       o   p   e   n       s   t   a   t   s       f   i
0077120    l   e  \r  \t  \t  \t   t   e   s   t       b   o   d   y   l
0077140    e   n  \r  \t  \t  \t 376 001  \0   W 376               i   f
0077160    s   o       M   o   v   e   B   l   o   c   k   (   s   t   a
0077200    t   s   N   a   m   e   ,       b   o   d   y   ,       b   o
0077220    d   y   w   o   r   d   s   )  \r  \t  \t  \t           i   f
0077240    n   o   t       M   o   v   e   B   l   o   c   k   (   s   t
0077260    a   t   s   N   a   m   e   ,       "   L   i   s   p   .   s
0077300    t   a   t   s   "   ,       6   )  \r  \t  \t  \t   e   n   d
0077320    c   a   s   e  \r  \t  \t               c   a   s   e       $
0077340    M   :       c   a   s   e       $   m   :  \t  \t   /   /    
0077360    l   o   a   d       m   i   c   r   o   c   o   d   e       f
0077400    i   l   e  \r  \t  \t  \t   t   e   s   t       b   o   d   y
0077420    l   e   n  \r  \t  \t  \t               i   f   s   o       M
0077440    o   v   e   B   l   o   c   k   (   L   i   s   p   U   c   o
0077460    d   e   N   a   m   e   ,       b   o   d   y   ,       b   o
0077500    d   y   w   o   r   d   s   )  \r  \t  \t  \t           i   f
0077520    n   o   t       t   e   s   t       M   a   c   h   i   n   e
0077540    T   y   p   e   (   )       e   q       D 376 001  \0   b   E
0077560    o   l   p   h   i   n  \r  \t  \t  \t  \t           i   f   s
0077600    o       M   o   v   e   B   l   o   c   k   (   L   i   s   p
0077620    U   c   o   d   e   N   a   m   e   ,       "   D   o   l   p
0077640    h   i   n   L   i   s   p   M   c   .   e   b   "   ,       9
0077660    )  \r  \t  \t  \t  \t       i   f   n   o   t       M   o   v
0077700    e   B   l   o   c   k   (   L   i   s   p   U   c   o   d   e
0077720    N   a   m   e   ,       "   D   o   r   a   d   o   L   i   s
0077740    p   M   c   .   e   b   "   ,       8   )  \r  \t  \t  \t   h
0077760    a   v   e   U   c   o   d   e       =       f   a   l   s   e
0100000   \t   /   /       i   g   n   o   r   e       l   o   a   d   e
0100020    d       u   c   o   d   e  \r  \t  \t  \t   e   n   d   c   a
0100040    s   e  \r  \t  \t               c   a   s   e       $   A   :
0100060        c   a   s   e       $   a   :  \t  \t   /   /       s   p
0100100    e   c   i   f   y       a   l   t   o       u   c   o   d   e
0100120        f   i   l   e  \r  \t  \t  \t   t   e   s   t       (   b
0100140    o   d   y   l   e   n       n   e       0   )       &  \r  \t
0100160  376 001  \0   ; 026  \t  \t  \t       (   (   b   o   d   y   l
0100200    e   n       g   r       1   )       %       b   o   d   y   >
0100220    >   S   t   r   i   n   g   .   c   h   a   r   ^   1       n
0100240    e       $   -   )  \r  \t  \t  \t               i   f   s   o
0100260        [  \t  \t   /   /       -   /   A       m   e   a   n   s
0100300        n   o   n   e  \r  \t  \t  \t  \t   M   o   v   e   B   l
0100320    o   c   k   (   A   l   t   o   U   c   o   d   e   N   a   m
0100340    e   ,       b   o   d   y   ,       b   o   d   y   w   o   r
0100360    d   s   )  \r  \t  \t  \t          \t   a   s   k   e   d   F
0100400    o   r   A   l   t   o       =       t   r   u   e  \r  \t  \t
0100420   \t  \t   ]  \r  \t  \t  \t           i   f   n   o   t       A
0100440    l   t   o   U   c   o   d   e   N   a   m   e   !   0       =
0100460        0  \r  \t  \t  \t   e   n   d   c   a   s   e  \r  \t  \t
0100500                c   a   s   e       $   F   :       c   a   s   e
0100520        $   f   :       f   i   l   l   M   e   m   o   r   y    
0100540    =       t   r   u   e   ;       e   n   d   c   a   s   e  \r
0100560   \t  \t             376 001  \0 270   $   c   a   s   e       $
0100600    Z   :       c   a   s   e       $   z   :       m   a   k   e
0100620    Z   o   n   e       =       t   r   u   e   ;       e   n   d
0100640    c   a   s   e  \r  \t  \t               c   a   s   e       $
0100660    R   :       c   a   s   e       $   r   :       c   a   l   l
0100700    R   a   i   d       =       t   r   u   e   ;       e   n   d
0100720    c   a   s   e  \r  \t  \t               c   a   s   e       $
0100740    Q   :       c   a   s   e       $   q   :       q   u   i   t
0100760    E   a   r   l   y       =       t   r   u   e   ;       e   n
0101000    d   c   a   s   e  \r  \t  \t               ]  \r  \t  \t   i
0101020    f       E   n   d   o   f   s   (   C   O   M   s   t   r   e
0101040    a   m   )       t   h   e   n       b   r   e   a   k  \r  \t
0101060   \t   b   o   d   y   l   e   n       =       0  \r  \t  \t   s
0101100    w   i   t   c   h       =       0  \r  \t  \t   f   i   r   s
0101120    t   N   a   m   e   F   o   u   n   d       =       -   1  \r
0101140   \t  \t   e   n   d   c   a   s   e  \r  \t               c   a
0101160    s   e       $   /   :  \t  \t  \t   / 376 001  \0   s 303   /
0101200        m   a   y   b   e       a       s   w   i   t   c   h  \r
0101220   \t  \t   i   f       s   w   i   t   c   h       e   q       0
0101240   \r  \t  \t               t   h   e   n       [       s   w   i
0101260    t   c   h       =       -   1  \t   /   /       s   i   g   n
0101300    a   l       a       s   w   i   t   c   h       s   t   a   r
0101320    t  \r  \t  \t  \t           e   n   d   c   a   s   e       ]
0101340   \r  \t  \t  \t  \t  \t   /   /       e   l   s   e       f   a
0101360    l   l       t   h   r   u  \r  \t               d   e   f   a
0101400    u   l   t   :  \t  \t  \t   /   /       p   a   r   t       o
0101420    f       a       b   o   d   y       o   r       s   w   i   t
0101440    c   h  \r  \t  \t   t   e   s   t       s   w   i   t   c   h
0101460        e   q       -   1  \r  \t  \t               i   f   s   o
0101500        s   w   i   t   c   h       =       c   h  \t   /   /    
0101520    s   e   t       o   n   e   -   c   h   a   r       s   w   i
0101540    t   c   h  \r  \t  \t           i   f   n   o   t  \t   [  \t
0101560   \t   /   /       f   i   l   l       i   n       b   o   d 376
0101600  001  \0 236  \v   y  \r  \t  \t  \t   i   f       f   i   r   s
0101620    t   N   a   m   e   F   o   u   n   d       g   e       0  \r
0101640   \t  \t  \t               t   h   e   n       [       f   i   r
0101660    s   t   N   a   m   e   F   o   u   n   d       =       1  \r
0101700   \t  \t  \t  \t           e   n   d   c   a   s   e           /
0101720    /       i   g   n   o   r   e       l   i   s   p   .   r   u
0101740    n  \r  \t  \t  \t  \t   ]  \r  \t  \t  \t   i   f       s   w
0101760    i   t   c   h  \r  \t  \t  \t               t   h   e   n    
0102000    [  \t   /   /       m   u   l   t   i   -   c   h   a   r    
0102020    s   w   i   t   c   h       p   a   r   s   e   d       a   s
0102040        b   o   d   y  \r  \t  \t  \t  \t   b   o   d   y   l   e
0102060    n       =       b   o   d   y   l   e   n   +   2  \r  \t  \t
0102100   \t  \t   b   o   d   y   >   >   S   t   r   i   n   g   .   c
0102120    h   a   r   ^   (   b   o   d   y   l   e   n   -   1   )    
0102140    =       $   /  \r  \t  \t  \t  \t   b   o   d   y   >   >   S
0102160    t   r   i   n   g   .   c   h   a   r   ^   b   o   d   y   l
0102200    e   n       = 376 001  \0 221   0       s   w   i   t   c   h
0102220   \r  \t  \t  \t  \t   s   w   i   t   c   h       =       0  \r
0102240   \t  \t  \t  \t   ]  \r  \t  \t  \t   b   o   d   y   l   e   n
0102260        =       b   o   d   y   l   e   n   +   1  \r  \t  \t  \t
0102300    b   o   d   y   >   >   S   t   r   i   n   g   .   c   h   a
0102320    r   ^   b   o   d   y   l   e   n       =       c   h  \r  \t
0102340   \t  \t   ]  \r  \t               ]  \r  \t   ]       r   e   p
0102360    e   a   t  \t  \t   /   /       e   n   d       u   n   t   i
0102400    l  \r  \r  \r               C   l   o   s   e   s   (   C   O
0102420    M   s   t   r   e   a   m   )  \t  \t   /   /       c   l   o
0102440    s   e       a   n   d       d   i   s   c   a   r   d       C
0102460    O   M   s   t   r   e   a   m  \r       ]   C   o   m   P   a
0102500    r   s   e  \r  \r               [  \t  \t  \t  \t  \t   /   /
0102520        l   o   o   k       u   p       t   h   e       l   i   s
0102540    p       s   y   s   t   e   m       f   i   l   e   s  \r    
0102560            l   e   t       V   M   E   M   i   d   ,       S   Y
0102600    S   I   N   i   d       =       0 376 001  \0 342 025   ,    
0102620    0  \r               l   e   t       R   e   m   o   t   e   P
0102640        =       f   a   l   s   e  \r               l   e   t    
0102660    d   e   v       =       v   e   c       5   *   l   D   V  \t
0102700   \t  \t   /   /       l   D   V       =       l   e   n       d
0102720    i   r       e   n   t   r   y  \r               l   e   t    
0102740    S   y   s   D   i   r       =       C   r   e   a   t   e   D
0102760    i   s   k   S   t   r   e   a   m   (   f   p   S   y   s   D
0103000    i   r   ,       k   s   T   y   p   e   R   e   a   d   W   r
0103020    i   t   e   ,       w   o   r   d   I   t   e   m   )  \r    
0103040            l   e   t       n   a   m   e   v       =       v   e
0103060    c       5  \r               n   a   m   e   v   !   0       =
0103100        "   L   I   S   P   .   V   I   R   T   U   A   L   M   E
0103120    M   .   "  \r               n   a   m   e   v   !   1       =
0103140        S   y   s   i   n   N   a   m   e   !   0       ?       S
0103160    y   s   i   n   N   a   m   e   ,       0  \r               n
0103200    a   m   e   v   !   2       =       s   t   a   t   s 376 001
0103220   \0 035 257   N   a   m   e   !   0       ?       s   t   a   t
0103240    s   N   a   m   e   ,       0  \r               n   a   m   e
0103260    v   !   3       =       L   i   s   p   U   c   o   d   e   N
0103300    a   m   e   !   0       ?       L   i   s   p   U   c   o   d
0103320    e   N   a   m   e   ,       0  \r               n   a   m   e
0103340    v   !   4       =       A   l   t   o   U   c   o   d   e   N
0103360    a   m   e   !   0       ?       A   l   t   o   U   c   o   d
0103400    e   N   a   m   e   ,       0  \r               i   f       S
0103420    y   s   i   n   N   a   m   e   !   0      \r                
0103440            t   h   e   n       [       l   e   t       i       =
0103460        1  \r  \t                       [           l   e   t    
0103500    c   h       =       n   i   l  \r  \t  \t   c   h       =    
0103520    S   y   s   i   n   N   a   m   e   >   >   S   t   r   i   n
0103540    g   .   c   h   a   r   ^   i  \r  \t  \t   i   f       c   h
0103560        e   q       $   {       %       c   h       e   q       $
0103600    [  \t   /   /       i   f       r   e   m   o   t   e       n
0103620    a   m   e 376 001  \0   M 256   ,       d   o   n   '   t    
0103640    l   o   o   k   u   p       n   o   w   ]  \r  \t  \t        
0103660        t   h   e   n       [       n   a   m   e   v   !   1    
0103700    =       0   ;       R   e   m   o   t   e   P       =       t
0103720    r   u   e   ;       b   r   e   a   k       ]  \r  \t  \t   i
0103740    f       c   h       n   e       $   *   S  \r  \t  \t        
0103760        t   h   e   n       b   r   e   a   k  \r  \t  \t   i    
0104000    =       i   +   1       ]       r   e   p   e   a   t   u   n
0104020    t   i   l       i       g   r       S   y   s   i   n   N   a
0104040    m   e   >   >   S   t   r   i   n   g   .   l   e   n   g   t
0104060    h  \r  \t               ]  \r               L   o   o   k   u
0104100    p   E   n   t   r   i   e   s   (   S   y   s   D   i   r   ,
0104120        n   a   m   e   v   ,       d   e   v   ,       5   ,    
0104140    t   r   u   e   )  \r              \t  \t  \t   /   /       +
0104160    1       t   u   r   n   s       d   i   r       e   n   t   r
0104200    i   e   s       i   n   t   o       f   i   l   e   p   t   r
0104220    s  \r               /   /     376 001  \0 264 366   d   o   n
0104240    t       c   r   e   a   t   e       v   m   e   m       f   i
0104260    l   e       -       i   t       s   h   o   u   l   d       e
0104300    x   i   s   t       (   c   o   n   t   i   g   u   o   u   s
0104320    l   y   !   )       a   l   r   e   a   d   y  \r            
0104340    f   o   r       i       =       0       t   o       4  \r    
0104360                    d   o       [  \r              \t   t   e   s
0104400    t       @   d   e   v  \r  \t               i   f   s   o    
0104420    [       s   w   i   t   c   h   o   n       i       i   n   t
0104440    o  \r  \t  \t               [  \r  \t  \t               c   a
0104460    s   e       0   :       V   M   E   M   i   d       =       d
0104500    e   v   +   1   ;       e   n   d   c   a   s   e  \r  \t  \t
0104520                c   a   s   e       1   :       S   Y   S   I   N
0104540    i   d       =       d   e   v   +   1   ;       e   n   d   c
0104560    a   s   e  \r  \t  \t               c   a   s   e       2   :
0104600        s   t   a   t   s   F   P       =       A   l   l   o   c
0104620    a   t   e   (   s   y   s   Z   o   n   e   ,     376 001  \0
0104640    l 300   l   F   P   )  \r  \t  \t  \t               M   o   v
0104660    e   B   l   o   c   k       (   s   t   a   t   s   F   P   ,
0104700        d   e   v   +   1   ,       l   F   P   )  \r  \t  \t  \t
0104720                e   n   d   c   a   s   e  \r  \t  \t            
0104740    c   a   s   e       3   :       l   i   s   p   U   c   o   d
0104760    e   F   p       =       d   e   v   +   1   ;       e   n   d
0105000    c   a   s   e  \r  \t  \t               c   a   s   e       4
0105020    :       a   l   t   o   U   c   o   d   e   F   p       =    
0105040    A   l   l   o   c   a   t   e   (   s   y   s   Z   o   n   e
0105060    ,       l   F   P   )  \r  \t  \t  \t               M   o   v
0105100    e   B   l   o   c   k       (   a   l   t   o   U   c   o   d
0105120    e   F   p   ,       d   e   v   +   1   ,       l   F   P   )
0105140   \r  \t  \t  \t               e   n   d   c   a   s   e  \r  \t
0105160   \t               ]  \r  \t  \t   ]  \r  \t           i   f   n
0105200    o   t       i   f       (   n   a   m   e   v   !   i       n
0105220    e       0   )       &       (   (   i       n   e       4   )
0105240        % 376 001  \0 017 002       a   s   k   e   d   F   o   r
0105260    A   l   t   o   )  \r  \t  \t               t   h   e   n    
0105300    G   i   v   e   U   p       (   "   C   a   n   t       f   i
0105320    n   d       "   ,       n   a   m   e   v   !   i   )  \r  \t
0105340    d   e   v       =       d   e   v   +   l   D   V  \t  \t  \t
0105360    /   /       m   o   v   e       o   n       t   o       n   e
0105400    x   t       f   i   l   e  \r  \t   ]  \r               C   l
0105420    o   s   e   s   (   S   y   s   D   i   r   )  \r  \r   /   /
0105440        w   e       n   o   w       k   n   o   w       w   h   a
0105460    t       k   i   n   d       o   f       s   y   s   i   n   ,
0105500        i   f       a   n   y   ,       t   o       d   o  \r    
0105520            t   e   s   t       h   a   v   e   U   c   o   d   e
0105540   \t  \t   /   /       g   e   t       v   e   r   s   i   o   n
0105560    s       f   o   r       I   p   a   g   e       c   h   e   c
0105600    k   i   n   g       i   f       p   o   s   s   i   b   l   e
0105620   \r                           i   f   s   o       [  \r  \t   I
0105640    n   i   t   L   i   s   p 376 001  \0   -   \   R   e   g   s
0105660    (   l   v       R   a   m   V   )  \t  \t   /   /       f   i
0105700    l   l   s       i   n       9       w   o   r   d   s  \r  \t
0105720    M   i   n   L   i   s   p   F   o   r   R   a   m       =    
0105740    M   L   F   R  \r  \t   R   a   m   V   e   r   s   i   o   n
0105760        =       R   a   m   V  \r  \t               ]  \r        
0106000                i   f   n   o   t       [  \t  \t   /   /       g
0106020    e   t       v   e   r   s   i   o   n   s       f   r   o   m
0106040        u   C   o   d   e       f   i   l   e       b   e   f   o
0106060    r   e       l   o   a   d   i   n   g  \r  \t   l   e   t    
0106100    s       =       C   r   e   a   t   e   D   i   s   k   S   t
0106120    r   e   a   m   (   l   i   s   p   U   c   o   d   e   F   p
0106140    ,       k   s   T   y   p   e   R   e   a   d   O   n   l   y
0106160    ,       w   o   r   d   I   t   e   m   )  \r  \t   u   n   l
0106200    e   s   s       s       d   o       G   i   v   e   U   p   (
0106220    "   C   a   n   '   t       o   p   e   n       m   i   c   r
0106240    o   c   o   d   e       f   i   l   e       " 376 001  \0 016
0106260  352   ,       L   i   s   p   U   c   o   d   e   N   a   m   e
0106300    )  \r  \t  \t  \t   /   /       s   e   e       S   t   a   m
0106320    p   V   e   r   s   i   o   n   s   .   b   c   p   l  \r  \t
0106340    e   b   C   r   e   a   t   i   o   n   D   a   t   e       =
0106360        A   l   l   o   c   V   e   c   (   2   )  \r  \t   S   e
0106400    t   F   i   l   e   P   o   s   (   s   ,       0   ,       E
0106420    b   C   r   e   a   t   i   o   n   D   a   t   e   S   t   a
0106440    r   t   )  \r  \t   e   b   C   r   e   a   t   i   o   n   D
0106460    a   t   e   !   0       =       G   e   t   s   (   s   )  \r
0106500   \t   e   b   C   r   e   a   t   i   o   n   D   a   t   e   !
0106520    1       =       G   e   t   s   (   s   )  \r  \t   S   e   t
0106540    F   i   l   e   P   o   s   (   s   ,       0   ,       L   i
0106560    s   p   V   e   r   s   i   o   n   S   t   a   r   t   )  \r
0106600   \t   R   a   m   V   e   r   s   i   o   n       =       G   e
0106620    t   s   (   s   )  \r  \t   M   i   n   B   c   p   l   F   o
0106640    r   R   a   m       =       G   e   t   s   (   s   )  \r  \t
0106660    M 376 001  \0 257 003   i   n   L   i   s   p   F   o   r   R
0106700    a   m       =       G   e   t   s   (   s   )  \r  \t   C   l
0106720    o   s   e   s   (   s   )  \r  \t               ]  \r  \r    
0106740            u   n   l   e   s   s       R   a   m   V   e   r   s
0106760    i   o   n       g   e       M   i   n   R   a   m   F   o   r
0107000    B   c   p   l  \r  \t   d   o       G   i   v   e   U   p   (
0107020    "   M   i   c   r   o   c   o   d   e       t   o   o       o
0107040    l   d       f   o   r       t   h   i   s       l   i   s   p
0107060    .   r   u   n   "   )  \r               u   n   l   e   s   s
0107100        B   c   p   l   V   e   r   s   i   o   n       g   e    
0107120    M   i   n   B   c   p   l   F   o   r   R   a   m  \r  \t   d
0107140    o       G   i   v   e   U   p   (   "   L   i   s   p   .   r
0107160    u   n       t   o   o       o   l   d       f   o   r       t
0107200    h   i   s       m   i   c   r   o   c   o   d   e   "   )  \r
0107220   \r               t   e   s   t       R   e   m   o   t   e   P
0107240   \r                           i   f   s   o       [       R   e
0107260    m   o   t   e   I   n 376 001  \0   j   &   i   t   V   m   e
0107300    m       (   S   y   s   i   n   N   a   m   e   ,       V   M
0107320    E   M   i   d   )  \r  \t                       S   Y   S   I
0107340    N   i   d       =       -   1  \r  \t               ]  \r    
0107360                    i   f   n   o   t       [       i   f       S
0107400    Y   S   I   N   i   d  \r  \t  \t   t   h   e   n       [  \t
0107420   \t  \t   /   /       S   Y   S   I   N       f   r   o   m    
0107440    d   i   s   k  \r  \t  \t  \t   @   S   t   a   c   k   E   n
0107460    d       =       R   e   m   o   t   e   I   n   i   t   V   m
0107500    e   m  \t   /   /       f   l   u   s   h       u   s   e   l
0107520    e   s   s       c   o   d   e  \r  \t  \t  \t   L   o   c   a
0107540    l   I   n   i   t   V   m   e   m       (   S   Y   S   I   N
0107560    i   d   ,       V   M   E   M   i   d   )  \r  \t  \t        
0107600                ]  \r  \t               ]  \r               i   f
0107620        q   u   i   t   E   a   r   l   y       t   h   e   n    
0107640    f   i   n   i   s   h  \r               @   S   t   a   c   k
0107660    E   n   d       =       L   o   c   a   l 376 001  \0 316 020
0107700    I   n   i   t   V   m   e   m  \t   /   /       f   r   e   e
0107720        u   p       s   o   m   e       s   p   a   c   e  \r    
0107740            A   l   l   o   c   I   n   F   i   r   s   t   B   l
0107760    o   c   k       =       f   a   l   s   e  \r               l
0110000    a   s   t   S   t   a   t   i   c   A   l   l   o   c   a   t
0110020    i   o   n       =       A   l   l   o   c   P   t   r  \r    
0110040            A   l   l   o   c   P   t   r   =   A   l   l   o   c
0110060    V   e   c  \t  \t   /   /       n   e   x   t       a   l   l
0110100    o   c       w   i   l   l       b   e       o   v   e   r   l
0110120    a   i   d       o   n       i   n   i   t       c   o   d   e
0110140   \r  \r   /   /       W   e       a   l   l   o   c   a   t   e
0110160        a   t       l   e   a   s   t       M   i   n   P   u   p
0110200    Z   o   n   e   L   e   n   g   t   h       w   o   r   d   s
0110220        f   o   r       t   h   e       P   u   p       z   o   n
0110240    e   ,       b   u   t       w   e  \r   /   /       m   a   k
0110260    e       s   u   r   e       t   h   a   t       i   t       e
0110300  376 001  \0  \a  \f   x   t   e   n   d   s       a   t       l
0110320    e   a   s   t       t   o       t   h   e       e   n   d    
0110340    o   f       t   h   e       i   n   i   t   i   a   l   i   z
0110360    a   t   i   o   n       c   o   d   e   .  \r   /   /       T
0110400    h   i   s       i   s       b   e   c   a   u   s   e       t
0110420    h   e       p   u   p       z   o   n   e       i   s       n
0110440    o   t       t   o   u   c   h   e   d       d   u   r   i   n
0110460    g       m   a   i   n       i   n   i   t   i   a   l   i   z
0110500    a   t   i   o   n   ,  \r   /   /       w   h   e   r   e   a
0110520    s       s   u   b   s   e   q   u   e   n   t       a   l   l
0110540    o   c   a   t   i   o   n   s       a   r   e   .           T
0110560    h   e       P   u   p       i   n   i   t   i   a   l   i   z
0110600    a   t   i   o   n       c   o   d   e       h   i   d   e   s
0110620   \r   /   /       u   n   d   e   r       t   h   e       L   i
0110640    s   p   S   t   a   c   k       a   l   l   o   c   a   t   i
0110660    o   n       (   a   f   t   e   r       M   a   i   n   i   n
0110700    i   t   )       s 376 001  \0 276 271   o       i   t       d
0110720    o   e   s   n   '   t       z   o   r   c   h       i   t   s
0110740    e   l   f   .  \r   /   /       H   e   n   c   e   ,       L
0110760    i   s   p   S   t   a   c   k       m   u   s   t       b   e
0111000        l   o   n   g       e   n   o   u   g   h       t   o    
0111020    c   o   v   e   r       t   h   e       P   u   p       i   n
0111040    i   t       c   o   d   e   .  \r  \r               L   i   s
0111060    p   S   t   a   c   k   L   e   n   g   t   h       =       M
0111100    a   x   (   D   e   f   a   u   l   t   L   i   s   p   S   t
0111120    a   c   k   L   e   n   g   t   h   ,       I   n   i   t   F
0111140    m   a   p   -   A   l   l   o   c   P   t   r   )  \r        
0111160        L   i   s   p   S   t   a   c   k   S   t   a   r   t   =
0111200    A   l   l   o   c   V   e   c   (   L   i   s   p   S   t   a
0111220    c   k   L   e   n   g   t   h   )  \t   /   /       s   p   a
0111240    c   e       f   o   r       l   i   s   p       s   t   a   c
0111260    k  \r               P   u   p   Z   o   n   e   L   e   n   g
0111300    t   h   =   M   a   x   (   M   i   n 376 001  \0 236   S   P
0111320    u   p   Z   o   n   e   L   e   n   g   t   h   ,       @   S
0111340    t   a   c   k   E   n   d   -   A   l   l   o   c   P   t   r
0111360    )  \r               P   u   p   Z   o   n   e   S   t   a   r
0111400    t   =   A   l   l   o   c   V   e   c   (   P   u   p   Z   o
0111420    n   e   L   e   n   g   t   h   )  \r  \r               i   f
0111440        l   i   s   p   U   c   o   d   e   F   p  \r            
0111460                t   h   e   n       [  \r  \t   l   e   t       s
0111500        =       C   r   e   a   t   e   D   i   s   k   S   t   r
0111520    e   a   m   (   l   i   s   p   U   c   o   d   e   F   p   ,
0111540        k   s   T   y   p   e   R   e   a   d   O   n   l   y   ,
0111560        w   o   r   d   I   t   e   m   )  \r  \t   u   n   l   e
0111600    s   s       s       d   o       G   i   v   e   U   p   (   "
0111620    C   a   n   '   t       o   p   e   n       m   i   c   r   o
0111640    c   o   d   e       f   i   l   e       "   ,       L   i   s
0111660    p   U   c   o   d   e   N   a   m   e   )  \r  \t   l   e   t
0111700        s   l       =       (   F   i   l   e   L   e   n   g 376
0111720  001  \0 244 345   t   h   (   s   )       +       1   )       r
0111740    s   h   i   f   t       1       -       W   o   r   d   s   P
0111760    e   r   P   a   g   e  \r  \t  \t  \t  \t  \t   /   /       l
0112000    e   n   g   t   h       o   f       L   o   a   d   R   a   m
0112020        b   u   f   f   e   r       w   e       n   e   e   d  \r
0112040   \t   l   e   t       b   u   f   f   e   r       =       (   @
0112060    S   t   a   c   k   E   n   d       +       W   o   r   d   s
0112100    P   e   r   P   a   g   e   -   1   )       &       n   o   t
0112120        (   W   o   r   d   s   P   e   r   P   a   g   e   -   1
0112140    )  \r  \t   l   e   t       n   e   w   e   n   d       =    
0112160    S   h   o   r   t   S   t   a   c   k   (   1   0   0   0   )
0112200   \r  \t   i   f       n   e   w   e   n   d       -       b   u
0112220    f   f   e   r       l   s       s   l  \r  \t               t
0112240    h   e   n       C   a   l   l   S   w   a   t   (   "   M   i
0112260    c   r   o   c   o   d   e       f   i   l   e       t   o   o
0112300        l   a   r   g   e   "   )  \r  \t   l   e   t       o   l
0112320    d   e   n   d 376 001  \0 355  \v       =       @   S   t   a
0112340    c   k   E   n   d  \r  \t   @   S   t   a   c   k   E   n   d
0112360        =       n   e   w   e   n   d  \t  \t   /   /       g   e
0112400    t       l   o   t   s       o   f       s   p   a   c   e    
0112420    f   o   r       b   u   f   f   e   r  \r  \t   P   o   s   i
0112440    t   i   o   n   P   a   g   e   (   s   ,       2   )  \r  \t
0112460    R   e   a   d   B   l   o   c   k   (   s   ,       b   u   f
0112500    f   e   r   ,       s   l   )  \r  \t   C   l   o   s   e   s
0112520    (   s   )  \r  \t   L   o   a   d   R   a   m   (   (   M   a
0112540    c   h   i   n   e   T   y   p   e   (   )       e   q       D
0112560    o   l   p   h   i   n   ?       b   u   f   f   e   r   -   1
0112600    ,       b   u   f   f   e   r   )   ,       1   )  \r  \t   @
0112620    S   t   a   c   k   E   n   d       =       o   l   d   e   n
0112640    d  \r  \t   h   a   v   e   U   c   o   d   e       =       t
0112660    r   u   e  \r  \t   I   n   i   t   L   i   s   p   R   e   g
0112700    s   (   l   v       R   a   m   V   )  \t  \t   /   /       f
0112720    i   l   l   s       i   n       9 376 001  \0 355 277       w
0112740    o   r   d   s  \r  \t   u   n   l   e   s   s       R   a   m
0112760    V       g   e       M   i   n   R   a   m   F   o   r   B   c
0113000    p   l  \t   /   /       C   h   e   c   k       B   E   F   O
0113020    R   E       u   s   i   n   g       o   t   h   e   r       I
0113040    L   R       v   a   l   u   e   s  \r  \t               d   o
0113060        G   i   v   e   U   p   (   "   M   i   c   r   o   c   o
0113100    d   e       t   o   o       o   l   d       f   o   r       t
0113120    h   i   s       l   i   s   p   .   r   u   n   "   )  \r  \t
0113140    u   n   l   e   s   s       B   c   p   l   V   e   r   s   i
0113160    o   n       g   e       M   i   n   B   c   p   l   F   o   r
0113200    R   a   m  \r  \t               d   o       G   i   v   e   U
0113220    p   (   "   L   i   s   p   .   r   u   n       t   o   o    
0113240    o   l   d       f   o   r       t   h   i   s       m   i   c
0113260    r   o   c   o   d   e   "   )  \r  \t   M   i   n   L   i   s
0113300    p   F   o   r   R   a   m       =       M   L   F   R  \r  \t
0113320    R   a   m   V   e   r   s   i   o   n       =       R 376 001
0113340   \0 202 351   a   m   V  \r  \t               ]  \r            
0113360    u   C   o   d   e   L   o   a   d   e   d       =       t   r
0113400    u   e  \r  \r   /   /       R   e   b   i   n   d       O   S
0113420        p   r   o   c   e   d   u   r   e   s       f   o   r    
0113440    e   r   r   o   r   s   ,       s   w   a   t       a   n   d
0113460        e   x   i   t   .       R   e   s   t   o   r   e   d    
0113500    a   t       f   i   n   i   s   h  \r               S   a   v
0113520    e   d   U   F   P       =       @   l   v   U   s   e   r   F
0113540    i   n   i   s   h   P   r   o   c  \r               @   l   v
0113560    U   s   e   r   F   i   n   i   s   h   P   r   o   c       =
0113600        L   i   s   p   F   i   n   i   s   h   P   r   o   c  \r
0113620    /   /               S   a   v   e   d   S   C   P       =    
0113640    @   l   v   S   w   a   t   C   o   n   t   e   x   t   P   r
0113660    o   c  \r   /   /               @   l   v   S   w   a   t   C
0113700    o   n   t   e   x   t   P   r   o   c       =       L   i   s
0113720    p   S   w   a   t   C   o   n   t   e   x   t  \r  \r        
0113740        S   c 376 001  \0 224   #   r   e   e   n   W   o   r   d
0113760    s       =       s   w  \t   /   /       c   o   p   y       I
0114000    n   i   t   L   i   s   p   R   e   g   s       v   a   l   u
0114020    e   s       i   n   t   o       s   t   a   t   i   c   s    
0114040    f   o   r       o   t   h   e   r   s  \r               H   o
0114060    s   t   M   a   g   i   c   0       =       h   o   s   t   0
0114100   \r               H   o   s   t   M   a   g   i   c   1       =
0114120        h   o   s   t   1  \r               H   o   s   t   M   a
0114140    g   i   c   2       =       h   o   s   t   2  \r  \r        
0114160        e   x   t   r   a   B   u   f   L   e   n   g   t   h    
0114200    =       (   (   A   l   l   o   c   P   t   r   +   W   o   r
0114220    d   s   P   e   r   P   a   g   e   )       &       (   n   o
0114240    t       (   W   o   r   d   s   P   e   r   P   a   g   e   -
0114260    1   )   )   )       -  \r  \t  \t  \t   A   l   l   o   c   P
0114300    t   r       +       e   x   t   r   a   B   u   f   W   a   n
0114320    t   e   d  \r               e   x   t   r   a   B   u   f   f
0114340    e   r   s       =       A   l 376 001  \0 237 274   l   o   c
0114360    V   e   c   (   e   x   t   r   a   B   u   f   L   e   n   g
0114400    t   h   )  \r  \r               S   e   t   u   p   L   i   s
0114420    p   M   e   m   (   S   Y   S   I   N   i   d   ,       V   M
0114440    E   M   i   d   ,       p   n   u   m   ,       p   p   m   )
0114460   \t  \t   /   /       I   n   i   t   s       V   M   e   m  \r
0114500                ]  \r  \r   /   /       A   l   l   o   c   a   t
0114520    e       t   h   e       d   i   s   p   l   a   y   ,       b
0114540    u   t       d   o       n   o   t       o   p   e   n       t
0114560    h   e       T   T   Y       s   t   r   e   a   m       y   e
0114600    t  \r               d   l   i   s   p   D   s   p       =    
0114620    A   l   l   o   c   V   e   c   (   2   )  \t  \t  \t   /   /
0114640        l   i   s   p       d   i   s   p   l   a   y  \r  \r   /
0114660    /       d   l   i   s   p   D   s   p       i   s       a    
0114700    f   a   k   e   .       A   l   l       i   t       h   a   s
0114720        a   r   e       p   o   i   n   t   e   r   s       t   o
0114740        a       s   i   n   g   l   e       d   i   s 376 001  \0
0114760    ~ 272   p   l   a   y       b   l   o   c   k  \r   /   /    
0115000    w   h   i   c   h       i   s       m   a   n   i   p   u   l
0115020    a   t   e   d       f   r   o   m       L   i   s   p   .    
0115040    W   e       a   l   l   o   c   a   t   e       t   h   a   t
0115060        n   o   w   .  \r               D   L   i   s   p   D   C
0115100    B       =           A   l   l   o   c   V   e   c   (   l   E
0115120    D   C   B   ,       2   )  \t  \t   /   /       s   i   n   g
0115140    l   e       d   c   b   ;       2   w   o   r   d       a   l
0115160    i   g   n   e   d  \r               Z   e   r   o   (   D   L
0115200    i   s   p   D   C   B   ,       l   E   D   C   B   )  \t  \t
0115220   \t   /   /       m   u   s   t       b   e       e   m   p   t
0115240    y  \r               d   l   i   s   p   D   s   p   >   >   D
0115260    S   .   f   d   c   b       =       D   L   i   s   p   D   C
0115300    B  \r               d   l   i   s   p   D   s   p   >   >   D
0115320    S   .   l   d   c   b       =       D   L   i   s   p   D   C
0115340    B  \r  \r               t   e   s   t       m   a   k   e   Z
0115360    o   n 376 001  \0 263 310   e       &       (   S   e   r   i
0115400    a   l   (   )       l   s       #   3   7   7   )  \r        
0115420                    i   f   s   o       [  \t  \t   /   /       a
0115440    l   l   o   c   a   t   e       a   n       m   d   s       z
0115460    o   n   e       e   v   e   n       s   o  \r  \t   l   e   t
0115500        l   e   n   g   t   h       =       E   v   e   n   t   u
0115520    a   l   E   n   d   O   f   S   t   a   c   k   -   A   l   l
0115540    o   c   P   t   r  \t   /   /       w   h   a   t   '   s    
0115560    l   e   f   t  \r  \t   l   e   n   g   t   h       =       (
0115600    l   e   n   g   t   h       l   s       #   1   0   0   0   0
0115620    )       ?       0   ,       M   i   n   (   E   x   t   r   a
0115640    Z   o   n   e   S   i   z   e   ,       l   e   n   g   t   h
0115660    -   E   x   t   r   a   Z   o   n   e   S   i   z   e   )  \r
0115700   \t   I   P   u   t   B   a   s   e   (   I   F   P   M   D   S
0115720    Z   o   n   e   ,       l   e   n   g   t   h   ?       A   l
0115740    l   o   c   V   e   c   (   l   e   n   g   t   h   )   ,    
0115760    0   )  \r  \t   I   P   u 376 001  \0 243 273   t   B   a   s
0116000    e   (   I   F   P   M   D   S   Z   o   n   e   L   e   n   g
0116020    t   h   ,       l   e   n   g   t   h   )  \r  \t            
0116040    ]  \r                       i   f   n   o   t       [  \r  \t
0116060    I   P   u   t   B   a   s   e   (   I   F   P   M   D   S   Z
0116100    o   n   e   ,       0   )  \r  \t   I   P   u   t   B   a   s
0116120    e   (   I   F   P   M   D   S   Z   o   n   e   L   e   n   g
0116140    t   h   ,       0   )  \r  \t               ]  \r  \r   /   /
0116160        N   o   w       s   e   t       t   h   e       d   i   s
0116200    p   l   a   y       s   t   a   r   t       a   d   d   r   e
0116220    s   s   .       W   e       w   i   l   l       e   v   e   n
0116240    t   u   a   l   l   y       g   i   v   e       a   l   l    
0116260    o   f  \r   /   /       m   e   m   o   r   y       f   r   o
0116300    m       t   h   i   s       p   o   i   n   t       o   n    
0116320    t   o       t   h   e       d   i   s   p   l   a   y       b
0116340    i   t   m   a   p   .  \r               d   s   p   S   t   a
0116360    r   t   A   d   d   r       =       A   l   l 376 001  \0 003
0116400  371   o   c   V   e   c   (   0   ,       W   o   r   d   s   P
0116420    e   r   P   a   g   e   )  \t   /   /       p   a   g   e    
0116440    a   l   i   g   n       d   i   s   p   l   a   y  \r        
0116460        d   s   p   A   r   e   a       =       E   v   e   n   t
0116500    u   a   l   E   n   d   O   f   S   t   a   c   k       -    
0116520    d   s   p   S   t   a   r   t   A   d   d   r  \r            
0116540    u   n   l   e   s   s       d   s   p   A   r   e   a       g
0116560    e       W   o   r   d   s   P   e   r   P   a   g   e       t
0116600    h   e   n       C   a   l   l   S   w   a   t   (   "   N   o
0116620        s   p   a   c   e       f   o   r       d   s   p   "   )
0116640   \r  \r               @   l   v   S   y   s   E   r   r       =
0116660        S   y   s   E   r   r  \t  \t  \t   /   /       N   o   t
0116700        t   h   e       O   S       S   y   s   E   r   r  \r  \r
0116720                R   e   s   t   o   r   e   C   u   r   s   o   r
0116740        (   o   r   i   g   C   u   r   s   o   r   )  \r  \r   /
0116760    /       T   h   e       d   i   s   p   l   a   y       w   i
0117000    l 376 001  \0   {   m   l       b   e       g   i   v   e   n
0117020        w   h   a   t   e   v   e   r       s   p   a   c   e    
0117040    r   e   m   a   i   n   s       b   e   t   w   e   e   n    
0117060    t   h   e       e   n   d       o   f       t   h   e  \r   /
0117100    /       l   a   s   t       A   l   l   o   c   V   e   c    
0117120    (   r   o   u   n   d   e   d       u   p       t   o       a
0117140        p   a   g   e       b   o   u   n   d   a   r   y   )    
0117160    a   n   d       t   h   e       b   o   t   t   o   m       o
0117200    f       t   h   e       s   t   a   c   k  \r   /   /       f
0117220    r   a   m   e       f   o   r       I   n   i   t   S   y   s
0117240    t   e   m       (   p   l   u   s       a       s   m   a   l
0117260    l       a   m   o   u   n   t       n   e   e   d   e   d    
0117300    f   o   r       i   t       t   o       s   t   a   r   t    
0117320    t   h   e       r   e   s   t  \r   /   /       o   f       t
0117340    h   e       s   y   s   t   e   m   )   .       T   h   e    
0117360    l   a   t   t   e   r       q   u   a   n   t   i   t   y    
0117400    i   s       E   v   e 376 001  \0 274 341   n   t   u   a   l
0117420    E   n   d   O   f   S   t   a   c   k   .       W   e       d
0117440    o       t   h   i   s       s   o  \r   /   /       t   h   e
0117460        (   s   u   b   s   t   a   n   t   i   a   l   )       s
0117500    t   a   c   k       f   r   a   m   e       f   o   r       M
0117520    a   i   n   I   n   i   t       c   a   n       b   e       r
0117540    e   c   l   a   i   m   e   d   .  \r   /   /       D   i   s
0117560    p   l   a   y       i   s       a   c   t   u   a   l   l   y
0117600        t   u   r   n   e   d       o   n       i   n       I   n
0117620    i   t   L   i   s   p       a   f   t   e   r       w   e    
0117640    e   x   i   t  \r  \r               S   y   s   i   n   N   a
0117660    m   e       =       0  \t  \t  \t   /   /       d   y   n   a
0117700    m   i   c       v   a   r       w   i   l   l       d   i   s
0117720    a   p   p   e   a   r  \r               ]  \r 032   (   1   7
0117740    9   2   )  \r   a   n   d       M   a   k   e   A   t   o   m
0117760    P   t   r   (   a   t   o   m   N   u   m   )       =       v
0120000    a   l   o   f  \r               [  \r     376 001  \0   B 005
0120020            l   e   t       a   p       =       A   l   l   o   c
0120040    V   e   c   (   2   ,       2   )  \t  \t   /   /       D   o
0120060    l   p   h   i   n       w   a   n   t   s       t   h   e   s
0120100    e       2   -   w   o   r   d       a   l   i   g   n   e   d
0120120   \r               a   p   !   0       =       A   T   O   M   s
0120140    p   a   c   e   ;           a   p   !   1       =       a   t
0120160    o   m   N   u   m  \r               r   e   s   u   l   t   i
0120200    s       a   p  \r               ]  \r 032  \r   a   n   d    
0120220    S   h   o   r   t   S   t   a   c   k   (   n   )       =    
0120240    (   M   y   F   r   a   m   e   (   )   -   n   )       &    
0120260    n   o   t       (   W   o   r   d   s   P   e   r   P   a   g
0120300    e   -   1   )  \r  \r   /   /       F   i   g   u   r   e   s
0120320        o   u   t       w   h   e   r   e       t   o       e   n
0120340    d       t   h   e       s   t   a   c   k       a       s   p
0120360    e   c   i   f   i   e   d       d   i   s   t   a   n   c   e
0120400        f   r   o   m       h   e   r   e   .       A   l   l   o
0120420  376 001  \0   1 332   w   s  \r   /   /       a   t       l   e
0120440    a   s   t       n       w   o   r   d   s       a   n   d    
0120460    r   o   u   n   d   s       d   o   w   n       (   i   .   e
0120500    .       m   o   r   e       s   t   a   c   k   )       t   o
0120520        t   h   e       n   e   a   r   e   s   t       p   a   g
0120540    e  \r  \r   a   n   d       G   i   v   e   U   p   (   s   t
0120560    r   1   ,       s   t   r   2   ;       n   u   m   a   r   g
0120600    s       n   a   )       b   e  \r               [  \r        
0120620        i   f       V   m   e   m   S   t   r   e   a   m  \r    
0120640                        t   h   e   n       C   l   o   s   e   s
0120660    (   V   m   e   m   S   t   r   e   a   m   )  \t  \t   /   /
0120700        r   e   g   a   i   n       s   o   m   e       z   o   n
0120720    e       s   p   a   c   e  \r               l   e   t       s
0120740    t       =       d   o   n   t   G   i   v   e   U   p   ?    
0120760    0   ,       C   r   e   a   t   e   D   i   s   k   S   t   r
0121000    e   a   m   (   f   p   R   e   m   C   m   ,       k   s   T
0121020    y   p   e   W   r 376 001  \0 364 323   i   t   e   O   n   l
0121040    y   ,       c   h   a   r   I   t   e   m   )  \r            
0121060    t   e   s   t       s   t  \r                           i   f
0121100    s   o       [       R   e   s   e   t   s   (   s   t   )  \r
0121120   \t                       W   s   s   (   s   t   ,       "   /
0121140    /       "   )  \t   /   /       w   r   i   t   e       s   t
0121160    r       o   n       r   e   m   .   c   m       f   o   r    
0121200    c   l   e   a   n   e   r       c   r   a   s   h  \r  \t    
0121220                    W   s   s   (   s   t   ,       s   t   r   1
0121240    )  \r  \t                       i   f       (   n   a       g
0121260    r       1   )       &       s   t   r   2       &       (   s
0121300    t   r   2   !   0   )  \r  \t  \t   t   h   e   n       W   s
0121320    s   (   s   t   ,       s   t   r   2   )  \r  \t            
0121340            W   s   s   (   s   t   ,       "   *   N   "   )  \r
0121360   \t                       C   l   o   s   e   s   (   s   t   )
0121400   \r  \t                       @   d   i   s   p   l   a   y   L
0121420    i   s   t   H   e   a   d       =     376 001  \0 320 315   0
0121440   \t  \t   /   /       t   u   r   n       o   f   f       a   n
0121460    y       d   i   s   p   l   a   y  \r  \t                    
0121500    L   I   S   P   F   I   N   I   S   H   (   )  \r  \t        
0121520        ]  \r                       i   f   n   o   t       C   a
0121540    l   l   S   w   a   t       (   s   t   r   1   ,       s   t
0121560    r   2   )  \r               ] 032  \r  \r   a   n   d       S
0121600    w   a   p   C   u   r   s   o   r   s       (   o   l   d   c
0121620    u   r   s   o   r   ,       n   e   w   c   u   r   s   o   r
0121640    )       b   e  \r  \t  \t   /   /       s   a   v   e       c
0121660    u   r   s   o   r       i   n       o   l   d   c   u   r   s
0121700    o   r   ,       s   e   t       n   e   w   c   u   r   s   o
0121720    r  \r           f   o   r       i       =       0       t   o
0121740        1   5  \r                   d   o       [       o   l   d
0121760    c   u   r   s   o   r   !   i       =       c   u   r   s   o
0122000    r   B   i   t   M   a   p   !   i  \r  \t       c   u   r   s
0122020    o   r   B   i   t   M   a   p   !   i       =       n   e 376
0122040   \0 206   v   v   w   c   u   r   s   o   r   !   i  \r  \t   ]
0122060   \r  \r   a   n   d       R   e   s   t   o   r   e   C   u   r
0122100    s   o   r       (   o   l   d   c   u   r   s   o   r   )    
0122120    b   e  \r  \t  \t   /   /       m   a   k   e       c   u   r
0122140    s   o   r       b   e       o   l   d   c   u   r   s   o   r
0122160   \r           f   o   r       i       =       0       t   o    
0122200    1   5  \r                   d   o       c   u   r   s   o   r
0122220    B   i   t   M   a   p   !   i       =       o   l   d   c   u
0122240    r   s   o   r   !   i  \r  \r 032  \r 377  \0  \0   M   i   s
0122260    c   S   u   b   r   s   .   b   c   p   l  \0 373 233   E 272
0122300  001  \0  \0 376 001  \0   p 224   /   /       M   i   s   c   S
0122320    u   b   r   s   .   b   c   p   l       -       M   i   s   c
0122340    e   l   l   a   n   e   o   u   s       S   U   B   R   s  \r
0122360    /   /       L   a   s   t       c   h   a   n   g   e       J
0122400    u   l   y       2   0   ,       1   9   8   3           2   :
0122420    1   1       P   M       b   y       B   i   l   l       v   a
0122440    n       M   e   l   l   e  \r   /   /       L   a   s   t    
0122460    c   h   a   n   g   e       M   a   y       2   5   ,       1
0122500    9   8   3           1   0   :   4   2       A   M       b   y
0122520        B   i   l   l       v   a   n       M   e   l   l   e  \r
0122540    /   /       L   a   s   t       c   h   a   n   g   e       A
0122560    p   r   i   l       5   ,       1   9   8   3           4   :
0122600    3   8       P   M       b   y       B   i   l   l       v   a
0122620    n       M   e   l   l   e  \r   /   /       m   a   j   o   r
0122640        p   r   u   n   i   n   g       D   e   c   e   m   b   e
0122660    r       1   4   ,       1   9   8   2           3   :   1   3
0122700        P   M       b   y       B 376 001  \0 005 320   i   l   l
0122720        v   a   n       M   e   l   l   e  \r   /   /       L   a
0122740    s   t       c   h   a   n   g   e       J   u   n   e       2
0122760    5   ,       1   9   8   2           2   :   5   2       P   M
0123000        b   y       B   i   l   l       v   a   n       M   e   l
0123020    l   e  \r   /   /       L   a   s   t       c   h   a   n   g
0123040    e       J   u   n   e       8   ,       1   9   8   2        
0123060    6   :   4   3       P   M       b   y       B   i   l   l    
0123100    v   a   n       M   e   l   l   e  \r   /   /       L   a   s
0123120    t       c   h   a   n   g   e       M   a   r   c   h       2
0123140    0   ,       1   9   8   2           8   :   5   7       P   M
0123160        b   y       B   i   l   l       v   a   n       M   e   l
0123200    l   e  \r   /   /       L   a   s   t       c   h   a   n   g
0123220    e       F   e   b   r   u   a   r   y       2   ,       1   9
0123240    8   2           1   2   :   0   0       P   M       b   y    
0123260    B   i   l   l       v   a   n       M   e   l   l   e  \r   /
0123300    /       L   a   s   t       c   h   a   n   g   e 376 001  \0
0123320    J   [       J   a   n   u   a   r   y       5   ,       1   9
0123340    8   2           2   :   5   2       P   M       b   y       v
0123360    a   n       M   e   l   l   e   ,       M   a   s   i   n   t
0123400    e   r       a   t       k   b   d  \r   /   /       L   a   s
0123420    t       c   h   a   n   g   e       N   o   v   e   m   b   e
0123440    r       2   ,       1   9   8   1           1   0   :   4   0
0123460        P   M       b   y       B   i   l   l       v   a   n    
0123500    M   e   l   l   e  \r  \r  \t   g   e   t       "   L   i   s
0123520    p   B   c   p   l   .   d   e   c   l   "  \r  \r   e   x   t
0123540    e   r   n   a   l       [  \t   /   /       s   u   b   r   s
0123560        d   e   f   i   n   e   d       h   e   r   e  \r  \t   B
0123600    A   C   K   G   R   O   U   N   D   S   U   B   R  \r  \t   N
0123620    O   O   P   S   U   B   R  \r  \t   D   I   S   K   P   A   R
0123640    T   I   T   I   O   N  \r  \t   L   O   O   P   F   O   R   E
0123660    V   E   R  \r  \t   D   S   P   R   A   T   E  \r  \t   C   H
0123700    E   C   K   B   C   P   L   P   A   S   S   W   O   R   D  \r
0123720   \t  \t 376 001  \0 354 213   /   /       s   t   a   t   i   c
0123740    s       u   s   e   d  \r  \t   @   l   v   N   I   L   ;    
0123760    @   l   v   K   T  \r  \t  \t   /   /       p   r   o   c   e
0124000    d   u   r   e   s       u   s   e   d  \r  \t   E   q   N   I
0124020    L   ;       M   k   S   m   a   l   l   P   o   s   ;       S
0124040    m   a   l   l   U   n   b   o   x   ;       E   m   U   n   b
0124060    o   x  \r  \t   D   s   p   R   a   t   e   I   n   s   t   r
0124100    ;       D   s   k   P   a   r   t   I   n   s   t   r   ;    
0124120    D   e   I   m   p   l   e   m   e   n   t   e   d   S   u   b
0124140    r  \r  \r  \t  \t   /   /       O   S       p   r   o   c   e
0124160    d   u   r   e   s  \r  \t   B   l   o   c   k   ;       P   a
0124200    s   s   w   o   r   d  \r  \t   ]  \r  \r   l   e   t       B
0124220    A   C   K   G   R   O   U   N   D   S   U   B   R   (   )    
0124240    =       v   a   l   o   f  \r               [  \r            
0124260    B   l   o   c   k   (   )  \r               r   e   s   u   l
0124300    t   i   s       l   v   N   I   L  \r               ]  \r  \r
0124320    a   n   d       N   O   O 376 001  \0   m 310   P   S   U   B
0124340    R   (   )       =       v   a   l   o   f  \r               [
0124360   \r               r   e   s   u   l   t   i   s       l   v   N
0124400    I   L  \r               ]  \r  \r   a   n   d       L   O   O
0124420    P   F   O   R   E   V   E   R   (   )       b   e  \r        
0124440        [       ]       r   e   p   e   a   t  \r  \r   a   n   d
0124460        D   S   P   R   A   T   E   (   a   c   0   ,       a   c
0124500    1   ,       a   c   2   )       =      \t   /   /       s   e
0124520    t   s       d   i   s   p   l   a   y       r   a   t   e   ,
0124540        r   e   t   u   r   n   s       o   l   d       v   a   l
0124560    u   e  \r  \r               M   k   S   m   a   l   l   P   o
0124600    s       (   D   s   p   R   a   t   e   I   n   s   t   r   (
0124620    S   m   a   l   l   U   n   b   o   x   (   a   c   0   )   ,
0124640        S   m   a   l   l   U   n   b   o   x   (   a   c   1   )
0124660    ,       S   m   a   l   l   U   n   b   o   x   (   a   c   2
0124700    )   )   )  \r  \r   /   /       I   n   t   e   r   e   s   t
0124720    i   n   g       v   a   l   u   e   s   :  \r 376 001  \0   6
0124740    5   /   /       D   o   l   p   h   i   n   :               n
0124760    o   r   m   a   l       a   c   0       =       1   1   b  \t
0125000    (   7   7   h   z   )  \r   /   /                            
0125020            v   i   d   e   o   t   a   p   e       a   c   0    
0125040    =       2   1   3   b  \t   (   6   0   h   z   )  \r   /   /
0125060        D   o   r   a   d   o   :           n   o   r   m   a   l
0125100        a   c   0   -   2       =       2   2   b       1   6   b
0125120        6   5   6   b  \r   /   /               B   a   l   l    
0125140    b   r   o   s       v   i   d   e   o   t   a   p   e       =
0125160        2   2   b       1   6   b       1   0   6   0   b  \r   /
0125200    /                   P   h   i   l   l   i   p   s       v   i
0125220    d   e   o   t   a   p   e       =       7   2   b       3   1
0125240    b       1   0   1   0   b  \r  \r  \r   a   n   d       D   I
0125260    S   K   P   A   R   T   I   T   I   O   N   (   p   a   r   ;
0125300        n   u   m   a   r   g   s       n   a   )       =      \t
0125320    /   /       s   e   t   s   /   r   e   t   u   r   n   s    
0125340    d 376  \0 334 032   %   e   f   a   u   l   t       d   i   s
0125360    k       p   a   r   t   i   t   i   o   n  \r  \r            
0125400    M   k   S   m   a   l   l   P   o   s       (   D   s   k   P
0125420    a   r   t   I   n   s   t   r   (   n   a       e   q       0
0125440        %       E   q   N   I   L   (   p   a   r   )   ?       0
0125460    ,       S   m   a   l   l   U   n   b   o   x   (   p   a   r
0125500    )   )   )  \r  \r   a   n   d       C   H   E   C   K   B   C
0125520    P   L   P   A   S   S   W   O   R   D   (   p   a   s   s   ,
0125540        v   e   c   t   o   r   )       =      \t   /   /       c
0125560    h   e   c   k   s       a       p   a   s   s   w   o   r   d
0125600   \r  \r               P   a   s   s   w   o   r   d   (   E   m
0125620    U   n   b   o   x   (   p   a   s   s   )   ,       E   m   U
0125640    n   b   o   x   (   v   e   c   t   o   r   )   ,       f   a
0125660    l   s   e   )   ?       l   v   K   T   ,       l   v   N   I
0125700    L  \r 377  \0  \0   P   u   p   S   u   b   r   s   .   b   c
0125720    p   l  \0 373 233 263   : 005  \0  \0 376 001  \0   ; 260   /
0125740    /       P   u   p   S   u   b   r   s   .   b   c   p   l   .
0125760            T   h   e       I   n   t   e   r   l   i   s   p   -
0126000    D       P   u   p       p   a   c   k   a   g   e  \r   /   /
0126020        L   a   s   t       c   h   a   n   g   e       O   c   t
0126040    o   b   e   r       1   1   ,       1   9   8   3           3
0126060    :   5   8       P   M       b   y       B   i   l   l       v
0126100    a   n       M   e   l   l   e  \r   /   /       L   a   s   t
0126120        c   h   a   n   g   e       J   u   l   y       2   0   ,
0126140        1   9   8   3           2   :   5   3       P   M       b
0126160    y       B   i   l   l       v   a   n       M   e   l   l   e
0126200   \r   /   /       L   a   s   t       c   h   a   n   g   e    
0126220    J   u   n   e       7   ,       1   9   8   3           1   2
0126240    :   1   5       P   M       b   y       B   i   l   l       v
0126260    a   n       M   e   l   l   e  \r   /   /       L   a   s   t
0126300        c   h   a   n   g   e       M   a   r   c   h       1   4
0126320    ,       1   9   8   3           5   :   2   7       P   M 376
0126340  001  \0   )  \r       b   y       B   i   l   l       v   a   n
0126360        M   e   l   l   e  \r   /   /       L   a   s   t       c
0126400    h   a   n   g   e       F   e   b   r   u   a   r   y       1
0126420    1   ,       1   9   8   3           1   1   :   3   9       A
0126440    M       b   y       B   i   l   l       v   a   n       M   e
0126460    l   l   e  \r   /   /       L   a   s   t       c   h   a   n
0126500    g   e       A   u   g   u   s   t       9   ,       1   9   8
0126520    2           9   :   2   9       P   M       b   y       B   i
0126540    l   l       v   a   n       M   e   l   l   e  \r   /   /    
0126560    R   a   w       p   a   c   k   e   t       a   d   d   i   t
0126600    i   o   n       M   a   y       1   9   ,       1   9   8   2
0126620            2   :   3   4       P   M       b   y       B   i   l
0126640    l       v   a   n       M   e   l   l   e  \r  \r   /   /    
0126660    T   h   i   s       f   i   l   e       c   o   n   t   a   i
0126700    n   s       P   u   p       s   u   b   r   s       c   a   l
0126720    l   e   d       f   r   o   m       L   i   s   p   .       I
0126740    t       a   l 376 001  \0 266 246   s   o       h   a   s    
0126760    t   h   e       e   n   t   r   y  \r   /   /       w   h   i
0127000    c   h       s   t   a   r   t   s       u   p       t   h   e
0127020        p   u   p       p   a   c   k   a   g   e       a   n   d
0127040        e   n   q   u   e   u   e       i   t   s       c   o   n
0127060    t   e   x   t   s       o   n   t   o       C   o   n   t   e
0127100    x   t   Q  \r  \r  \t   g   e   t       "   L   i   s   p   B
0127120    c   p   l   .   d   e   c   l   "  \r  \t   g   e   t       "
0127140    P   u   p   0   .   d   e   c   l   "  \r  \t   g   e   t    
0127160    "   P   u   p   1   .   d   e   c   l   "  \r  \t   g   e   t
0127200        "   P   u   p   A   l   E   t   h   .   d   e   c   l   "
0127220   \r  \r   e   x   t   e   r   n   a   l       [  \t  \t   /   /
0127240        p   r   o   c   e   d   u   r   e   s       d   e   f   i
0127260    n   e   d  \r  \t   G   E   T   P   A   C   K   E   T   B   U
0127300    F   F   E   R  \r  \t   R   E   A   D   R   A   W   P   B   I
0127320   \r  \t   W   R   I   T   E   R   A   W   P   B   I  \r  \t   P
0127340    U   P   L   E   V   E   L   1   S 376 001  \0   c   [   T   A
0127360    T   E  \r  \r  \t   X   M   o   v   e   W   o   r   d   s  \t
0127400   \t   /   /       d   u   m   b       M   o   v   e   W   o   r
0127420    d   s  \r  \t   D   e   I   m   p   l   e   m   e   n   t   e
0127440    d   S   u   b   r  \r  \r  \t   S   t   a   r   t   P   u   p
0127460   \t  \t   /   /       c   a   l   l   e   d       f   r   o   m
0127500        i   n   i   t       o   n   l   y  \r  \r  \t  \t  \t  \t
0127520    /   /       L   i   s   p       p   r   o   c   e   d   u   r
0127540    e   s       u   s   e   d  \r  \t   E   q   N   I   L   ;    
0127560    @   X   G   e   t   B   a   s   e   ;       I   P   u   t   B
0127600    a   s   e   ;       S   e   r   i   a   l  \r  \t   E   m   A
0127620    d   d   r   ;       E   m   U   n   b   o   x   ;       R   A
0127640    I   D   C   o   d   e      \r  \t   @   X   S   e   t   R   e
0127660    a   d   B   R   ;       @   X   S   e   t   W   r   i   t   e
0127700    B   R   ;       @   R   R   e   a   d   ;       @   R   W   r
0127720    i   t   e  \r  \t  \t  \t  \t   /   /       L   i   s   p    
0127740    s   t   a   t   i   c   s       u   s   e   d  \r  \t 376 001
0127760   \0 002 231   @   C   o   n   t   e   x   t   Q   ;       @   l
0130000    v   N   I   L   ;       @   l   v   K   T  \r  \r  \t  \t  \t
0130020   \t   /   /       O   S       P   r   o   c   e   d   u   r   e
0130040    s  \r  \t   E   n   q   u   e   u   e   ;       D   e   q   u
0130060    e   u   e   ;       B   l   o   c   k   ;       M   i   n   ;
0130100        C   a   l   l   S   w   a   t   ;       T   r   u   e   P
0130120    r   e   d   i   c   a   t   e  \r  \t   I   n   i   t   i   a
0130140    l   i   z   e   Z   o   n   e   ;       A   l   l   o   c   a
0130160    t   e   ;       F   r   e   e   ;       Z   e   r   o   ;    
0130200    I   n   i   t   i   a   l   i   z   e   C   o   n   t   e   x
0130220    t  \r  \t   D   i   s   a   b   l   e   I   n   t   e   r   r
0130240    u   p   t   s   ;       E   n   a   b   l   e   I   n   t   e
0130260    r   r   u   p   t   s   ;       C   a   u   s   e   I   n   t
0130300    e   r   r   u   p   t  \r  \t   T   i   m   e   r   H   a   s
0130320    E   x   p   i   r   e   d   ;       S   t   a   r   t   I   O
0130340   \r  \t  \t  \t  \t   /   /       p   u   p       l   e   v   e
0130360    l       1 376 001  \0   *   n       f   u   n   c   t   i   o
0130400    n   s  \r  \t   I   n   i   t   P   u   p   L   e   v   e   l
0130420    0  \r  \t  \t  \t  \t   /   /       p   u   p       l   e   v
0130440    e   l       0       f   u   n   c   t   i   o   n   s  \r  \t
0130460    S   e   n   d   E   t   h   e   r   P   a   c   k   e   t  \r
0130500   \t  \t  \t  \t   /   /       p   u   p       p   a   c   k   a
0130520    g   e       s   t   a   t   i   c   s  \r      \t   s   o   c
0130540    k   e   t   Q   ;       l   e   n   P   B   I   ;       l   e
0130560    n   P   u   p   ;       m   a   x   P   u   p   D   a   t   a
0130600    B   y   t   e   s  \r  \t   p   b   i   F   r   e   e   Q   ;
0130620        n   d   b   Q   ;       p   b   i   T   Q   ;       p   b
0130640    i   I   Q  \r   ]  \r  \r   s   t   a   t   i   c  \t   [  \r
0130660   \t   H   a   v   e   E   t   h   e   r       =       f   a   l
0130700    s   e  \t  \t   /   /       t   r   u   e       i   f       E
0130720    t   h   e   r   n   e   t       a   l   i   v   e       o   n
0130740        m   a   c   h   i   n   e  \r  \t   P   u   p   Z   o   n
0130760    e  \t  \t  \t  \t   /   /     376 001  \0   w   \   z   o   n
0131000    e       f   o   r       p   u   p       a   l   l   o   c   a
0131020    t   i   o   n   s  \r  \t   X   t   r   a   Q  \t  \t  \t  \t
0131040    /   /       q   u   e   u   e       o   f       "   e   x   t
0131060    r   a   "       o   u   t   p   u   t       P   B   I   s  \r
0131100   \t   X   U   s   e   s       =       0  \t  \t  \t   /   /    
0131120    h   o   w       m   a   n   y       x   t   r   a   s       h
0131140    a   v   e       b   e   e   n       u   s   e   d  \r  \t   n
0131160    u   m   P   B   I   s  \t  \t  \t  \t   /   /       h   o   w
0131200        m   a   n   y       p   b   i   '   s       w   e       a
0131220    l   l   o   c   a   t   e   d  \r  \r  \t  \t  \t  \t  \t   /
0131240    /       s   t   u   f   f       f   o   r       r   a   w    
0131260    p   a   c   k   e   t  \r  \t   p   u   p   R   a   w   S   t
0131300    a   t   e       =       t   r   u   e  \t  \t   /   /       t
0131320    r   u   e       i   f       n   o   t       r   u   n   n   i
0131340    n   g       p   u   p       l   e   v   e   l       1  \r  \t
0131360    r   a   w   P   b   i   I   Q  \t  \t  \t   /   / 376 001  \0
0131400  226 237       i   n   p   u   t       q   u   e   u   e       o
0131420    f       r   a   w       p   a   c   k   e   t   s  \r  \t   l
0131440    o   c   a   l   N   D   B  \t  \t  \t   /   /       n   d   b
0131460        f   o   r       l   o   c   a   l       n   e   t  \r  \t
0131500    ]  \r  \r   s   t   r   u   c   t   u   r   e       Q   u   e
0131520    u   e   :  \r  \t   [  \r  \t   h   e   a   d       w   o   r
0131540    d  \r  \t   t   a   i   l       w   o   r   d  \r  \t   ]  \r
0131560   \r   s   t   a   t   i   c       [  \r  \t   l   a   s   t   P
0131600    B   I       =       0  \r  \t   ]  \r  \r   l   e   t       D
0131620    e   I   m   p   l   e   m   e   n   t   e   d   S   u   b   r
0131640    (   )       =       R   A   I   D   C   o   d   e   (   "   S
0131660    u   b   r       n   o   t       i   m   p   l   e   m   e   n
0131700    t   e   d   "   ,       l   v   N   I   L   )  \r  \r   a   n
0131720    d       S   t   a   r   t   P   u   p   (   z   o   n   e   ,
0131740        z   o   n   e   L   e   n   g   t   h   )       b   e  \r
0131760            [       t   e   s   t       S   e   r   i   a   l   (
0132000    )     376 001  \0 354 351   l   s       #   3   7   7  \r    
0132020                        i   f   s   o       [  \r  \t   P   u   p
0132040    Z   o   n   e       =       I   n   i   t   i   a   l   i   z
0132060    e   Z   o   n   e   (   z   o   n   e   ,       z   o   n   e
0132100    L   e   n   g   t   h   ,       P   u   p   O   u   t   O   f
0132120    S   p   a   c   e   )  \r  \t   n   u   m   P   B   I   s    
0132140    =       2   0  \r  \t   l   e   t       m   a   x   b   y   t
0132160    e   s       =       5   6   8  \r   /   /       l   o   n   g
0132200    e   r       f   o   r       N   S       p   a   c   k   e   t
0132220    s   :       5   4   6       d   a   t   a       b   y   t   e
0132240    s       p   l   u   s       a       h   e   a   d   e   r    
0132260    t   h   a   t       i   s       6       w   o   r   d   s    
0132300    l   o   n   g   e   r   ,  \r   /   /       p   l   u   s    
0132320    e   n   c   a   p   s   u   l   a   t   i   o   n       t   h
0132340    a   t       i   s       5       w   o   r   d   s       l   o
0132360    n   g   e   r  \r  \r  \t   I   n   i   t   P   u   p   L   e
0132400    v   e   l   0   (   P   u 376 001  \0 330 377   p   Z   o   n
0132420    e   ,       C   o   n   t   e   x   t   Q   ,       n   u   m
0132440    P   B   I   s   ,       m   a   x   b   y   t   e   s   )  \r
0132460   \t   X   t   r   a   Q       =       A   l   l   o   c   a   t
0132500    e   (   P   u   p   Z   o   n   e   ,       2   )  \r  \t   Z
0132520    e   r   o   (   X   t   r   a   Q   ,       2   )  \t   /   /
0132540        e   x   t   r   a       o   u   t   p   u   t       p   b
0132560    i   s  \r  \t   f   o   r       i       =       1       t   o
0132600        3       d   o       E   n   q   u   e   u   e   (   X   t
0132620    r   a   Q   ,       A   l   l   o   c   a   t   e   (   P   u
0132640    p   Z   o   n   e   ,       l   e   n   P   B   I   )   )  \r
0132660   \t   H   a   v   e   E   t   h   e   r       =       t   r   u
0132700    e  \r  \t   S   t   a   r   t   R   a   w   P   u   p   (   )
0132720   \r  \t   ]  \r                       i   f   n   o   t       [
0132740   \t  \t   /   /       n   o       e   t   h   e   r   ,       g
0132760    i   v   e       t   h   i   s       t   o       L   i   s   p
0133000   \r  \t   H   a   v   e   E   t   h   e   r     376 001  \0  \f
0133020    >   =       f   a   l   s   e  \r  \t   I   P   u   t   B   a
0133040    s   e   (   I   F   P   M   D   S   Z   o   n   e   ,       z
0133060    o   n   e   )  \r  \t   I   P   u   t   B   a   s   e   (   I
0133100    F   P   M   D   S   Z   o   n   e   L   e   n   g   t   h   ,
0133120        z   o   n   e   L   e   n   g   t   h   )  \r  \t   ]  \r
0133140            ]  \r  \r   a   n   d       P   u   p   O   u   t   O
0133160    f   S   p   a   c   e   (   )       b   e  \r           [    
0133200    R   A   I   D   C   o   d   e   (   "   P   u   p       l   e
0133220    v   e   l       1       o   u   t       o   f       s   p   a
0133240    c   e   .           P   r   o   b   a   b   l   y       t   o
0133260    o       m   a   n   y       s   o   c   k   e   t   s       o
0133300    p   e   n   "   ,       l   v   N   I   L   )       ]       r
0133320    e   p   e   a   t  \r  \r   a   n   d       S   t   a   r   t
0133340    R   a   w   P   u   p   (   )           =       v   a   l   o
0133360    f  \r           [  \r           l   o   c   a   l   N   D   B
0133400        =       n   d   b   Q   >   >   Q   u   e   u   e   .   h
0133420    e 376 001  \0 016   Q   a   d  \t  \t  \t   /   /       a   s
0133440    s   u   m   e       o   n   l   y       o   n   e  \r        
0133460    i   f       n   d   b   Q   >   >   Q   u   e   u   e   .   t
0133500    a   i   l       n   e       l   o   c   a   l   N   D   B  \r
0133520                        t   h   e   n       C   a   l   l   S   w
0133540    a   t       (   "   M   o   r   e       t   h   a   n       o
0133560    n   e       N   D   B   "   )  \r           r   a   w   P   b
0133600    i   I   Q       =       A   l   l   o   c   a   t   e   (   P
0133620    u   p   Z   o   n   e   ,       2   +   l   e   n   P   F   )
0133640   \t  \t   /   /       q   u   e   u   e       t   o       s   t
0133660    a   s   h       i   n   p   u   t       o   n  \r           Z
0133700    e   r   o   (   r   a   w   P   b   i   I   Q   ,       2   )
0133720   \t  \t  \t  \t   /   /       i   n   i   t   i   a   l   l   y
0133740        e   m   p   t   y  \r           l   e   t       r   a   w
0133760    P   F       =       r   a   w   P   b   i   I   Q   +   2  \r
0134000            r   a   w   P   F   >   >   P   F   .   p   r   e   d
0134020    i   c   a   t   e     376 001  \0 226 244   =       T   r   u
0134040    e   P   r   e   d   i   c   a   t   e  \r           r   a   w
0134060    P   F   >   >   P   F   .   q   u   e   u   e       =       r
0134100    a   w   P   b   i   I   Q  \r           E   n   q   u   e   u
0134120    e   (   l   v       l   o   c   a   l   N   D   B   >   >   N
0134140    D   B   .   p   f   Q   ,       r   a   w   P   F   )  \t  \t
0134160    /   /       a   d   d       a       f   i   l   t   e   r    
0134200    f   o   r       n   o   n   -   p   u   p   s  \r           (
0134220    l   v       l   o   c   a   l   N   D   B   >   >   N   D   B
0134240    .   p   u   p   P   F   )   >   >   P   F   .   q   u   e   u
0134260    e       =       r   a   w   P   b   i   I   Q  \r           p
0134300    u   p   R   a   w   S   t   a   t   e       =       t   r   u
0134320    e  \r           r   e   s   u   l   t   i   s       l   v   N
0134340    I   L  \r           ]  \r  \r   a   n   d       X   M   o   v
0134360    e   W   o   r   d   s   (   s   r   c   ,       d   s   t   ,
0134400        n   )       b   e  \r           [  \t  \t  \t   /   /    
0134420    M   o   v   e       n       w   o   r   d 376 001  \0 372 030
0134440    s       b   e   t   w   e   e   n       t   w   o       v   i
0134460    r   t   u   a   l       a   d   d   r   e   s   s   e   s  \r
0134500            X   S   e   t   R   e   a   d   B   R   (   s   r   c
0134520    )  \r           X   S   e   t   W   r   i   t   e   B   R   (
0134540    d   s   t   )  \r           f   o   r       i       =       0
0134560        t   o       n   -   1  \r                   d   o       R
0134600    W   r   i   t   e   (   i   ,       R   R   e   a   d   (   i
0134620    )   )  \r           ]  \r  \r   a   n   d       G   E   T   P
0134640    A   C   K   E   T   B   U   F   F   E   R   (   )       =    
0134660    v   a   l   o   f  \r           [  \r           u   n   l   e
0134700    s   s       H   a   v   e   E   t   h   e   r       d   o    
0134720    r   e   s   u   l   t   i   s       l   v   N   I   L  \r    
0134740        i   f       l   a   s   t   P   B   I  \r                
0134760        t   h   e   n       [       R   e   l   P   B   I   (   l
0135000    a   s   t   P   B   I   )   ;       l   a   s   t   P   B   I
0135020        =       0       ]  \r           l   e   t       p   b    
0135040  376 001  \0   k 214   =       D   e   q   u   e   u   e   (   p
0135060    b   i   F   r   e   e   Q   )  \r           t   e   s   t    
0135100    p   b  \r                   i   f   s   o       [  \r  \t   Z
0135120    e   r   o   (   p   b   ,       l   e   n   P   B   I   O   v
0135140    e   r   h   e   a   d   )  \r  \t   p   b   >   >   P   B   I
0135160    .   q   u   e   u   e       =       p   b   i   F   r   e   e
0135200    Q  \r  \t       ]  \r                   i   f   n   o   t    
0135220    [       p   b       =       D   e   q   u   e   u   e   (   X
0135240    t   r   a   Q   )  \r  \t                   t   e   s   t    
0135260    p   b  \r  \t  \t   i   f   s   o       [  \r  \t  \t        
0135300                Z   e   r   o   (   p   b   ,       l   e   n   P
0135320    B   I   O   v   e   r   h   e   a   d   )  \t   /   /       c
0135340    l   e   a   r       h   e   a   d   e   r  \r  \t  \t        
0135360                p   b   >   >   P   B   I   .   q   u   e   u   e
0135400        =       X   t   r   a   Q  \t   /   /       s   o       i
0135420    t       c   o   m   e   s       b   a   c   k  \r  \t  \t    
0135440                    X 376 001  \0  \r   !   U   s   e   s       =
0135460        X   U   s   e   s       +       1  \t  \t   /   /       c
0135500    o   u   n   t       i   t  \r  \t  \t                       ]
0135520   \r  \t              \t   i   f   n   o   t       [  \r   /   /
0135540        (   2   )       i   f       t   h   e       i   n   t   e
0135560    r   f   a   c   e       i   s       t   r   a   n   s   m   i
0135600    t   t   i   n   g       a   n   d       h   a   s       t   i
0135620    m   e   d       o   u   t   ,       r   e   s   e   t       i
0135640    t  \r   /   /                       a   n   d       f   a   k
0135660    e       a       l   o   a   d       o   v   e   r   f   l   o
0135700    w       i   n   d   i   c   a   t   i   o   n       t   o    
0135720    u   n   h   a   n   g       t   h   e       s   o   f   t   w
0135740    a   r   e   .  \r  \t  \t  \t   i   f       l   o   c   a   l
0135760    N   D   B   >   >   E   t   h   e   r   N   D   B   .   e   O
0136000    B       n   e       0       &  \r  \t  \t  \t               T
0136020    i   m   e   r   H   a   s   E   x   p   i   r   e   d   (   l
0136040    v       l   o   c   a   l   N   D   B 376 001  \0 365   ]   >
0136060    >   E   t   h   e   r   N   D   B   .   t   T   i   m   e   r
0136100    )  \r  \t  \t  \t               t   h   e   n       U   n   W
0136120    e   d   g   e   E   t   h   e   r   (   )  \r  \t  \t        
0136140                r   e   s   u   l   t   i   s       l   v   N   I
0136160    L  \r  \t  \t                       ]  \r  \t       ]  \r    
0136200        p   b   >   >   P   B   I   .   s   o   c   k   e   t    
0136220    =       0  \t  \t  \t   /   /       c   h   a   r   g   e    
0136240    t   o       n   o       s   o   c   k   e   t  \r           l
0136260    a   s   t   P   B   I       =       p   b  \r           r   e
0136300    s   u   l   t   i   s       E   m   A   d   d   r   (   p   b
0136320    )  \r           ]  \r  \r   a   n   d       U   n   W   e   d
0136340    g   e   E   t   h   e   r   (   )       b   e  \r           [
0136360   \r           D   i   s   a   b   l   e   I   n   t   e   r   r
0136400    u   p   t   s   (   )  \r           S   t   a   r   t   I   O
0136420    (   l   o   c   a   l   N   D   B   >   >   E   t   h   e   r
0136440    N   D   B   .   r   e   s   e   t   C   m   d   )  \t  \t 376
0136460  001  \0   T   &   /   /       c   a   u   s   e   s       p   e
0136500    n   d   i   n   g       i   n   t   e   r   r   u   p   t  \r
0136520            @   (   l   o   c   a   l   N   D   B   >   >   E   t
0136540    h   e   r   N   D   B   .   e   P   L   o   c   )       =    
0136560    3       l   s   h   i   f   t       8  \t   /   /       f   a
0136600    k   e       a       l   o   a   d       o   v   e   r   f   l
0136620    o   w  \r           E   n   a   b   l   e   I   n   t   e   r
0136640    r   u   p   t   s   (   )  \r           ]  \r  \r   a   n   d
0136660        W   R   I   T   E   R   A   W   P   B   I       (   p   b
0136700    i   )       =       v   a   l   o   f  \r           [  \r    
0136720        u   n   l   e   s   s       H   a   v   e   E   t   h   e
0136740    r       d   o       r   e   s   u   l   t   i   s       l   v
0136760    N   I   L  \r           l   e   t       p   b       =       E
0137000    m   U   n   b   o   x   (   p   b   i   )  \r           i   f
0137020        l   a   s   t   P   B   I  \r                       t   h
0137040    e   n       [       i   f       p   b       n   e       l   a
0137060    s   t   P   B 376 001  \0 366 255   I  \r  \t                
0137100                t   h   e   n       R   e   l   P   B   I   (   l
0137120    a   s   t   P   B   I   )  \r  \t           l   a   s   t   P
0137140    B   I       =       0       ]  \r           p   b   >   >   P
0137160    B   I   .   s   o   c   k   e   t       =       0  \t   /   /
0137200        n   o       s   o   c   k   e   t       a   s   s   o   c
0137220    i   a   t   e   d  \r           p   b   >   >   P   B   I   .
0137240    n   d   b       =       l   o   c   a   l   N   D   B  \r    
0137260        p   b   >   >   P   B   I   .   s   t   a   t   u   s    
0137300    =       0  \r           S   e   n   d   E   t   h   e   r   P
0137320    a   c   k   e   t       (   p   b   )  \r           r   e   s
0137340    u   l   t   i   s       p   b   i  \r           ]  \r  \r   a
0137360    n   d       R   E   A   D   R   A   W   P   B   I       (   )
0137400        =       v   a   l   o   f  \r           [  \r           u
0137420    n   l   e   s   s       H   a   v   e   E   t   h   e   r    
0137440    d   o       r   e   s   u   l   t   i   s       l   v   N   I
0137460    L  \r           i   f       l   a 376 001  \0   t 273   s   t
0137500    P   B   I  \r                       t   h   e   n       [    
0137520    R   e   l   P   B   I   (   l   a   s   t   P   B   I   )   ;
0137540        l   a   s   t   P   B   I       =       0       ]  \r    
0137560        l   e   t       p   b   i       =       D   e   q   u   e
0137600    u   e       (   r   a   w   P   b   i   I   Q   )  \t  \t  \t
0137620    /   /       g   e   t       p   b   i       f   r   o   m    
0137640    i   n   p   u   t       q  \r           i   f       p   b   i
0137660        e   q       0  \r                       t   h   e   n    
0137700    [  \t  \t   /   /       n   o   t   h   i   n   g       h   a
0137720    s       a   r   r   i   v   e   d   .           M   a   k   e
0137740        s   u   r   e       i   n   t   e   r   f   a   c   e    
0137760    n   o   t       d   e   a   d  \r  \t           i   f       l
0140000    o   c   a   l   N   D   B   >   >   E   t   h   e   r   N   D
0140020    B   .   e   S   t   a   t   e       e   q       0       &    
0140040    p   b   i   F   r   e   e   Q   !   0       n   e       0  \r
0140060   \t                       t   h   e   n       [       @ 376 001
0140100   \0 030   |   (   l   o   c   a   l   N   D   B   >   >   E   t
0140120    h   e   r   N   D   B   .   e   P   L   o   c   )       =    
0140140    0  \r  \t  \t                   C   a   u   s   e   I   n   t
0140160    e   r   r   u   p   t   (   l   o   c   a   l   N   D   B   >
0140200    >   E   t   h   e   r   N   D   B   .   m   a   s   k   )    
0140220    ]  \r  \t           r   e   s   u   l   t   i   s       l   v
0140240    N   I   L  \r  \t           ]  \r           p   b   i   >   >
0140260    P   B   I   .   q   u   e   u   e       =       p   b   i   F
0140300    r   e   e   Q  \r           p   b   i   >   >   P   B   I   .
0140320    s   o   c   k   e   t       =       0  \r           l   a   s
0140340    t   P   B   I       =       p   b   i  \r           r   e   s
0140360    u   l   t   i   s       E   m   A   d   d   r   (   p   b   i
0140400    )  \r           ]  \r  \r   a   n   d       P   U   P   L   E
0140420    V   E   L   1   S   T   A   T   E   (   f   l   g   )       =
0140440        v   a   l   o   f  \r           [  \r           u   n   l
0140460    e   s   s       E   q   N   I   L   (   f   l   g   )       d
0140500    o       D 376  \0 235 363   <   e   I   m   p   l   e   m   e
0140520    n   t   e   d   S   u   b   r   (   )  \r           (   l   v
0140540        l   o   c   a   l   N   D   B   >   >   N   D   B   .   p
0140560    u   p   P   F   )   >   >   P   F   .   q   u   e   u   e    
0140600    =       r   a   w   P   b   i   I   Q  \r           p   u   p
0140620    R   a   w   S   t   a   t   e       =       t   r   u   e  \r
0140640            r   e   s   u   l   t   i   s       l   v   N   I   L
0140660   \r           ]  \r  \r   a   n   d       R   e   l   P   B   I
0140700    (   p   b   i   )       b   e  \r   [  \r   E   n   q   u   e
0140720    u   e   (   p   b   i   F   r   e   e   Q   ,       p   b   i
0140740    )  \r   ]  \r  \r 377  \0  \0   R   a   i   d   .   d   e   c
0140760    l  \0 373 227 336 260 006  \0  \0 376 001  \0   j 346   /   /
0141000        R   a   i   d   .   d   e   c   l       -       D   e   c
0141020    l   a   r   a   t   i   o   n   s       o   f       L   i   s
0141040    p       d   a   t   a       s   t   r   u   c   t   u   r   e
0141060    s       u   s   e   d       o   n   l   y       b   y       R
0141100    a   i   d  \r   /   /       L   a   s   t       e   d   i   t
0141120    e   d       A   u   g   u   s   t       2   9   ,       1   9
0141140    8   1           1   1   :   5   3       P   M       b   y    
0141160    B   i   l   l       v   a   n       M   e   l   l   e  \r   /
0141200    /       A   l   l   e   g   r   o       c   h   a   n   g   e
0141220        A   u   g   u   s   t       2   ,       1   9   8   1    
0141240        1   1   :   2   0       P   M       b   y       B   e   a
0141260    u       S   h   e   i   l  \r   /   /       L   a   s   t    
0141300    e   d   i   t   e   d       M   a   r   c   h       4   ,    
0141320    1   9   8   1           1   2   :   4   9       P   M       b
0141340    y       B   e   a   u       S   h   e   i   l  \r   /   /    
0141360    L   a   s   t       e   d   i   t   e   d       F   e 376 001
0141400   \0   R   f   b   r   u   a   r   y       2   4   ,       1   9
0141420    8   1           5   :   3   9       P   M       b   y       B
0141440    e   a   u       S   h   e   i   l  \r   /   /       L   a   s
0141460    t       e   d   i   t   e   d       A   u   g   u   s   t    
0141500    6   ,       1   9   8   0           6   :   4   0       P   M
0141520