ÿþ/ / S t a r t   F a r s i - E n g l i s h   S c r i p t  
   v a r   s t r t y p e k e y b o a r d = " A'13J"   ;  
   v a r   s t r f a r s i t y p e = " X P "   ;  
  
      
   f u n c t i o n   F a r s i K e y B o a r d ( m y f i e l d , e )  
 	 {  
 	  
 	 	 	 v a r   k e y ;  
 	 	 	 v a r   b a s e s t r i n g ;  
 	 	 	 i f   ( w i n d o w . e v e n t )  
 	 	 	 k e y   =   w i n d o w . e v e n t . k e y C o d e ;  
 	 	 	 e l s e   i f   ( e )  
 	 	 	 k e y   =   e . w h i c h ;  
 	 	 	 i f   ( s t r f a r s i t y p e = = " X P "   )  
 	 	 	 	 b a s e s t r i n g = '   ! " # $ % ¯) ( × + H- . / 0 1 2 3 4 5 6 7 8 9 : C, = . @ P0} JOJD"÷ @/  /× N!MA { KR%~ ,˜†^ _ ~402Ì+(D'G*FE&/.-6B3A9157:8< | > Q' ;  
 	 	 	 e l s e  
 	 	 	 	 b a s e s t r i n g = '   ! " # $ % ¯) ( × + H- . / 0 1 2 3 4 5 6 7 8 9 : C, = . @ P0} JOJD"÷ @/  /× N!MA { KR%~ ,˜†^ _ ~402J+(D'G*FE&/.-6B3A9157:8< | > Q' ;  
 	 	 	 i f   ( k e y > 3 1   & &   s t r t y p e k e y b o a r d   = =   " A'13J" )  
 	 	 	 i f   ( k e y < 1 2 8 )  
 	 	 	 {  
 	 	 	 i f   ( w i n d o w . e v e n t )  
 	 	 	 w i n d o w . e v e n t . k e y C o d e = b a s e s t r i n g . c h a r C o d e A t ( k e y - 3 2 ) ;  
 	 	 	 e l s e   i f   ( e )  
 	 	 	 e . w h i c h = b a s e s t r i n g . c h a r C o d e A t ( k e y - 3 2 ) ;  
 	 	 	 }  
 	 	 	 r e t u r n   t r u e ; 	  
  
 	 }  
 f u n c t i o n   s u b m i t F o r m ( o b j F o r m )  
         {  
               i f   (   w i n d o w . e v e n t . k e y C o d e = = 1 3 )   o b j F o r m . s u b m i t ( ) ;  
         }  
 f u n c t i o n   c h a n g e l a n g ( o b j t x t )  
 {  
  
       / / s u b m i t F o r m ( F o r m 1 ) ;  
      
       i f   ( w i n d o w . e v e n t . k e y C o d e = = 1 2 3   | |   o b j t x t = = ' 0 ' )      
             i f   ( s t r t y p e k e y b o a r d   = =   " A'13J" )  
                     s t r t y p e k e y b o a r d   =   " E n g l i s h "   ;  
                 e l s e    
                   s t r t y p e k e y b o a r d   =   " A'13J" ;    
         i f   ( w i n d o w . e v e n t . k e y C o d e = = 1 2 3 )   {     w i n d o w . e v e n t . k e y C o d e = 0 ;   }  
        
         S e t S t a t u s ( )  
       r e t u r n   t r u e ;  
 }  
  
  
     f u n c t i o n   S e t S t a t u s ( )  
 {  
    
             w i n d o w . d e f a u l t S t a t u s   =   s t r t y p e k e y b o a r d   +   "   M o d e .   P r e s s   < F 1 2 >   t o   c h a n g e   k e y b o a r d   l a n g u a g e " ;  
        
 } 	 	 	 	 	  
 / / E N D   F a r s i - E n g l i s h   S c r i p t 	 	 	  
  
  
      
  
  
 
