From 986a40d3e2328738e2583793d8188b8704a3f3f3 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Mon, 4 May 2020 09:21:10 -0400
Subject: [PATCH] trs80: override NL to avoid double newlines

---
 recipes/trs80/xcomp.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/recipes/trs80/xcomp.fs b/recipes/trs80/xcomp.fs
index f2b0330..71d8056 100644
--- a/recipes/trs80/xcomp.fs
+++ b/recipes/trs80/xcomp.fs
@@ -20,5 +20,6 @@ PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
 422 459 XPACKR ( core print readln fmt blk )
 499 500 XPACKR ( trs80.fs )
-," : _ BLK$ FD$ (ok) RDLN$ ; _ "
+( 0x0a == NLPTR. TRS-80 wants CR-only newlines )
+," : _ ['] CR 0x0a RAM+ ! BLK$ FD$ (ok) RDLN$ ; _ "
 H@ 256 /MOD 2 PC! 2 PC!