ÿþ/ *   P o p U p   C a l e n d a r   v 2 . 1  
 ©   P C I ,   I n c . , 2 0 0 0   "   F r e e w a r e  
 w e b m a s t e r @ p e r s o n a l - c o n n e c t i o n s . c o m  
 + 1   ( 9 2 5 )   9 5 5   1 6 2 4  
 P e r m i s s i o n   g r a n t e d     f o r   u n l i m i t e d   u s e   s o   f a r  
 a s   t h e   c o p y r i g h t   n o t i c e   a b o v e   r e m a i n s   i n t a c t .   * /  
  
 / *   S e t t i n g s .   P l e a s e   r e a d   r e a d m e . h t m l   f i l e   f o r   i n s t r u c t i o n s * /  
 v a r   p p c D F   =   " d / m / Y " ;  
 v a r   p p c M N   =   n e w   A r r a y ( " ÙàÕÐè" , " äÑèÕÐè" , " Þèå" , " ÐäèÙÜ" , " ÞÐÙ" , " ÙÕàÙ" , " ÙÕÜÙ" , " ÐÕÒÕáØ" , " áäØÞÑè" , " ÐÕçØÕÑè" , " àÕÑÞÑè" , " ÓæÞè" ) ;  
 v a r   p p c W N   =   n e w   A r r a y ( " èÐéÕß" , " éàÙ" , " éÜÙéÙ" , " èÑÙâÙ" , " ×ÞÙéÙ" , " éÙéÙ" , " éÑê" ) ;  
 v a r   p p c E R   =   n e w   A r r a y ( 4 ) ;  
 p p c E R [ 0 ]   =   " R e q u i r e d   D H T M L   f u n c t i o n s   a r e   n o t   s u p p o r t e d   i n   t h i s   b r o w s e r . " ;  
 p p c E R [ 1 ]   =   " T a r g e t   f o r m   f i e l d   i s   n o t   a s s i g n e d   o r   n o t   a c c e s s i b l e . " ;  
 p p c E R [ 2 ]   =   " S o r r y ,   t h e   c h o s e n   d a t e   i s   n o t   a c c e p t a b l e .   P l e a s e   r e a d   i n s t r u c t i o n s   o n   t h e   p a g e . " ;  
 p p c E R [ 3 ]   =   " U n k n o w n   e r r o r   o c c u r e d   w h i l e   e x e c u t i n g   t h i s   s c r i p t . " ;  
 v a r   p p c U C   =   f a l s e ;  
   v a r   p p c U X   =   4 ;  
   v a r   p p c U Y   =   4 ;  
  
 / *   D o   n o t   e d i t   b e l o w   t h i s   l i n e   u n l e s s   y o u   a r e   s u r e   w h a t   a r e   y o u   d o i n g !   * /  
  
 v a r   p p c I E = ( n a v i g a t o r . a p p N a m e   = =   " M i c r o s o f t   I n t e r n e t   E x p l o r e r " ) ;  
 v a r   p p c N N = ( ( n a v i g a t o r . a p p N a m e   = =   " N e t s c a p e " ) & & ( d o c u m e n t . l a y e r s ) ) ;  
 v a r   p p c T T = " < t a b l e   w i d t h = \ " 2 0 0 \ "   c e l l s p a c i n g = \ " 1 \ "   c e l l p a d d i n g = \ " 2 \ "   b o r d e r = \ " 1 \ "   b o r d e r c o l o r l i g h t = \ " # 0 0 0 0 0 0 \ "   b o r d e r c o l o r d a r k = \ " # 0 0 0 0 0 0 \ " > \ n " ;  
 v a r   p p c C D = p p c T T ; v a r   p p c F T = " < f o n t   f a c e = \ " M S   S a n s   S e r i f ,   s a n s - s e r i f \ "   s i z e = \ " 1 \ "   c o l o r = \ " # 0 0 0 0 0 0 \ " > " ; v a r   p p c F C = t r u e ;  
 v a r   p p c T I = f a l s e ; v a r   p p c S V = n u l l ; v a r   p p c R L = n u l l ; v a r   p p c X C = n u l l ; v a r   p p c Y C = n u l l ;  
 v a r   p p c M L = n e w   A r r a y ( 3 1 , 2 8 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 ) ;  
 v a r   p p c W E = n e w   A r r a y ( " èÐéÕß" , " éàÙ" , " éÜÙéÙ" , " èÑÙâÙ" , " ×ÞÙéÙ" , " éÙéÙ" , " éÑê" ) ;  
 v a r   p p c N o w = n e w   D a t e ( ) ; v a r   p p c P t r = n e w   D a t e ( ) ;  
 i f   ( p p c N N )   {  
   w i n d o w . c a p t u r e E v e n t s ( E v e n t . R E S I Z E ) ;  
   w i n d o w . o n r e s i z e   =   r e s t o r e L a y e r s ;  
   d o c u m e n t . c a p t u r e E v e n t s ( E v e n t . M O U S E D O W N | E v e n t . M O U S E U P ) ;  
   d o c u m e n t . o n m o u s e d o w n   =   r e c o r d X Y ;  
   d o c u m e n t . o n m o u s e u p   =   c o n f i r m X Y ; }  
 f u n c t i o n   r e s t o r e L a y e r s ( e )   {  
   i f   ( p p c N N )   {  
     w i t h   ( w i n d o w . d o c u m e n t )   {  
       o p e n ( " t e x t / h t m l " ) ;  
       w r i t e ( " < h t m l > < h e a d > < t i t l e > R e s t o r i n g   t h e   l a y e r   s t r u c t u r e . . . < / t i t l e > < / h e a d > " ) ;  
       w r i t e ( " < b o d y   b g c o l o r = \ " # F F F F F F \ "   o n L o a d = \ " h i s t o r y . g o ( - 1 ) \ " > " ) ;  
       w r i t e ( " < / b o d y > < / h t m l > " ) ;  
       c l o s e ( ) ; } } }  
 f u n c t i o n   r e c o r d X Y ( e )   {  
   i f   ( p p c N N )   {  
     p p c X C   =   e . x ;  
     p p c Y C   =   e . y ;  
     d o c u m e n t . r o u t e E v e n t ( e ) ; } }  
 f u n c t i o n   c o n f i r m X Y ( e )   {  
   i f   ( p p c N N )   {  
     p p c X C   =   ( p p c X C   = =   e . x )   ?   e . x   :   n u l l ;  
     p p c Y C   =   ( p p c Y C   = =   e . y )   ?   e . y   :   n u l l ;  
     d o c u m e n t . r o u t e E v e n t ( e ) ; } }  
 f u n c t i o n   g e t C a l e n d a r F o r ( t a r g e t , r u l e s )   {  
   p p c S V   =   t a r g e t ;  
   p p c R L   =   r u l e s ;  
   i f   ( p p c F C )   { s e t C a l e n d a r ( ) ; p p c F C   =   f a l s e ; }  
   i f   ( ( p p c S V   ! =   n u l l ) & & ( p p c S V ) )   {  
     i f   ( p p c I E )   {  
       v a r   o b j   =   d o c u m e n t . a l l [ ' P o p U p C a l e n d a r ' ] ;  
       o b j . s t y l e . l e f t   =   d o c u m e n t . b o d y . s c r o l l L e f t + e v e n t . c l i e n t X ;  
       o b j . s t y l e . t o p     =   d o c u m e n t . b o d y . s c r o l l T o p + e v e n t . c l i e n t Y ;  
       o b j . s t y l e . v i s i b i l i t y   =   " v i s i b l e " ; }  
     e l s e   i f   ( p p c N N )   {  
       v a r   o b j   =   d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] ;  
       o b j . l e f t   =   p p c X C  
       o b j . t o p     =   p p c Y C  
       o b j . v i s i b i l i t y   =   " s h o w " ; }  
     e l s e   { s h o w E r r o r ( p p c E R [ 0 ] ) ; } }  
   e l s e   { s h o w E r r o r ( p p c E R [ 1 ] ) ; } }  
 f u n c t i o n   s w i t c h M o n t h ( p a r a m )   {  
   v a r   t m p   =   p a r a m . s p l i t ( " | " ) ;  
   s e t C a l e n d a r ( t m p [ 0 ] , t m p [ 1 ] ) ; }  
 f u n c t i o n   m o v e M o n t h ( d i r )   {  
   v a r   o b j   =   n u l l ;  
   v a r   l i m i t   =   f a l s e ;  
   v a r   t m p , d p t r Y e a r , d p t r M o n t h ;  
   i f   ( p p c I E )   { o b j   =   d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   i f   ( p p c N N )   { o b j   =   d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] . d o c u m e n t . l a y e r s [ ' m o n t h S e l e c t o r ' ] . d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   { s h o w E r r o r ( p p c E R [ 0 ] ) ; }  
   i f   ( o b j   ! =   n u l l )   {  
     i f   ( ( d i r . t o L o w e r C a s e ( )   = =   " b a c k " ) & & ( o b j . s e l e c t e d I n d e x   >   0 ) )   { o b j . s e l e c t e d I n d e x - - ; }  
     e l s e   i f   ( ( d i r . t o L o w e r C a s e ( )   = =   " f o r w a r d " ) & & ( o b j . s e l e c t e d I n d e x   <   1 2 ) )   { o b j . s e l e c t e d I n d e x + + ; }  
     e l s e   { l i m i t   =   t r u e ; } }  
   i f   ( ! l i m i t )   {  
     t m p   =   o b j . o p t i o n s [ o b j . s e l e c t e d I n d e x ] . v a l u e . s p l i t ( " | " ) ;  
     d p t r Y e a r     =   t m p [ 0 ] ;  
     d p t r M o n t h   =   t m p [ 1 ] ;  
     s e t C a l e n d a r ( d p t r Y e a r , d p t r M o n t h ) ; }  
   e l s e   {  
     i f   ( p p c I E )   {  
       o b j . s t y l e . b a c k g r o u n d C o l o r   =   " # F F 0 0 0 0 " ;  
       w i n d o w . s e t T i m e o u t ( " d o c u m e n t . p p c M o n t h L i s t . s I t e m . s t y l e . b a c k g r o u n d C o l o r   =   ' # F F F F F F ' " , 5 0 ) ; } } }  
 f u n c t i o n   s e l e c t D a t e ( p a r a m )   {  
   v a r   a r r       =   p a r a m . s p l i t ( " | " ) ;  
   v a r   y e a r     =   a r r [ 0 ] ;  
   v a r   m o n t h   =   a r r [ 1 ] ;  
   v a r   d a t e     =   a r r [ 2 ] ;  
   v a r   p t r   =   p a r s e I n t ( d a t e ) ;  
   p p c P t r . s e t D a t e ( p t r ) ;  
   i f   ( ( p p c S V   ! =   n u l l ) & & ( p p c S V ) )   {  
     i f   ( v a l i d D a t e ( d a t e ) )   { p p c S V . v a l u e   =   d a t e F o r m a t ( y e a r , m o n t h , d a t e ) ; h i d e C a l e n d a r ( ) ; }  
     e l s e   { s h o w E r r o r ( p p c E R [ 2 ] ) ; i f   ( p p c T I )   { c l e a r T i m e o u t ( p p c T I ) ; p p c T I   =   f a l s e ; } } }  
   e l s e   {  
     s h o w E r r o r ( p p c E R [ 1 ] ) ;  
     h i d e C a l e n d a r ( ) ; } }  
 f u n c t i o n   s e t C a l e n d a r ( y e a r , m o n t h )   {  
   i f   ( y e a r     = =   n u l l )   { y e a r   =   g e t F u l l Y e a r ( p p c N o w ) ; }  
   i f   ( m o n t h   = =   n u l l )   { m o n t h   =   p p c N o w . g e t M o n t h ( ) ; s e t S e l e c t L i s t ( y e a r , m o n t h ) ; }  
   i f   ( m o n t h   = =   1 )   { p p c M L [ 1 ]     =   ( i s L e a p ( y e a r ) )   ?   2 9   :   2 8 ; }  
   p p c P t r . s e t Y e a r ( y e a r ) ;  
   p p c P t r . s e t M o n t h ( m o n t h ) ;  
   p p c P t r . s e t D a t e ( 1 ) ;  
   u p d a t e C o n t e n t ( ) ; }  
 f u n c t i o n   u p d a t e C o n t e n t ( )   {  
   g e n e r a t e C o n t e n t ( ) ;  
   i f   ( p p c I E )   { d o c u m e n t . a l l [ ' m o n t h D a y s ' ] . i n n e r H T M L   =   p p c C D ; }  
   e l s e   i f   ( p p c N N )   {  
     w i t h   ( d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] . d o c u m e n t . l a y e r s [ ' m o n t h D a y s ' ] . d o c u m e n t )   {  
       o p e n ( " t e x t / h t m l " ) ;  
       w r i t e ( " < h t m l > \ n < h e a d > \ n < t i t l e > D y n D o c < / t i t l e > \ n < / h e a d > \ n < b o d y   b g c o l o r = \ " # F F F F F F \ " > \ n " ) ;  
       w r i t e ( p p c C D ) ;  
       w r i t e ( " < / b o d y > \ n < / h t m l > " ) ;  
       c l o s e ( ) ; } }  
   e l s e   { s h o w E r r o r ( p p c E R [ 0 ] ) ; }  
   p p c C D   =   p p c T T ; }  
 f u n c t i o n   g e n e r a t e C o n t e n t ( )   {  
   v a r   y e a r     =   g e t F u l l Y e a r ( p p c P t r ) ;  
   v a r   m o n t h   =   p p c P t r . g e t M o n t h ( ) ;  
   v a r   d a t e     =   1 ;  
   v a r   d a y       =   p p c P t r . g e t D a y ( ) ;  
   v a r   l e n       =   p p c M L [ m o n t h ] ;  
   v a r   b g r , c n t , t m p   =   " " ;  
   v a r   j , i   =   0 ;  
   f o r   ( j   =   0 ;   j   <   7 ;   + + j )   {  
     i f   ( d a t e   >   l e n )   { b r e a k ; }  
     f o r   ( i   =   0 ;   i   <   7 ;   + + i )   {  
       b g r   =   ( ( i   = =   6 ) )   ?   " # F F F F C C "   :   " # F F F F F F " ;  
       i f   ( ( ( j   = =   0 ) & & ( i   <   d a y ) ) | | ( d a t e   >   l e n ) )   { t m p     + =   m a k e C e l l ( b g r , y e a r , m o n t h , 0 ) ; }  
       e l s e   { t m p     + =   m a k e C e l l ( b g r , y e a r , m o n t h , d a t e ) ; + + d a t e ; } }  
     p p c C D   + =   " < t r   a l i g n = \ " c e n t e r \ " > \ n "   +   t m p   +   " < / t r > \ n " ; t m p   =   " " ; }  
   p p c C D   + =   " < / t a b l e > \ n " ; }  
 f u n c t i o n   m a k e C e l l ( b g r , y e a r , m o n t h , d a t e )   {  
   v a r   p a r a m   =   " \ ' " + y e a r + " | " + m o n t h + " | " + d a t e + " \ ' " ;  
   v a r   t d 1   =   " < t d   w i d t h = \ " 2 0 \ "   b g c o l o r = \ " " + b g r + " \ "   " ;  
   v a r   t d 2   =   ( p p c I E )   ?   " < / f o n t > < / s p a n > < / t d > \ n "   :   " < / f o n t > < / a > < / t d > \ n " ;  
   v a r   e v t   =   " o n M o u s e O v e r = \ " t h i s . s t y l e . b a c k g r o u n d C o l o r = \ ' # F F 0 0 0 0 \ ' \ "   o n M o u s e O u t = \ " t h i s . s t y l e . b a c k g r o u n d C o l o r = \ ' " + b g r + " \ ' \ "   o n M o u s e U p = \ " s e l e c t D a t e ( " + p a r a m + " ) \ "   " ;  
   v a r   e x t   =   " < s p a n   S t y l e = \ " c u r s o r :   h a n d \ " > " ;  
   v a r   l c k   =   " < s p a n   S t y l e = \ " c u r s o r :   d e f a u l t \ " > " ;  
   v a r   l n k   =   " < a   h r e f = \ " j a v a s c r i p t : s e l e c t D a t e ( " + p a r a m + " ) \ "   o n M o u s e O v e r = \ " w i n d o w . s t a t u s = \ '   \ ' ; r e t u r n   t r u e ; \ " > " ;  
   v a r   c e l l V a l u e   =   ( d a t e   ! =   0 )   ?   d a t e + " "   :   " & n b s p ; " ;  
   i f   ( ( p p c N o w . g e t D a t e ( )   = =   d a t e ) & & ( p p c N o w . g e t M o n t h ( )   = =   m o n t h ) & & ( g e t F u l l Y e a r ( p p c N o w )   = =   y e a r ) )   {  
     c e l l V a l u e   =   " < b > " + c e l l V a l u e + " < / b > " ; }  
   v a r   c e l l C o d e   =   " " ;  
   i f   ( d a t e   = =   0 )   {  
     i f   ( p p c I E )   { c e l l C o d e   =   t d 1 + " S t y l e = \ " c u r s o r :   d e f a u l t \ " > " + l c k + p p c F T + c e l l V a l u e + t d 2 ; }  
     e l s e   { c e l l C o d e   =   t d 1 + " > " + p p c F T + c e l l V a l u e + t d 2 ; } }  
   e l s e   {  
     i f   ( p p c I E )   { c e l l C o d e   =   t d 1 + e v t + " S t y l e = \ " c u r s o r :   h a n d \ " > " + e x t + p p c F T + c e l l V a l u e + t d 2 ; }  
     e l s e   {  
       i f   ( d a t e   <   1 0 )   { c e l l V a l u e   =   " & n b s p ; "   +   c e l l V a l u e   +   " & n b s p ; " ; }  
       c e l l C o d e   =   t d 1 + " > " + l n k + p p c F T + c e l l V a l u e + t d 2 ; } }  
   r e t u r n   c e l l C o d e ; }  
 f u n c t i o n   s e t S e l e c t L i s t ( y e a r , m o n t h )   {  
   v a r   i   =   0 ;  
   v a r   o b j   =   n u l l ;  
   i f   ( p p c I E )   { o b j   =   d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   i f   ( p p c N N )   { o b j   =   d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] . d o c u m e n t . l a y e r s [ ' m o n t h S e l e c t o r ' ] . d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   { / *   N O P   * / }  
   w h i l e   ( i   <   1 3 )   {  
     o b j . o p t i o n s [ i ] . v a l u e   =   y e a r   +   " | "   +   m o n t h ;  
     o b j . o p t i o n s [ i ] . t e x t     =   y e a r   +   "   "   "   +   p p c M N [ m o n t h ] ;  
     i + + ;  
     m o n t h + + ;  
     i f   ( m o n t h   = =   1 2 )   { y e a r + + ; m o n t h   =   0 ; } } }  
 f u n c t i o n   h i d e C a l e n d a r ( )   {  
   i f   ( p p c I E )   { d o c u m e n t . a l l [ ' P o p U p C a l e n d a r ' ] . s t y l e . v i s i b i l i t y   =   " h i d d e n " ; }  
   e l s e   i f   ( p p c N N )   { d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] . v i s i b i l i t y   =   " h i d e " ; w i n d o w . s t a t u s   =   "   " ; }  
   e l s e   { / *   N O P   * / }  
   p p c T I   =   f a l s e ;  
   s e t C a l e n d a r ( ) ;  
   p p c S V   =   n u l l ;  
   i f   ( p p c I E )   { v a r   o b j   =   d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   i f   ( p p c N N )   { v a r   o b j   =   d o c u m e n t . l a y e r s [ ' P o p U p C a l e n d a r ' ] . d o c u m e n t . l a y e r s [ ' m o n t h S e l e c t o r ' ] . d o c u m e n t . p p c M o n t h L i s t . s I t e m ; }  
   e l s e   { / *   N O P   * / }  
   o b j . s e l e c t e d I n d e x   =   0 ; }  
 f u n c t i o n   s h o w E r r o r ( m e s s a g e )   {  
   w i n d o w . a l e r t ( " [   P o p U p   C a l e n d a r   ] \ n \ n "   +   m e s s a g e ) ; }  
 f u n c t i o n   i s L e a p ( y e a r )   {  
   i f   ( ( y e a r % 4 0 0 = = 0 ) | | ( ( y e a r % 4 = = 0 ) & & ( y e a r % 1 0 0 ! = 0 ) ) )   { r e t u r n   t r u e ; }  
   e l s e   { r e t u r n   f a l s e ; } }  
 f u n c t i o n   g e t F u l l Y e a r ( o b j )   {  
   i f   ( p p c N N )   { r e t u r n   o b j . g e t Y e a r ( )   +   1 9 0 0 ; }  
   e l s e   { r e t u r n   o b j . g e t Y e a r ( ) ; } }  
 f u n c t i o n   v a l i d D a t e ( d a t e )   {  
   v a r   r e p l y   =   t r u e ;  
   i f   ( p p c R L   = =   n u l l )   { / *   N O P   * / }  
   e l s e   {  
     v a r   a r r   =   p p c R L . s p l i t ( " : " ) ;  
     v a r   m o d e   =   a r r [ 0 ] ;  
     v a r   a r g     =   a r r [ 1 ] ;  
     v a r   k e y     =   a r r [ 2 ] . c h a r A t ( 0 ) . t o L o w e r C a s e ( ) ;  
     i f   ( k e y   ! =   " d " )   {  
       v a r   d a y   =   p p c P t r . g e t D a y ( ) ;  
       v a r   o r n   =   i s E v e n O r O d d ( d a t e ) ;  
       r e p l y   =   ( m o d e   = =   " [ ^ ] " )   ?   ! ( ( d a y   = =   a r g ) & & ( ( o r n   = =   k e y ) | | ( k e y   = =   " a " ) ) )   :   ( ( d a y   = =   a r g ) & & ( ( o r n   = =   k e y ) | | ( k e y   = =   " a " ) ) ) ; }  
     e l s e   { r e p l y   =   ( m o d e   = =   " [ ^ ] " )   ?   ( d a t e   ! =   a r g )   :   ( d a t e   = =   a r g ) ; } }  
   r e t u r n   r e p l y ; }  
 f u n c t i o n   i s E v e n O r O d d ( d a t e )   {  
   i f   ( d a t e   -   2 1   >   0 )   { r e t u r n   " e " ; }  
   e l s e   i f   ( d a t e   -   1 4   >   0 )   { r e t u r n   " o " ; }  
   e l s e   i f   ( d a t e   -   7   >   0 )   { r e t u r n   " e " ; }  
   e l s e   { r e t u r n   " o " ; } }  
 f u n c t i o n   d a t e F o r m a t ( y e a r , m o n t h , d a t e )   {  
   i f   ( p p c D F   = =   n u l l )   { p p c D F   =   " m / d / Y " ; }  
   v a r   d a y   =   p p c P t r . g e t D a y ( ) ;  
   v a r   c r t   =   " " ;  
   v a r   s t r   =   " " ;  
   v a r   c h a r s   =   p p c D F . l e n g t h ;  
   f o r   ( v a r   i   =   0 ;   i   <   c h a r s ;   + + i )   {  
     c r t   =   p p c D F . c h a r A t ( i ) ;  
     s w i t c h   ( c r t )   {  
       c a s e   " M " :   s t r   + =   p p c M N [ m o n t h ] ;   b r e a k ;  
       c a s e   " m " :   s t r   + =   ( m o n t h < 9 )   ?   ( " 0 " + ( + + m o n t h ) )   :   + + m o n t h ;   b r e a k ;  
       c a s e   " Y " :   s t r   + =   y e a r ;   b r e a k ;  
       c a s e   " y " :   s t r   + =   y e a r . s u b s t r i n g ( 2 ) ;   b r e a k ;  
       c a s e   " d " :   s t r   + =   ( ( p p c D F . i n d e x O f ( " m " ) ! = - 1 ) & & ( d a t e < 1 0 ) )   ?   ( " 0 " + d a t e )   :   d a t e ;   b r e a k ;  
       c a s e   " W " :   s t r   + =   p p c W N [ d a y ] ;   b r e a k ;  
         d e f a u l t :   s t r   + =   c r t ; } }  
   r e t u r n   u n e s c a p e ( s t r ) ; } 
