From e56fbb18ea5595830eabbb9f5a90c75f216bab2a Mon Sep 17 00:00:00 2001
From: FeralChild64 <you@example.com>
Date: Mon, 8 Jun 2020 19:14:48 +0200
Subject: [PATCH] fixed support for strings without closing quotes

---
 c64/basic/engine/ad9e.frmevl.s | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/c64/basic/engine/ad9e.frmevl.s b/c64/basic/engine/ad9e.frmevl.s
index 1c7e51af..71b1ccb7 100644
--- a/c64/basic/engine/ad9e.frmevl.s
+++ b/c64/basic/engine/ad9e.frmevl.s
@@ -168,11 +168,19 @@ FRMEVL_fetch_string:
 	jsr fetch_character
 	cmp #$22
 	beq FRMEVL_got_value
+	cmp #$00
+	beq !+
 
 	inc __FAC1 + 0
 	bne !-
 
 	jmp do_STRING_TOO_LONG_error
+!:
+	// No closing quote, but end of the data
+
+	jsr unconsume_character
+
+	// FALLTROUGH
 
 
 //