1; 2019-07-02, Jede (jede@oric.org)
2;
3
4        .export         _textcolor
5        .import         CHARCOLOR
6        .include        "telestrat.inc"
7
8.proc _textcolor
9    ldx     CHARCOLOR     ; Get previous color
10    sta     CHARCOLOR
11    txa                   ; Return previous color
12    rts
13.endproc
14