; Prueba ATTR-P
    ORG 50000

Start:

    LD A, 1                    ; Borde azul
    CALL BORDER

    LD A, 8+4
    LD (CLS_COLOR), A
    CALL CLS

    LD A, 56                   ; Negro sobre gris
    LD (ATTR_T), A             ; Cambiamos ATTR-T

    LD DE, linea1
    CALL PrintString

    LD A, 12                   ; Verde sobre azul
    LD (ATTR_T), A             ; Cambiamos ATTR-T

    LD DE, linea2
    CALL PrintString

    LD A, 64+2+9               ; Atributos: m + brillo.
    LD (ATTR_T), A             ; Cambiamos ATTR-T

    LD DE, linea2
    CALL PrintString

    CALL Wait_For_Key          ; Esperamos que se pulse y libere tecla

    RET                        ; Fin del programa

ATTR_T    EQU   $5C8F

;-------------------------------------------------------------------------
; Datos
;-------------------------------------------------------------------------
linea1:  DEFB 'Impreso con ATTR-T actual', _CR, _CR, _EOS
linea2:  DEFB 'Esto es una prueba', _CR,'cambiando los atributos', _CR, _CR, _EOS

  INCLUDE "utils.asm"

  END 50000