Fix bgcolor and textcolor must return last color, jmp remove.

libsrc/telestrat/bgcolor.s

@@ -7,6 +7,8 @@
         .include        "telestrat.inc"
 
 .proc _bgcolor
+    ldx     BGCOLOR     ; Get previous color
     sta     BGCOLOR
+    txa                 ; Return previous color
     rts
 .endproc

libsrc/telestrat/clrscr.s

@@ -34,12 +34,8 @@
     dex
     stx     SCRX
     
-    ; X is equal to 0
-    stx     BGCOLOR
-    stx     OLD_BGCOLOR
-
-    lda     #$07
-    sta     CHARCOLOR
+    lda     #$FF
+    sta     OLD_BGCOLOR
     sta     OLD_CHARCOLOR
 
     rts

libsrc/telestrat/gotoxy.s

@@ -24,8 +24,8 @@ gotoxy: jsr     popa            ; Get Y
     jsr     popa
     sta     SCRX
 
-    jmp     update_adscr          ; Update adress video ram position when SCRY is modified 
-    
+; Update adress video ram position when SCRY is modified (update_adscr)
+; Fall through
 .endproc
 
 .proc update_adscr
@@ -48,7 +48,7 @@ gotoxy: jsr     popa            ; Get Y
 loop:
     lda     ADSCRL          
     clc
-    adc     #$28
+    adc     #SCREEN_XSIZE
     bcc     skip
     inc     ADSCRH
 skip:

libsrc/telestrat/textcolor.s

@@ -6,6 +6,8 @@
         .include        "telestrat.inc"
 
 .proc _textcolor
+    ldx     CHARCOLOR     ; Get previous color
     sta     CHARCOLOR
+    txa                   ; Return previous color
     rts
 .endproc