visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update savehexpalette.bm

Browse source 
Option explicit conformity
This commit is contained in:
visionmercer 2022-08-29 10:55:55 +02:00 • committed by GitHub
commit 401e24bb23
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
savehexpalette.bm
View file

@ -1,9 +1,11 @@
Sub SaveHexPalette (palettearray() As _Unsigned Long, filename As String) SUB SaveHexPalette (palettearray() AS _UNSIGNED LONG, filename AS STRING)
ff = FreeFile DIM ff AS LONG
Open filename For Output As ff DIM i AS LONG
For i = 0 To UBound(palettearray) ff = FREEFILE
Print #ff, Right$(Hex$(palettearray(i)), 6); OPEN filename FOR OUTPUT AS ff
If i < UBound(palettearray) Then Print #ff, "" FOR i = 0 TO UBOUND(palettearray)
Next i PRINT #ff, RIGHT$(HEX$(palettearray(i)), 6);
Close ff IF i < UBOUND(palettearray) THEN PRINT #ff, ""
End Sub NEXT i
CLOSE ff
END SUB