þÿ  
 f u n c t i o n   M o d u l o ( )   {  
  
 v a r   k e y   =   d o c u m e n t . m o d u l o . k e y . v a l u e ;  
 v a r   t i t l e   =   d o c u m e n t . m o d u l o . t e x t _ t i t l e . v a l u e ;  
 v a r   d e s c r i p t i o n _ t i t l e   =   d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . v a l u e ;  
 v a r   k e y 1   =   d o c u m e n t . m o d u l o . k e y 1 . v a l u e ;  
 v a r   k e y 2   =   d o c u m e n t . m o d u l o . k e y 2 . v a l u e ;  
 v a r   k e y 3   =   d o c u m e n t . m o d u l o . k e y 3 . v a l u e ;  
 v a r   k e y 4   =   d o c u m e n t . m o d u l o . k e y 4 . v a l u e ;  
 v a r   k e y 5   =   d o c u m e n t . m o d u l o . k e y 5 . v a l u e ;  
 v a r   k e y 6   =   d o c u m e n t . m o d u l o . k e y 6 . v a l u e ;  
  
 v a r   u r l _ k e y 1   =   d o c u m e n t . m o d u l o . u r l _ k e y 1 . v a l u e ;  
 v a r   u r l _ k e y 2   =   d o c u m e n t . m o d u l o . u r l _ k e y 2 . v a l u e ;  
 v a r   u r l _ k e y 3   =   d o c u m e n t . m o d u l o . u r l _ k e y 3 . v a l u e ;  
 v a r   u r l _ k e y 4   =   d o c u m e n t . m o d u l o . u r l _ k e y 4 . v a l u e ;  
 v a r   u r l _ k e y 5   =   d o c u m e n t . m o d u l o . u r l _ k e y 5 . v a l u e ;  
 v a r   u r l _ k e y 6   =   d o c u m e n t . m o d u l o . u r l _ k e y 6 . v a l u e ;  
  
 v a r   n a m e _ s i t e   =   d o c u m e n t . m o d u l o . n a m e _ s i t e . v a l u e ;  
 v a r   u r l _ s i t e   =   d o c u m e n t . m o d u l o . u r l _ s i t e . v a l u e ;  
 v a r   u r l _ r e d i r e c t   =   d o c u m e n t . m o d u l o . u r l _ r e d i r e c t . v a l u e ;  
 v a r   b r e v e _ d e s c r i p t i o n   =   d o c u m e n t . m o d u l o . b r e v e _ d e s c r i p t i o n . v a l u e ;  
 v a r   f u l l _ d e s c r i p t i o n   =   d o c u m e n t . m o d u l o . f u l l _ d e s c r i p t i o n . v a l u e ;  
 v a r   e m a i l   =   d o c u m e n t . m o d u l o . e m a i l . v a l u e ;  
 v a r   k e y _ m a s t e r   =   d o c u m e n t . m o d u l o . k e y _ m a s t e r . v a l u e ;  
  
 v a r   k e y l o n g   =   d o c u m e n t . m o d u l o . k e y . v a l u e . l e n g t h ;  
 v a r   t i t l e l o n g   =   d o c u m e n t . m o d u l o . t e x t _ t i t l e . v a l u e . l e n g t h ;  
 v a r   d e s c r i p t i o n l o n g   =   d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . v a l u e . l e n g t h ;  
 v a r   k e y 1 l o n g   =   d o c u m e n t . m o d u l o . k e y 1 . v a l u e . l e n g t h ;  
 v a r   k e y 2 l o n g   =   d o c u m e n t . m o d u l o . k e y 2 . v a l u e . l e n g t h ;  
 v a r   k e y 3 l o n g   =   d o c u m e n t . m o d u l o . k e y 3 . v a l u e . l e n g t h ;  
 v a r   k e y 4 l o n g   =   d o c u m e n t . m o d u l o . k e y 4 . v a l u e . l e n g t h ;  
 v a r   k e y 5 l o n g   =   d o c u m e n t . m o d u l o . k e y 5 . v a l u e . l e n g t h ;  
 v a r   k e y 6 l o n g   =   d o c u m e n t . m o d u l o . k e y 6 . v a l u e . l e n g t h ;  
  
 v a r   u r l _ k e y 1 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 1 . v a l u e . l e n g t h ;  
 v a r   u r l _ k e y 2 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 2 . v a l u e . l e n g t h ;  
 v a r   u r l _ k e y 3 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 3 . v a l u e . l e n g t h ;  
 v a r   u r l _ k e y 4 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 4 . v a l u e . l e n g t h ;  
 v a r   u r l _ k e y 5 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 5 . v a l u e . l e n g t h ;  
 v a r   u r l _ k e y 6 l o n g   =   d o c u m e n t . m o d u l o . u r l _ k e y 6 . v a l u e . l e n g t h ;  
  
 v a r   n a m e _ s i t e l o n g   =   d o c u m e n t . m o d u l o . n a m e _ s i t e . v a l u e . l e n g t h ;  
 v a r   u r l _ s i t e l o n g   =   d o c u m e n t . m o d u l o . u r l _ s i t e . v a l u e . l e n g t h ;  
 v a r   u r l _ r e d i r e c t l o n g   =   d o c u m e n t . m o d u l o . u r l _ r e d i r e c t . v a l u e . l e n g t h ;  
 v a r   b r e v e _ d e s c r i p t i o n l o n g   =   d o c u m e n t . m o d u l o . b r e v e _ d e s c r i p t i o n . v a l u e . l e n g t h ;  
 v a r   f u l l _ d e s c r i p t i o n l o n g   =   d o c u m e n t . m o d u l o . f u l l _ d e s c r i p t i o n . v a l u e . l e n g t h ;  
  
 v a r   e m a i l _ r e g _ e x p   =   / ^ ( [ a - z A - Z 0 - 9 _ \ . \ - ] ) + \ @ ( ( [ a - z A - Z 0 - 9 \ - ] { 2 , } ) + \ . ) + ( [ a - z A - Z 0 - 9 ] { 2 , } ) + $ / ;  
  
  
 i f   ( ( k e y   = =   " " )   | |   ( k e y   = =   " u n d e f i n e d " )   | |   ( k e y l o n g   < = 5 )   )   {  
 a l e r t ( " K e y   O b b l i g a t o r y ,   M i n   6   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 i f   ( ( t i t l e   = =   " " )   | |   ( t i t l e   = =   " u n d e f i n e d " )   | |   ( t i t l e l o n g   < = 5 )   )   {  
 a l e r t ( " T i t l e   O b b l i g a t o r y ,   M i n   6   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . t e x t _ t i t l e . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 i f   ( ( t i t l e   = =   " " )   | |   ( t i t l e   = =   " u n d e f i n e d " )   | |   ( t i t l e l o n g   < = 5 )   )   {  
 a l e r t ( " T i t l e   O b b l i g a t o r y ,   M i n   6   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . t e x t _ t i t l e . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( d e s c r i p t i o n _ t i t l e   = =   " " )   | |   ( d e s c r i p t i o n _ t i t l e   = =   " u n d e f i n e d " )   | |   ( d e s c r i p t i o n l o n g   < = 5 ) )   {  
 a l e r t ( " D e s c r i p t i o n   O b b l i g a t o r y ,   M i n   6   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( k e y 1   = =   " " )   | |   ( k e y 1   = =   " u n d e f i n e d " )   | |   ( k e y 1 l o n g   < = 2 ) )   {  
 a l e r t ( " K e y w o r d   1   O b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 1 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ k e y 1 l o n g   < 1 5 )   | |   ( u r l _ k e y 1 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) ) {  
 a l e r t ( " k e y w o r d   1   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 1 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 1 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( k e y 2   = =   " " )   | |   ( k e y 2   = =   " u n d e f i n e d " )   | |   ( k e y 2 l o n g   < = 2 ) )   {  
 a l e r t ( " K e y w o r d   2   O b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 2 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ k e y 2 l o n g   < 1 5 )   | |   ( u r l _ k e y 2 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) ) {  
 a l e r t ( " k e y w o r d   2   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 2 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 2 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( k e y 3   = =   " " )   | |   ( k e y 3   = =   " u n d e f i n e d " )   | |   ( k e y 3 l o n g   < = 2 ) )   {  
 a l e r t ( " K e y w o r d   3   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 3 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ k e y 3 l o n g   < 1 5 )   | |   ( u r l _ k e y 3 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) ) {  
 a l e r t ( " k e y w o r d   3   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 3 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 3 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( k e y 4   = =   " " )   | |   ( k e y 4   = =   " u n d e f i n e d " )   | |   ( k e y 4 l o n g   < = 2 ) )   {  
 a l e r t ( " K e y w o r d   4   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 4 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ k e y 4 l o n g   < 1 5 )   | |   ( u r l _ k e y 4 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) ) {  
 a l e r t ( " k e y w o r d   4   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 4 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 4 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ! ( k e y 5   = = " "   | |   k e y 5   = =   " u n d e f i n e d "   | |   ( k e y 5 l o n g   > = 3 ) ) ) {  
 a l e r t ( " k e y w o r d   5   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 5 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( ! ( k e y 5   = = " "   | |   k e y 5   = =   " u n d e f i n e d "   | |   u r l _ k e y 5 l o n g   > = 1 5 ) )   | |   u r l _ k e y 5 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) {  
 a l e r t ( " k e y w o r d   5   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 5 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 5 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
  
 e l s e   i f   ( u r l _ k e y 5 l o n g   > 7   & &   ( k e y 5   = = " "   | |   k e y 5   = =   " u n d e f i n e d "   | |   k e y 5 l o n g   < = 2 ) ) {  
 a l e r t ( " k e y w o r d   5   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 5 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ! ( k e y 6   = = " "   | |   k e y 6   = =   " u n d e f i n e d "   | |   ( k e y 6 l o n g   > = 3 ) ) ) {  
 a l e r t ( " k e y w o r d   6   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 6 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( ! ( k e y 6   = = " "   | |   k e y 6   = =   " u n d e f i n e d "   | |   u r l _ k e y 6 l o n g   > = 1 5 ) )   | |   u r l _ k e y 6 . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) ) {  
 a l e r t ( " k e y w o r d   6   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 6 . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ k e y 6 . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( u r l _ k e y 6 l o n g   > 7   & &   ( k e y 6   = = " "   | |   k e y 6   = =   " u n d e f i n e d "   | |   k e y 6 l o n g   < = 2 ) ) {  
 a l e r t ( " k e y w o r d   6   i s   o b b l i g a t o r y ,   M i n   3   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . k e y 6 . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( n a m e _ s i t e   = =   " " )   | |   ( n a m e _ s i t e   = =   " u n d e f i n e d " )   | |   ( n a m e _ s i t e l o n g   < = 2 )   | |   ( n a m e _ s i t e l o n g   > = 3 0 ) )   {  
 a l e r t ( " S i t e N a m e   i s   O b b l i g a t o r y ,   M i n   3   a n d   M a x   3 0   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . n a m e _ s i t e . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ s i t e   = =   " " )   | |   ( u r l _ s i t e   = =   " u n d e f i n e d " )   | |   ( u r l _ s i t e . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) )   | |   ( u r l _ s i t e l o n g   < 1 5 )   ) {  
 a l e r t ( " U r l   H o m e   P a g e   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ s i t e . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ s i t e . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( u r l _ r e d i r e c t   = =   " " )   | |   ( u r l _ r e d i r e c t   = =   " u n d e f i n e d " )   | |   ( u r l _ r e d i r e c t . i n d e x O f ( " h t t p : / / " )   = =   ( - 1 ) )   | |   ( u r l _ r e d i r e c t l o n g   < 1 5 )   ) {  
 a l e r t ( " U r l   R e d i r e c t   P a g e   i s   W r o n g . " ) ;  
 d o c u m e n t . m o d u l o . u r l _ r e d i r e c t . v a l u e   =   " h t t p : / / " ;  
 d o c u m e n t . m o d u l o . u r l _ r e d i r e c t . s e l e c t ( ) ;  
 r e t u r n   f a l s e ; }  
  
  
 e l s e   i f   ( ( b r e v e _ d e s c r i p t i o n   = =   " " )   | |   ( b r e v e _ d e s c r i p t i o n   = =   " u n d e f i n e d " )   | |   ( b r e v e _ d e s c r i p t i o n l o n g   < = 9 ) )   {  
 a l e r t ( " B r i e f   D e s c r i p t i o n   i s   O b b l i g a t o r y ,   M i n   1 0   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . b r e v e _ d e s c r i p t i o n . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
 e l s e   i f   ( ( f u l l _ d e s c r i p t i o n   = =   " " )   | |   ( f u l l _ d e s c r i p t i o n   = =   " u n d e f i n e d " )   | |   ( f u l l _ d e s c r i p t i o n l o n g   < = 9 ) )   {  
 a l e r t ( " D e s c r i p t i o n   F u l l   i s   O b b l i g a t o r y ,   M i n   1 0   C h a r . " ) ;  
 d o c u m e n t . m o d u l o . f u l l _ d e s c r i p t i o n . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
  
  
 e l s e   i f   ( ! ( e m a i l = = " "   | |   e m a i l   = =   " u n d e f i n e d " ) ) {  
 i f   ( ! e m a i l _ r e g _ e x p . t e s t ( e m a i l ) ) {  
 a l e r t ( " I n s e r t   a   C o r r e c t   M a i l . " ) ;  
 d o c u m e n t . m o d u l o . e m a i l . f o c u s ( ) ;  
 r e t u r n   f a l s e ; } } 	 	  
 { d o c u m e n t . m o d u l o . a c t i o n   =   " D o o r w a y _ G e n e r a t o r / G e n e r a t o r e _ d i _ D o o r w a y . a s p " ;  
   d o c u m e n t . m o d u l o . s u b m i t ( ) ; } }  
  
  
  
  
  
  
 f u n c t i o n   c o n t a t ( )   {  
 v a r   c o u n t e r t   =   d o c u m e n t . m o d u l o . c o n t a t o r e 1 . v a l u e   =   d o c u m e n t . m o d u l o . t e x t _ t i t l e . v a l u e . l e n g t h ;  
 i f   ( c o u n t e r t   > = 1 3 0 ) {  
 a l e r t ( " W r o n g   M a x   C h a r   T i t l e . " ) ;  
 d o c u m e n t . m o d u l o . t e x t _ t i t l e . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
 i f   ( c o u n t e r t   > 5 ) {  
 i n d e x = 1 ;  
 p i n d e x = 0 ;  
 e n d w h i l e = 0  
 b o d y t = d o c u m e n t . m o d u l o . t e x t _ t i t l e . v a l u e ;  
 b o d y l = b o d y t . t o L o w e r C a s e ( )  
 f i n a l f s = b o d y l . i n d e x O f ( " . " , b o d y l . l e n g t h - 1 ) ;  
 i f ( f i n a l f s > = 0 )  
 b o d y l = b o d y l . s u b s t r i n g ( 0 , b o d y l . l e n g t h - 1 ) ;  
 w h i l e ( i n d e x > = 0 ) {  
 i n d e x   =   b o d y l . i n d e x O f ( " < " , 0 ) ;  
 i f   ( i n d e x   > =   0 ) {  
 p i n d e x   =   b o d y l . i n d e x O f ( " > " , i n d e x ) ;  
 b o d y a n k = b o d y l . s u b s t r i n g ( i n d e x , p i n d e x + 1 ) ;  
 b o d y l = b o d y l . r e p l a c e ( b o d y a n k , "   " ) ;  
 b o d y l = b o d y l . r e p l a c e ( " .   " , "   " ) ;  
 b o d y l = b o d y l . r e p l a c e ( " @   " , "   " ) ;  
 b o d y l = b o d y l . r e p l a c e ( " < " , "   " ) ;  
 b o d y l = b o d y l . r e p l a c e ( " > " , "   " ) ; } }  
 r m _ e x t _ c h a r = " " ;  
 r e a l _ c h r = " " ;  
 f o r ( i = 0 ;   i < b o d y l . l e n g t h ;   i + + ) {  
 o n e _ c h r = b o d y l . c h a r C o d e A t ( i ) ;  
 i f   ( ( o n e _ c h r > = 6 5   & &   o n e _ c h r < = 9 0 )   | |   ( o n e _ c h r > = 9 7   & &   o n e _ c h r < = 1 2 2 )   | |   ( o n e _ c h r > = 4 8   & &   o n e _ c h r < = 5 7 ) ) {  
 r e a l _ c h r = b o d y l . c h a r A t ( i ) ;  
 } e l s e { r e a l _ c h r = "   " ; }  
 r m _ e x t _ c h a r = r m _ e x t _ c h a r + r e a l _ c h r }  
 b o d y l = r m _ e x t _ c h a r . s p l i t ( "   " ) ;  
 r m _ s _ d = " " ;  
 f u l l _ t e x t = " " ;  
 c o u n t = 0  
 f o r ( i = 0 ;   i < b o d y l . l e n g t h ;   i + + ) { r m _ s _ d = b o d y l [ i ] ;  
 i f   ( r m _ s _ d . l e n g t h > 2 ) {  
 c o u n t = c o u n t + 1 ;  
 f u l l _ t e x t = f u l l _ t e x t + "   " + r m _ s _ d ; } }  
 i f   ( d o c u m e n t . m o d u l o . k e y . v a l u e ! = " " ) {  
 k f = d o c u m e n t . m o d u l o . k e y . v a l u e ;  
 r m _ e x t _ c h a r = " " ;  
 r e a l _ c h r = " " ;  
 f o r ( i = 0 ;   i < k f . l e n g t h ;   i + + ) { o n e _ c h r = k f . c h a r C o d e A t ( i ) ;  
 i f   ( ( o n e _ c h r > = 6 5   & &   o n e _ c h r < = 9 0 )   | |   ( o n e _ c h r > = 9 7   & &   o n e _ c h r < = 1 2 2 )   | |   ( o n e _ c h r > = 4 8   & &   o n e _ c h r < = 5 7 ) ) {  
 r e a l _ c h r = k f . c h a r A t ( i ) ;  
 } e l s e { r e a l _ c h r = "   " ; }  
 r m _ e x t _ c h a r = r m _ e x t _ c h a r + r e a l _ c h r }  
 k f = r m _ e x t _ c h a r ;  
 k s l e n = k f . s p l i t ( "   " ) ;  
 i f ( k s l e n . l e n g t h > 1 ) { k f = k f . t o L o w e r C a s e ( )  
 c o u n t k f = 0 . 1 ;  
 k f t o t a l = 0 ;  
 w h i l e ( c o u n t k f > = 0 ) { i f   ( c o u n t k f > = 0 . 1   & &   c o u n t k f < 0 . 2 ) {  
 c o u n t k f   =   f u l l _ t e x t . i n d e x O f ( k f , 0 ) ; } e l s e {  
 e n d = c o u n t k f + k f . l e n g t h ;  
 c o u n t k f   =   f u l l _ t e x t . i n d e x O f ( k f , e n d ) ; }  
 i f   ( c o u n t k f   > =   0 ) { k f t o t a l = k f t o t a l + 1 ; } }  
 i f   ( k s l e n . l e n g t h > c o u n t )  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ t i t l e . v a l u e = 0 ;  
 e l s e  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ t i t l e . v a l u e = m a t h _ r o u n d ( k f t o t a l / ( c o u n t + 1 - k s l e n . l e n g t h ) * 1 0 0 , 1 ) ;  
 } e l s e { i f   ( d o c u m e n t . m o d u l o . k e y . v a l u e ! = " " ) {  
 k 1 = d o c u m e n t . m o d u l o . k e y . v a l u e ;  
 k l = k 1 . t o L o w e r C a s e ( )  
 k s = k 1 + " s " ;  
 c o u n t k 1 = 0 ;  
 f o r ( i = 0 ;   i < b o d y l . l e n g t h ;   i + + ) { r m _ s _ d = b o d y l [ i ] ;  
 i f   ( r m _ s _ d . l e n g t h > 1 ) { i f   ( r m _ s _ d = = k l   | |   r m _ s _ d = = k s ) { c o u n t k 1 = c o u n t k 1 + 1 ; } } }  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ t i t l e . v a l u e = m a t h _ r o u n d ( c o u n t k 1 / c o u n t * 1 0 0 , 1 ) ; } } }  
 r e t u r n   ( f a l s e ) ; } e l s e {  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ t i t l e . v a l u e = 0 ; }  
 r e t u r n   ( f a l s e ) ; }  
 f u n c t i o n   c o n t a d ( )   {  
 v a r   c o u n t e r d   =   d o c u m e n t . m o d u l o . c o n t a t o r e 2 . v a l u e   =   d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . v a l u e . l e n g t h ;  
 i f   ( c o u n t e r d   > = 2 5 0 ) {  
 a l e r t ( " W r o n g   M a x   C h a r   D e s c r i p t i o n . " ) ;  
 d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . f o c u s ( ) ;  
 r e t u r n   f a l s e ; }  
 i f   ( c o u n t e r d   > 5 ) {  
 i n d e x = 1 ;  
 p i n d e x = 0 ;  
 e n d w h i l e = 0  
 b o d y u = d o c u m e n t . m o d u l o . t e x t _ d e s c r i p t i o n . v a l u e ;  
 b o d y m = b o d y u . t o L o w e r C a s e ( )  
 f i n a l f s = b o d y m . i n d e x O f ( " . " , b o d y m . l e n g t h - 1 ) ;  
 i f ( f i n a l f s > = 0 )  
 b o d y m = b o d y m . s u b s t r i n g ( 0 , b o d y m . l e n g t h - 1 ) ;  
 w h i l e ( i n d e x > = 0 ) { i n d e x   =   b o d y m . i n d e x O f ( " < " , 0 ) ;  
 i f   ( i n d e x   > =   0 ) { p i n d e x   =   b o d y m . i n d e x O f ( " > " , i n d e x ) ;  
 b o d y a n k = b o d y m . s u b s t r i n g ( i n d e x , p i n d e x + 1 ) ;  
 b o d y m = b o d y m . r e p l a c e ( b o d y a n k , "   " ) ;  
 b o d y m = b o d y m . r e p l a c e ( " .   " , "   " ) ;  
 b o d y m = b o d y m . r e p l a c e ( " @   " , "   " ) ;  
 b o d y l = b o d y m . r e p l a c e ( " < " , "   " ) ;  
 b o d y m = b o d y m . r e p l a c e ( " > " , "   " ) ; } }  
 r m _ e x t _ c h a r = " " ;  
 r e a l _ c h r = " " ;  
 f o r ( i = 0 ;   i < b o d y m . l e n g t h ;   i + + ) { o n e _ c h r = b o d y m . c h a r C o d e A t ( i ) ;  
 i f   ( ( o n e _ c h r > = 6 5   & &   o n e _ c h r < = 9 0 )   | |   ( o n e _ c h r > = 9 7   & &   o n e _ c h r < = 1 2 2 )   | |   ( o n e _ c h r > = 4 8   & &   o n e _ c h r < = 5 7 ) ) {  
 r e a l _ c h r = b o d y m . c h a r A t ( i ) ; } e l s e {  
 r e a l _ c h r = "   " ; }  
 r m _ e x t _ c h a r = r m _ e x t _ c h a r + r e a l _ c h r }  
 b o d y m = r m _ e x t _ c h a r . s p l i t ( "   " ) ;  
 r m _ s _ d = " " ;  
 f u l l _ t e x t = " " ;  
 c o u n t = 0  
 f o r ( i = 0 ;   i < b o d y m . l e n g t h ;   i + + ) { r m _ s _ d = b o d y m [ i ] ;  
 i f   ( r m _ s _ d . l e n g t h > 2 ) { c o u n t = c o u n t + 1 ;  
 f u l l _ t e x t = f u l l _ t e x t + "   " + r m _ s _ d ; } }  
 i f   ( d o c u m e n t . m o d u l o . k e y . v a l u e ! = " " ) {  
 k f = d o c u m e n t . m o d u l o . k e y . v a l u e ;  
 r m _ e x t _ c h a r = " " ;  
 r e a l _ c h r = " " ;  
 f o r ( i = 0 ;   i < k f . l e n g t h ;   i + + ) { o n e _ c h r = k f . c h a r C o d e A t ( i ) ;  
 i f   ( ( o n e _ c h r > = 6 5   & &   o n e _ c h r < = 9 0 )   | |   ( o n e _ c h r > = 9 7   & &   o n e _ c h r < = 1 2 2 )   | |   ( o n e _ c h r > = 4 8   & &   o n e _ c h r < = 5 7 ) ) {  
 r e a l _ c h r = k f . c h a r A t ( i ) ; } e l s e {  
 r e a l _ c h r = "   " ; }  
 r m _ e x t _ c h a r = r m _ e x t _ c h a r + r e a l _ c h r }  
 k f = r m _ e x t _ c h a r ;  
 k s l e n = k f . s p l i t ( "   " ) ;  
 i f ( k s l e n . l e n g t h > 1 ) { k f = k f . t o L o w e r C a s e ( )  
 c o u n t k f = 0 . 1 ;  
 k f t o t a l = 0 ;  
 w h i l e ( c o u n t k f > = 0 ) { i f   ( c o u n t k f > = 0 . 1   & &   c o u n t k f < 0 . 2 ) {  
 c o u n t k f   =   f u l l _ t e x t . i n d e x O f ( k f , 0 ) ; } e l s e {  
 e n d = c o u n t k f + k f . l e n g t h ;  
 c o u n t k f   =   f u l l _ t e x t . i n d e x O f ( k f , e n d ) ; }  
 i f   ( c o u n t k f   > =   0 ) { k f t o t a l = k f t o t a l + 1 ; } }  
 i f   ( k s l e n . l e n g t h > c o u n t )  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ d e s c r i p t i o n . v a l u e = 0 ;  
 e l s e  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ d e s c r i p t i o n . v a l u e = m a t h _ r o u n d ( k f t o t a l / ( c o u n t + 1 - k s l e n . l e n g t h ) * 1 0 0 , 1 ) ;  
 } e l s e { i f   ( d o c u m e n t . m o d u l o . k e y . v a l u e ! = " " ) {  
 k 2 = d o c u m e n t . m o d u l o . k e y . v a l u e ;  
 k l = k 2 . t o L o w e r C a s e ( )  
 k s = k 2 + " s " ;  
 c o u n t k 2 = 0 ;  
 f o r ( i = 0 ;   i < b o d y m . l e n g t h ;   i + + ) { r m _ s _ d = b o d y m [ i ] ;  
 i f   ( r m _ s _ d . l e n g t h > 1 ) { i f   ( r m _ s _ d = = k l   | |   r m _ s _ d = = k s ) { c o u n t k 2 = c o u n t k 2 + 1 ; } } }  
 d o c u m e n t . m o d u l o . f r e q u e n c y _ d e s c r i p t i o n . v a l u e = m a t h _ r o u n d ( c o u n t k 2 / c o u n t * 1 0 0 , 1 ) ; } } }  
 r e t u r n   ( f a l s e ) ; }  
 e l s e { d o c u m e n t . m o d u l o . f r e q u e n c y _ d e s c r i p t i o n . v a l u e = 0 ; }      
 r e t u r n   ( f a l s e ) ; }  
  
 f u n c t i o n   o p e n _ p o p ( n a m e ,   u r l ,   l e f t ,   t o p ,   w i d t h ,   h e i g h t ,   t o o l b a r ,   m e n u b a r ,   s t a t u s b a r ,   s c r o l l b a r ,   r e s i z a b l e )  
 { t o o l b a r _ s t r   =   t o o l b a r   ?   ' y e s '   :   ' n o ' ;  
 m e n u b a r _ s t r   =   m e n u b a r   ?   ' y e s '   :   ' n o ' ;  
 s t a t u s b a r _ s t r   =   s t a t u s b a r   ?   ' y e s '   :   ' n o ' ;  
 s c r o l l b a r _ s t r   =   s c r o l l b a r   ?   ' y e s '   :   ' n o ' ;  
 r e s i z a b l e _ s t r   =   r e s i z a b l e   ?   ' y e s '   :   ' n o ' ;  
 w i n d o w . o p e n ( u r l ,   n a m e ,   ' l e f t = ' + l e f t + ' , t o p = ' + t o p + ' , w i d t h = ' + w i d t h + ' , h e i g h t = ' + h e i g h t + ' , t o o l b a r = ' + t o o l b a r _ s t r + ' , m e n u b a r = ' + m e n u b a r _ s t r + ' , s t a t u s = ' + s t a t u s b a r _ s t r + ' , s c r o l l b a r s = ' + s c r o l l b a r _ s t r + ' , r e s i z a b l e = ' + r e s i z a b l e _ s t r ) ; }  
  
 f u n c t i o n   c o p i a ( a r e a )   {  
 v a r   a p p o g g i o = e v a l ( " d o c u m e n t . " + a r e a )  
 a p p o g g i o . f o c u s ( )  
 a p p o g g i o . s e l e c t ( )  
 i n t e r v a l l o = a p p o g g i o . c r e a t e T e x t R a n g e ( )  
 i n t e r v a l l o . e x e c C o m m a n d ( " C o p y " ) }  

