diff --git a/savehexpalette.bm b/savehexpalette.bm
new file mode 100644
index 0000000..d9c492c
--- /dev/null
+++ b/savehexpalette.bm
@@ -0,0 +1,9 @@
+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