clrscr.s switch to text mode

diff --git a/libsrc/telestrat/clrscr.s b/libsrc/telestrat/clrscr.s
index f2b8fafc16e8f41a3a2b1bb191395ec1e17adc20..31c8ee205a790abc7226e0e5cd5b2e3baf7fa712 100644 (file)
--- a/libsrc/telestrat/clrscr.s
+++ b/libsrc/telestrat/clrscr.s
@@ -9,6 +9,9 @@
     .include   "telestrat.inc"
 
 .proc _clrscr
+    ; Switch to text mode
+    BRK_TELEMON(XTEXT) 
+
     lda     #<SCREEN
     ldy     #>SCREEN
     sta     RES