From 07c0f154f1c8d796add2a02c31ec5ecaeafe80e6 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Fri, 2 Apr 2021 00:09:45 +0200
Subject: [PATCH] Add .status to interpret-via-tib to facilitate source listing
 while compiling.

---
 6502/C64/src/vf-cbm-file.fth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/6502/C64/src/vf-cbm-file.fth b/6502/C64/src/vf-cbm-file.fth
index 9ca350a..5e0d647 100644
--- a/6502/C64/src/vf-cbm-file.fth
+++ b/6502/C64/src/vf-cbm-file.fth
@@ -63,8 +63,8 @@
 \   include                    09jun20pz
 
   : interpret-via-tib
- BEGIN freadline >r  >in off
- interpret  r> UNTIL ;
+ BEGIN freadline >r  .status
+ >in off interpret  r> UNTIL ;
 
   : include ( -- )
  blk @ Abort" no include from blk"