ÿþ 
 f u n c t i o n   s t o r e C a r e t ( t e x t E l )   {  
 	 i f   ( t e x t E l . c r e a t e T e x t R a n g e )   t e x t E l . c a r e t P o s   =   d o c u m e n t . s e l e c t i o n . c r e a t e R a n g e ( ) . d u p l i c a t e ( ) ;  
  
 }  
 v a r   l a n g   =   1 ; 	 / /   1 :   F a r s i ,   0 :   E n g l i s h  
  
 / /   F a r s i   k e y b o a r d   m a p   b a s e d   o n   I S I R I - 2 9 0 1  
 v a r   f a r s i k e y   =   [  
       0 x 0 0 2 0 ,   0 x 0 0 2 1 ,   0 x 0 6 1 B ,   0 x 0 6 6 B ,   0 x 0 0 A 4 ,   0 x 0 6 6 A ,   0 x 0 6 0 C ,   0 x 0 6 A F ,  
       0 x 0 0 2 9 ,   0 x 0 0 2 8 ,   0 x 0 0 2 A ,   0 x 0 0 2 B ,   0 x 0 6 4 8 ,   0 x 0 0 2 D ,   0 x 0 0 2 E ,   0 x 0 0 2 F ,  
       0 x 0 0 3 0 ,   0 x 0 0 3 1 ,   0 x 0 0 3 2 ,   0 x 0 0 3 3 ,   0 x 0 0 3 4 ,   0 x 0 0 3 5 ,   0 x 0 0 3 6 ,   0 x 0 0 3 7 ,  
       0 x 0 0 3 8 ,   0 x 0 0 3 9 ,   0 x 0 0 3 A ,   0 x 0 6 4 3 ,   0 x 0 0 3 E ,   0 x 0 0 3 D ,   0 x 0 0 3 C ,   0 x 0 6 1 F ,  
       0 x 0 6 6 C ,   0 x 0 6 2 4 ,   0 x 2 0 0 C ,   0 x 0 6 9 8 ,   0 x 0 6 4 9 ,   0 x 0 6 4 D ,   0 x 0 6 2 5 ,   0 x 0 6 2 3 ,  
       0 x 0 6 2 2 ,   0 x 0 6 5 1 ,   0 x 0 6 2 9 ,   0 x 0 0 B B ,   0 x 0 0 A B ,   0 x 0 6 2 1 ,   0 x 0 0 4 E ,   0 x 0 0 5 D ,  
       0 x 0 0 5 B ,   0 x 0 6 5 2 ,   0 x 0 6 4 B ,   0 x 0 6 2 6 ,   0 x 0 6 4 F ,   0 x 0 6 4 E ,   0 x 0 0 5 6 ,   0 x 0 6 4 C ,  
       0 x 0 0 5 8 ,   0 x 0 6 5 0 ,   0 x 0 6 4 3 ,   0 x 0 6 2 C ,   0 x 0 0 5 C ,   0 x 0 6 8 6 ,   0 x 0 0 D 7 ,   0 x 0 6 4 0 ,  
       0 x 2 0 0 D ,   0 x 0 6 3 4 ,   0 x 0 6 3 0 ,   0 x 0 6 3 2 ,   0 x 0 6 C C ,   0 x 0 6 2 B ,   0 x 0 6 2 8 ,   0 x 0 6 4 4 ,  
       0 x 0 6 2 7 ,   0 x 0 6 4 7 ,   0 x 0 6 2 A ,   0 x 0 6 4 6 ,   0 x 0 6 4 5 ,   0 x 0 6 7 E ,   0 x 0 6 2 F ,   0 x 0 6 2 E ,  
       0 x 0 6 2 D ,   0 x 0 6 3 6 ,   0 x 0 6 4 2 ,   0 x 0 6 3 3 ,   0 x 0 6 4 1 ,   0 x 0 6 3 9 ,   0 x 0 6 3 1 ,   0 x 0 6 3 5 ,  
       0 x 0 6 3 7 ,   0 x 0 6 3 A ,   0 x 0 6 3 8 ,   0 x 0 0 7 D ,   0 x 0 0 7 C ,   0 x 0 0 7 B ,   0 x 0 0 7 E   ] ;  
  
  
 f u n c t i o n   c h a n g e L a n g ( )   {  
         i f   ( l a n g   = =   0 )   {  
         l a n g   =   1 ;  
         r e t u r n   t r u e ;  
     }  
     e l s e   {  
         l a n g   =   0 ;  
         r e t u r n   t r u e ;  
     }  
 }  
  
 f u n c t i o n   F K e y D o w n   ( t x t F r m ) {  
   v a r   k e y   =   w i n d o w . e v e n t . k e y C o d e ;  
   i f   ( k e y   = =   1 4 5 ) {  
         i f   ( l a n g   = =   0 )   {  
             l a n g   =   1 ;  
             r e t u r n   t r u e ;  
         }  
         e l s e   {  
             l a n g   =   0 ;  
             r e t u r n   t r u e ;  
         }  
  
 }  
  
 }  
 f u n c t i o n   F K e y P r e s s ( t x t F r m )   {  
       v a r   k e y   =   w i n d o w . e v e n t . k e y C o d e ;  
   / / w i n d o w . e v e n t . k e y C o d e   =   0 x 0 6 4 A ;  
   / /     w i n d o w . e v e n t . k e y C o d e   =   1 7 4 0   =   6 C C ;  
        
   / /   a l e r t   ( w i n d o w . e v e n t . k e y C o d e ) ;  
     i f   ( k e y   = =   1 3 )   {   w i n d o w . e v e n t . k e y C o d e   =   1 3 ;   r e t u r n   t r u e ;   }  
  
       i f   ( l a n g   = =   1 )   {   / /   I f   F a r s i  
           i f   ( k e y   = =   0 x 0 0 2 0   & &   w i n d o w . e v e n t . s h i f t K e y )   / /   S h i f t - s p a c e   - >   Z W N J  
               w i n d o w . e v e n t . k e y C o d e   =   0 x 2 0 0 C ;  
           e l s e  
               w i n d o w . e v e n t . k e y C o d e   =   f a r s i k e y [ k e y   -   0 x 0 0 2 0 ] ;  
           i f   ( f a r s i k e y [ k e y   -   0 x 0 0 2 0 ]   = =   9 2 )   {  
                 w i n d o w . e v e n t . k e y C o d e   =   0 x 0 6 9 8 ;  
           }  
           i f   ( f a r s i k e y [ k e y   -   0 x 0 0 2 0 ]   = =   8 2 0 5 )   {  
                 w i n d o w . e v e n t . k e y C o d e   =   0 x 0 6 7 E ;  
           }  
       }  
       r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   c h a n g e ( o b j ) {  
 i f   ( l a n g = = 0 )  
 l a n g = 1  
 e l s e  
 l a n g = 0 ;  
 o b j . f o c u s ( ) ;  
 }  
 
