initial commit

diff --git a/japh.pl b/japh.pl
new file mode 100644 (file)
index 0000000..6fdd874
--- /dev/null
+++ b/japh.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+# This is my take on JAPH.
+sub x_7f{_l();}l();sub _l{sleep 1;}my$chr="%s";
+sub l{my($hC)=@_;print$hC}$|=1;my$Jx20=chr(48);
+l("\e[${Jx20}A\e[J\x20\112" );x_7f();l("\101");
+_l();l("\120"."");;x_7f();l();l("\110\n\r"."");
+sub _e{}$|=1;my$_4001="$_4001"."A\e[J\x20\112";