Add textcolor and bgcolor.s

libsrc/telestrat/clrscr.s

@@ -4,15 +4,15 @@
 
     .export    _clrscr
 
-    .importzp  sp
 
+    .import    CHARCOLOR_CHANGE, CHARCOLOR, BGCOLOR, BGCOLOR_CHANGE
     .include   "telestrat.inc"
 
 .proc _clrscr
     ; Switch to text mode
     BRK_TELEMON(XTEXT)
 
-    lda     #<SCREEN
+    lda     #<SCREEN                                ; Get position screen
     ldy     #>SCREEN
     sta     RES
     sty     RES+1
@@ -20,7 +20,7 @@
     ldy     #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
     ldx     #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
     lda     #' '
-    BRK_TELEMON XFILLM
+    BRK_TELEMON XFILLM                              ; Calls XFILLM : it fills A value from RES address and size of X and Y value
 
 
     ; reset prompt position
@@ -34,5 +34,14 @@
     sta     SCRY
     lda     #$00
     sta     SCRX
+
+    lda     #$00
+    sta     CHARCOLOR_CHANGE
+    sta     BGCOLOR_CHANGE
+
+    lda     #$07
+    sta     CHARCOLOR
+    sta     BGCOLOR
+
     rts
 .endproc