From: David Polakovic <dpo@computron>
Date: Wed, 18 Oct 2023 10:16:57 +0000 (+0200)
Subject: initial commit
X-Git-Url: http://git.dpolakovic.space/?a=commitdiff_plain;h=c70f0a183fa3227eb375f08ece2cd0719d2c78ad;p=japh

initial commit
---

c70f0a183fa3227eb375f08ece2cd0719d2c78ad
diff --git a/japh.pl b/japh.pl
new file mode 100644
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";