From 75499af5d57a7bc44bea7c3221db26aa1d14ccd5 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Tue, 6 Feb 2018 10:07:28 -0800
Subject: [PATCH] Clear screen on Apple /// grmode

---
 src/libsrc/conio.pla | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/libsrc/conio.pla b/src/libsrc/conio.pla
index 363d7eb..f851d58 100644
--- a/src/libsrc/conio.pla
+++ b/src/libsrc/conio.pla
@@ -359,6 +359,7 @@ def a3grmode(mix)
     puts(@textclrmode)
     dev_control(cmdsys.devcons, 17, @grcharset)
     a3viewport(0, 20, 40, 4)
+    putc(28)
     for i = 0 to mix
         memset(txt1scrn[i], $0000, 40) // text  screen
         memset(txt2scrn[i], $0000, 40) // color screen