From b91871114ae91f845548fcdd7e41abd4ddc71af1 Mon Sep 17 00:00:00 2001
From: b1ackmai1er <difficultylevelhigh@gmail.com>
Date: Sun, 8 Mar 2020 20:48:56 +0800
Subject: [PATCH] Update nascom.asm

Make CLS clear vdu screen
---
 Source/HBIOS/nascom.asm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Source/HBIOS/nascom.asm b/Source/HBIOS/nascom.asm
index 9d727019..4790b7f7 100644
--- a/Source/HBIOS/nascom.asm
+++ b/Source/HBIOS/nascom.asm
@@ -4467,6 +4467,9 @@ GETINP:
 	POP	BC
 	RET
 CLS:
+#IF VDUGFX
+	CALL	VDU_INIT	; Clear VDU screen
+#ENDIF
 #IF	VT100
 	LD	HL,VT_CLS	; Output zero terminated
 VT0OUT:	LD	A,(HL)		; VT100 escape sequence