ÿþf u n c t i o n   r e s e t F o r m ( f o r m )   { 
 
       f o r m . s a l e _ p r i c e . v a l u e   =   " " ; 
 
       f o r m . b a n d 1 . v a l u e   =   " " ; 
 
       f o r m . b a n d 2 . v a l u e   =   " " ; 
 
       f o r m . b a n d 3 . v a l u e   =   " " ; 
 
       f o r m . b a n d 4 . v a l u e   =   " " ; 
 
       f o r m . b a n d 5 . v a l u e   =   " " ; 
 
       f o r m . t o t a l . v a l u e   =   " " ; 
 
 } 
 
 
 
 f u n c t i o n   t e s t R e s u l t s   ( f o r m )   { 
 
     
 
       v a r   s a l e _ p r i c e   =   f o r m . s a l e _ p r i c e . v a l u e ; 
 
       v a r   s a l e _ p r i c e _ r e m a i n d e r   =   s a l e _ p r i c e ; 
 
       v a r   r o y a l t y   =   0 . 0 ; 
 
       v a r   t o t a l _ r o y a l t y   =   0 . 0 ; 
 
 
 
       f o r m . b a n d 1 . v a l u e   =   " " ; 
 
       f o r m . b a n d 2 . v a l u e   =   " " ; 
 
       f o r m . b a n d 3 . v a l u e   =   " " ; 
 
       f o r m . b a n d 4 . v a l u e   =   " " ; 
 
       f o r m . b a n d 5 . v a l u e   =   " " ; 
 
       f o r m . t o t a l . v a l u e   =   " " ; 
 
 
 
 
 
       i f   (   m y I s N a N (   s a l e _ p r i c e )   )   { 
 
           a l e r t (   ' P l e a s e   e n t e r   v a l i d   n u m b e r   0 - 9 ! ' ) ; 
 
           f o r m . s a l e _ p r i c e . v a l u e   =   " " ; 
 
       } 
 
       i f   ( s a l e _ p r i c e   >   1 9 9 9 9 9 9 )   { 
 
           f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 4 . v a l u e   =   " N / A " ;   
 
           f o r m . b a n d 3 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 2 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 1 . v a l u e   =   " N / A " ; 
 
           t o t a l _ r o y a l t y   =   d e c _ f i x ( 1 2 5 0 0 ) ; 
 
       } 
 
 
 
       e l s e   i f   ( s a l e _ p r i c e   <   3 0 0 0 )   { 
 
           f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 4 . v a l u e   =   " N / A " ;   
 
           f o r m . b a n d 3 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 2 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 1 . v a l u e   =   " N / A " ; 
 
           t o t a l _ r o y a l t y   =   0 . 0 ; 
 
       } 
 
 
 
       e l s e   i f   ( s a l e _ p r i c e   <   5 0 0 0 0 . 0 1 )   { 
 
           f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 4 . v a l u e   =   " N / A " ;   
 
           f o r m . b a n d 3 . v a l u e   =   " N / A " ; 
 
           f o r m . b a n d 2 . v a l u e   =   " N / A " ; 
 
           t o t a l _ r o y a l t y   =   s a l e _ p r i c e   *   0 . 0 4 ; 
 
           f o r m . b a n d 1 . v a l u e   =   t o t a l _ r o y a l t y ; 
 
       } 
 
 
 
       e l s e   { 
 
 
 
           i f   ( s a l e _ p r i c e   >   5 0 0 0 0 0 . 0 1 )   { 
 
               r o y a l t y   =   ( s a l e _ p r i c e   -   5 0 0 0 0 0 )   *   0 . 0 0 2 5 ; 
 
               f o r m . b a n d 5 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 0 5 0 ) ; 
 
               f o r m . b a n d 4 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 1 ) ; 
 
               f o r m . b a n d 3 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 3 ) ; 
 
               f o r m . b a n d 2 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 5 0 0 0 0   *   0 . 0 4 ) ; 
 
               f o r m . b a n d 1 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
           } 
 
           e l s e   i f   ( s a l e _ p r i c e   >   3 5 0 0 0 0 . 0 1 )   { 
 
               f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
               r o y a l t y   =   ( s a l e _ p r i c e   -   3 5 0 0 0 0 )   *   0 . 0 0 5 0 ; 
 
               f o r m . b a n d 4 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 1 ) ; 
 
               f o r m . b a n d 3 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 3 ) ; 
 
               f o r m . b a n d 2 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 5 0 0 0 0   *   0 . 0 4 ) ; 
 
               f o r m . b a n d 1 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
           } 
 
           e l s e   i f   ( s a l e _ p r i c e   >   2 0 0 0 0 0 . 0 1 )   { 
 
               f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
               f o r m . b a n d 4 . v a l u e   =   " N / A " ; 
 
               r o y a l t y   =   ( s a l e _ p r i c e   -   2 0 0 0 0 0 )   *   0 . 0 1 ; 
 
               f o r m . b a n d 3 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 1 5 0 0 0 0   *   0 . 0 3 ) ; 
 
               f o r m . b a n d 2 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 5 0 0 0 0   *   0 . 0 4 ) ; 
 
               f o r m . b a n d 1 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
           } 
 
           e l s e   i f   ( s a l e _ p r i c e   >   5 0 0 0 0 . 0 1 )   { 
 
               f o r m . b a n d 5 . v a l u e   =   " N / A " ; 
 
               f o r m . b a n d 4 . v a l u e   =   " N / A " ; 
 
               
 
               f o r m . b a n d 3 . v a l u e   =   " N / A " ; ; 
 
               r o y a l t y   =   ( s a l e _ p r i c e   -   5 0 0 0 0 )   *   0 . 0 3 ; 
 
               f o r m . b a n d 2 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
               r o y a l t y   =   ( 5 0 0 0 0   *   0 . 0 4 ) ; 
 
               f o r m . b a n d 1 . v a l u e   =   r o y a l t y ; 
 
               t o t a l _ r o y a l t y   =   t o t a l _ r o y a l t y   +   r o y a l t y ; 
 
           } 
 
       } 
 
   
 
       / / f o r m . t o t a l . v a l u e   =   d e c _ f i x ( ( t o t a l _ r o y a l t y * 1 0 0 ) / 1 0 0 ) ;       
 
       f o r m . t o t a l . v a l u e   =   d e c _ f i x ( R o u n d ( t o t a l _ r o y a l t y , 2 ) ) ;             
 
     
 
 } 
 
 
 
     f u n c t i o n   d e c _ f i x   (   a m o u n t   ) 
 
     { 
 
       v a r   n   =   " " + a m o u n t ; 
 
       v a r   d p   =   n . i n d e x O f ( ' . ' ) ; 
 
       i f (   d p   = =   - 1 ) 
 
         r e t u r n   n + " . 0 0 " ; 
 
 
 
       v a r   t a i l   =   n . l e n g t h   -   ( d p + 1 ) ; 
 
       f o r   ( i = t a i l ;   i < 2 ;   i + + ) 
 
       { 
 
         n + = " 0 " ; 
 
       } 
 
       r e t u r n   n ; 
 
     } 
 
 
 
 f u n c t i o n   m y I s N a N ( w h a t )   {   r e t u r n   ( w h a t   ! =   ( ( w h a t   -   0 )   +   ' ' ) ) ;   } 
 
 
 
 f u n c t i o n   R o u n d ( R v a l , R p l )   { 
 
     p   =   M a t h . p o w ( 1 0 ,   R p l ) ; 
 
     R v a l   =   R v a l   *   p ; 
 
     t m p   =   M a t h . r o u n d ( R v a l ) ; 
 
     r e t u r n   t m p / p ; 
 
         } 
