qb64-include/savehexpalette.bm

$if SaveHexPalette = undefined then
$let SaveHexPalette = defined
SUB SaveHexPalette (palettearray() AS _UNSIGNED LONG, filename AS STRING)
    DIM ff AS LONG
    DIM i AS LONG
    ff = FREEFILE
    OPEN filename FOR OUTPUT AS ff
    FOR i = LBOUND(palettearray) TO UBOUND(palettearray)
        PRINT #ff, RIGHT$(HEX$(palettearray(i)), 6);
        IF i < UBOUND(palettearray) THEN PRINT #ff, ""
    NEXT i
    CLOSE ff
END SUB
$end if