14 lines
No EOL
434 B
Text
14 lines
No EOL
434 B
Text
$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 |