From c70f0a183fa3227eb375f08ece2cd0719d2c78ad Mon Sep 17 00:00:00 2001 From: David Polakovic 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