From c70f0a183fa3227eb375f08ece2cd0719d2c78ad Mon Sep 17 00:00:00 2001
From: David Polakovic <dpo@computron>
Date: Wed, 18 Oct 2023 12:16:57 +0200
Subject: [PATCH] initial commit

---
 japh.pl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 japh.pl

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";
-- 
2.30.2