ÿþ< ! - -   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 ( ' S o ' , ' M o ' , ' D i ' , ' M i ' , ' D o ' , ' F r ' , ' S a ' ) ;    
 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 u a r ' , ' F e b r u a r ' , ' M ä r z ' , ' A p r i l ' , ' M a i ' , ' J u n i ' , ' J u l i ' , ' A u g u s t ' , ' S e p t e m b e r ' , ' O k t o b e r ' , ' N o v e m b e r ' , ' D e z e m b e r ' ) ;    
  
 / /     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 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 :   S i e   k ö n n e n   ' 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 '    
             I h r e m   G e s c h m a c k   e n t s p r e c h e n d   a n p a s s e n .   * /    
  
 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 = 0   B G C O L O R = C 0 0 0 0 0   B O R D E R C O L O R = C C C C C C > < 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 > ' ;    
 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 :   S i e   k ö n n e n   ' 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 '    
 i h r e m   G e s c h m a c k   e n t s p r e c h e n d   a n p a s s e n   . * /    
  
 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 = 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   +   ' " > < 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 ;    
  
 / /       a b   h i e r   N I C H T S   m e h r   ä n d e r n     / /    
  
 / /   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   - - >    
 
