diff options
Diffstat (limited to 'keygen.sts')
-rw-r--r-- | keygen.sts | 34 |
1 files changed, 0 insertions, 34 deletions
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 |