; Prueba de la libreria "utils.asm"
    ORG 33500

    ld a, _BLUE        ; Color para el borde
    call BORDER

    ld a, _BLUE*8+_WHITE
    ld (CLS_COLOR), a   ; Color para CLS (por defecto es $38)

    call CLS            ; CLS

    ld bc, 50*3
    call PAUSE          ; Pausar 3 segundos antes de continuar

    ld bc, 65535
    call PrintNum       ; Prueba decimal

    call PrintSpace     ; Imprimir espacio

    ld a, $f0
    call PrintHex       ; Prueba hexadecimal 8

    call PrintSpace     ; Imprimir espacio

    ld bc, $f01a
    call PrintHex16     ; Prueba hexadecimal 16

    call PrintSpace     ; Imprimir espacio

    ld a, 193           ; o "ld a, %11000001"
    call PrintBin       ; Prueba binario

    call PrintCR
    call PrintCR        ; 2 saltos de linea

    ld de, cadena1
    call PrintString    ; Cadena ("FLAGS y FLAG Z")

    call PrintFlags     ; Imprimir valor de Flags
    call PrintSpace     ; Imprimir un espacio
    ld a, _FLAG_Z
    call PrintFlag      ; Imprimir valor 0/1 FLAG_Z

    call PrintCR
    call PrintCR

    ld de, cadena2
    call PrintString    ; Cadena con saltos de linea

    ld de, cadena3
    call PrintString    ; Cadena con saltos de linea

    ld de, cadena4
    call PrintString    ; Cadena con codigos de control

    ld d, 25
    ld e, 21            ; X = 31, y = 21
    call CursorAt       ; mover Cursor

    ld a, '*'
    call PrintChar      ; Imprimir '*'

    ; Esperar pulsacion de tecla antes de salir e imprimirla
    call Wait_For_Key
    call PrintChar

    ret

cadena1 DEFB 'FLAGS (F) y ZF: ', $ff

cadena2 DEFB 'Esto es una cadena con salto', _CR, _EOS

cadena3 DEFB _CR, 'Acepta saltos', _CR, 'de linea', _CR, _CR
        DEFB 'usando _CR en la cadena', _EOS

cadena4 DEFB _CR, _CR, 'Codigos:', _AT, 13, 3, 'posicion,'
        DEFB ' ', _INK, _RED, _PAPER, _YELLOW, 'color', _CR, _CR
        DEFB _INK, _GREEN, _PAPER, _BLUE, ' '
        DEFB _FLASH, 1, 'FLASH 1', _FLASH, 0, ' FLASH 0', _EOS

    ; Incluimos nuestra "libreria" de funciones
    INCLUDE "utils.asm"

    END 33500