sub loadpalette(palname as string, palarray() as _unsigned long)
Dim SLSO8(7) As _Unsigned Long 
select case lcase$(palname)
    case "slso8"
        redim palarray(7) as _unsigned long
        palarray(0) = &HFF0D2B45
        palarray(1) = &HFF203C56
        palarray(2) = &HFF544E68
        palarray(3) = &HFF8D697A
        palarray(4) = &HFFD08159
        palarray(5) = &HFFFFAA5E
        palarray(6) = &HFFFFD4A3
        palarray(7) = &HFFFFECD6
    case "endesga16"
        redim palarray(15) as _Unsigned Long
        palarray( 0) = &HFFe4a672
        palarray( 1) = &HFFb86f50
        palarray( 2) = &HFF743f39
        palarray( 3) = &HFF3f2832
        palarray( 4) = &HFF9e2835
        palarray( 5) = &HFFe53b44
        palarray( 6) = &HFFfb922b
        palarray( 7) = &HFFffe762
        palarray( 8) = &HFF63c64d
        palarray( 9) = &HFF327345
        palarray(10) = &HFF193d3f
        palarray(11) = &HFF4f6781
        palarray(12) = &HFFafbfd2
        palarray(13) = &HFFffffff
        palarray(14) = &HFF2ce8f4
        palarray(15) = &HFF0484d1
    case "kinkan"
        redim palarray(7) as _Unsigned Long
        palarray(0) = &HFF446176
        palarray(1) = &HFF3EAAAE
        palarray(2) = &HFF8CEFB6
        palarray(3) = &HFFC4F0C2
        palarray(4) = &HFFFFFEE4
        palarray(5) = &HFFBEC0C0
        palarray(6) = &HFFFFA7B9
        palarray(7) = &HFFFF7A8F
    case "custodian-8"
        redim palarray(7) as _Unsigned Long
        palarray(0) = &HFF2b3634
        palarray(1) = &HFF474848
        palarray(2) = &HFF6e5f52
        palarray(3) = &HFFa2856c
        palarray(4) = &HFFa0a294
        palarray(5) = &HFFdcb9a0
        palarray(6) = &HFFf3dbc6
        palarray(7) = &HFFfffefe
    case "greyteen"
        redim palarray(17) as _unsigned long
        palarray( 0) = &hff272524
        palarray( 1) = &hff444140
        palarray( 2) = &hf626368
        palarray( 3) = &hff918783
        palarray( 4) = &hffa7a8b9
        palarray( 5) = &hffd7c7c0
        palarray( 6) = &hffdadceb
        palarray( 7) = &hfff2ece9
        palarray( 8) = &hff4e393a
        palarray( 9) = &hff7d5c51
        palarray(10) = &hffcd9f83
        palarray(11) = &hffebd8a3
        palarray(12) = &hff95ae91
        palarray(13) = &hff5a7054
        palarray(14) = &hff3f4459
        palarray(15) = &hff7b8caa
        palarray(16) = &hffb0c6d5
        palarray(17) = &hff745e72
    case "ega"
        redim palarray(63) As _unsigned Long
        palarray( 0) = &hff000000
        palarray( 1) = &hff000055
        palarray( 2) = &hff0000aa
        palarray( 3) = &hff0000ff
        palarray( 4) = &hff550000
        palarray( 5) = &hff550055
        palarray( 6) = &hff5500aa
        palarray( 7) = &hff5500ff
        palarray( 8) = &hffaa0000
        palarray( 9) = &hffaa0055
        palarray(10) = &hffaa00aa
        palarray(11) = &hffaa00ff
        palarray(12) = &hffff0000
        palarray(13) = &hffff0055
        palarray(14) = &hffff00aa
        palarray(15) = &hffff00ff
        palarray(16) = &hff005500
        palarray(17) = &hff005555
        palarray(18) = &hff0055aa
        palarray(19) = &hff0055ff
        palarray(20) = &hff555500
        palarray(21) = &hff555555
        palarray(22) = &hff5555aa
        palarray(23) = &hff5555ff
        palarray(24) = &hffaa5500
        palarray(25) = &hffaa5555
        palarray(26) = &hffaa55aa
        palarray(27) = &hffaa55ff
        palarray(28) = &hffff5500
        palarray(29) = &hffff5555
        palarray(30) = &hffff55aa
        palarray(31) = &hffff55ff
        palarray(32) = &hff00aa00
        palarray(33) = &hff00aa55
        palarray(34) = &hff00aaaa
        palarray(35) = &hff00aaff
        palarray(36) = &hff55aa00
        palarray(37) = &hff55aa55
        palarray(38) = &hff55aaaa
        palarray(39) = &hff55aaff
        palarray(40) = &hffaaaa00
        palarray(41) = &hffaaaa55
        palarray(42) = &hffaaaaaa
        palarray(43) = &hffaaaaff
        palarray(44) = &hffffaa00
        palarray(45) = &hffffaa55
        palarray(46) = &hffffaaaa
        palarray(47) = &hffffaaff
        palarray(48) = &hff00ff00
        palarray(49) = &hff00ff55
        palarray(50) = &hff00ffaa
        palarray(51) = &hff00ffff
        palarray(52) = &hff55ff00
        palarray(53) = &hff55ff55
        palarray(54) = &hff55ffaa
        palarray(55) = &hff55ffff
        palarray(56) = &hffaaff00
        palarray(57) = &hffaaff55
        palarray(58) = &hffaaffaa
        palarray(59) = &hffaaffff
        palarray(60) = &hffffff00
        palarray(61) = &hffffff55
        palarray(62) = &hffffffaa
        palarray(63) = &hffffffff
    case else
        redim palarray(1) as _unsigned long
        if _fileexists(palname) then
        dim fh as integer
        dim i as integer
        dim colorload as string
        fh=freefile
        open palname for input as fh
        do until eof(fh)
            line input #fh, colorload
            i = i + 1
            if i > ubound(palarray) then
                redim _preserve palarray(i) as _unsigned long
            End If
            palarray(i) = Val("&HFF" + colorload)
        Loop
        Close fh
        else
            palarray(0)=&hff000000
            palarray(1)=&hffffffff
        end if
    end select
end sub