; 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