ÿþ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 S i f i r ( f p ,   c t r l ,   h a t a )  
 {  
     i f   ( f p [ c t r l ] . v a l u e = = " 0 " )  
     {  
         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 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   F o r m V e r i f y ( f p )  
 {  
     v a r   d 1   =   d o c u m e n t . s i h i r b a z . d 1 . v a l u e ;  
   i f   ( d 1 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2   =   d o c u m e n t . s i h i r b a z . d 2 . v a l u e ;  
   i f   ( d 2 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 3   =   d o c u m e n t . s i h i r b a z . d 3 . v a l u e ;  
   i f   ( d 3 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 3 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 4   =   d o c u m e n t . s i h i r b a z . d 4 . v a l u e ;  
   i f   ( d 4 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 4 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 5   =   d o c u m e n t . s i h i r b a z . d 5 . v a l u e ;  
   i f   ( d 5 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 5 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 6   =   d o c u m e n t . s i h i r b a z . d 6 . v a l u e ;  
   i f   ( d 6 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 6 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 7   =   d o c u m e n t . s i h i r b a z . d 7 . v a l u e ;  
   i f   ( d 7 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 7 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 8   =   d o c u m e n t . s i h i r b a z . d 8 . v a l u e ;  
   i f   ( d 8 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 8 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 9   =   d o c u m e n t . s i h i r b a z . d 9 . v a l u e ;  
   i f   ( d 9 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 9 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 0   =   d o c u m e n t . s i h i r b a z . d 1 0 . v a l u e ;  
   i f   ( d 1 0 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 0 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 1   =   d o c u m e n t . s i h i r b a z . d 1 1 . v a l u e ;  
   i f   ( d 1 1 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 1 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 2   =   d o c u m e n t . s i h i r b a z . d 1 2 . v a l u e ;  
   i f   ( d 1 2 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 2 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 3   =   d o c u m e n t . s i h i r b a z . d 1 3 . v a l u e ;  
   i f   ( d 1 3 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 3 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 4   =   d o c u m e n t . s i h i r b a z . d 1 4 . v a l u e ;  
   i f   ( d 1 4 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 4 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 5   =   d o c u m e n t . s i h i r b a z . d 1 5 . v a l u e ;  
   i f   ( d 1 5 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 5 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 6   =   d o c u m e n t . s i h i r b a z . d 1 6 . v a l u e ;  
   i f   ( d 1 6 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 6 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 7   =   d o c u m e n t . s i h i r b a z . d 1 7 . v a l u e ;  
   i f   ( d 1 7 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 7 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 8   =   d o c u m e n t . s i h i r b a z . d 1 8 . v a l u e ;  
   i f   ( d 1 8 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 8 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 1 9   =   d o c u m e n t . s i h i r b a z . d 1 9 . v a l u e ;  
   i f   ( d 1 9 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 1 9 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2 0   =   d o c u m e n t . s i h i r b a z . d 2 0 . v a l u e ;  
   i f   ( d 2 0 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 0 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2 1   =   d o c u m e n t . s i h i r b a z . d 2 1 . v a l u e ;  
   i f   ( d 2 1 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 1 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2 2   =   d o c u m e n t . s i h i r b a z . d 2 2 . v a l u e ;  
   i f   ( d 2 2 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 2 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2 3   =   d o c u m e n t . s i h i r b a z . d 2 3 . v a l u e ;  
   i f   ( d 2 3 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 3 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d 2 4   =   d o c u m e n t . s i h i r b a z . d 2 4 . v a l u e ;  
   i f   ( d 2 4 . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d 2 4 " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     v a r   d i g e r   =   d o c u m e n t . s i h i r b a z . d i g e r . v a l u e ;  
   i f   ( d i g e r . l e n g t h   >   " " )  
           i f   ( ! i s N u m b e r ( f p ,   " d i g e r " ,   " S a d e c e   r a k a m   g i r i n i z . " ) )  
             r e t u r n   1 ;  
     r e t u r n   0 ;  
 } 
