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 = 0 TO UBOUND(palettearray)
        PRINT #ff, RIGHT$(HEX$(palettearray(i)), 6);
        IF i < UBOUND(palettearray) THEN PRINT #ff, ""
    NEXT i
    CLOSE ff
END SUB