From df0d6a4503a26508553510b4050eaa79f52e4e4e Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 18:22:31 +0300 Subject: Another step to release. --- keygen.sts | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 keygen.sts (limited to 'keygen.sts') diff --git a/keygen.sts b/keygen.sts deleted file mode 100644 index 6067c0d..0000000 --- a/keygen.sts +++ /dev/null @@ -1,34 +0,0 @@ -defword keygen - ; Increment - 0 - do - over over = until - dup 2 + get - dup ff < if - 1 + over 2 + set - drop - exit - fi - drop 0 over 2 + set - 1 + - od - drop - - ; Clean old stack data - dup - do - dup 0 = until - 1 get 2 set swap drop - 1 - - od - drop - - 1 + - 0 - do - over over = until - dup 2 get 1 set 0 2 set - 1 + - od - drop -exit -- cgit v1.2.3