From 5c322acf062b2033cf5a1b6cf839cb2789f57000 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 4 Feb 2018 20:53:04 -0800
Subject: [PATCH] Fix gets()

---
 src/vmsrc/plvm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/vmsrc/plvm.c b/src/vmsrc/plvm.c
index 3296c35..5395c44 100755
--- a/src/vmsrc/plvm.c
+++ b/src/vmsrc/plvm.c
@@ -499,12 +499,14 @@ void call(uword pc)
             PUSH(getchar());
             break;
         case 8: // LIBRARY STDLIB::GETS
+            c = POP;
+            putchar(c);
             gets(sz);
             for (i = 0; sz[i]; i++)
                 mem_data[0x200 + i] = sz[i];
             mem_data[0x200 + i] = 0;
             mem_data[0x1FF] = i;
-            PUSH(i);
+            PUSH(0x1FF);
             break;
         default:
             printf("\nUnimplemented call code:$%02X\n", mem_data[pc - 1]);