From 981f7aa46434e94d78dcbd78f1c840627f1853e3 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Mon, 19 Oct 2020 00:07:46 +0300
Subject: Fix of output.

---
 cryptrobber.sts | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'cryptrobber.sts')

diff --git a/cryptrobber.sts b/cryptrobber.sts
index 35f338b..22cb06d 100644
--- a/cryptrobber.sts
+++ b/cryptrobber.sts
@@ -149,7 +149,7 @@ set_entry float_init ; this is program with floats
         0 do dup length = until
             swap drop 1 +
         od drop keylen
-    od as langcode drop
+    od as langcode
 
     ; output language
     langcode 1 = if
@@ -179,10 +179,10 @@ set_entry float_init ; this is program with floats
     ; output text
     length do 1 -
         dup word_size mul plaintext + @ sys_write
-    dup 1 = untilod drop
+    dup 0 = untilod drop
     length do 1 -
         swap drop
-    dup 1 = untilod drop
+    dup 0 = untilod drop
 
     ; output key
     keylen do 1 -
-- 
cgit v1.2.3