        !  >  4  5  @  6  0  =  8  5      1  8  1  ;  8  >  B  5  :  8      P   B   O   S 
 
 
 
   1 .     P r o c e d u r e   b i n i t 	 . 	 . 	 . 	 -   8=8F80;870F8O  !
 
   2 .     P r o c e d u r e   b e x i t 	 . 	 . 	 . 	 -   2KE>4  2  :;0280BC@=K9  <>=8B>@
 
   3 .     P r o c e d u r e   b t i m ( s t a t e : i n t e g e r ) . 	 . 	 -   C?@02;5=85  B09<5@><
 
   4 .     F u n c t i o n   b m e m   :   i n t e g e r 	 . 	 . 	 -   GB5=85  A>AB>O=8O  ?0<OB8
 
   5 .     F u n c t i o n   b t e s t ( p : p a g e ) 	 . 	 . 	 -   GB5=85  AB0BCA0  AB@0=8FK
 
   6 .     P r o c e d u r e   b p a g e ( p : p a g e ) 	 . 	 . 	 -   ?>4:;NG5=85  AB@0=8FK  #/ #
 
   7 .     P r o c e d u r e   b w o r k ( p : p a g e ) 	 . 	 . 	 -   =07=0G5=85  @01>G59  AB@0=8FK
 
   8 .     F u n c t i o n   b g e t w ( a d d r : a d d r e s s )   :   i n t e g e r 	 -   GB5=85  A;>20  87  @01>G59  AB@0=8FK
 
   9 .     F u n c t i o n   b g e t b ( a d d r : a d d r e s )   :   c h a r . 	 -   GB5=85  109B0  87  @01>G59  AB@0=8FK
 
 1 0 .     P r o c e d u r e   b p u t w ( a d d r : a d d r e s s , w o r d : i n t e g e r ) 	 -   70?8AL  A;>20  2  @01>GCN  AB@0=8FC
 
 1 1 .     P r o c e d u r e   b p u t b ( a d d r : a d d r e s s , b y t e : c h a r ) 	 -   70?8AL  109B0  2  @01>GCN  AB@0=8FC
 
 1 2 .     P r o c e d u r e   b m o v e ( m v : m e m r w )   	 . 	 . 	 -   ?5@5AK;:0  <0AA820  A;>2
 
 1 3 .     P r o c e d u r e   b w o v b ( m v : m e m r w ) 	 . 	 . 	 -   ?5@5AK;:0  <0AA820  109B>2
 
 1 4 .     P r o c e d u r e   b j s r ( a d d r : a d d r e s s ) 	 . 	 -   2K7>2  ?>4?@>3@0<<K  87  @01>G59  AB@0=8FK
 
 1 5 .     P r o c e d u r e   b j m p ( a d d r : a d d r e s s ) 	 . 	 -   ?5@5E>4  2  @01>GCN  AB@0=8FC  157  2>72@0B0
 
 1 6 .     P r o c e d u r e   b k i n i 	 . 	 . 	 . 	 -   8=8F80;870F8O  4@0925@0  :;0280BC@K
 
 1 7 .     P r o c e d u r e   b k s e t ( k b s t a t e : i n t e g e r ) 	 . 	 -   CAB0=>2:0  @568<0  4@0925@0  :;0280BC@K
 
 1 8 .     F u n c t i o n   b k g e t   :   i n t e g e r 	 . 	 . 	 -   GB5=85  @568<0  4@0925@0  :;0280BC@K
 
 1 9 .     F u n c t i o n   b t t i n   :   c h a r 	 . 	 . 	 -   22>4  A8<2>;0  A  >6840=85<
 
 2 0 .     F u n c t i o n   b i n k e y   : c h a r 	 . 	 . 	 -   22>4  A8<2>;0  157  >6840=8O
 
 2 1 .     P r o c e d u r e   b g l i n ( a d d r : a d d r e s s , c n t : i n t e g e r ) 	 -   22>4  AB@>:8  A  @540:B8@>20=85<
 
 2 2 .     P r o c e d u r e   b e d i t ( a d d r : a d d r e s s , c n t : i n t e g e r ) 	 -   @540:B8@>20=85  ACI5AB2CNI59  AB@>:8
 
 2 3 .     P r o c e d u r e   b k r e s 	 . 	 . 	 . 	 -   A1@>A  1CD5@0  :;0280BC@K
 
 2 4 .     P r o c e d u r e   b s f u n ( n u m : i n t e g e r , a d d r : a d d r e s s )   	 -   CAB0=>2:0  DC=:F8>=0;L=KE  :;028H
 
 2 5 .     P r o c e d u r e   b g f u n ( n u m : i n t e g e r , a d d r : a d d r e s s ) 	 -   GB5=85  DC=:F8>=0;L=KE  :;028H
 
 2 6 .     P r o c e d u r e   b t i n i 	 . 	 . 	 . 	 -   8=8F80;870F8O  4@0925@0  M:@0=0
 
 2 7 .     P r o c e d u r e   b t s e t ( t v s t a t e : i n t e g e r ) 	 . 	 -   CAB0=>2:0  @568<0  4@0925@0  M:@0=0
 
 2 8 .     F u n c t i o n   b t g e t   :   i n t e g e r 	 . 	 . 	 -   GB5=85  @568<0  4@0925@0  M:@0=0
 
 2 9 .     P r o c e d u r e   b s c o l ( c o l : c o l o r )   . 	 . 	 -   CAB0=>2:0  F25B>2
 
 3 0 .     P r o c e d u r e   b g c o l   :   c o l o r 	 . 	 . 	 -   GB5=85  F25B>2
 
 3 1 .     P r o c e d u r e   b p a l ( p a l : p a l e t ) 	 .   	 . 	 -   CAB0=>2:0/ GB5=85  ?0;8B@K
 
 3 2 .     P r o c e d u r e   b b u f ( b u f f : i n t e g e r ) 	 . 	 -   ?5@5:;NG5=85  1CD5@>2  M:@0=0
 
 3 3 .     P r o c e d u r e   b s p o s ( c o o r d : i n t e g e r ) 	 . 	 -   CAB0=>2:0  :>>@48=0B  0/ F  :C@A>@0
 
 3 4 .     F u n c t i o n   b g p o s   :   i n t e g e r 	 . 	 . 	 -   GB5=85  :>>@48=0B  0/ F  :C@A>@0
 
 3 5 .     P r o c e d u r e   b s c r l ( n u m : i n t e g e r ) 	 . 	 -   A4283  M:@0=0
 
 3 6 .     P r o c e d u r e   b c l s 	 . 	 . 	 . 	 -   >G8AB:0  M:@0=0
 
 3 7 .     P r o c e d u r e   b t o u t ( c : c h a r ) 	 . 	 . 	 -   2K2>4  A8<2>;0
 
 3 8 .     P r o c e d u r e     b s t r ( s t r : s t r i n g ) . 	 . 	 -   2K2>4  AB@>:8  A8<2>;>2
 
 3 9 .     P r o c e d u r e   b s g r f ( x , y : i n t e g e r ) 	 . 	 -   CAB0=>2:0  B5:CI8E  3@0D8G5A:8E  :>>@48=0B
 
 4 0 .     P r o c e d u r e   b g g r f ( v a r   x , y : i n t e g e r ) 	 . 	 -   GB5=85  B5:CI8E  3@0D8G5A:8E  :>>@48=0B
 
 4 1 .     P r o c e d u r e   b s c g r ( c o l : c o l o r ) 	 . 	 . 	 -   CAB0=>2:0  3@0D8G5A:>3>  F25B0
 
 4 2 .     F u n c t i o n   b g c g r   :   c o l o r 	 . 	 . 	 -   GB5=85  3@0D8G5A:>3>  F25B0
 
 4 3 .     P r o c e d u r e   b s m o d ( m o d : i n t e g e r ) 	 . 	 -   CAB0=>2:0/ GB5=85  @568<0  @8A>20=8O
 
 4 4 .     P r o c e d u r e   b s p n t ( x , y : i n t e g e r ) 	 . 	 -   2K2>4  3@0D8G5A:>9  B>G:8
 
 4 5 .     F u n c t i o n   b g p n t ( x , y : i n t e g e r )   :   c o l o r . 	 -   GB5=85  F25B0  3@0D8G5A:>9  B>G:8
 
 4 6 .     P r o c e d u r e   b v e c t ( x , y : i n t e g e r ) 	 . 	 -   2K2>4  3@0D8G5A:>3>  25:B>@0
 
 4 7 .     P r o c e d u r e   b l i n e ( x b , y b , x e , y e : i n t e g e r ) 	 -   2K2>4  3@0D8G5A:>9  ;8=88
 
 4 8 .     P r o c e d u r e   b r e c t ( x b , y b , x e , y e : i n t e g e r ) 	 -   2K2>4  ?@O<>C3>;L=8:0
 
 4 9 .     P r o c e d u r e   b f r c t ( x , y : i n t e g e r ) 	 . 	 -   2K2>4  70:@0H5==>3>  ?@O<>C3>;L=8:0
 
 5 0 .     P r o c e d u r e   b c i r c ( c i r c : c i r c l e ) 	 . 	 -   2K2>4  4C38  8;8  >:@C6=>AB8
 
 5 1 .     P r o c e d u r e   b f i l l ( c o l : c o l o r )   . 	 . 	 -   70:@0A:0  3@0=8G=>- >?@545;5==>9  >1;0AB8
 
 5 2 .     P r o c e d u r e   b s o u n d ( l e n , t o n e : i n t e g e r ) 	 . 	 -   2K40G0  72C:0
 
 5 3 .     P r o c e d u r e   b s w i n ( w i n d : w i n d o w ) 	 . 	 -   CAB0=>2:0  3@0D8G5A:>3>  >:=0
 
 5 4 .     P r o c e d u r e   b g w i n ( w i n d : w i n d o w ) 	 . 	 -   GB5=85  3@0D8G5A:>3>  >:=0
 
 5 5 .     P r o c e d u r e   b c w i n ( c o l : c o l o r ) 	 . 	 . 	 -   >G8AB:0  3@0D8G5A:>3>  >:=0  C:070==K<  F25B><
 
 5 6 .     P r o c e d u r e   b s t y p ( t y p e : i n t e g e r ) 	 . 	 -   CAB0=>2:0  B8?0  25:B>@0
 
 5 7 .     F u n c t i o n   b g t y p   :   i n t e g e r 	 . 	 . 	 -   GB5=85  B8?0  25:B>@0
 
 5 8 .     P r o c e d u r e   b g o s e t ( o r i e n t : i n t e g e r ) 	 . 	 -   CAB0=>2:0/ GB5=85  >@85=B0F88  3@0D8G5A:8E  A8<2>;>2
 
 5 9 .     P r o c e d u r e   b g o u t ( c : c h a r )   	 . 	 . 	 -   3@0D8G5A:89  2K2>4  A8<2>;0
 
 6 0 .     P r o c e d u r e   b g s t r ( s t r : s t r i n g ) . 	 . 	 -   3@0D8G5A:89  2K2>4  AB@>:8
 
 6 1 .     P r o c e d u r e   b g s t s ( s t r : s t r i n g ) . 	 . 	 -   C?;>B=5==K9  3@0D8G5A:89  2K2>4  AB@>:8  / 3>@87>=B0;L=K9/ 
 
 T Y P E 
 
 
 
     p a g e         =   [ 1 . . 1 5 ] ; 
 
 
 
     a d d r e s s   =   [ - 3 2 7 6 8 . . 3 2 7 6 7 ] ; 
 
 
 
     m e m r v       =   r e c o r d 
 
                   m e m a d r       :   i n t e g e r ; 
 
                   m e m l o w       :   i n t e g e r ; 
 
                           p a g e s         :   i n t e g e r ; 
 
                   m e m c o u n t   :   i n t e g e r ; 
 
               e n d ; 
 
 
 
     c o l o r       =   [ 0 . . 3 ] ; 
 
 
 
     p a l e t       =   [ 0 . . 1 5 ] ; 
 
 
 
     c i r c l e     =   r e c o r d 
 
                   x c   :   i n t e g e r ; 
 
                   y c   :   i n t e g e r ; 
 
                   r c   :   i n t e g e r ; 
 
                   k x   :   i n t e g e r ; 
 
                   k y   :   i n t e g e r ; 
 
                   r b   :   i n t e g e r ; 
 
                   r e   :   i n t e g e r ; 
 
                 e n d ; 
 
 
 
     w i n d o w     =   r e c o r d 
 
                   X m i n   :   i n t e g e r ; 
 
                   X m a x   :   i n t e g e r ; 
 
                   Y m i n   :   i n t e g e r ; 
 
                   Y m a x   :   i n t e g e r ; 
 
                 e n d ; 
 
 
 
 