AOBA.PL   

<

^

>


                                                  ($z='$A=2;$o="\n";$b="\e[";$a=29.53
                                          058885                                       3;use
                                     >Ti                                                      me:
                                 :Lo                                                              ca
                             l;@                                                                     p=
                          ("$                                                       {                  b}
                 9      0;       4                                   0m              ",                  "$
               {b }   3         7                                      ;               4    0              m"    ,"${
              b   }30   ;4     7                            m"         ,"               $    {              b} 30   ;47m
            ",""  ,    "      $          {                  b}          96               ;    40             m",    "$  {
            b  }30   ;1      0          6m                   "           );               s    ub          >g       {    r
         etur  n    >l      o           ca                   lt           im               e    $l         ;}    s     ub
         >   f{    (       $x          ,$                    y,           $z                ,    $           u,$v   ,    $
         w  )     =       g;           $l                    =t           ime               lo    c           al   (0,0,0,
        $k ?     $        u           : 1                     ,$          v, $               w    );           }sub>    h
        { p     r        in          t$ _                     [0           ] if              $_    [              1     ];
        }@     t        =(           t  i                     me           )  ;               i    f              (     !$
       #A     RG       V){           i  f(                    $A           R   G              V    [0             ]!    ~/
       ^(     [        0-9          ]   +)                    -([          0   -9             ]     +              )    -(
       [     0        -9]+          )    $                     /|          |    !             de    f              i     n
      e      d        ( $t         [0    ]                     =e          v    al            {t    i              m     e
     lo     ca       l( 0,         0      ,                    0,          $     3            ,$    2              -     1
     ,      $        1   -         1      90                   0)}         )     )            {h    "              U     n
     a  b   l        e   >         t       o                   >pa         r     se           >$    A              R     G
    V   [   0        ]   >         a        s                  >YY         Y      Y           -M    M             -D     D
    $  o"   ,       1;   ex        i         t                 >1;        }}      f           or    (             $      i
    =  0    ;       $i    <        $A;$       i                + +   ){$  l       =          $t[    $             i      ]
    ;  (    $        x              ,   $y     ,$              z ,$u     ,$       v         ,$w)    =            g      ;p
   us h@    r,       [              $            w             , $      v,        $        i?-1     :           $       u]
   ;$ k=     0       ;               f            or          (f ;      ;         f           )    {(          $        x,
   $y ,$      z       ,                             $u,       $  v                            ,    $k         ,         $s
   )= g;l     as         t>if!$s;$l                                     -=43200;}$t[          $    i        ]=$         l
    ; @ c      =@         m=();for($j=0;                            $j<42;$j++){($x,$y,$      z    ,      $u,$v         ,
    $ w ,$     s,$      k)=           g;$k+                        =$w*3   65+int     (~-$    w   /    4)   -in         t
    (~-  $w     /1      00          )+int(($w                      +2       99)/400     );pu sh   @ m,$k-i nt($         k
    /$a    )    *$a      ;      p   ush@c,($v                     -    $   r[$i][1]?     0:$ u-  $r[$i     ][2]         ?
    1:2)        ;$l+           =129600;f;}fo r                        ($j=0;$j<41;$j     ++){$  c[      $    j]         |
    =4>i         f $m          [$j ]<=14. 5&                          &   14.5<$   m[    $   j  +   1]&  &$   c[       $j
    ]& 3;        p  us         h   @c,0;}  p                         us   h@q,[@c  ]        ;  h  "> >    >    "       ,$
     i ;pr        i  nt        f    "${b   }                          9   7;40m$   {        b }4 m   >%   0    4       d
     -   %        0   2d        "          .                          (    ">"x   2        6 ). "     $        {       b
    }0             m   "                                                                  , $r   [    $      i]        [
    0]             +1  90                                                                0,$r    [   $i    ][1         ]
    +1              ;p  u                                                               sh@   t,$  t[   $i]+3          6
    28        8     0 0 ;}                                                             h$o   ,1  ;   for(   $         j=
   0;$j       <     7  ;$j                                                            ++)      {  for  (    $         i=
   0 ;$        i    <    $A                                                          ;$    i    ++    ){   h"         >
   > ",        $    i     ;f                                                        or   ($  k=0      ;    $k <       7
   ; $k         +   +      ){                                                      $   x=            $q   [$i ]       [
  $j *7+        $   k        ];                      $y=6<                           $j              *    7+  $       k
  ?  $q[         $  i]         [$                   j     *                       7+$               k-   7 ]  :       0
  ;  $ z      =   $  x           |$y                ;      $                   z=$                  z    - 7  ?       $z
 :2  | ($      x  -2 &              &$y              -     2                ?4:                     0   ); h  "        $
 p   [  $       z  ]>>>                 >${                            b}0m                        >"   ,  1  ;}       }
 h   $  o       ,1   ;if                    ($j<                  6){f                             o    r  (  $i       =0
 ;   $i  <       $A   ;$i                       ++){       $l=$t[                                  $    i] ;h ">>       "
,$   i;  fo       r(    $s                          =0;$s<                                         7     ;$s+  + )       {
($    x   ,$        y     ,$z,                                                                     $       u)  =g;p      ri
n     t     f"%s>%2d>${b}0m>"                                                                      ,$     p[$    q[$i][   $
j     *                                                                                             7+$s]   ]        ,     $
u     ;$                                                                                                    l+      =12     9
6      0                                                                                                     0    ;f    ;}   $
t      [$                                                                                                     i]=         $l  ;
}       h                                                                                                                    $o,
1        ;
 }        }')
  =~          s/\s//g
    ;$z=~s/>/ /g;
        eval$z;

  NFO RAR ZIP DETAILS /
2023-03-07