/ / a r r o w   k e y / e n t e r 
 
 L O C A L   v e r : = " 2 . 0 " ; 
 
 L O C A L   m a p p : = [ [ 0 ] ] , n , m a p p 1 : = [ [ 0 ] ] , m a p p t : = [ [ 0 ] ] ; 
 
 L O C A L   c l r : = { 1 6 7 7 7 2 1 5 , 0 } , x 0 , y 0 ; 
 
 L O C A L   k : = { 2 , 1 2 , 7 , 8 } , c x , c y , t r , f n : = " " ; 
 
 L O C A L   d i r : = { { 0 , - 1 } , { 0 , 1 } , { - 1 , 0 } , { 1 , 0 } } ; 
 
 
 
 L O C A L   e d g e ( x , y ) 
 
 B E G I N 
 
   R E T U R N   m a x ( x , y ) > 1 9   O R   m i n ( x , y ) < 1 ; 
 
 E N D ; 
 
 
 
 L O C A L   c o u n t n ( ) 
 
 B E G I N 
 
   L O C A L   i , j , k , f l a g ; 
 
   T E X T O U T _ P ( " t e s t i n g . . . " , 2 2 0 , 5 0 , 2 , 0 , 3 2 0 , 1 6 7 7 7 2 1 5 ) ; 
 
   F O R   i   F R O M   1   T O   1 9   D O 
 
     F O R   j   F R O M   1   T O   1 9   D O 
 
       I F   m a p p [ i , j ] = = 0   T H E N 
 
         F O R   k   F R O M   1   T O   4   D O 
 
           I F   N O T   e d g e ( i + d i r [ k , 1 ] , j + d i r [ k , 2 ] )   T H E N 
 
             f l a g : = B I T O R ( f l a g , m a p p [ i + d i r [ k , 1 ] , j + d i r [ k , 2 ] ] ) ; 
 
           E N D ; 
 
         E N D ; 
 
         I F   f l a g = = 3   T H E N 
 
           R E T U R N   0 ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   R E T U R N   1 ;   
 
 E N D ; 
 
 
 
 L O C A L   F A R C ( g r o b , x , y , a , b , c , e c ) 
 
 B E G I N 
 
   L O C A L   p : = [ 0 ] , i , j : = 1 ; 
 
   F O R   i   F R O M   - a   T O   a   D O 
 
     L I N E _ P ( g r o b , x + i , y + b / a * "( a ^ 2 - i ^ 2 ) , x + i , y - b / a * "( a ^ 2 - i ^ 2 ) , c ) ; 
 
   E N D ; 
 
   I F   a = = b   T H E N 
 
     A R C _ P ( g r o b , x , y , a , e c ) ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   c h a ( x , y , v ) 
 
 B E G I N 
 
   L O C A L   i ; 
 
   I F   v   T H E N 
 
     F A R C ( G 0 , 1 1 * x , 1 1 * y - 2 , 4 , 4 , c l r [ v ] , 0 ) ; 
 
   E L S E 
 
     R E C T _ P ( 1 1 * x - 4 , 1 1 * y - 6 , 1 1 * x + 4 , 1 1 * y + 2 , 1 6 7 7 7 2 1 5 ) ; 
 
     L I N E _ P ( 1 1 * x , 1 1 * y - 2 - 4 * ( y `"1 ) , 1 1 * x , 1 1 * y - 2 + 4 * ( y `"1 9 ) , 0 ) ; 
 
     L I N E _ P ( 1 1 * x - 4 * ( x `"1 ) , 1 1 * y - 2 , 1 1 * x + 4 * ( x `"1 9 ) , 1 1 * y - 2 , 0 ) ;   
 
   E N D ; 
 
   m a p p [ x , y ] : = v ; 
 
 E N D ; 
 
 
 
 L O C A L   i n i t ( t ) 
 
 B E G I N 
 
   L O C A L   i , j ; 
 
   R E C T _ P ( 0 , 0 , 3 2 0 , 2 4 0 , 1 6 7 7 7 2 1 5 ) ; 
 
   T E X T O U T _ P ( " W Q   v " + v e r , 0 , 2 3 0 , 1 , 0 ) ; 
 
   F O R   i   F R O M   0   T O   1 8   D O 
 
     L I N E _ P ( 1 1 * i + 1 1 , 9 , 1 1 * i + 1 1 , 2 0 7 ) ; 
 
     L I N E _ P ( 1 1 , 1 1 * i + 9 , 2 0 9 , 1 1 * i + 9 ) ; 
 
   E N D ; 
 
   I F   t   T H E N 
 
     F O R   i   F R O M   1   T O   1 9   D O 
 
       F O R   j   F R O M   1   T O   1 9   D O 
 
         m a p p [ i , j ] : = 0 ; 
 
       E N D ; 
 
     E N D ; 
 
     t r : = 2 ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   l o a d ( ) 
 
 B E G I N 
 
   L O C A L   d a t , f l a g : = 0 , i , j ; 
 
   R E P E A T 
 
     I N P U T ( { { f n , [ - 1 ] } } ) ; 
 
     I F   P O S ( N o t e s , f n )   T H E N 
 
       I F E R R   
 
         t r : = N o t e s ( f n ) ; 
 
         t r : = t r [ 1 ] ; 
 
         d a t : = E X P R ( M I D ( N o t e s ( f n ) , 2 ) ) ;   T H E N 
 
       E L S E 
 
         i n i t ( 0 ) ; 
 
         F O R   i   F R O M   1   T O   1 9   D O 
 
           F O R   j   F R O M   1   T O   1 9   D O 
 
             I F E R R   c h a ( i , j , d a t [ i , j ] ) ;   T H E N 
 
               C O N T I N U E ; 
 
             E N D ; 
 
           E N D ; 
 
         E N D ; 
 
         f l a g : = 1 ; 
 
       E N D ; 
 
     E L S E 
 
       i n i t ( 1 ) ; 
 
       f l a g : = 1 ; 
 
     E N D ; 
 
   U N T I L   f l a g ; 
 
   H A n g l e : = 0 ; 
 
   c x : = 1 ; c y : = 2 ; n : = 0 ; 
 
   m a p p 1 : = m a p p ; 
 
 E N D ; 
 
 
 
 L O C A L   s a v e ( ) 
 
 B E G I N 
 
   N o t e s ( f n ) : = C H A R ( t r ) + S T R I N G ( m a p p ) ; 
 
 E N D ; 
 
 
 
 L O C A L   j u d g e ( x , y , f l a g ) 
 
 B E G I N 
 
   L O C A L   i , q : = { { x , y } } , p : = 1 , x t , y t , h : = 0 ; 
 
   W H I L E   p `"h   D O 
 
     F O R   i   F R O M   1   T O   4   D O 
 
       x t : = q [ h + 1 , 1 ] + d i r [ i , 1 ] ; y t : = q [ h + 1 , 2 ] + d i r [ i , 2 ] ; 
 
       I F   N O T   e d g e ( x t , y t )   T H E N 
 
         I F   N O T   m a p p [ x t , y t ]   T H E N 
 
           R E T U R N   0 ; 
 
         E N D ; 
 
         I F   C A S ( P O S ( q , { x t , y t } ) ) = = 0   A N D   m a p p [ x t , y t ] = = m a p p [ x , y ]   T H E N 
 
           q [ p : = p + 1 ] : = { x t , y t } ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
     h : = h + 1 ; 
 
   E N D ; 
 
   I F   N O T   f l a g   T H E N 
 
     R E T U R N   1 ; 
 
   E N D ; 
 
   F O R   i   F R O M   1   T O   p   D O 
 
     m a p p [ q [ i , 1 ] , q [ i , 2 ] ] : = 0 ; 
 
   E N D ; 
 
   I F   m a p p 1 = = m a p p   T H E N 
 
     m a p p : = m a p p t ; 
 
     R E T U R N   0 ; 
 
   E N D ; 
 
   F O R   i   F R O M   1   T O   p   D O 
 
     c h a ( q [ i , 1 ] , q [ i , 2 ] , 0 ) ; 
 
   E N D ; 
 
   R E T U R N   1 ; 
 
 E N D ; 
 
 
 
 L O C A L   d k ( c ) 
 
 B E G I N 
 
   L O C A L   i , j , x t , y t , f l a g ; 
 
   C A S E 
 
     I F   P O S ( k , c )   T H E N 
 
       c h a ( c x , c y , m a p p [ c x , c y ] ) ; 
 
       c x : = ( c x + d i r [ P O S ( k , c ) , 1 ] - 1 )   M O D   1 9 + 1 ; 
 
       c y : = ( c y + d i r [ P O S ( k , c ) , 2 ] - 1 )   M O D   1 9 + 1 ; 
 
       F A R C ( G 0 , 1 1 * c x , 1 1 * c y - 2 , 4 , 4 , 2 5 5 , 2 5 5 ) ; 
 
     E N D ; 
 
     I F   c = = 4   A N D   m a p p `"m a p p 1   T H E N 
 
       F O R   i   F R O M   1   T O   1 9   D O 
 
         F O R   j   F R O M   1   T O   1 9   D O 
 
           I F   m a p p [ i , j ] `"m a p p 1 [ i , j ]   T H E N 
 
             c h a ( i , j , m a p p 1 [ i , j ] ) ; 
 
           E N D ; 
 
         E N D ; 
 
       E N D ; 
 
       F A R C ( G 0 , 1 1 * c x , 1 1 * c y - 2 , 4 , 4 , 2 5 5 , 2 5 5 ) ; 
 
       t r : = 3 - t r ; 
 
     E N D ; 
 
     I F   c = = 3 0   A N D   N O T   m a p p [ c x , c y ]   T H E N 
 
       m a p p t : = m a p p ; 
 
       c h a ( c x , c y , t r ) ; 
 
       n : = n + 1 ; 
 
       F O R   i   F R O M   1   T O   4   D O 
 
         x t : = c x + d i r [ i , 1 ] ; y t : = c y + d i r [ i , 2 ] ; 
 
         C A S E 
 
           I F   e d g e ( x t , y t )   T H E N   E N D ; 
 
           I F   m a p p [ x t , y t ] `"3 - t r   T H E N 
 
             f l a g : = N O T   j u d g e ( c x , c y , 0 )   O R   f l a g ; 
 
           E N D ; 
 
           D E F A U L T   f l a g : = j u d g e ( x t , y t , 1 )   O R   f l a g ; 
 
         E N D ; 
 
       E N D ; 
 
       I F   N O T   f l a g   T H E N 
 
         c h a ( c x , c y , 0 ) ; 
 
         F A R C ( G 0 , 1 1 * c x , 1 1 * c y - 2 , 4 , 4 , 2 5 5 , 2 5 5 ) ; 
 
       E L S E 
 
         t r : = 3 - t r ; 
 
         m a p p 1 : = m a p p t ; 
 
       E N D ; 
 
     E N D ; 
 
     I F   c = = 5 0   T H E N 
 
       I F   c o u n t n ( )   T H E N 
 
         B R E A K ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 E X P O R T   m a i n ( ) 
 
 B E G I N 
 
   L O C A L   c , t , f l a g : = 0 ; 
 
   l o a d ( ) ; 
 
   d k ( 2 ) ; 
 
   W H I L E   1   D O 
 
     F A R C ( G 0 , 2 5 0 , 1 1 0 , 8 , 8 , c l r [ t r ] , 0 ) ; 
 
     R E P E A T 
 
       c : = W A I T ( ) ; 
 
     U N T I L   c `"- 1 ; 
 
     d k ( c ) ; 
 
     s a v e ( ) ; 
 
   E N D ;   
 
   W H I L E   W A I T ( ) `"4   D O   E N D ; 
 
 E N D ; 