ÿþ< ! - -   B e g i n  
 v a r   d a y = " " ;  
 v a r   m o n t h = " " ;  
 v a r   m y w e e k d a y = " " ;  
 v a r   y e a r = " " ;  
 v a r   t i m e r I D   =   n u l l ;  
 v a r   t i m e r R u n n i n g   =   f a l s e ;  
 v a r   d a y f = " " ;  
 v a r   s a l = " " ;  
 v a r   r o o z f = " " ;  
 v a r   m a h f = " " ;  
  
 m y d a t e   =   n e w   D a t e ( ) ;  
 m y d a y   =   m y d a t e . g e t D a y ( ) ;  
 m y m o n t h   =   m y d a t e . g e t M o n t h ( ) ;  
 m y w e e k d a y =   m y d a t e . g e t D a t e ( ) ;  
 w e e k d a y =   m y w e e k d a y ;  
 m y y e a r =   m y d a t e . g e t Y e a r ( ) ;  
 y e a r   =   m y y e a r ;  
  
 i f ( m y d a y   = =   0 )  
 {  
 d a y   =   "   S u n d a y ,   " ;  
 d a y f =   " JC4F(G" ;  
 }  
 e l s e   i f ( m y d a y   = =   1 )  
 {  
 d a y   =   "   M o n d a y ,   " ;  
 d a y f = " /H4F(G" ;  
 }  
 e l s e   i f ( m y d a y   = =   2 )  
 {  
 d a y   =   "   T u e s d a y ,   " ;  
 d a y f = " 3G  4F(G" ;  
 }  
 e l s e   i f ( m y d a y   = =   3 )  
 {  
 d a y   =   "   W e d n e s d a y ,   " ;  
 d a y f = " †G'14F(G" ;  
 }  
 e l s e   i f ( m y d a y   = =   4 )  
 {  
 d a y   =   "   T h u r d a y ,   " ;  
 d a y f = " ~F,4F(G" ;  
 }  
 e l s e   i f ( m y d a y   = =   5 )  
 {  
 d a y   =   "   F r i d a y ,   " ;  
 d a y f = " ,E9G" ;  
 }  
 e l s e   i f ( m y d a y   = =   6 )  
 {  
 d a y   =   "   S a t u r d a y ,   " ;  
 d a y f = " 4F(G" ;  
 }  
  
 i f   (   ( ( m y m o n t h > = 0 ) & &   ( m y m o n t h   < =   1 ) )   | |   ( ( m y m o n t h   = =   2 )   & &   ( m y w e e k d a y   < =   2 0 ) ) )  
 {  
       s a l   =   m y y e a r   -   6 2 2 ;  
       s 1   =   t r u e ;  
 }  
 e l s e  
 {  
       s a l   =   m y y e a r   -   6 2 1 ;  
       s 1   =   f a l s e ;  
 }  
  
  
 i f   ( ( m y y e a r % 4   = =   0 )   & &   ( m y y e a r % 4 0 0   ! =   0 ) )  
 k a b i s e   =   t r u e ;  
 e l s e  
 k a b i s e = f a l s e ;  
  
 i f   ( ( ( m y y e a r   -   1 )   %   4   = =   0 )   & &   ( ( m y y e a r   -   1 ) % 4 0 0   ! =   0 ) )  
 k a b i s e o l d   =   t r u e ;  
 e l s e   k a b i s e o l d = f a l s e ;  
  
 i f   ( m y y e a r   = =   2 0 0 0 )  
       k a b i s e   =   t r u e ;  
        
 i f   ( m y y e a r   = =   2 0 0 1 )  
       k a b i s e o l d   =   t r u e ;  
  
  
 s h a m s i = n e w   A r r a y ( 1 2 ) ;  
 s h a m s i [ 0 ]   =   0 ;  
 s h a m s i [ 1 ]   =   3 1 ;  
 s h a m s i [ 2 ]   =   6 2 ;  
 s h a m s i [ 3 ]   =   9 3 ;  
 s h a m s i [ 4 ]   =   1 2 4 ;  
 s h a m s i [ 5 ]   =   1 5 5 ;  
 s h a m s i [ 6 ]   =   1 8 6 ;  
 s h a m s i [ 7 ]   =   2 1 6 ;  
 s h a m s i [ 8 ]   =   2 4 6 ;  
 s h a m s i [ 9 ]   =   2 7 6 ;  
 s h a m s i [ 1 0 ]   =   3 0 6 ;  
 s h a m s i [ 1 1 ]   =   3 3 6 ;  
  
 i f   ( k a b i s e )  
       k a b   =   1 ;  
 e l s e  
       k a b   =   0 ;  
  
  
 m i l a d i = n e w   A r r a y ( 1 2 ) ;  
 m i l a d i [ 0 ]   =   0 ;  
 m i l a d i [ 1 ]   =   3 1   +   k a b ;  
 m i l a d i [ 2 ]   =   5 9   +   k a b ;  
 m i l a d i [ 3 ]   =   9 0   +   k a b ;  
 m i l a d i [ 4 ]   =   1 2 0   +   k a b ;  
 m i l a d i [ 5 ]   =   1 5 1   +   k a b ;  
 m i l a d i [ 6 ]   =   1 8 1   +   k a b ;  
 m i l a d i [ 7 ]   =   2 1 2   +   k a b ;  
 m i l a d i [ 8 ]   =   2 4 3   +   k a b ;  
 m i l a d i [ 9 ]   =   2 7 3   +   k a b ;  
 m i l a d i [ 1 0 ]   =   3 0 4   +   k a b ;  
 m i l a d i [ 1 1 ]   =   3 3 4   +   k a b ;  
  
 m a r r a y = n e w   A r r a y ( 1 2 ) ;  
 m a r r a y [ 0 ]   =   " A1H1/JF" ;  
 m a r r a y [ 1 ]   =   " '1/J(G4*" ;  
 m a r r a y [ 2 ]   =   " .1/'/" ;  
 m a r r a y [ 3 ]   =   " *J1" ;  
 m a r r a y [ 4 ]   =   " E1/'/" ;  
 m a r r a y [ 5 ]   =   " 4G1JH1" ;  
 m a r r a y [ 6 ]   =   " EG1" ;  
 m a r r a y [ 7 ]   =   " "('F" ;  
 m a r r a y [ 8 ]   =   " "01" ;  
 m a r r a y [ 9 ]   =   " /J" ;  
 m a r r a y [ 1 0 ]   =   " (GEF" ;  
 m a r r a y [ 1 1 ]   =   " '3AF/" ;  
  
 i f   ( k a b i s e o l d )  
       k a b 1   =   1 ;  
 e l s e  
       k a b 1   =   0 ;  
  
 i f   ( s 1 )  
       x 1   =   m y w e e k d a y   +   m i l a d i [ m y m o n t h ]   +   k a b 1 ;  
 e l s e  
       x 1   =   m y w e e k d a y   +   m i l a d i [ m y m o n t h ] ;  
  
 i f   ( x 1 <   8 0 )  
 x 1   =   3 6 5   -   7 9   +   x 1 ;  
       e l s e   i f   ( x 1 >   8 0 )  
                 x 1   =   x 1   -   7 9 ;  
       e l s e   i f   ( x 1 = 8 0 )  
                 {  
                 i f ( s 1 )  
                       x 1   =   3 6 5   -   7 9   +   x 1 ;  
                 e l s e  
                       x 1   =   x 1   -   7 9 ;  
                 }  
  
 s s 1   =   t r u e ;  
 i   =   1 2 ;  
 w h i l e   ( i   >   0   & &   s s 1 )  
 {  
       i   =   i   -   1 ;  
       i f   ( x 1   < =   s h a m s i [ i ] )  
           s s 1 = t r u e ;  
       e l s e   s s 1 = f a l s e ;      
 }  
  
 r o o z = n e w   A r r a y ( 3 1 ) ;  
 r o o z [ 0 ]   =   " JCE" ;  
 r o o z [ 1 ]   =   " /HE" ;  
 r o o z [ 2 ]   =   " 3HE" ;  
 r o o z [ 3 ]   =   " †G'1E" ;  
 r o o z [ 4 ]   =   " ~F,E" ;  
 r o o z [ 5 ]   =   " 44E" ;  
 r o o z [ 6 ]   =   " GA*E" ;  
 r o o z [ 7 ]   =   " G4*E" ;  
 r o o z [ 8 ]   =   " FGE" ;  
 r o o z [ 9 ]   =   " /GE" ;  
 r o o z [ 1 0 ]   =   " J'2/GE" ;  
 r o o z [ 1 1 ]   =   " /H'2/GE" ;  
 r o o z [ 1 2 ]   =   " 3J2/GE" ;  
 r o o z [ 1 3 ]   =   " †G'1/GE" ;  
 r o o z [ 1 4 ]   =   " ~'F2/GE" ;  
 r o o z [ 1 5 ]   =   " 4'F2/GE" ;  
 r o o z [ 1 6 ]   =   " GA/GE" ;  
 r o o z [ 1 7 ]   =   " G,/GE" ;  
 r o o z [ 1 8 ]   =   " FH2/GE" ;  
 r o o z [ 1 9 ]   =   " (J3*E" ;  
 r o o z [ 2 0 ]   =   " (J3*  H  JCE" ;  
 r o o z [ 2 1 ]   =   " (J3*  H  /HE" ;  
 r o o z [ 2 2 ]   =   " (J3*  H  3HE" ;  
 r o o z [ 2 3 ]   =   " (J3*  H  †G'1E" ;  
 r o o z [ 2 4 ]   =   " (J3*  H  ~F,E" ;  
 r o o z [ 2 5 ]   =   " (J3*  H  44E" ;  
 r o o z [ 2 6 ]   =   " (J3*  H  GA*E" ;  
 r o o z [ 2 7 ]   =   " (J3*  H  G4*E" ;  
 r o o z [ 2 8 ]   =   " (J3*  H  FGE" ;  
 r o o z [ 2 9 ]   =   " 3J  'E" ;  
 r o o z [ 3 0 ]   =   " 3J  H  JCE" ;  
 r o o z f = r o o z [ x 1   -   s h a m s i [ i ] - 1 ] ;  
 m a h f = m a r r a y [ i ] ;  
 i f ( m y m o n t h   = =   0 )   {  
 m o n t h   =   " J a n u a r y   " ; }  
 e l s e   i f ( m y m o n t h   = = 1 )  
 m o n t h   =   " F e b r u a r y   " ;  
 e l s e   i f ( m y m o n t h   = = 2 )  
 m o n t h   =   " M a r c h   " ;  
 e l s e   i f ( m y m o n t h   = = 3 )  
 m o n t h   =   " A p r i l   " ;  
 e l s e   i f ( m y m o n t h   = = 4 )  
 m o n t h   =   " M a y   " ;  
 e l s e   i f ( m y m o n t h   = = 5 )  
 m o n t h   =   " J u n e   " ;  
 e l s e   i f ( m y m o n t h   = = 6 )  
 m o n t h   =   " J u l y   " ;  
 e l s e   i f ( m y m o n t h   = = 7 )  
 m o n t h   =   " A u g u s t   " ;  
 e l s e   i f ( m y m o n t h   = = 8 )  
 m o n t h   =   " S e p t e m b e r   " ;  
 e l s e   i f ( m y m o n t h   = = 9 )  
 m o n t h   =   " O c t o b e r   " ;  
 e l s e   i f ( m y m o n t h   = = 1 0 )  
 m o n t h   =   " N o v e m b e r   " ;  
 e l s e   i f ( m y m o n t h   = = 1 1 )  
 m o n t h   =   " D e c e m b e r   " ;  
 / /   E n d   - - > 
