#!/usr/local/bin/perl5
$U=132;$L=120;for(;print"\e[2J";){for$x(0..7){for$i(0..9){for(0..7){print"".(
2**(7-$_)&(254,224,0,0,252,0,0,0,0,126,0,0,0,0,0,0,16,64,0,0,66,0,0,192,0,4,0
,0,0,0,0,192,16,64,$L,0,66,$L,248,64,0,4,$L,$U,248,248,124,64,16,$L,$U,0,124,
$U,68,64,0,4,$U,$U,68,68,$U,64,16,68,252,0,64,252,$L,64,0,$U,$U,$U,$L,68,$U,
64,16,68,128,0,64,128,68,64,0,$U,$U,$U,68,68,$U,64,16,68,$U,0,64,$U,68,64,0,
$U,$U,$U,68,68,140,64,16,238,$L,0,224,$L,238,224,0,$L,$L,124,238,238,116,224)
[$x*16+$i+$I])?"*":" "}}print"\n"}select undef,undef,undef,.1;$I+=$D;$I>5?$D
=-1:$I<1?$D=1:0}
