From bd7da4658ba237f380b7e8bfc2cd23a3b1217f19 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 11 Jun 2020 12:01:22 -0400
Subject: [PATCH] VE: add gutter

---
 blk/126 | 3 ++-
 blk/131 | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/blk/126 b/blk/126
index 3f47bfd..abb80a6 100644
--- a/blk/126
+++ b/blk/126
@@ -5,8 +5,9 @@ VARIABLE PREVPOS
 : nspcs ( n -- , spit n space ) 0 DO SPC LOOP ;
 : aty 0 SWAP AT-XY ;
 : clrscr LINES 0 DO i aty COLS nspcs LOOP ;
+: gutter ( ln n ) OVER + SWAP DO 67 i AT-XY '|' EMIT LOOP ;
 : status 0 aty ." BLK" SPC BLK> ? SPC ACC ?
     SPC EDPOS @ 64 /MOD . ',' EMIT . 10 nspcs ;
-: contents 3 aty BLK> @ LIST ;
+: contents 3 aty BLK> @ LIST 3 16 gutter ;
 : selblk BLK@ contents ;
 : mode! ( c -- ) 63 0 AT-XY ;
diff --git a/blk/131 b/blk/131
index 0f82d43..be5f941 100644
--- a/blk/131
+++ b/blk/131
@@ -6,7 +6,7 @@
     DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
 : bufs
     1 aty ." I: " IBUF bufp
-    2 aty ." F: " FBUF bufp ;
+    2 aty ." F: " FBUF bufp 0 3 gutter ;
 : c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
 : VE ['] c<over 0x08 ( C< override ) RAM+ !
     clrscr 0 ACC ! 0 PREVPOS ! contents