9 lines
305 B
Text
9 lines
305 B
Text
Sub SaveHexPalette (palettearray() As _Unsigned Long, filename As String)
|
|
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
|