ÿþf u n c t i o n   i s N u m b e r ( f p ,   c t r l ,   h a t a )  
 {  
     v a r   s = f p [ c t r l ] . v a l u e ;  
     v a r   n u m s = " 0 1 2 3 4 5 6 7 8 9 " ;  
     v a r   l e n = s . l e n g t h ;  
     f o r   ( v a r   i = 0 ;   i < l e n ;   + + i )  
     {  
         i f   ( n u m s . i n d e x O f ( s . c h a r A t ( i ) ) = = - 1 )  
         {  
             a l e r t ( h a t a ) ;  
             f p [ c t r l ] . f o c u s ( ) ;  
             r e t u r n   f a l s e ;  
         }  
     }  
     r e t u r n   t r u e ;  
 }  
 f u n c t i o n   i s E m p t y ( f p ,   c t r l ,   h a t a )  
 {  
     i f   ( f p [ c t r l ] . v a l u e = = " " )  
     {  
         a l e r t ( h a t a ) ;  
         f p [ c t r l ] . f o c u s ( ) ;  
         r e t u r n   t r u e ;  
     }  
     r e t u r n   f a l s e ;  
 }  
 f u n c t i o n   i s P h o n e E n t e r e d ( f p ,   p r e f i x )  
 {  
     r e t u r n   ( f p [ p r e f i x   +   " k o d " ] . v a l u e ! = " " )   | |   ( f p [ p r e f i x   +   " n o " ] . v a l u e ! = " " ) ;  
 }  
 f u n c t i o n   i s A l l C h a r T h e S a m e ( f p ,   c t r l )  
 {  
     v a r   s = f p [ c t r l ] . v a l u e ;  
     v a r   c = " " ;  
     l e n = s . l e n g t h ;  
     f o r   ( v a r   i = 0 ;   i < l e n ;   + + i )  
     {  
         i f   ( c = = " " )  
             c = s . c h a r A t ( i ) ;  
         e l s e   i f   ( c ! = s . c h a r A t ( i ) )  
             r e t u r n   f a l s e ;  
     }  
     f p [ c t r l ] . f o c u s ( ) ;  
     a l e r t ( " T ü m   k a r a k t e r l e r   a y n 1  o l m a m a l 1d 1r " ) ;  
     r e t u r n   t r u e ;  
 }  
 f u n c t i o n   i s N u m e r i c ( f p ,   c t r l )  
 {  
     v a r   n u m s = " 0 1 2 3 4 5 6 7 8 9 " ;  
     v a r   s = f p [ c t r l ] . v a l u e ;  
     l e n = s . l e n g t h ;  
     i f   ( l e n = = 0 )  
         r e t u r n   t r u e ;  
     f o r   ( v a r   i = 0 ;   i < l e n ;   + + i )  
     {  
         i f   ( n u m s . i n d e x O f ( s . c h a r A t ( i ) ) ! = - 1 )  
         {  
             f p [ c t r l ] . f o c u s ( ) ;  
             a l e r t ( " L ü t f e n   r a k a m   k u l l a n m a y 1n 1z . " ) ;  
             r e t u r n   t r u e ;  
         }  
     }  
     r e t u r n   f a l s e ;  
 }  
 f u n c t i o n   i s T u r k c e ( d a t a )  
 {  
         v a r   n u m S t r = " ç 1ö _ü Ç 0Ö ^Ü " ;  
         v a r   t h i s C h a r ;  
         v a r   c o u n t e r   =   0 ;  
                       f o r ( v a r   i   =   0 ;   i   <   d a t a . l e n g t h ;   i + + )   {  
                                 t h i s C h a r   =   d a t a . s u b s t r i n g ( i ,   i + 1 ) ;  
                                 i f   ( n u m S t r . i n d e x O f ( t h i s C h a r )   = =   - 1 )  
                                         c o u n t e r + + ;  
                       }  
                         i f   ( c o u n t e r   = =   d a t a . l e n g t h )    
                                 r e t u r n ( f a l s e ) ;  
                       e l s e  
                                 r e t u r n ( t r u e ) ;  
 }  
 f u n c t i o n   i s S a k i n c a l i ( d a t a )  
 {  
         v a r   n u m S t r ;  
         n u m S t r = " , ; : ! # + $ % & / { } ( ) [ ] = * ? < > | ' ^ \ " " ;  
         v a r   t h i s C h a r ;  
             f o r ( v a r   i   =   0 ;   i   <   d a t a . l e n g t h ;   i + + )   {  
                                 t h i s C h a r   =   d a t a . s u b s t r i n g ( i ,   i + 1 ) ;  
                                 i f   ( n u m S t r . i n d e x O f ( t h i s C h a r )   ! =   - 1 )  
                                         r e t u r n ( t h i s C h a r ) ;  
                       }  
             r e t u r n ( ' A ' ) ;  
 }  
 f u n c t i o n   b o s l u k K o n t r o l ( d a t a )  
 {  
       f o r ( v a r   i   =   0 ;   i   <   d a t a . l e n g t h ;   i + + )   {  
                               i f   ( d a t a . s u b s t r i n g ( i , i + 1 )   = =   "   " )    
                                     r e t u r n ( t r u e ) ;  
                               }  
       r e t u r n ( f a l s e ) ;  
 }  
 f u n c t i o n   y a n Y a n a N o k t a ( d a t a )  
 {  
       f o r ( v a r   i   =   0 ;   i   <   d a t a . l e n g t h - 1 ;   i + + )   {  
             i f   ( d a t a . s u b s t r i n g ( i , i + 1 )   = =   " . " )   {  
                   i f   ( d a t a . s u b s t r i n g ( i , i + 1 )   = =   d a t a . s u b s t r i n g ( i + 1 , i + 2 ) )      
                         r e t u r n ( t r u e ) ;  
             }  
       }  
       r e t u r n ( f a l s e ) ;  
 }  
 f u n c t i o n   a t S a y i s i ( d a t a )  
 {  
         v a r   c o u n t e r   =   0 ;  
             f o r ( v a r   i   =   0 ;   i   <   d a t a . l e n g t h ;   i + + )   {  
                         i f   ( d a t a . s u b s t r i n g ( i , i + 1 )   = =   " @ " )  
                                         c o u n t e r + + ;  
                       }  
             r e t u r n ( c o u n t e r ) ;  
 }  
 f u n c t i o n   F o r m V e r i f y ( f p )  
 {  
     i f   ( i s E m p t y ( f p ,   " k u l l a n i c i a d i " ,   " K u l l a n 1c 1  A d 1  g i r i n i z " ) )  
         r e t u r n   1 ;  
     i f   ( i s A l l C h a r T h e S a m e ( f p ,   " k u l l a n i c i a d i " ) )  
         r e t u r n   1 ;  
     v a r   k u l l a n i c i a d i   =   d o c u m e n t . g i r i s . k u l l a n i c i a d i . v a l u e ;  
             i f   ( i s T u r k c e ( k u l l a n i c i a d i ) )  
         {  
             a l e r t ( " G e ç e r s i z   K u l l a n 1c 1  A d 1" ) ;  
             f p . k u l l a n i c i a d i . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( b o s l u k K o n t r o l ( k u l l a n i c i a d i ) )  
         {  
             a l e r t ( " G e ç e r s i z   K u l l a n 1c 1  A d 1" ) ;  
             f p . k u l l a n i c i a d i . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( y a n Y a n a N o k t a ( k u l l a n i c i a d i ) )  
         {  
             a l e r t ( " G e ç e r s i z   K u l l a n 1c 1  A d 1" ) ;  
             f p . k u l l a n i c i a d i . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( i s S a k i n c a l i ( k u l l a n i c i a d i ) ! = ' A ' )  
         {  
             a l e r t ( " G e ç e r s i z   K u l l a n 1c 1  A d 1" ) ;  
             f p . k u l l a n i c i a d i . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
   i f   ( k u l l a n i c i a d i . l e n g t h   <   6 )  
   {  
     a l e r t   ( " K u l l a n 1c 1  A d 1  e n   a z   6   k a r a k t e r   o l m a l 1d 1r " ) ;  
             f p . k u l l a n i c i a d i . f o c u s ( ) ;  
             r e t u r n   1 ;  
   }  
     i f   ( i s E m p t y ( f p ,   " s i f r e " ,   " ^i f r e   g i r i n i z " ) )  
         r e t u r n   1 ;  
     i f   ( i s A l l C h a r T h e S a m e ( f p ,   " s i f r e " ) )  
         r e t u r n   1 ;  
     v a r   s i f r e   =   d o c u m e n t . g i r i s . s i f r e . v a l u e ;  
             i f   ( i s T u r k c e ( s i f r e ) )  
         {  
             a l e r t ( " G e ç e r s i z   ^i f r e " ) ;  
             f p . s i f r e . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( b o s l u k K o n t r o l ( s i f r e ) )  
         {  
             a l e r t ( " G e ç e r s i z   ^i f r e " ) ;  
             f p . s i f r e . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( y a n Y a n a N o k t a ( s i f r e ) )  
         {  
             a l e r t ( " G e ç e r s i z   ^i f r e " ) ;  
             f p . s i f r e . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
         i f   ( i s S a k i n c a l i ( s i f r e ) ! = ' A ' )  
         {  
             a l e r t ( " G e ç e r s i z   ^i f r e " ) ;  
             f p . s i f r e . f o c u s ( ) ;  
             r e t u r n   1 ;  
         }  
   i f   ( s i f r e . l e n g t h   <   6 )  
   {  
     a l e r t   ( " ^i f r e   e n   a z   6   k a r a k t e r   o l m a l 1d 1r " ) ;  
             f p . s i f r e . f o c u s ( ) ;  
             r e t u r n   1 ;  
   }  
  
     r e t u r n   0 ;  
 } 
