O p t i o n   E x p l i c i t 
 
 
 
 F u n c t i o n   S e t T a g s F r o m E l e m e n t V a l u e ( I n d e x ,   B i t 1 T a g ,   B i t 2 T a g ,   B i t 3 T a g ,   B i t 4 T a g ,   B i t 5 T a g ,   B i t 6 T a g ,   B i t 7 T a g ,   B i t 8 T a g ) 
 
     D i m   V a l u e ,   B i t 
 
 
 
     V a l u e   =   R T a g . G e t T a g E l e m e n t V a l u e ( " S y s t e m " ,   " D a t a A r r a y " ,   I n d e x ) 
 
     B i t   =   F i x ( V a l u e   /   1 2 8 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 8 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   1 2 8 ) 
 
     B i t   =   F i x ( V a l u e   /   6 4 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 7 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   6 4 ) 
 
     B i t   =   F i x ( V a l u e   /   3 2 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 6 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   3 2 ) 
 
     B i t   =   F i x ( V a l u e   /   1 6 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 5 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   1 6 ) 
 
     B i t   =   F i x ( V a l u e   /   8 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 4 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   8 ) 
 
     B i t   =   F i x ( V a l u e   /   4 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 3 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   4 ) 
 
     B i t   =   F i x ( V a l u e   /   2 ) 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 2 T a g ,   B i t 
 
     V a l u e   =   V a l u e   -   ( B i t   *   2 ) 
 
     B i t   =   V a l u e 
 
     R T a g . S e t T a g V a l u e   " S y s t e m " ,   B i t 1 T a g ,   B i t 
 
 
 
 E n d   F u n c t i o n 
 
 