% perl neon

$q=q=l83kal7kbl7kbl1kcl1k0m4kal4Jal3Kbxal3KbXcX0eXfXcXbXcXbXcX0eXfxam3
+Jbxam3J=.
q-bxam3J0eXfxal3Kbxal5jbxal3K0eXfXcXbXhXcX0al3JfXcXbXhXcX0am5jfm1jcm1j
+bm1jhm1-.
q+jcm1j+;$_=$q;s=([1-8])=q+q+x$1=eg;s-0-\n-g;s+([A-Z])+lc$1.'ax'+eg;s*
+([a-h])*
' 'x(-96+ord$1)*eg;$/=$_;until($r){$|=printf"\x0e\e[3%d;%dm\e[H\e[J$/\
+x0f",int
rand+8,$O=7-$O;select$o,$o,$o,.3}
[download]