From a36db99651d970ef575b0f0b22dfc50fb2d7a29a Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 7 Jun 2020 16:16:07 -0400
Subject: [PATCH] VE: properly initialize variables

This fixes weird glitches I had on trs80. It's *always* a matter of
RAM initialization. By now, I should know...
---
 blk/103 | 2 +-
 blk/104 | 6 +++---
 blk/131 | 6 ++----
 blk/155 | 1 +
 4 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/blk/103 b/blk/103
index 70068f7..7ec00d8 100644
--- a/blk/103
+++ b/blk/103
@@ -1,4 +1,4 @@
-VARIABLE ACC
+CREATE ACC 0 ,
 : _LIST ." Block " DUP . NL LIST ;
 : _NUM
     ACC @ SWAP _pdacc
diff --git a/blk/104 b/blk/104
index 8357dfa..a64046c 100644
--- a/blk/104
+++ b/blk/104
@@ -1,7 +1,7 @@
 ( Cursor position in buffer. EDPOS/64 is line number )
-VARIABLE EDPOS
-CREATE IBUF 64 ALLOT
-CREATE FBUF 64 ALLOT
+CREATE EDPOS 0 ,
+CREATE IBUF 64 ALLOT0
+CREATE FBUF 64 ALLOT0
 : _cpos BLK( + ;
 : _lpos 64 * _cpos ;
 : _pln ( lineno -- )
diff --git a/blk/131 b/blk/131
index 4cce49b..e67d514 100644
--- a/blk/131
+++ b/blk/131
@@ -3,14 +3,12 @@
     DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
     UPPER 'Q' = ;
 : bufp ( buf -- )
-    DUP 64 + SWAP DO
-        i C@ DUP 0x20 < IF DROP 0x20 THEN EMIT
-    LOOP ;
+    DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
 : bufs
     1 aty ." I: " IBUF bufp
     2 aty ." F: " FBUF bufp ;
 : c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
 : VE ['] c<over 0x08 ( C< override ) RAM+ !
-    clrscr 0acc 0 EDPOS ! 0 PREVPOS ! contents
+    clrscr 0acc 0 PREVPOS ! contents
     BEGIN status bufs setpos KEY handle UNTIL
     0 0x08 RAM+ ! 19 aty ;
diff --git a/blk/155 b/blk/155
index c8f89c8..ee3369e 100644
--- a/blk/155
+++ b/blk/155
@@ -2,3 +2,4 @@
     SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
         DUP I C!
     LOOP DROP ;
+: ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ;