Runs under Linux/Unix, with the command:
    % 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}

Replies are listed 'Best First'.
Re: Neon Japh
by sand_ (Sexton) on Oct 11, 2005 at 10:31 UTC
    ahahha very nice! :)