ÿþ< ! - -   B e g i n  
 / /     S E T   A R R A Y S  
 v a r   d a y _ o f _ w e e k   =   n e w   A r r a y ( ' &a d ' , ' T n e ' , ' T l i ' , ' E r b ' , ' &a m ' , '  i m ' , ' S i b ' ) ;  
 v a r   m o n t h _ o f _ y e a r   =   n e w   A r r a y ( ' J a n n a r ' , ' F r a r ' , ' M a r z u ' , ' A p r i l ' , ' M e j j u ' , '  u n j u ' , ' L u l j u ' , ' A w w i s s u ' , ' S e t t e m b r u ' , ' O t t u b r u ' , ' N o v e m b r u ' , ' D i e m b r u ' ) ;  
  
 / /     D E C L A R E   A N D   I N I T I A L I Z E   V A R I A B L E S  
 v a r   C a l e n d a r   =   n e w   D a t e ( ) ;  
  
 v a r   y e a r   =   C a l e n d a r . g e t F u l l Y e a r ( ) ; 	         / /   R e t u r n s   y e a r  
 v a r   m o n t h   =   C a l e n d a r . g e t M o n t h ( ) ;         / /   R e t u r n s   m o n t h   ( 0 - 1 1 )  
 v a r   t o d a y   =   C a l e n d a r . g e t D a t e ( ) ;         / /   R e t u r n s   d a y   ( 1 - 3 1 )  
 v a r   w e e k d a y   =   C a l e n d a r . g e t D a y ( ) ;         / /   R e t u r n s   d a y   ( 1 - 3 1 )  
  
 v a r   D A Y S _ O F _ W E E K   =   7 ;         / /   " c o n s t a n t "   f o r   n u m b e r   o f   d a y s   i n   a   w e e k  
 v a r   D A Y S _ O F _ M O N T H   =   3 1 ;         / /   " c o n s t a n t "   f o r   n u m b e r   o f   d a y s   i n   a   m o n t h  
 v a r   c a l ;         / /   U s e d   f o r   p r i n t i n g  
  
 C a l e n d a r . s e t D a t e ( 1 ) ;         / /   S t a r t   t h e   c a l e n d a r   d a y   a t   ' 1 '  
 C a l e n d a r . s e t M o n t h ( m o n t h ) ;         / /   S t a r t   t h e   c a l e n d a r   m o n t h   a t   n o w  
  
  
 / *   V A R I A B L E S   F O R   F O R M A T T I N G  
 N O T E :   Y o u   c a n   f o r m a t   t h e   ' B O R D E R ' ,   ' B G C O L O R ' ,   ' C E L L P A D D I N G ' ,   ' B O R D E R C O L O R '  
             t a g s   t o   c u s t o m i z e   y o u r   c a l e d a n r ' s   l o o k .   * /  
  
 v a r   T R _ s t a r t   =   ' < T R > ' ;  
 v a r   T R _ e n d   =   ' < / T R > ' ;  
 v a r   h i g h l i g h t _ s t a r t   =   ' < T D   W I D T H = " 3 0 " > < T A B L E   C E L L S P A C I N G = 0   B O R D E R = 1   B G C O L O R = C C F F C C   B O R D E R C O L O R = 0 0 C 0 0 0 > < T R > < T D   W I D T H = 2 0 > < B > < C E N T E R > ' ;  
 v a r   h i g h l i g h t _ e n d       =   ' < / C E N T E R > < / T D > < / T R > < / T A B L E > < / B > ' ;  
 v a r   T D _ s t a r t   =   ' < T D   W I D T H = " 3 0 " > < C E N T E R > < F O N T   S I Z E = - 2 > ' ;  
 v a r   T D _ e n d   =   ' < / C E N T E R > < / T D > ' ;  
  
 / *   B E G I N   C O D E   F O R   C A L E N D A R  
 N O T E :   Y o u   c a n   f o r m a t   t h e   ' B O R D E R ' ,   ' B G C O L O R ' ,   ' C E L L P A D D I N G ' ,   ' B O R D E R C O L O R '  
 t a g s   t o   c u s t o m i z e   y o u r   c a l e n d a r ' s   l o o k . * /  
  
 c a l   =     ' < T A B L E   B O R D E R = 1   C E L L S P A C I N G = 0   C E L L P A D D I N G = 0   B O R D E R C O L O R = 0 0 C 0 0 0 > < T R > < T D > ' ;  
 c a l   + =   ' < T A B L E   B O R D E R = 0   C E L L S P A C I N G = 0   C E L L P A D D I N G = 2 > '   +   T R _ s t a r t ;  
 c a l   + =   ' < T D   C O L S P A N = " '   +   D A Y S _ O F _ W E E K   +   ' "   B G C O L O R = " # C C F F C C " > < C E N T E R > < B > ' ;  
 c a l   + =   m o n t h _ o f _ y e a r [ m o n t h ]     +   '       '   +   y e a r   +   ' < / B > '   +   T D _ e n d   +   T R _ e n d ;  
 c a l   + =   T R _ s t a r t ;  
  
 / /       D O   N O T   E D I T   B E L O W   T H I S   P O I N T     / /  
  
 / /   L O O P S   F O R   E A C H   D A Y   O F   W E E K  
 f o r ( i n d e x = 0 ;   i n d e x   <   D A Y S _ O F _ W E E K ;   i n d e x + + )  
 {  
  
 / /   B O L D   T O D A Y ' S   D A Y   O F   W E E K  
 i f ( w e e k d a y   = =   i n d e x )  
 c a l   + =   T D _ s t a r t   +   ' < B > '   +   d a y _ o f _ w e e k [ i n d e x ]   +   ' < / B > '   +   T D _ e n d ;  
  
 / /   P R I N T S   D A Y  
 e l s e  
 c a l   + =   T D _ s t a r t   +   d a y _ o f _ w e e k [ i n d e x ]   +   T D _ e n d ;  
 }  
  
 c a l   + =   T D _ e n d   +   T R _ e n d ;  
 c a l   + =   T R _ s t a r t ;  
  
 / /   F I L L   I N   B L A N K   G A P S   U N T I L   T O D A Y ' S   D A Y  
 f o r ( i n d e x = 0 ;   i n d e x   <   C a l e n d a r . g e t D a y ( ) ;   i n d e x + + )  
 c a l   + =   T D _ s t a r t   +   '     '   +   T D _ e n d ;  
  
 / /   L O O P S   F O R   E A C H   D A Y   I N   C A L E N D A R  
 f o r ( i n d e x = 0 ;   i n d e x   <   D A Y S _ O F _ M O N T H ;   i n d e x + + )  
 {  
 i f (   C a l e n d a r . g e t D a t e ( )   >   i n d e x   )  
 {  
     / /   R E T U R N S   T H E   N E X T   D A Y   T O   P R I N T  
     w e e k _ d a y   = C a l e n d a r . g e t D a y ( ) ;  
  
     / /   S T A R T   N E W   R O W   F O R   F I R S T   D A Y   O F   W E E K  
     i f ( w e e k _ d a y   = =   0 )  
     c a l   + =   T R _ s t a r t ;  
  
     i f ( w e e k _ d a y   ! =   D A Y S _ O F _ W E E K )  
     {  
  
     / /   S E T   V A R I A B L E   I N S I D E   L O O P   F O R   I N C R E M E N T I N G   P U R P O S E S  
     v a r   d a y     =   C a l e n d a r . g e t D a t e ( ) ;  
  
     / /   H I G H L I G H T   T O D A Y ' S   D A T E  
     i f (   t o d a y = = C a l e n d a r . g e t D a t e ( )   )  
     c a l   + =   h i g h l i g h t _ s t a r t   +   d a y   +   h i g h l i g h t _ e n d   +   T D _ e n d ;  
  
     / /   P R I N T S   D A Y  
     e l s e  
     c a l   + =   T D _ s t a r t   +   d a y   +   T D _ e n d ;  
     }  
  
     / /   E N D   R O W   F O R   L A S T   D A Y   O F   W E E K  
     i f ( w e e k _ d a y   = =   D A Y S _ O F _ W E E K )  
     c a l   + =   T R _ e n d ;  
     }  
  
     / /   I N C R E M E N T S   U N T I L   E N D   O F   T H E   M O N T H  
     C a l e n d a r . s e t D a t e ( C a l e n d a r . g e t D a t e ( ) + 1 ) ;  
  
 } / /   e n d   f o r   l o o p  
  
 c a l   + =   ' < / T D > < / T R > < / T A B L E > < / T A B L E > ' ;  
  
 / /     P R I N T   C A L E N D A R  
 d o c u m e n t . w r i t e ( c a l ) ;  
  
 / /     E n d   - - > 
