11 lines
342 B
Text
11 lines
342 B
Text
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
|