From 71541561ba83d48911448bd909591ad17be148c1 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 30 May 2018 21:35:43 +0100
Subject: [PATCH] VERSA: Load the XGP's default font if there's no ;KSET.

@ doesn't emit ;KSET unless you explicitly specify fonts with the /F
switch; VERSA used to complain about this.
---
 src/dcp/versa.211 | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/dcp/versa.211 b/src/dcp/versa.211
index a7773b45..c9bd73bc 100644
--- a/src/dcp/versa.211
+++ b/src/dcp/versa.211
@@ -4344,13 +4344,14 @@ scrloo:	cain x,^L		;find first ^L
 	 jrst scrmor
 	jrst scrloo
 
-scrfin:	skipn ksetok
-	 jrst [	movei x,[ [asciz "~%~T  XGP: File error: no ;KSET command (no fonts)"]]
-		call log"log	;"
-		movei x,string"badreq	;"
-		call util"throw	;"
-		]
-	movei 1
+scrfin:	skipe ksetok		;have we seen a ;KSET?
+	 jrst scrfi2
+	call font"getrdy	;"no - load the XGP's default font
+	movei x,0
+	movei y,[sixbit /dsk/ ? sixbit /25fg/
+		 sixbit /kst/ ? sixbit /fonts/]
+	call font"xgpfnt	;"
+scrfi2:	movei 1
 	came nskip
 	 jrst [	movei x,[ [asciz "~%~T  XGP: File error: must have ;SKIP 1"]]
 		call log"log	;"