Public Sub SystemPalette_rainbow()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HFF, &H69, &H0, &H0, &HFF, &H63, &H0, &H0, &HFF, &H5D, &H0, &H0, &HFF, &H56, &H0, &H0, &HFF, &H50, &H0, &H0, &HFF, &H4A, &H0, &H0, &HFF, &H43, &H0, &H0, &HFF, &H3D, &H0, &H0, &HFF, &H36, &H0, &H0, &HFF, &H30, &H0, &H0, &HFF, &H2A, &H0, &H0, &HFF, &H23, &H0, &H0, &HFF, &H1D, &H0, &H0, &HFF, &H16, &H0, &H0, &HFF, &H10, &H0, &H0, _
                &HFF, &HA, &H0, &H0, &HFF, &H3, &H0, &H0, &HFF, &H0, &H6, &H0, &HFF, &H0, &HC, &H0, &HFF, &H0, &H13, &H0, &HFF, &H0, &H19, &H0, &HFF, &H0, &H1F, &H0, &HFF, &H0, &H26, &H0, &HFF, &H0, &H2C, &H0, &HFF, &H0, &H33, &H0, &HFF, &H0, &H39, &H0, &HFF, &H0, &H3F, &H0, &HFF, &H0, &H46, &H0, &HFF, &H0, &H4C, &H0, &HFF, &H0, &H53, &H0, &HFF, &H0, &H59, &H0, _
                &HFF, &H0, &H5F, &H0, &HFF, &H0, &H66, &H0, &HFF, &H0, &H6C, &H0, &HFF, &H0, &H72, &H0, &HFF, &H0, &H79, &H0, &HFF, &H0, &H7F, &H0, &HFF, &H0, &H86, &H0, &HFF, &H0, &H8C, &H0, &HFF, &H0, &H92, &H0, &HFF, &H0, &H99, &H0, &HFF, &H0, &H9F, &H0, &HFF, &H0, &HA5, &H0, &HFF, &H0, &HAC, &H0, &HFF, &H0, &HB2, &H0, &HFF, &H0, &HB9, &H0, &HFF, &H0, &HBF, &H0, _
                &HFF, &H0, &HC6, &H0, &HFF, &H0, &HCC, &H0, &HFF, &H0, &HD2, &H0, &HFF, &H0, &HD9, &H0, &HFF, &H0, &HDF, &H0, &HFF, &H0, &HE5, &H0, &HFF, &H0, &HEC, &H0, &HFF, &H0, &HF2, &H0, &HFF, &H0, &HF8, &H0, &HFF, &H0, &HFF, &H0, &HF8, &H0, &HFF, &H0, &HF2, &H0, &HFF, &H0, &HEB, &H0, &HFF, &H0, &HE5, &H0, &HFF, &H0, &HDF, &H0, &HFF, &H0, &HD8, &H0, &HFF, &H0, _
                &HD2, &H0, &HFF, &H0, &HCB, &H0, &HFF, &H0, &HC5, &H0, &HFF, &H0, &HBF, &H0, &HFF, &H0, &HB8, &H0, &HFF, &H0, &HB2, &H0, &HFF, &H0, &HAB, &H0, &HFF, &H0, &HA5, &H0, &HFF, &H0, &H9F, &H0, &HFF, &H0, &H98, &H0, &HFF, &H0, &H92, &H0, &HFF, &H0, &H8B, &H0, &HFF, &H0, &H85, &H0, &HFF, &H0, &H7F, &H0, &HFF, &H0, &H78, &H0, &HFF, &H0, &H72, &H0, &HFF, &H0, _
                &H6B, &H0, &HFF, &H0, &H65, &H0, &HFF, &H0, &H5F, &H0, &HFF, &H0, &H58, &H0, &HFF, &H0, &H52, &H0, &HFF, &H0, &H4B, &H0, &HFF, &H0, &H45, &H0, &HFF, &H0, &H3F, &H0, &HFF, &H0, &H38, &H0, &HFF, &H0, &H32, &H0, &HFF, &H0, &H2B, &H0, &HFF, &H0, &H25, &H0, &HFF, &H0, &H1F, &H0, &HFF, &H0, &H18, &H0, &HFF, &H0, &H12, &H0, &HFF, &H0, &HB, &H0, &HFF, &H0, _
                &H6, &H0, &HFF, &H0, &H0, &H0, &HFF, &H0, &H0, &H6, &HFF, &H0, &H0, &HC, &HFF, &H0, &H0, &H13, &HFF, &H0, &H0, &H19, &HFF, &H0, &H0, &H1F, &HFF, &H0, &H0, &H26, &HFF, &H0, &H0, &H2C, &HFF, &H0, &H0, &H33, &HFF, &H0, &H0, &H39, &HFF, &H0, &H0, &H3F, &HFF, &H0, &H0, &H46, &HFF, &H0, &H0, &H4C, &HFF, &H0, &H0, &H53, &HFF, &H0, &H0, &H59, &HFF, &H0, _
                &H0, &H5F, &HFF, &H0, &H0, &H66, &HFF, &H0, &H0, &H6C, &HFF, &H0, &H0, &H73, &HFF, &H0, &H0, &H79, &HFF, &H0, &H0, &H7F, &HFF, &H0, &H0, &H86, &HFF, &H0, &H0, &H8C, &HFF, &H0, &H0, &H93, &HFF, &H0, &H0, &H99, &HFF, &H0, &H0, &H9F, &HFF, &H0, &H0, &HA6, &HFF, &H0, &H0, &HAC, &HFF, &H0, &H0, &HB3, &HFF, &H0, &H0, &HB9, &HFF, &H0, &H0, &HBF, &HFF, &H0, _
                &H0, &HC6, &HFF, &H0, &H0, &HCC, &HFF, &H0, &H0, &HD3, &HFF, &H0, &H0, &HD9, &HFF, &H0, &H0, &HDF, &HFF, &H0, &H0, &HE6, &HFF, &H0, &H0, &HEC, &HFF, &H0, &H0, &HF3, &HFF, &H0, &H0, &HF8, &HFF, &H0, &H0, &HFF, &HFF, &H0, &H0, &HFF, &HF8, &H0, &H0, &HFF, &HF2, &H0, &H0, &HFF, &HEB, &H0, &H0, &HFF, &HE5, &H0, &H0, &HFF, &HDF, &H0, &H0, &HFF, &HD8, &H0, _
                &H0, &HFF, &HD2, &H0, &H0, &HFF, &HCC, &H0, &H0, &HFF, &HC5, &H0, &H0, &HFF, &HBF, &H0, &H0, &HFF, &HB8, &H0, &H0, &HFF, &HB2, &H0, &H0, &HFF, &HAC, &H0, &H0, &HFF, &HA5, &H0, &H0, &HFF, &H9F, &H0, &H0, &HFF, &H99, &H0, &H0, &HFF, &H92, &H0, &H0, &HFF, &H8C, &H0, &H0, &HFF, &H85, &H0, &H0, &HFF, &H7F, &H0, &H0, &HFF, &H79, &H0, &H0, &HFF, &H72, &H0, _
                &H0, &HFF, &H6C, &H0, &H0, &HFF, &H66, &H0, &H0, &HFF, &H5F, &H0, &H0, &HFF, &H59, &H0, &H0, &HFF, &H52, &H0, &H0, &HFF, &H4C, &H0, &H0, &HFF, &H46, &H0, &H0, &HFF, &H3F, &H0, &H0, &HFF, &H39, &H0, &H0, &HFF, &H33, &H0, &H0, &HFF, &H2C, &H0, &H0, &HFF, &H26, &H0, &H0, &HFF, &H1F, &H0, &H0, &HFF, &H19, &H0, &H0, &HFF, &H13, &H0, &H0, &HFF, &HC, &H0, _
                &H0, &HFF, &HC, &H0, &H0, &HFF, &H0, &H0, &H6, &HFF, &H0, &H0, &HC, &HFF, &H0, &H0, &H13, &HFF, &H0, &H0, &H19, &HFF, &H0, &H0, &H1F, &HFF, &H0, &H0, &H26, &HFF, &H0, &H0, &H2C, &HFF, &H0, &H0, &H33, &HFF, &H0, &H0, &H39, &HFF, &H0, &H0, &H3F, &HFF, &H0, &H0, &H46, &HFF, &H0, &H0, &H4C, &HFF, &H0, &H0, &H52, &HFF, &H0, &H0, &H59, &HFF, &H0, &H0, _
                &H5F, &HFF, &H0, &H0, &H66, &HFF, &H0, &H0, &H6C, &HFF, &H0, &H0, &H72, &HFF, &H0, &H0, &H79, &HFF, &H0, &H0, &H7F, &HFF, &H0, &H0, &H85, &HFF, &H0, &H0, &H8C, &HFF, &H0, &H0, &H92, &HFF, &H0, &H0, &H99, &HFF, &H0, &H0, &H9F, &HFF, &H0, &H0, &HA5, &HFF, &H0, &H0, &HAC, &HFF, &H0, &H0, &HB2, &HFF, &H0, &H0, &HB8, &HFF, &H0, &H0, &HBF, &HFF, &H0, &H0, _
                &HC5, &HFF, &H0, &H0, &HCC, &HFF, &H0, &H0, &HD2, &HFF, &H0, &H0, &HD8, &HFF, &H0, &H0, &HDF, &HFF, &H0, &H0, &HE5, &HFF, &H0, &H0, &HEB, &HFF, &H0, &H0, &HF2, &HFF, &H0, &H0, &HF8, &HFF, &H0, &H0, &HFF, &HFF, &H0, &H0, &HFF, &HF8, &H0, &H0, &HFF, &HF2, &H0, &H0, &HFF, &HEB, &H0, &H0, &HFF, &HE5, &H0, &H0, &HFF, &HDF, &H0, &H0, &HFF, &HD8, &H0, &H0, _
                &HFF, &HD2, &H0, &H0, &HFF, &HCC, &H0, &H0, &HFF, &HC5, &H0, &H0, &HFF, &HBF, &H0, &H0, &HFF, &HB8, &H0, &H0, &HFF, &HB2, &H0, &H0, &HFF, &HAC, &H0, &H0, &HFF, &HA5, &H0, &H0, &HFF, &H9F, &H0, &H0, &HFF, &H99, &H0, &H0, &HFF, &H92, &H0, &H0, &HFF, &H8C, &H0, &H0, &HFF, &H85, &H0, &H0, &HFF, &H7F, &H0, &H0, &HFF, &H79, &H0, &H0, &HFF, &H72, &H0, &H0, _
                &HF0, &HF0, &HF0, &H0, &HE0, &HE0, &HE0, &H0, &HD0, &HD0, &HD0, &H0, &HC0, &HC0, &HC0, &H0, &HB0, &HB0, &HB0, &H0, &HA0, &HA0, &HA0, &H0, &H90, &H90, &H90, &H0, &H80, &H80, &H80, &H0, &H70, &H70, &H70, &H0, &H60, &H60, &H60, &H0, &H50, &H50, &H50, &H0, &H40, &H40, &H40, &H0, &H30, &H30, &H30, &H0, &H20, &H20, &H20, &H0, &H10, &H10, &H10, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_grayscale()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HFE, &HFE, &HFE, &H0, &HFD, &HFD, &HFD, &H0, &HFC, &HFC, &HFC, &H0, &HFB, &HFB, &HFB, &H0, &HFA, &HFA, &HFA, &H0, &HF9, &HF9, &HF9, &H0, &HF8, &HF8, &HF8, &H0, &HF7, &HF7, &HF7, &H0, &HF6, &HF6, &HF6, &H0, &HF5, &HF5, &HF5, &H0, &HF4, &HF4, &HF4, &H0, &HF3, &HF3, &HF3, &H0, &HF2, &HF2, &HF2, &H0, &HF1, &HF1, &HF1, &H0, &HF0, &HF0, &HF0, &H0, _
                &HEF, &HEF, &HEF, &H0, &HEE, &HEE, &HEE, &H0, &HED, &HED, &HED, &H0, &HEC, &HEC, &HEC, &H0, &HEB, &HEB, &HEB, &H0, &HEA, &HEA, &HEA, &H0, &HE9, &HE9, &HE9, &H0, &HE8, &HE8, &HE8, &H0, &HE7, &HE7, &HE7, &H0, &HE6, &HE6, &HE6, &H0, &HE5, &HE5, &HE5, &H0, &HE4, &HE4, &HE4, &H0, &HE3, &HE3, &HE3, &H0, &HE2, &HE2, &HE2, &H0, &HE1, &HE1, &HE1, &H0, &HE0, &HE0, &HE0, &H0, _
                &HDF, &HDF, &HDF, &H0, &HDE, &HDE, &HDE, &H0, &HDD, &HDD, &HDD, &H0, &HDC, &HDC, &HDC, &H0, &HDB, &HDB, &HDB, &H0, &HDA, &HDA, &HDA, &H0, &HD9, &HD9, &HD9, &H0, &HD8, &HD8, &HD8, &H0, &HD7, &HD7, &HD7, &H0, &HD6, &HD6, &HD6, &H0, &HD5, &HD5, &HD5, &H0, &HD4, &HD4, &HD4, &H0, &HD3, &HD3, &HD3, &H0, &HD2, &HD2, &HD2, &H0, &HD1, &HD1, &HD1, &H0, &HD0, &HD0, &HD0, &H0, _
                &HCF, &HCF, &HCF, &H0, &HCE, &HCE, &HCE, &H0, &HCD, &HCD, &HCD, &H0, &HCC, &HCC, &HCC, &H0, &HCB, &HCB, &HCB, &H0, &HCA, &HCA, &HCA, &H0, &HC9, &HC9, &HC9, &H0, &HC8, &HC8, &HC8, &H0, &HC7, &HC7, &HC7, &H0, &HC6, &HC6, &HC6, &H0, &HC5, &HC5, &HC5, &H0, &HC4, &HC4, &HC4, &H0, &HC3, &HC3, &HC3, &H0, &HC2, &HC2, &HC2, &H0, &HC1, &HC1, &HC1, &H0, &HC0, &HC0, &HC0, &H0, _
                &HBF, &HBF, &HBF, &H0, &HBE, &HBE, &HBE, &H0, &HBD, &HBD, &HBD, &H0, &HBC, &HBC, &HBC, &H0, &HBB, &HBB, &HBB, &H0, &HBA, &HBA, &HBA, &H0, &HB9, &HB9, &HB9, &H0, &HB8, &HB8, &HB8, &H0, &HB7, &HB7, &HB7, &H0, &HB6, &HB6, &HB6, &H0, &HB5, &HB5, &HB5, &H0, &HB4, &HB4, &HB4, &H0, &HB3, &HB3, &HB3, &H0, &HB2, &HB2, &HB2, &H0, &HB1, &HB1, &HB1, &H0, &HB0, &HB0, &HB0, &H0, _
                &HAF, &HAF, &HAF, &H0, &HAE, &HAE, &HAE, &H0, &HAD, &HAD, &HAD, &H0, &HAC, &HAC, &HAC, &H0, &HAB, &HAB, &HAB, &H0, &HAA, &HAA, &HAA, &H0, &HA9, &HA9, &HA9, &H0, &HA8, &HA8, &HA8, &H0, &HA7, &HA7, &HA7, &H0, &HA6, &HA6, &HA6, &H0, &HA5, &HA5, &HA5, &H0, &HA4, &HA4, &HA4, &H0, &HA3, &HA3, &HA3, &H0, &HA2, &HA2, &HA2, &H0, &HA1, &HA1, &HA1, &H0, &HA0, &HA0, &HA0, &H0, _
                &H9F, &H9F, &H9F, &H0, &H9E, &H9E, &H9E, &H0, &H9D, &H9D, &H9D, &H0, &H9C, &H9C, &H9C, &H0, &H9B, &H9B, &H9B, &H0, &H9A, &H9A, &H9A, &H0, &H99, &H99, &H99, &H0, &H98, &H98, &H98, &H0, &H97, &H97, &H97, &H0, &H96, &H96, &H96, &H0, &H95, &H95, &H95, &H0, &H94, &H94, &H94, &H0, &H93, &H93, &H93, &H0, &H92, &H92, &H92, &H0, &H91, &H91, &H91, &H0, &H90, &H90, &H90, &H0, _
                &H8F, &H8F, &H8F, &H0, &H8E, &H8E, &H8E, &H0, &H8D, &H8D, &H8D, &H0, &H8C, &H8C, &H8C, &H0, &H8B, &H8B, &H8B, &H0, &H8A, &H8A, &H8A, &H0, &H89, &H89, &H89, &H0, &H88, &H88, &H88, &H0, &H87, &H87, &H87, &H0, &H86, &H86, &H86, &H0, &H85, &H85, &H85, &H0, &H84, &H84, &H84, &H0, &H83, &H83, &H83, &H0, &H82, &H82, &H82, &H0, &H81, &H81, &H81, &H0, &H80, &H80, &H80, &H0, _
                &H7F, &H7F, &H7F, &H0, &H7E, &H7E, &H7E, &H0, &H7D, &H7D, &H7D, &H0, &H7C, &H7C, &H7C, &H0, &H7B, &H7B, &H7B, &H0, &H7A, &H7A, &H7A, &H0, &H79, &H79, &H79, &H0, &H78, &H78, &H78, &H0, &H77, &H77, &H77, &H0, &H76, &H76, &H76, &H0, &H75, &H75, &H75, &H0, &H74, &H74, &H74, &H0, &H73, &H73, &H73, &H0, &H72, &H72, &H72, &H0, &H71, &H71, &H71, &H0, &H70, &H70, &H70, &H0, _
                &H6F, &H6F, &H6F, &H0, &H6E, &H6E, &H6E, &H0, &H6D, &H6D, &H6D, &H0, &H6C, &H6C, &H6C, &H0, &H6B, &H6B, &H6B, &H0, &H6A, &H6A, &H6A, &H0, &H69, &H69, &H69, &H0, &H68, &H68, &H68, &H0, &H67, &H67, &H67, &H0, &H66, &H66, &H66, &H0, &H65, &H65, &H65, &H0, &H64, &H64, &H64, &H0, &H63, &H63, &H63, &H0, &H62, &H62, &H62, &H0, &H61, &H61, &H61, &H0, &H60, &H60, &H60, &H0, _
                &H5F, &H5F, &H5F, &H0, &H5E, &H5E, &H5E, &H0, &H5D, &H5D, &H5D, &H0, &H5C, &H5C, &H5C, &H0, &H5B, &H5B, &H5B, &H0, &H5A, &H5A, &H5A, &H0, &H59, &H59, &H59, &H0, &H58, &H58, &H58, &H0, &H57, &H57, &H57, &H0, &H56, &H56, &H56, &H0, &H55, &H55, &H55, &H0, &H54, &H54, &H54, &H0, &H53, &H53, &H53, &H0, &H52, &H52, &H52, &H0, &H51, &H51, &H51, &H0, &H50, &H50, &H50, &H0, _
                &H4F, &H4F, &H4F, &H0, &H4E, &H4E, &H4E, &H0, &H4D, &H4D, &H4D, &H0, &H4C, &H4C, &H4C, &H0, &H4B, &H4B, &H4B, &H0, &H4A, &H4A, &H4A, &H0, &H49, &H49, &H49, &H0, &H48, &H48, &H48, &H0, &H47, &H47, &H47, &H0, &H46, &H46, &H46, &H0, &H45, &H45, &H45, &H0, &H44, &H44, &H44, &H0, &H43, &H43, &H43, &H0, &H42, &H42, &H42, &H0, &H41, &H41, &H41, &H0, &H40, &H40, &H40, &H0, _
                &H3F, &H3F, &H3F, &H0, &H3E, &H3E, &H3E, &H0, &H3D, &H3D, &H3D, &H0, &H3C, &H3C, &H3C, &H0, &H3B, &H3B, &H3B, &H0, &H3A, &H3A, &H3A, &H0, &H39, &H39, &H39, &H0, &H38, &H38, &H38, &H0, &H37, &H37, &H37, &H0, &H36, &H36, &H36, &H0, &H35, &H35, &H35, &H0, &H34, &H34, &H34, &H0, &H33, &H33, &H33, &H0, &H32, &H32, &H32, &H0, &H31, &H31, &H31, &H0, &H30, &H30, &H30, &H0, _
                &H2F, &H2F, &H2F, &H0, &H2E, &H2E, &H2E, &H0, &H2D, &H2D, &H2D, &H0, &H2C, &H2C, &H2C, &H0, &H2B, &H2B, &H2B, &H0, &H2A, &H2A, &H2A, &H0, &H29, &H29, &H29, &H0, &H28, &H28, &H28, &H0, &H27, &H27, &H27, &H0, &H26, &H26, &H26, &H0, &H25, &H25, &H25, &H0, &H24, &H24, &H24, &H0, &H23, &H23, &H23, &H0, &H22, &H22, &H22, &H0, &H21, &H21, &H21, &H0, &H20, &H20, &H20, &H0, _
                &H1F, &H1F, &H1F, &H0, &H1E, &H1E, &H1E, &H0, &H1D, &H1D, &H1D, &H0, &H1C, &H1C, &H1C, &H0, &H1B, &H1B, &H1B, &H0, &H1A, &H1A, &H1A, &H0, &H19, &H19, &H19, &H0, &H18, &H18, &H18, &H0, &H17, &H17, &H17, &H0, &H16, &H16, &H16, &H0, &H15, &H15, &H15, &H0, &H14, &H14, &H14, &H0, &H13, &H13, &H13, &H0, &H12, &H12, &H12, &H0, &H11, &H11, &H11, &H0, &H10, &H10, &H10, &H0, _
                &HF, &HF, &HF, &H0, &HE, &HE, &HE, &H0, &HD, &HD, &HD, &H0, &HC, &HC, &HC, &H0, &HB, &HB, &HB, &H0, &HA, &HA, &HA, &H0, &H9, &H9, &H9, &H0, &H8, &H8, &H8, &H0, &H7, &H7, &H7, &H0, &H6, &H6, &H6, &H0, &H5, &H5, &H5, &H0, &H4, &H4, &H4, &H0, &H3, &H3, &H3, &H0, &H2, &H2, &H2, &H0, &H1, &H1, &H1, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_pastels()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HF2, &HFE, &HFE, &H0, &HE6, &HFD, &HFE, &H0, &HDA, &HFD, &HFE, &H0, &HCE, &HFC, &HFE, &H0, &HC2, &HFB, &HFE, &H0, &HB6, &HFB, &HFE, &H0, &HAA, &HFA, &HFE, &H0, &HD9, &HFA, &HFD, &H0, &H91, &HF9, &HFD, &H0, &H85, &HF8, &HFD, &H0, &H79, &HF8, &HFD, &H0, &H6D, &HF7, &HFD, &H0, &H61, &HF7, &HFD, &H0, &H55, &HF6, &HFD, &H0, &H48, &HF5, &HFC, &H0, _
                &H47, &HEE, &HFC, &H0, &H47, &HE7, &HFC, &H0, &H47, &HE0, &HFC, &H0, &H47, &HD9, &HFC, &H0, &H47, &HD2, &HFD, &H0, &H47, &HCB, &HFD, &H0, &H47, &HC4, &HFD, &H0, &H47, &HBE, &HFD, &H0, &H47, &HB7, &HFD, &H0, &H47, &HB0, &HFE, &H0, &H47, &HA9, &HFE, &H0, &H47, &HA2, &HFE, &H0, &H47, &H9B, &HFE, &H0, &H47, &H94, &HFE, &H0, &H46, &H8D, &HFF, &H0, &H46, &H88, &HFD, &H0, _
                &H46, &H84, &HFB, &H0, &H46, &H5F, &HF9, &H0, &H47, &H7B, &HF8, &H0, &H47, &H77, &HF6, &H0, &H47, &H72, &HF4, &H0, &H47, &H6E, &HF3, &H0, &H48, &H6A, &HF1, &H0, &H48, &H65, &HEF, &H0, &H48, &H61, &HEE, &H0, &H48, &H5D, &HEC, &H0, &H49, &H58, &HEA, &H0, &H49, &H54, &HE9, &H0, &H49, &H50, &HE7, &H0, &H4A, &H4B, &HE5, &H0, &H49, &H49, &HE2, &H0, &H47, &H48, &HDF, &H0, _
                &H48, &H45, &HDC, &H0, &H47, &H43, &HD9, &H0, &H47, &H41, &HD6, &H0, &H46, &H3F, &HD4, &H0, &H46, &H3D, &HD1, &H0, &H45, &H3B, &HCE, &H0, &H45, &H39, &HCB, &H0, &H44, &H37, &HC8, &H0, &H44, &H35, &HC6, &H0, &H43, &H33, &HC3, &H0, &H43, &H31, &HC0, &H0, &H42, &H2F, &HBD, &H0, &H41, &H2D, &HBA, &H0, &H47, &H2F, &HBE, &H0, &H4E, &H31, &HC2, &H0, &H55, &H33, &HC6, &H0, _
                &H5B, &H35, &HCA, &H0, &H62, &H37, &HCE, &H0, &H69, &H39, &HD2, &H0, &HC0, &H3B, &HD6, &H0, &H76, &H3D, &HDA, &H0, &H7D, &H3F, &HDE, &H0, &H84, &H41, &HE2, &H0, &H8B, &H43, &HE6, &H0, &H91, &H45, &HEA, &H0, &H98, &H47, &HEE, &H0, &H9F, &H49, &HF2, &H0, &HA6, &H4B, &HF6, &H0, &HA7, &H4A, &HED, &H0, &HA9, &H4A, &HE5, &H0, &HAA, &H49, &HDC, &H0, &HAC, &H49, &HD4, &H0, _
                &HAD, &H48, &HCC, &H0, &HAF, &H48, &HC3, &H0, &HB0, &H48, &HBB, &H0, &HB2, &H47, &HB3, &H0, &HB3, &H47, &HAA, &H0, &HB5, &H46, &HA2, &H0, &HB6, &H46, &H9A, &H0, &HB8, &H46, &H91, &H0, &HB9, &H45, &H89, &H0, &HBB, &H45, &H81, &H0, &HBD, &H44, &H78, &H0, &HBF, &H44, &H74, &H0, &HC1, &H44, &H71, &H0, &HC4, &H44, &H6D, &H0, &HC6, &H44, &H6A, &H0, &HC8, &H44, &H66, &H0, _
                &HCB, &H44, &H63, &H0, &HCD, &H44, &H60, &H0, &HCF, &H44, &H5C, &H0, &HD2, &H44, &H59, &H0, &HD4, &H44, &H55, &H0, &HD6, &H44, &H52, &H0, &HD9, &H44, &H4F, &H0, &HDB, &H44, &H4B, &H0, &HDD, &H44, &H48, &H0, &HE0, &H45, &H44, &H0, &HE1, &H4D, &H44, &H0, &HE2, &H55, &H44, &H0, &HE3, &H5E, &H44, &H0, &HE4, &H66, &H44, &H0, &HE5, &H6E, &H45, &H0, &HE6, &H77, &H45, &H0, _
                &HE7, &H7F, &H45, &H0, &HE8, &H87, &H45, &H0, &HE9, &H90, &H45, &H0, &HEA, &H98, &H46, &H0, &HEB, &HA0, &H46, &H0, &HEC, &HA9, &H46, &H0, &HED, &HB1, &H46, &H0, &HEE, &HB9, &H46, &H0, &HF0, &HC2, &H47, &H0, &HE5, &HC2, &H48, &H0, &HDB, &HC3, &H49, &H0, &HD0, &HC3, &H4B, &H0, &HC6, &HC4, &H4C, &H0, &HBB, &HC5, &H4E, &H0, &HB1, &HC5, &H4F, &H0, &HA7, &HC6, &H50, &H0, _
                &H9C, &HC6, &H52, &H0, &H95, &HC7, &H53, &H0, &H87, &HC8, &H55, &H0, &H7D, &HC8, &H56, &H0, &H73, &HC9, &H57, &H0, &H68, &HC9, &H59, &H0, &H5E, &HCA, &H5A, &H0, &H53, &HCB, &H5C, &H0, &H52, &HC7, &H5A, &H0, &H52, &HC3, &H58, &H0, &H52, &HBF, &H57, &H0, &H52, &HBB, &H55, &H0, &H52, &HB7, &H54, &H0, &H52, &HB3, &H52, &H0, &H52, &HAF, &H51, &H0, &H52, &HAB, &H4F, &H0, _
                &H52, &HA7, &H4E, &H0, &H52, &HA3, &H4C, &H0, &H52, &H9F, &H4B, &H0, &H52, &H9B, &H49, &H0, &H52, &H97, &H48, &H0, &H52, &H93, &H46, &H0, &H51, &H8F, &H44, &H0, &H50, &H8C, &H48, &H0, &H4F, &H89, &H4C, &H0, &H4F, &H86, &H50, &H0, &H4E, &H84, &H55, &H0, &H4E, &H81, &H59, &H0, &H4D, &H7E, &H5D, &H0, &H4D, &H7B, &H61, &H0, &H4C, &H79, &H66, &H0, &H4C, &H76, &H6A, &H0, _
                &H4B, &H73, &H6E, &H0, &H4B, &H70, &H72, &H0, &H4A, &H6E, &H77, &H0, &H4A, &H6B, &H7B, &H0, &H49, &H68, &H7F, &H0, &H48, &H65, &H84, &H0, &H48, &H6E, &H8C, &H0, &H48, &H78, &H94, &H0, &H48, &H82, &H9C, &H0, &H48, &H8B, &HA4, &H0, &H48, &H95, &HAC, &H0, &H48, &H9F, &HB4, &H0, &H48, &HA8, &HBC, &H0, &H48, &HB2, &HC4, &H0, &H48, &HBC, &HCC, &H0, &H48, &HC0, &HD4, &H0, _
                &H48, &HCF, &HDC, &H0, &H48, &HD9, &HE4, &H0, &H48, &HE2, &HEC, &H0, &H48, &HEC, &HF4, &H0, &H49, &HF6, &HFD, &H0, &H49, &HEA, &HFB, &H0, &H49, &HDF, &HF9, &H0, &H49, &HD3, &HF8, &H0, &H49, &HC8, &HF6, &H0, &H49, &HBD, &HF5, &H0, &H49, &HB1, &HF3, &H0, &H49, &HA6, &HF2, &H0, &H49, &H9B, &HF0, &H0, &H49, &H8F, &HEF, &H0, &H49, &H84, &HED, &H0, &H49, &H79, &HEC, &H0, _
                &H49, &H6D, &HEA, &H0, &H49, &H62, &HE9, &H0, &H49, &H57, &HE7, &H0, &H4A, &H4B, &HE5, &H0, &H50, &H4B, &HE6, &H0, &H56, &H4B, &HE7, &H0, &H5C, &H4B, &HE8, &H0, &H62, &H4B, &HE9, &H0, &H68, &H4B, &HEA, &H0, &H6E, &H4B, &HEB, &H0, &H74, &H4B, &HEC, &H0, &H7B, &H4B, &HEE, &H0, &H81, &H4B, &HEF, &H0, &H87, &H4B, &HF0, &H0, &H8D, &H4B, &HF1, &H0, &H93, &H4B, &HF2, &H0, _
                &H99, &H4B, &HF3, &H0, &H9F, &H4B, &HF4, &H0, &HA6, &H4B, &HF6, &H0, &HA9, &H4A, &HEA, &H0, &HAD, &H4A, &HDE, &H0, &HB1, &H49, &HD2, &H0, &HB5, &H49, &HC6, &H0, &HB9, &H48, &HBA, &H0, &HBD, &H48, &HAF, &H0, &HC1, &H48, &HA3, &H0, &HC4, &H47, &H97, &H0, &HC8, &H47, &H8B, &H0, &HCC, &H46, &H7F, &H0, &HD0, &H46, &H74, &H0, &HD4, &H46, &H68, &H0, &HD8, &H45, &H5C, &H0, _
                &HDC, &H45, &H50, &H0, &HE0, &H44, &H44, &H0, &HE1, &H4F, &H4F, &H0, &HE2, &H5A, &H5A, &H0, &HE3, &H66, &H66, &H0, &HE4, &H71, &H71, &H0, &HE5, &H7D, &H7D, &H0, &HE6, &H88, &H88, &H0, &HE7, &H94, &H94, &H0, &HE8, &H9F, &H9F, &H0, &HE9, &HAB, &HAB, &H0, &HEA, &HB6, &HB6, &H0, &HEB, &HC2, &HC2, &H0, &HEC, &HCD, &HCD, &H0, &HED, &HD9, &HD9, &H0, &HEE, &HE4, &HE4, &H0, _
                &HF0, &HF0, &HF0, &H0, &HE0, &HE0, &HE0, &H0, &HD0, &HD0, &HD0, &H0, &HC0, &HC0, &HC0, &H0, &HB0, &HB0, &HB0, &H0, &HA0, &HA0, &HA0, &H0, &H90, &H90, &H90, &H0, &H80, &H80, &H80, &H0, &H70, &H70, &H70, &H0, &H60, &H60, &H60, &H0, &H50, &H50, &H50, &H0, &H40, &H40, &H40, &H0, &H30, &H30, &H30, &H0, &H20, &H20, &H20, &H0, &H10, &H10, &H10, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_vivid()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HEE, &HFE, &HFE, &H0, &HDD, &HFD, &HFE, &H0, &HCC, &HFC, &HFE, &H0, &HBC, &HFB, &HFE, &H0, &HAB, &HFA, &HFD, &H0, &H9A, &HFA, &HFD, &H0, &H8A, &HF9, &HFD, &H0, &H79, &HF8, &HFD, &H0, &H68, &HF7, &HFD, &H0, &H58, &HF6, &HFC, &H0, &H47, &HF6, &HFC, &H0, &H36, &HF5, &HFC, &H0, &H26, &HF4, &HFC, &H0, &H15, &HF3, &HFC, &H0, &H4, &HF2, &HFB, &H0, _
                &H3, &HE8, &HFB, &H0, &H3, &HDF, &HFB, &H0, &H3, &HD5, &HFB, &H0, &H3, &HCC, &HFC, &H0, &H3, &HC2, &HFC, &H0, &H3, &HB9, &HFC, &H0, &H3, &HAF, &HFC, &H0, &H2, &HA6, &HFD, &H0, &H2, &H9C, &HFD, &H0, &H2, &H93, &HFD, &H0, &H2, &H89, &HFD, &H0, &H2, &H80, &HFE, &H0, &H2, &H76, &HFE, &H0, &H2, &H6D, &HFE, &H0, &H1, &H63, &HFF, &H0, &H1, &H5C, &HFC, &H0, _
                &H1, &H56, &HFA, &H0, &H2, &H50, &HF8, &H0, &H2, &H4A, &HF5, &H0, &H2, &H44, &HF3, &H0, &H3, &H3E, &HF1, &H0, &H3, &H38, &HEF, &H0, &H3, &H32, &HEC, &H0, &H4, &H2C, &HEA, &H0, &H4, &H26, &HE8, &H0, &H4, &H20, &HE6, &H0, &H5, &H1A, &HE3, &H0, &H5, &H14, &HE1, &H0, &H5, &HE, &HDF, &H0, &H6, &H7, &HDC, &H0, &H7, &H6, &HD8, &H0, &H8, &H6, &HD5, &H0, _
                &H9, &H5, &HD2, &H0, &HA, &H5, &HCE, &H0, &HC, &H4, &HCB, &H0, &HD, &H4, &HC8, &H0, &HE, &H3, &HC5, &H0, &HF, &H3, &HC1, &H0, &H10, &H2, &HBE, &H0, &H12, &H2, &HBB, &H0, &H13, &H1, &HB8, &H0, &H14, &H1, &HB4, &H0, &H15, &H0, &HB1, &H0, &H16, &H0, &HAE, &H0, &H18, &H0, &HAA, &H0, &H1F, &H0, &HAE, &H0, &H26, &H1, &HB3, &H0, &H2D, &H1, &HB8, &H0, _
                &H34, &H2, &HBD, &H0, &H3C, &H2, &HC2, &H0, &H43, &H3, &HC6, &H0, &H4A, &H3, &HCB, &H0, &H51, &H4, &HD0, &H0, &H58, &H4, &HD5, &H0, &H60, &H5, &HDA, &H0, &H67, &H5, &HDE, &H0, &H6E, &H6, &HE3, &H0, &H75, &H6, &HE8, &H0, &H7C, &H7, &HED, &H0, &H84, &H8, &HF2, &H0, &H86, &H7, &HE6, &H0, &H88, &H6, &HDB, &H0, &H8A, &H6, &HCF, &H0, &H8C, &H5, &HC4, &H0, _
                &H8F, &H5, &HB8, &H0, &H91, &H4, &HAD, &H0, &H93, &H4, &HA1, &H0, &H95, &H3, &H96, &H0, &H97, &H3, &H8A, &H0, &H9A, &H2, &H7F, &H0, &H9C, &H2, &H73, &H0, &H9E, &H1, &H68, &H0, &HA0, &H1, &H5C, &H0, &HA2, &H0, &H51, &H0, &HA5, &H0, &H45, &H0, &HA8, &H0, &H40, &H0, &HAB, &H0, &H3B, &H0, &HAE, &H0, &H37, &H0, &HB1, &H0, &H32, &H0, &HB4, &H0, &H2D, &H0, _
                &HB7, &H0, &H29, &H0, &HBA, &H0, &H24, &H0, &HBE, &H0, &H20, &H0, &HC1, &H0, &H1B, &H0, &HC4, &H0, &H16, &H0, &HC7, &H0, &H12, &H0, &HCA, &H0, &HD, &H0, &HCD, &H0, &H9, &H0, &HD0, &H0, &H4, &H0, &HD4, &H0, &H0, &H0, &HD5, &HB, &H0, &H0, &HD6, &H16, &H0, &H0, &HD8, &H22, &H0, &H0, &HD9, &H2D, &H0, &H0, &HDB, &H39, &H0, &H0, &HDC, &H44, &H0, &H0, _
                &HDE, &H4F, &H0, &H0, &HDF, &H5B, &H1, &H0, &HE1, &H66, &H1, &H0, &HE2, &H72, &H1, &H0, &HE4, &H7D, &H1, &H0, &HE5, &H88, &H1, &H0, &HE7, &H94, &H1, &H0, &HE8, &H9F, &H1, &H0, &HEA, &HAB, &H1, &H0, &HDB, &HAB, &H3, &H0, &HCD, &HAC, &H5, &H0, &HBF, &HAD, &H7, &H0, &HB0, &HAE, &H9, &H0, &HA2, &HAF, &HB, &H0, &H94, &HAF, &HD, &H0, &H86, &HB0, &HF, &H0, _
                &H77, &HB1, &H11, &H0, &H69, &HB2, &H13, &H0, &H5B, &HB3, &H15, &H0, &H4D, &HB3, &H17, &H0, &H3E, &HB4, &H19, &H0, &H30, &HB5, &H1B, &H0, &H22, &HB6, &H1D, &H0, &H13, &HB7, &H1F, &H0, &H12, &HB1, &H1C, &H0, &H12, &HAB, &H1A, &H0, &H12, &HA6, &H18, &H0, &H12, &HA0, &H16, &H0, &H12, &H9B, &H14, &H0, &H12, &H95, &H12, &H0, &H12, &H90, &H10, &H0, &H11, &H8A, &HE, &H0, _
                &H11, &H85, &HC, &H0, &H11, &H7F, &HA, &H0, &H11, &H7A, &H8, &H0, &H11, &H74, &H6, &H0, &H11, &H6F, &H4, &H0, &H11, &H69, &H2, &H0, &H10, &H63, &H0, &H0, &HF, &H5F, &H5, &H0, &HE, &H5B, &HB, &H0, &HD, &H57, &H11, &H0, &HD, &H54, &H16, &H0, &HC, &H50, &H1C, &H0, &HB, &H4C, &H22, &H0, &HA, &H49, &H28, &H0, &HA, &H45, &H2D, &H0, &H9, &H41, &H33, &H0, _
                &H8, &H3E, &H39, &H0, &H7, &H3A, &H3F, &H0, &H7, &H36, &H44, &H0, &H6, &H33, &H4A, &H0, &H5, &H2F, &H50, &H0, &H4, &H2B, &H56, &H0, &H4, &H38, &H61, &H0, &H4, &H45, &H6C, &H0, &H4, &H53, &H77, &H0, &H4, &H60, &H82, &H0, &H4, &H6D, &H8D, &H0, &H4, &H7B, &H98, &H0, &H4, &H88, &HA3, &H0, &H4, &H95, &HAE, &H0, &H4, &HA3, &HB9, &H0, &H4, &HB0, &HC4, &H0, _
                &H4, &HBD, &HCF, &H0, &H4, &HCB, &HDA, &H0, &H4, &HD8, &HE5, &H0, &H4, &HE5, &HF0, &H0, &H5, &HF3, &HFC, &H0, &H5, &HE3, &HF9, &H0, &H5, &HD3, &HF7, &H0, &H5, &HC3, &HF5, &H0, &H5, &HB4, &HF3, &H0, &H5, &HA4, &HF1, &H0, &H5, &H94, &HEF, &H0, &H5, &H85, &HED, &H0, &H5, &H75, &HEB, &H0, &H5, &H65, &HE9, &H0, &H5, &H56, &HE7, &H0, &H5, &H46, &HE5, &H0, _
                &H5, &H36, &HE3, &H0, &H5, &H27, &HE1, &H0, &H5, &H17, &HDF, &H0, &H6, &H7, &HDC, &H0, &HE, &H7, &HDD, &H0, &H16, &H7, &HDE, &H0, &H1F, &H7, &HE0, &H0, &H27, &H7, &HE1, &H0, &H30, &H7, &HE3, &H0, &H38, &H7, &HE4, &H0, &H40, &H7, &HE6, &H0, &H49, &H7, &HE7, &H0, &H51, &H7, &HE9, &H0, &H5A, &H7, &HEA, &H0, &H62, &H7, &HEC, &H0, &H6A, &H7, &HED, &H0, _
                &H73, &H7, &HEF, &H0, &H7B, &H7, &HF0, &H0, &H84, &H8, &HF2, &H0, &H89, &H7, &HE1, &H0, &H8E, &H6, &HD1, &H0, &H94, &H6, &HC1, &H0, &H99, &H5, &HB1, &H0, &H9E, &H5, &HA1, &H0, &HA4, &H4, &H91, &H0, &HA9, &H4, &H81, &H0, &HAE, &H3, &H70, &H0, &HB4, &H3, &H60, &H0, &HB9, &H2, &H50, &H0, &HBE, &H2, &H40, &H0, &HC4, &H1, &H30, &H0, &HC9, &H1, &H20, &H0, _
                &HCE, &H0, &H10, &H0, &HD4, &H0, &H0, &H0, &HD5, &H10, &H10, &H0, &HD7, &H20, &H20, &H0, &HD9, &H30, &H30, &H0, &HDB, &H40, &H40, &H0, &HDD, &H50, &H50, &H0, &HDF, &H60, &H60, &H0, &HE1, &H70, &H70, &H0, &HE2, &H80, &H80, &H0, &HE4, &H90, &H90, &H0, &HE6, &HA0, &HA0, &H0, &HE8, &HB0, &HB0, &H0, &HEA, &HC0, &HC0, &H0, &HEC, &HD0, &HD0, &H0, &HEE, &HE0, &HE0, &H0, _
                &HF0, &HF0, &HF0, &H0, &HE0, &HE0, &HE0, &H0, &HD0, &HD0, &HD0, &H0, &HC0, &HC0, &HC0, &H0, &HB0, &HB0, &HB0, &H0, &HA0, &HA0, &HA0, &H0, &H90, &H90, &H90, &H0, &H80, &H80, &H80, &H0, &H70, &H70, &H70, &H0, &H60, &H60, &H60, &H0, &H50, &H50, &H50, &H0, &H40, &H40, &H40, &H0, &H30, &H30, &H30, &H0, &H20, &H20, &H20, &H0, &H10, &H10, &H10, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_ntsc()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &H85, &H2B, &H59, &H0, &H5F, &H21, &H5D, &H0, &H52, &H28, &H7B, &H0, &H44, &H30, &H9A, &H0, &H42, &H3D, &HA1, &H0, &H41, &H43, &HA5, &H0, &H3E, &H47, &HA9, &H0, &H3A, &H4B, &HAC, &H0, &H37, &H4F, &HB0, &H0, &H33, &H53, &HB4, &H0, &H35, &H66, &HBA, &H0, &H36, &H7A, &HC1, &H0, &H37, &H8D, &HC8, &H0, &H39, &HA1, &HCF, &H0, &H3A, &HB5, &HD5, &H0, _
                &H3B, &HC9, &HDC, &H0, &H3C, &HDD, &HE3, &H0, &H38, &HD4, &HC6, &H0, &H37, &HCE, &HAC, &H0, &H35, &HC8, &H93, &H0, &H33, &HC3, &H79, &H0, &H31, &HBD, &H60, &H0, &H2F, &HB7, &H46, &H0, &H2D, &HB1, &H2D, &H0, &H3C, &H9A, &H27, &H0, &H49, &H83, &H21, &H0, &H55, &H6C, &H1B, &H0, &H65, &H5B, &H19, &H0, &H84, &H58, &H21, &H0, &HA3, &H52, &H29, &H0, &HC2, &H4B, &H30, &H0, _
                &HD5, &HC2, &H1C, &H0, &HD5, &HC3, &H26, &H0, &HD5, &HC4, &H30, &H0, &HD5, &HC5, &H3B, &H0, &HD5, &HC6, &H45, &H0, &HD5, &HC7, &H4F, &H0, &HD5, &HC8, &H59, &H0, &HD5, &HC9, &H63, &H0, &HD5, &HCA, &H6D, &H0, &HD5, &HCB, &H77, &H0, &HD5, &HCC, &H81, &H0, &HD5, &HCD, &H8B, &H0, &HD5, &HCE, &H95, &H0, &HD5, &HCF, &H9F, &H0, &HD5, &HD0, &HA9, &H0, &HD5, &HD1, &HB3, &H0, _
                &HB9, &HF2, &HB1, &H0, &HAD, &HF0, &HA5, &H0, &HA1, &HEF, &H9A, &H0, &H94, &HED, &H8E, &H0, &H88, &HEC, &H82, &H0, &H7C, &HEA, &H76, &H0, &H70, &HE8, &H6B, &H0, &H63, &HE7, &H5F, &H0, &H57, &HE5, &H53, &H0, &H4B, &HE4, &H47, &H0, &H3F, &HE2, &H3B, &H0, &H32, &HE0, &H30, &H0, &H26, &HDF, &H24, &H0, &H1A, &HDD, &H18, &H0, &HE, &HDC, &HC, &H0, &H1, &HDA, &H1, &H0, _
                &H1, &HC8, &H1, &H0, &H1, &HBB, &H0, &H0, &H1, &HAE, &H0, &H0, &H1, &HA0, &H0, &H0, &H1, &H93, &H0, &H0, &H1, &H85, &H0, &H0, &H0, &H78, &H0, &H0, &H0, &H6B, &H0, &H0, &H0, &H5D, &H0, &H0, &H0, &H50, &H0, &H0, &H0, &H42, &H0, &H0, &H0, &H35, &H0, &H0, &H0, &H28, &H0, &H0, &H0, &H1A, &H0, &H0, &H0, &HD, &H0, &H0, &H0, &H0, &H0, &H0, _
                &H0, &H9, &HA, &H0, &H1, &H15, &H16, &H0, &H2, &H21, &H22, &H0, &H2, &H2D, &H2E, &H0, &H3, &H39, &H3A, &H0, &H4, &H44, &H46, &H0, &H5, &H50, &H52, &H0, &H5, &H5C, &H5E, &H0, &H6, &H68, &H6A, &H0, &H7, &H74, &H77, &H0, &H8, &H80, &H83, &H0, &H8, &H8B, &H8F, &H0, &H9, &H97, &H9B, &H0, &HA, &HA3, &HA7, &H0, &HB, &HAF, &HB3, &H0, &HB, &HBB, &HBF, &H0, _
                &HC, &HC0, &HC5, &H0, &H15, &HC4, &HC8, &H0, &H1D, &HC7, &HCB, &H0, &H26, &HCA, &HCF, &H0, &H2F, &HCD, &HD2, &H0, &H38, &HD0, &HD5, &H0, &H41, &HD3, &HD8, &H0, &H4A, &HD6, &HDB, &H0, &H52, &HD9, &HDF, &H0, &H5B, &HDC, &HE2, &H0, &H64, &HDF, &HE5, &H0, &H6D, &HE2, &HE8, &H0, &H76, &HE5, &HEB, &H0, &H7F, &HE8, &HEF, &H0, &H87, &HEB, &HF2, &H0, &H90, &HEE, &HF5, &H0, _
                &HA1, &HAF, &HD9, &H0, &H98, &HA9, &HD9, &H0, &H8F, &HA2, &HD9, &H0, &H87, &H9C, &HD9, &H0, &H7E, &H95, &HD9, &H0, &H76, &H8F, &HD9, &H0, &H6D, &H88, &HD9, &H0, &H65, &H82, &HD9, &H0, &H5C, &H7B, &HD9, &H0, &H53, &H75, &HD9, &H0, &H4B, &H6E, &HD9, &H0, &H42, &H68, &HD9, &H0, &H3A, &H61, &HD9, &H0, &H31, &H5B, &HD9, &H0, &H29, &H54, &HD9, &H0, &H20, &H4E, &HD9, &H0, _
                &H1B, &H4A, &HD9, &H0, &H19, &H45, &HCB, &H0, &H17, &H40, &HBC, &H0, &H16, &H3B, &HAE, &H0, &H14, &H36, &H9F, &H0, &H12, &H31, &H91, &H0, &H10, &H2C, &H82, &H0, &HE, &H27, &H74, &H0, &HC, &H22, &H65, &H0, &HB, &H1D, &H57, &H0, &H9, &H18, &H48, &H0, &H7, &H13, &H3A, &H0, &H5, &HE, &H2B, &H0, &H3, &H9, &H1D, &H0, &H1, &H5, &HE, &H0, &H0, &H0, &H0, &H0, _
                &H0, &H0, &H0, &H0, &H2, &H0, &HB, &H0, &H4, &H0, &H17, &H0, &H6, &H3, &H17, &H0, &HA, &H4, &H22, &H0, &HD, &H6, &H2E, &H0, &H10, &H7, &H39, &H0, &H14, &H9, &H45, &H0, &H17, &HB, &H51, &H0, &H1A, &HC, &H5C, &H0, &H1E, &HE, &H68, &H0, &H21, &HF, &H73, &H0, &H25, &H11, &H7F, &H0, &H28, &H13, &H8B, &H0, &H2B, &H14, &H96, &H0, &H2F, &H16, &HA2, &H0, _
                &H2F, &H16, &HA2, &H0, &H2F, &HB, &HB1, &H0, &H35, &H17, &HB5, &H0, &H3F, &H22, &HB9, &H0, &H4A, &H2E, &HBD, &H0, &H55, &H39, &HC1, &H0, &H60, &H45, &HC4, &H0, &H6B, &H50, &HC8, &H0, &H76, &H5C, &HCC, &H0, &H81, &H67, &HD0, &H0, &H8C, &H73, &HD4, &H0, &H97, &H7E, &HD7, &H0, &HA2, &H8A, &HDB, &H0, &HAD, &H95, &HDF, &H0, &HB8, &HA1, &HE3, &H0, &HC3, &HAD, &HE7, &H0, _
                &HF0, &HAA, &HC9, &H0, &HEF, &HA1, &HC3, &H0, &HED, &H97, &HBE, &H0, &HEB, &H8D, &HB9, &H0, &HE9, &H84, &HB3, &H0, &HE8, &H7A, &HAE, &H0, &HE6, &H70, &HA8, &H0, &HE4, &H67, &HA3, &H0, &HE3, &H5D, &H9E, &H0, &HEB, &H53, &H98, &H0, &HDF, &H4A, &H93, &H0, &HDD, &H40, &H8D, &H0, &HDC, &H36, &H88, &H0, &HDA, &H2D, &H83, &H0, &HD8, &H23, &H7D, &H0, &HD7, &H19, &H78, &H0, _
                &HD7, &HF, &H75, &H0, &HC9, &HE, &H6D, &H0, &HBC, &HD, &H66, &H0, &HAE, &HC, &H5F, &H0, &HA1, &HB, &H57, &H0, &H93, &HA, &H50, &H0, &H86, &H9, &H49, &H0, &H78, &H8, &H41, &H0, &H6B, &H7, &H3A, &H0, &H5D, &H6, &H32, &H0, &H50, &H5, &H2F, &H0, &H42, &H4, &H24, &H0, &H35, &H3, &H1C, &H0, &H27, &H2, &H15, &H0, &H1A, &H1, &HE, &H0, &HC, &H0, &H6, &H0, _
                &H16, &H4, &H0, &H0, &H24, &H6, &H0, &H0, &H30, &H8, &H0, &H0, &H3D, &HB, &H0, &H0, &H4A, &HD, &H0, &H0, &H57, &H10, &H0, &H0, &H64, &H12, &H0, &H0, &H71, &H14, &H0, &H0, &H7E, &H17, &H0, &H0, &H8B, &H19, &H0, &H0, &H98, &H1C, &H0, &H0, &HA5, &H1E, &H0, &H0, &HB2, &H20, &H0, &H0, &HBF, &H23, &H0, &H0, &HCC, &H25, &H0, &H0, &HD9, &H27, &H0, &H0, _
                &HE3, &H29, &H0, &H0, &HE4, &H36, &HF, &H0, &HE5, &H42, &H1D, &H0, &HE6, &H4F, &H2C, &H0, &HE6, &H5B, &H3B, &H0, &HE7, &H67, &H4A, &H0, &HE8, &H74, &H59, &H0, &HE9, &H80, &H68, &H0, &HE9, &H8C, &H77, &H0, &HEA, &H99, &H86, &H0, &HEB, &HA5, &H95, &H0, &HEC, &HB2, &HA4, &H0, &HEC, &HBE, &HB3, &H0, &HED, &HCA, &HC2, &H0, &HEE, &HD7, &HD1, &H0, &HEF, &HE3, &HE0, &H0, _
                &HF0, &HF0, &HF0, &H0, &HE0, &HE0, &HE0, &H0, &HD0, &HD0, &HD0, &H0, &HC0, &HC0, &HC0, &H0, &HB0, &HB0, &HB0, &H0, &HA0, &HA0, &HA0, &H0, &H90, &H90, &H90, &H0, &H80, &H80, &H80, &H0, &H70, &H70, &H70, &H0, &H60, &H60, &H60, &H0, &H50, &H50, &H50, &H0, &H40, &H40, &H40, &H0, &H30, &H30, &H30, &H0, &H20, &H20, &H20, &H0, &H10, &H10, &H10, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_metallic()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &H80, &H4C, &H66, &H0, &H6C, &H42, &H5F, &H0, &H59, &H37, &H58, &H0, &H5E, &H47, &H75, &H0, &H63, &H58, &H94, &H0, &H69, &H66, &H9B, &H0, &H6A, &H6C, &H9F, &H0, &H68, &H6D, &HA3, &H0, &H66, &H6F, &HA6, &H0, &H65, &H73, &HAA, &H0, &H67, &H79, &H67, &H0, &H6B, &H86, &HB4, &H0, &H6F, &H94, &HBB, &H0, &H73, &HA2, &HC2, &H0, &H77, &HB0, &HC9, &H0, _
                &H7B, &HBE, &HD0, &H0, &H83, &HDA, &HDD, &H0, &H7B, &HCE, &HC7, &H0, &H77, &HC8, &HB6, &H0, &H74, &HC4, &HA6, &H0, &H70, &HBD, &H96, &H0, &H6D, &HB7, &H85, &H0, &H69, &HB1, &H76, &H0, &H66, &HAB, &H66, &H0, &H63, &H94, &H58, &H0, &H5F, &H7D, &H4A, &H0, &H5F, &H5A, &H38, &H0, &H76, &H61, &H43, &H0, &H8E, &H67, &H4E, &H0, &HA5, &H6D, &H58, &H0, &H63, &H73, &HBC, &H0, _
                &H5C, &H2A, &H44, &H0, &H66, &H35, &H4E, &H0, &H6F, &H3F, &H58, &H0, &H79, &H4A, &H62, &H0, &H82, &H23, &H6C, &H0, &H8C, &H5F, &H76, &H0, &H95, &H6A, &H80, &H0, &H9F, &H75, &H8A, &H0, &HA8, &H7F, &H94, &H0, &HB2, &H8A, &H9E, &H0, &HBB, &H94, &HA8, &H0, &HC4, &H9F, &HB2, &H0, &HCE, &HAA, &HBC, &H0, &HD7, &HB4, &HC6, &H0, &HE1, &HBF, &HD0, &H0, &HEA, &HCA, &HDA, &H0, _
                &HF4, &HD4, &HE4, &H0, &HEA, &HC9, &HDA, &H0, &HE0, &HBE, &HCF, &H0, &HD6, &HB2, &HC4, &H0, &HCB, &HA7, &HB9, &H0, &HC1, &H9C, &HAF, &H0, &HB7, &H90, &HA4, &H0, &HAD, &H85, &H99, &H0, &HA3, &H7A, &H8F, &H0, &H99, &H6E, &H84, &H0, &H8F, &H63, &H79, &H0, &H85, &H58, &H6F, &H0, &H7B, &H4C, &H64, &H0, &H71, &H41, &H59, &H0, &H67, &H36, &H4E, &H0, &H5C, &H2A, &H44, &H0, _
                &H1F, &H20, &H51, &H0, &H2B, &H2B, &H5C, &H0, &H37, &H37, &H67, &H0, &H42, &H42, &H72, &H0, &H4E, &H4D, &H7D, &H0, &H59, &H58, &H87, &H0, &H65, &H63, &H92, &H0, &H71, &H6E, &H9D, &H0, &H7C, &H79, &HA8, &H0, &H88, &H84, &HB3, &H0, &H94, &H90, &HBE, &H0, &H9F, &H9B, &HC9, &H0, &HAB, &HA6, &HD4, &H0, &HB7, &HB1, &HDF, &H0, &HC2, &HBC, &HEA, &H0, &HCE, &HC7, &HF5, &H0, _
                &HDA, &HD2, &HFF, &H0, &HCD, &HC6, &HF4, &H0, &HC1, &HBB, &HE8, &H0, &HB4, &HAF, &HDD, &H0, &HA8, &HA3, &HD1, &H0, &H9B, &H97, &HC5, &H0, &H8F, &H8B, &HBA, &H0, &H83, &H7F, &HAE, &H0, &H76, &H73, &HA2, &H0, &H6A, &H67, &H97, &H0, &H5D, &H5C, &H8B, &H0, &H51, &H50, &H7F, &H0, &H45, &H44, &H74, &H0, &H38, &H38, &H68, &H0, &H2C, &H2C, &H5D, &H0, &H1F, &H20, &H51, &H0, _
                &H19, &H26, &H44, &H0, &H22, &H31, &H4F, &H0, &H2C, &H3B, &H59, &H0, &H36, &H46, &H64, &H0, &H40, &H51, &H6F, &H0, &H49, &H5B, &H79, &H0, &H53, &H66, &H84, &H0, &H5D, &H71, &H8E, &H0, &H66, &H7B, &H99, &H0, &H70, &H86, &HA4, &H0, &H7A, &H91, &HAE, &H0, &H83, &H9B, &HB9, &H0, &H8D, &HA6, &HC3, &H0, &H97, &HB1, &HCE, &H0, &HA1, &HBB, &HD9, &H0, &HAA, &HC6, &HE3, &H0, _
                &HB4, &HD1, &HEE, &H0, &HA5, &HC3, &HE3, &H0, &H9B, &HB8, &HD7, &H0, &H91, &HAC, &HCC, &H0, &H87, &HA1, &HC1, &H0, &H7D, &H96, &HB5, &H0, &H73, &H8B, &HAA, &H0, &H69, &H80, &H9F, &H0, &H5F, &H74, &H93, &H0, &H55, &H69, &H88, &H0, &H4B, &H5E, &H7D, &H0, &H41, &H53, &H71, &H0, &H37, &H48, &H69, &H0, &H2D, &H3C, &H5B, &H0, &H23, &H31, &H4F, &H0, &H19, &H26, &H44, &H0, _
                &H12, &H55, &H76, &H0, &H1C, &H5D, &H80, &H0, &H26, &H66, &H8A, &H0, &H2F, &H6E, &H93, &H0, &H39, &H77, &H9D, &H0, &H43, &H7F, &HA7, &H0, &H4C, &H88, &HB1, &H0, &H56, &H91, &HBB, &H0, &H5F, &H99, &HC5, &H0, &H69, &HA2, &HCE, &H0, &H73, &HAA, &HD8, &H0, &H7C, &HB3, &HE2, &H0, &H86, &HBB, &HEC, &H0, &H8F, &HC4, &HF6, &H0, &H99, &HCC, &HFF, &H0, &HAB, &HD5, &HFF, &H0, _
                &HC2, &HE1, &HFF, &H0, &HB1, &HD8, &HFF, &H0, &H8F, &HC4, &HF6, &H0, &H86, &HBB, &HEC, &H0, &H7C, &HB3, &HE2, &H0, &H73, &HAA, &HD8, &H0, &H69, &HA2, &HCE, &H0, &H5F, &H99, &HC5, &H0, &H56, &H91, &HBB, &H0, &H4C, &H88, &HB1, &H0, &H43, &H7F, &HA7, &H0, &H39, &H77, &H9D, &H0, &H2F, &H6E, &H93, &H0, &H26, &H66, &H8A, &H0, &H1C, &H5D, &H80, &H0, &H12, &H55, &H76, &H0, _
                &H3, &H30, &H3, &H0, &HF, &H3D, &HF, &H0, &H1A, &H4A, &H1A, &H0, &H26, &H57, &H26, &H0, &H31, &H64, &H31, &H0, &H3D, &H71, &H3D, &H0, &H49, &H7E, &H49, &H0, &H54, &H8B, &H54, &H0, &H60, &H98, &H60, &H0, &H6B, &HA5, &H6B, &H0, &H77, &HB2, &H77, &H0, &H83, &HBF, &H82, &H0, &H8E, &HCC, &H8E, &H0, &H9A, &HD9, &H9A, &H0, &HA5, &HE6, &HA5, &H0, &HB1, &HF2, &HB1, &H0, _
                &HBC, &HFF, &HBC, &H0, &HB0, &HF2, &HB0, &H0, &HA4, &HE4, &HA4, &H0, &H97, &HD6, &H97, &H0, &H8B, &HC8, &H8B, &H0, &H7F, &HBA, &H7F, &H0, &H72, &HAD, &H72, &H0, &H66, &H9F, &H66, &H0, &H5A, &H91, &H5A, &H0, &H4D, &H83, &H4D, &H0, &H41, &H75, &H41, &H0, &H35, &H67, &H34, &H0, &H28, &H5A, &H28, &H0, &H1C, &H4C, &H1C, &H0, &H10, &H3E, &HF, &H0, &H3, &H30, &H3, &H0, _
                &H55, &HF, &H0, &H0, &H60, &H1D, &HD, &H0, &H6A, &H2A, &H1B, &H0, &H75, &H37, &H29, &H0, &H80, &H45, &H37, &H0, &H8A, &H52, &H45, &H0, &H95, &H5F, &H53, &H0, &HA0, &H6D, &H61, &H0, &HAA, &H7A, &H6F, &H0, &HB5, &H87, &H7D, &H0, &HC0, &H95, &H8A, &H0, &HCA, &HA2, &H98, &H0, &HD5, &HAF, &HA6, &H0, &HE0, &HBD, &HB4, &H0, &HEA, &HCA, &HC2, &H0, &HF5, &HD7, &HD0, &H0, _
                &HFF, &HE5, &HDE, &H0, &HF4, &HD6, &HCF, &H0, &HE9, &HC8, &HC0, &H0, &HDD, &HBA, &HB1, &H0, &HD2, &HAC, &HA3, &H0, &HC7, &H9D, &H94, &H0, &HBB, &H8F, &H85, &H0, &HB0, &H81, &H76, &H0, &HA5, &H73, &H67, &H0, &H99, &H65, &H58, &H0, &H8E, &H56, &H4A, &H0, &H83, &H48, &H3B, &H0, &H77, &H3A, &H2C, &H0, &H6C, &H2C, &H1D, &H0, &H61, &H1E, &HE, &H0, &H55, &HF, &H0, &H0, _
                &H11, &H11, &H11, &H0, &H20, &H20, &H20, &H0, &H2F, &H2F, &H2F, &H0, &H3E, &H3E, &H3E, &H0, &H4D, &H4D, &H4D, &H0, &H5C, &H5C, &H5C, &H0, &H6A, &H6A, &H6A, &H0, &H79, &H79, &H79, &H0, &H88, &H88, &H88, &H0, &H97, &H97, &H97, &H0, &HA6, &HA6, &HA6, &H0, &HB5, &HB5, &HB5, &H0, &HC4, &HC4, &HC4, &H0, &HD3, &HD3, &HD3, &H0, &HDC, &HDC, &HDC, &H0, &HF1, &HF1, &HF1, &H0, _
                &HFF, &HFF, &HFF, &H0, &HEE, &HEE, &HEE, &H0, &HDD, &HDD, &HDD, &H0, &HCC, &HCC, &HCC, &H0, &HBB, &HBB, &HBB, &H0, &HAA, &HAA, &HAA, &H0, &H99, &H99, &H99, &H0, &H88, &H88, &H88, &H0, &H77, &H77, &H77, &H0, &H66, &H66, &H66, &H0, &H55, &H55, &H55, &H0, &H44, &H44, &H44, &H0, &H33, &H33, &H33, &H0, &H22, &H22, &H22, &H0, &H11, &H11, &H11, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_systemWinDir4()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HFF, &HFF, &H0, &H0, &HFF, &H0, &HFF, &H0, &HFF, &H0, &H0, &H0, &H0, &HFF, &HFF, &H0, &H0, &HFF, &H0, &H0, &H0, &H0, &HFF, &H0, &H80, &H80, &H80, &H0, &HA4, &HA0, &HA0, &H0, &HF0, &HFB, &HFF, &H0, &H33, &H33, &H33, &H0, &H0, &H66, &H99, &H0, &H33, &H66, &H33, &H0, &H99, &H33, &H0, &H0, &HFF, &H0, &HCC, &H0, &H0, &H0, &H88, &H0, _
                &H66, &HCC, &HFF, &H0, &HCC, &H99, &HFF, &H0, &HDD, &HDD, &HDD, &H0, &H0, &H99, &HFF, &H0, &HFF, &H66, &HFF, &H0, &HCC, &H66, &HFF, &H0, &H99, &H66, &HFF, &H0, &H66, &H66, &HFF, &H0, &H33, &H66, &HFF, &H0, &H0, &H66, &HFF, &H0, &HFF, &H33, &HFF, &H0, &HCC, &H33, &HFF, &H0, &H99, &H33, &HFF, &H0, &H66, &H33, &HFF, &H0, &H33, &H33, &HFF, &H0, &H0, &H33, &HFF, &H0, _
                &HCC, &H0, &HFF, &H0, &H99, &H0, &HFF, &H0, &H66, &H0, &HFF, &H0, &H33, &H0, &HFF, &H0, &HFF, &HFF, &HCC, &H0, &HCC, &HFF, &HCC, &H0, &H99, &HFF, &HCC, &H0, &H66, &HFF, &HCC, &H0, &H33, &HFF, &HCC, &H0, &H0, &HFF, &HCC, &H0, &HFF, &HCC, &HCC, &H0, &HCC, &HCC, &HCC, &H0, &H99, &HCC, &HCC, &H0, &H66, &HCC, &HCC, &H0, &H33, &HCC, &HCC, &H0, &H0, &HCC, &HCC, &H0, _
                &HFF, &H99, &HCC, &H0, &HCC, &H99, &HCC, &H0, &H99, &H99, &HCC, &H0, &H66, &H99, &HCC, &H0, &H33, &H99, &HCC, &H0, &H0, &H99, &HCC, &H0, &HFF, &H66, &HCC, &H0, &HCC, &H66, &HCC, &H0, &H99, &H66, &HCC, &H0, &H66, &H66, &HCC, &H0, &H33, &H66, &HCC, &H0, &H0, &H66, &HCC, &H0, &HFF, &H33, &HCC, &H0, &HCC, &H33, &HCC, &H0, &H99, &H33, &HCC, &H0, &H66, &H33, &HCC, &H0, _
                &H33, &H33, &HCC, &H0, &H0, &H33, &HCC, &H0, &HFF, &H8, &HD4, &H0, &HCC, &H0, &HCC, &H0, &H99, &H0, &HCC, &H0, &H66, &H0, &HCC, &H0, &H33, &H0, &HCC, &H0, &H0, &H0, &HCC, &H0, &HFF, &HFF, &H99, &H0, &HCC, &HFF, &H99, &H0, &H99, &HFF, &H99, &H0, &H66, &HFF, &H99, &H0, &H33, &HFF, &H99, &H0, &H0, &HFF, &H99, &H0, &HFF, &HCC, &H99, &H0, &HCC, &HCC, &H99, &H0, _
                &H99, &HCC, &H99, &H0, &H66, &HCC, &H99, &H0, &H33, &HCC, &H99, &H0, &H0, &HCC, &H99, &H0, &HFF, &H99, &H99, &H0, &HCC, &H99, &H99, &H0, &H99, &H99, &H99, &H0, &H66, &H99, &H99, &H0, &H33, &H99, &H99, &H0, &H0, &H99, &H99, &H0, &HFF, &H66, &H99, &H0, &HCC, &H66, &H99, &H0, &H99, &H66, &H99, &H0, &H66, &H66, &H99, &H0, &H33, &H66, &H99, &H0, &H0, &H66, &HA1, &H0, _
                &HFF, &H33, &H99, &H0, &HCC, &H33, &H99, &H0, &H99, &H33, &H99, &H0, &H66, &H33, &H99, &H0, &H33, &H33, &H99, &H0, &H0, &H33, &H99, &H0, &HFF, &H0, &H99, &H0, &HCC, &H0, &H99, &H0, &H99, &H0, &H99, &H0, &H66, &H0, &H99, &H0, &H33, &H0, &H99, &H0, &H0, &H0, &H99, &H0, &HFF, &HFF, &H66, &H0, &HCC, &HFF, &H66, &H0, &H99, &HFF, &H66, &H0, &H66, &HFF, &H66, &H0, _
                &H33, &HFF, &H66, &H0, &H0, &HFF, &H66, &H0, &HFF, &HCC, &H66, &H0, &HCC, &HCC, &H66, &H0, &H99, &HCC, &H66, &H0, &H66, &HCC, &H66, &H0, &H33, &HCC, &H66, &H0, &H0, &HCC, &H66, &H0, &HFF, &H99, &H66, &H0, &HCC, &H99, &H66, &H0, &H99, &H99, &H66, &H0, &H66, &H99, &H66, &H0, &H33, &H99, &H66, &H0, &H0, &H99, &H66, &H0, &HFF, &H66, &H66, &H0, &HCC, &H66, &H66, &H0, _
                &H99, &H66, &H66, &H0, &H66, &H66, &H66, &H0, &H33, &H66, &H66, &H0, &H0, &H66, &H66, &H0, &HFF, &H33, &H66, &H0, &HCC, &H33, &H66, &H0, &H99, &H33, &H66, &H0, &H66, &H33, &H66, &H0, &H33, &H33, &H66, &H0, &H0, &H33, &H66, &H0, &HFF, &H0, &H66, &H0, &HCC, &H0, &H66, &H0, &H99, &H0, &H66, &H0, &H66, &H0, &H66, &H0, &H33, &H0, &H66, &H0, &H0, &H0, &H66, &H0, _
                &HFF, &HFF, &H33, &H0, &HCC, &HFF, &H33, &H0, &H99, &HFF, &H33, &H0, &H66, &HFF, &H33, &H0, &H33, &HFF, &H33, &H0, &H0, &HFF, &H33, &H0, &HFF, &HCC, &H33, &H0, &HCC, &HCC, &H33, &H0, &H99, &HCC, &H33, &H0, &H66, &HCC, &H33, &H0, &H33, &HCC, &H33, &H0, &H0, &HCC, &H33, &H0, &HFF, &H99, &H33, &H0, &HCC, &H99, &H33, &H0, &H99, &H99, &H33, &H0, &H66, &H99, &H33, &H0, _
                &H33, &H99, &H33, &H0, &H0, &H99, &H33, &H0, &HFF, &H66, &H33, &H0, &HCC, &H66, &H33, &H0, &H99, &H66, &H33, &H0, &H66, &H66, &H33, &H0, &H33, &H6E, &H33, &H0, &H0, &H66, &H33, &H0, &HFF, &H33, &H33, &H0, &HCC, &H33, &H33, &H0, &H99, &H33, &H33, &H0, &H66, &H33, &H33, &H0, &H3B, &H33, &H33, &H0, &H0, &H33, &H33, &H0, &HFF, &H0, &H33, &H0, &HCC, &H0, &H33, &H0, _
                &H99, &H0, &H33, &H0, &H66, &H0, &H33, &H0, &H33, &H0, &H33, &H0, &H0, &H0, &H33, &H0, &HCC, &HFF, &H0, &H0, &H99, &HFF, &H0, &H0, &H66, &HFF, &H0, &H0, &H33, &HFF, &H0, &H0, &HFF, &HCC, &H0, &H0, &HCC, &HCC, &H0, &H0, &H99, &HCC, &H0, &H0, &H66, &HCC, &H0, &H0, &H33, &HCC, &H0, &H0, &H0, &HCC, &H0, &H0, &HFF, &H99, &H0, &H0, &HCC, &H99, &H0, &H0, _
                &H99, &H99, &H0, &H0, &H66, &H99, &H0, &H0, &H33, &H99, &H0, &H0, &H0, &H99, &H0, &H0, &HFF, &H66, &H0, &H0, &HCC, &H66, &H0, &H0, &H99, &H66, &H0, &H0, &H66, &H66, &H0, &H0, &H33, &H66, &H0, &H0, &H0, &H66, &H0, &H0, &HFF, &H33, &H0, &H0, &HCC, &H33, &H0, &H0, &HA1, &H33, &H0, &H0, &H66, &H33, &H0, &H0, &H33, &H33, &H0, &H0, &H0, &H33, &H0, &H0, _
                &HCC, &H0, &H0, &H0, &H99, &H0, &H0, &H0, &H66, &H0, &H0, &H0, &H33, &H0, &H0, &H0, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H90, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, _
                &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &H0, &H30, &H22, &H22, &H0, _
                &H99, &H99, &HFF, &H0, &HFF, &HCC, &HFF, &H0, &HFF, &HD4, &H99, &H0, &H99, &HD4, &H99, &H0, &H99, &HFF, &HFF, &H0, &HF0, &HF0, &HF0, &H0, &HF0, &HC8, &HA4, &H0, &HC0, &HDC, &HC0, &H0, &HC0, &HC0, &HC0, &H0, &HBF, &HBF, &H0, &H0, &HBF, &H0, &HBF, &H0, &HBF, &H0, &H0, &H0, &H0, &HBF, &HBF, &H0, &H0, &HBF, &H0, &H0, &H0, &H0, &HBF, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_systemWin()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HFF, &HFF, &H0, &H0, &HFF, &H0, &HFF, &H0, &HFF, &H0, &H0, &H0, &H0, &HFF, &HFF, &H0, &H0, &HFF, &H0, &H0, &H0, &H0, &HFF, &H0, &H80, &H80, &H80, &H0, &HA4, &HA0, &HA0, &H0, &HF0, &HFB, &HFF, &H0, &H33, &H33, &H33, &H0, &H0, &H66, &H99, &H0, &H33, &H66, &H33, &H0, &H99, &H33, &H0, &H0, &HFF, &H0, &HCC, &H0, &H0, &H0, &H88, &H0, _
                &H66, &HCC, &HFF, &H0, &HCC, &H99, &HFF, &H0, &HDD, &HDD, &HDD, &H0, &H0, &H99, &HFF, &H0, &HFF, &H66, &HFF, &H0, &HCC, &H66, &HFF, &H0, &H99, &H66, &HFF, &H0, &H66, &H66, &HFF, &H0, &H33, &H66, &HFF, &H0, &H0, &H66, &HFF, &H0, &HFF, &H33, &HFF, &H0, &HCC, &H33, &HFF, &H0, &H99, &H33, &HFF, &H0, &H66, &H33, &HFF, &H0, &H33, &H33, &HFF, &H0, &H0, &H33, &HFF, &H0, _
                &HCC, &H0, &HFF, &H0, &H99, &H0, &HFF, &H0, &H66, &H0, &HFF, &H0, &H33, &H0, &HFF, &H0, &HFF, &HFF, &HCC, &H0, &HCC, &HFF, &HCC, &H0, &H99, &HFF, &HCC, &H0, &H66, &HFF, &HCC, &H0, &H33, &HFF, &HCC, &H0, &H0, &HFF, &HCC, &H0, &HFF, &HCC, &HCC, &H0, &HCC, &HCC, &HCC, &H0, &H99, &HCC, &HCC, &H0, &H66, &HCC, &HCC, &H0, &H33, &HCC, &HCC, &H0, &H0, &HCC, &HCC, &H0, _
                &HFF, &H99, &HCC, &H0, &HCC, &H99, &HCC, &H0, &H99, &H99, &HCC, &H0, &H66, &H99, &HCC, &H0, &H33, &H99, &HCC, &H0, &H0, &H99, &HCC, &H0, &HFF, &H66, &HCC, &H0, &HCC, &H66, &HCC, &H0, &H99, &H66, &HCC, &H0, &H66, &H66, &HCC, &H0, &H33, &H66, &HCC, &H0, &H0, &H66, &HCC, &H0, &HFF, &H33, &HCC, &H0, &HCC, &H33, &HCC, &H0, &H99, &H33, &HCC, &H0, &H66, &H33, &HCC, &H0, _
                &H33, &H33, &HCC, &H0, &H0, &H33, &HCC, &H0, &HFF, &H8, &HD4, &H0, &HCC, &H0, &HCC, &H0, &H99, &H0, &HCC, &H0, &H66, &H0, &HCC, &H0, &H33, &H0, &HCC, &H0, &H0, &H0, &HCC, &H0, &HFF, &HFF, &H99, &H0, &HCC, &HFF, &H99, &H0, &H99, &HFF, &H99, &H0, &H66, &HFF, &H99, &H0, &H33, &HFF, &H99, &H0, &H0, &HFF, &H99, &H0, &HFF, &HCC, &H99, &H0, &HCC, &HCC, &H99, &H0, _
                &H99, &HCC, &H99, &H0, &H66, &HCC, &H99, &H0, &H33, &HCC, &H99, &H0, &H0, &HCC, &H99, &H0, &HFF, &H99, &H99, &H0, &HCC, &H99, &H99, &H0, &H99, &H99, &H99, &H0, &H66, &H99, &H99, &H0, &H33, &H99, &H99, &H0, &H0, &H99, &H99, &H0, &HFF, &H66, &H99, &H0, &HCC, &H66, &H99, &H0, &H99, &H66, &H99, &H0, &H66, &H66, &H99, &H0, &H33, &H66, &H99, &H0, &H0, &H66, &HA1, &H0, _
                &HFF, &H33, &H99, &H0, &HCC, &H33, &H99, &H0, &H99, &H33, &H99, &H0, &H66, &H33, &H99, &H0, &H33, &H33, &H99, &H0, &H0, &H33, &H99, &H0, &HFF, &H0, &H99, &H0, &HCC, &H0, &H99, &H0, &H99, &H0, &H99, &H0, &H66, &H0, &H99, &H0, &H33, &H0, &H99, &H0, &H0, &H0, &H99, &H0, &HFF, &HFF, &H66, &H0, &HCC, &HFF, &H66, &H0, &H99, &HFF, &H66, &H0, &H66, &HFF, &H66, &H0, _
                &H33, &HFF, &H66, &H0, &H0, &HFF, &H66, &H0, &HFF, &HCC, &H66, &H0, &HCC, &HCC, &H66, &H0, &H99, &HCC, &H66, &H0, &H66, &HCC, &H66, &H0, &H33, &HCC, &H66, &H0, &H0, &HCC, &H66, &H0, &HFF, &H99, &H66, &H0, &HCC, &H99, &H66, &H0, &H99, &H99, &H66, &H0, &H66, &H99, &H66, &H0, &H33, &H99, &H66, &H0, &H0, &H99, &H66, &H0, &HFF, &H66, &H66, &H0, &HCC, &H66, &H66, &H0, _
                &H99, &H66, &H66, &H0, &H66, &H66, &H66, &H0, &H33, &H66, &H66, &H0, &H0, &H66, &H66, &H0, &HFF, &H33, &H66, &H0, &HCC, &H33, &H66, &H0, &H99, &H33, &H66, &H0, &H66, &H33, &H66, &H0, &H33, &H33, &H66, &H0, &H0, &H33, &H66, &H0, &HFF, &H0, &H66, &H0, &HCC, &H0, &H66, &H0, &H99, &H0, &H66, &H0, &H66, &H0, &H66, &H0, &H33, &H0, &H66, &H0, &H0, &H0, &H66, &H0, _
                &HFF, &HFF, &H33, &H0, &HCC, &HFF, &H33, &H0, &H99, &HFF, &H33, &H0, &H66, &HFF, &H33, &H0, &H33, &HFF, &H33, &H0, &H0, &HFF, &H33, &H0, &HFF, &HCC, &H33, &H0, &HCC, &HCC, &H33, &H0, &H99, &HCC, &H33, &H0, &H66, &HCC, &H33, &H0, &H33, &HCC, &H33, &H0, &H0, &HCC, &H33, &H0, &HFF, &H99, &H33, &H0, &HCC, &H99, &H33, &H0, &H99, &H99, &H33, &H0, &H66, &H99, &H33, &H0, _
                &H33, &H99, &H33, &H0, &H0, &H99, &H33, &H0, &HFF, &H66, &H33, &H0, &HCC, &H66, &H33, &H0, &H99, &H66, &H33, &H0, &H66, &H66, &H33, &H0, &H33, &H6E, &H33, &H0, &H0, &H66, &H33, &H0, &HFF, &H33, &H33, &H0, &HCC, &H33, &H33, &H0, &H99, &H33, &H33, &H0, &H66, &H33, &H33, &H0, &H3B, &H33, &H33, &H0, &H0, &H33, &H33, &H0, &HFF, &H0, &H33, &H0, &HCC, &H0, &H33, &H0, _
                &H99, &H0, &H33, &H0, &H66, &H0, &H33, &H0, &H33, &H0, &H33, &H0, &H0, &H0, &H33, &H0, &HCC, &HFF, &H0, &H0, &H99, &HFF, &H0, &H0, &H66, &HFF, &H0, &H0, &H33, &HFF, &H0, &H0, &HFF, &HCC, &H0, &H0, &HCC, &HCC, &H0, &H0, &H99, &HCC, &H0, &H0, &H66, &HCC, &H0, &H0, &H33, &HCC, &H0, &H0, &H0, &HCC, &H0, &H0, &HFF, &H99, &H0, &H0, &HCC, &H99, &H0, &H0, _
                &H99, &H99, &H0, &H0, &H66, &H99, &H0, &H0, &H33, &H99, &H0, &H0, &H0, &H99, &H0, &H0, &HFF, &H66, &H0, &H0, &HCC, &H66, &H0, &H0, &H99, &H66, &H0, &H0, &H66, &H66, &H0, &H0, &H33, &H66, &H0, &H0, &H0, &H66, &H0, &H0, &HFF, &H33, &H0, &H0, &HCC, &H33, &H0, &H0, &HA1, &H33, &H0, &H0, &H66, &H33, &H0, &H0, &H33, &H33, &H0, &H0, &H0, &H33, &H0, &H0, _
                &HCC, &H0, &H0, &H0, &H99, &H0, &H0, &H0, &H66, &H0, &H0, &H0, &H33, &H0, &H0, &H0, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H90, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, _
                &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &H0, &H30, &H22, &H22, &H0, _
                &H99, &H99, &HFF, &H0, &HFF, &HCC, &HFF, &H0, &HFF, &HD4, &H99, &H0, &H99, &HD4, &H99, &H0, &H99, &HFF, &HFF, &H0, &HF0, &HF0, &HF0, &H0, &HF0, &HC8, &HA4, &H0, &HC0, &HDC, &HC0, &H0, &HC0, &HC0, &HC0, &H0, &H80, &H80, &H0, &H0, &H80, &H0, &H80, &H0, &H80, &H0, &H0, &H0, &H0, &H80, &H80, &H0, &H0, &H80, &H0, &H0, &H0, &H0, &H80, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub

Public Sub SystemPalette_systemMac()
    Dim wclut() As Variant
    wclut = Array(&HFF, &HFF, &HFF, &H0, &HCC, &HFF, &HFF, &H0, &H99, &HFF, &HFF, &H0, &H66, &HFF, &HFF, &H0, &H33, &HFF, &HFF, &H0, &H0, &HFF, &HFF, &H0, &HFF, &HCC, &HFF, &H0, &HCC, &HCC, &HFF, &H0, &H99, &HCC, &HFF, &H0, &H66, &HCC, &HFF, &H0, &H33, &HCC, &HFF, &H0, &H0, &HCC, &HFF, &H0, &HFF, &H99, &HFF, &H0, &HCC, &H99, &HFF, &H0, &H99, &H99, &HFF, &H0, &H66, &H99, &HFF, &H0, _
                &H33, &H99, &HFF, &H0, &H0, &H99, &HFF, &H0, &HFF, &H66, &HFF, &H0, &HCC, &H66, &HFF, &H0, &H99, &H66, &HFF, &H0, &H66, &H66, &HFF, &H0, &H33, &H66, &HFF, &H0, &H0, &H66, &HFF, &H0, &HFF, &H33, &HFF, &H0, &HCC, &H33, &HFF, &H0, &H99, &H33, &HFF, &H0, &H66, &H33, &HFF, &H0, &H33, &H33, &HFF, &H0, &H0, &H33, &HFF, &H0, &HFF, &H0, &HFF, &H0, &HCC, &H0, &HFF, &H0, _
                &H99, &H0, &HFF, &H0, &H66, &H0, &HFF, &H0, &H33, &H0, &HFF, &H0, &H0, &H0, &HFF, &H0, &HFF, &HFF, &HCC, &H0, &HCC, &HFF, &HCC, &H0, &H99, &HFF, &HCC, &H0, &H66, &HFF, &HCC, &H0, &H33, &HFF, &HCC, &H0, &H0, &HFF, &HCC, &H0, &HFF, &HCC, &HCC, &H0, &HCC, &HCC, &HCC, &H0, &H99, &HCC, &HCC, &H0, &H66, &HCC, &HCC, &H0, &H33, &HCC, &HCC, &H0, &H0, &HCC, &HCC, &H0, _
                &HFF, &H99, &HCC, &H0, &HCC, &H99, &HCC, &H0, &H99, &H99, &HCC, &H0, &H66, &H99, &HCC, &H0, &H33, &H99, &HCC, &H0, &H0, &H99, &HCC, &H0, &HFF, &H66, &HCC, &H0, &HCC, &H66, &HCC, &H0, &H99, &H66, &HCC, &H0, &H66, &H66, &HCC, &H0, &H33, &H66, &HCC, &H0, &H0, &H66, &HCC, &H0, &HFF, &H33, &HCC, &H0, &HCC, &H33, &HCC, &H0, &H99, &H33, &HCC, &H0, &H66, &H33, &HCC, &H0, _
                &H33, &H33, &HCC, &H0, &H0, &H33, &HCC, &H0, &HFF, &H0, &HCC, &H0, &HCC, &H0, &HCC, &H0, &H99, &H0, &HCC, &H0, &H66, &H0, &HCC, &H0, &H33, &H0, &HCC, &H0, &H0, &H0, &HCC, &H0, &HFF, &HFF, &H99, &H0, &HCC, &HFF, &H99, &H0, &H99, &HFF, &H99, &H0, &H66, &HFF, &H99, &H0, &H33, &HFF, &H99, &H0, &H0, &HFF, &H99, &H0, &HFF, &HCC, &H99, &H0, &HCC, &HCC, &H99, &H0, _
                &H99, &HCC, &H99, &H0, &H66, &HCC, &H99, &H0, &H33, &HCC, &H99, &H0, &H0, &HCC, &H99, &H0, &HFF, &H99, &H99, &H0, &HCC, &H99, &H99, &H0, &H99, &H99, &H99, &H0, &H66, &H99, &H99, &H0, &H33, &H99, &H99, &H0, &H0, &H99, &H99, &H0, &HFF, &H66, &H99, &H0, &HCC, &H66, &H99, &H0, &H99, &H66, &H99, &H0, &H66, &H66, &H99, &H0, &H33, &H66, &H99, &H0, &H0, &H66, &H99, &H0, _
                &HFF, &H33, &H99, &H0, &HCC, &H33, &H99, &H0, &H99, &H33, &H99, &H0, &H66, &H33, &H99, &H0, &H33, &H33, &H99, &H0, &H0, &H33, &H99, &H0, &HFF, &H0, &H99, &H0, &HCC, &H0, &H99, &H0, &H99, &H0, &H99, &H0, &H66, &H0, &H99, &H0, &H33, &H0, &H99, &H0, &H0, &H0, &H99, &H0, &HFF, &HFF, &H66, &H0, &HCC, &HFF, &H66, &H0, &H99, &HFF, &H66, &H0, &H66, &HFF, &H66, &H0, _
                &H33, &HFF, &H66, &H0, &H0, &HFF, &H66, &H0, &HFF, &HCC, &H66, &H0, &HCC, &HCC, &H66, &H0, &H99, &HCC, &H66, &H0, &H66, &HCC, &H66, &H0, &H33, &HCC, &H66, &H0, &H0, &HCC, &H66, &H0, &HFF, &H99, &H66, &H0, &HCC, &H99, &H66, &H0, &H99, &H99, &H66, &H0, &H66, &H99, &H66, &H0, &H33, &H99, &H66, &H0, &H0, &H99, &H66, &H0, &HFF, &H66, &H66, &H0, &HCC, &H66, &H66, &H0, _
                &H99, &H66, &H66, &H0, &H66, &H66, &H66, &H0, &H33, &H66, &H66, &H0, &H0, &H66, &H66, &H0, &HFF, &H33, &H66, &H0, &HCC, &H33, &H66, &H0, &H99, &H33, &H66, &H0, &H66, &H33, &H66, &H0, &H33, &H33, &H66, &H0, &H0, &H33, &H66, &H0, &HFF, &H0, &H66, &H0, &HCC, &H0, &H66, &H0, &H99, &H0, &H66, &H0, &H66, &H0, &H66, &H0, &H33, &H0, &H66, &H0, &H0, &H0, &H66, &H0, _
                &HFF, &HFF, &H33, &H0, &HCC, &HFF, &H33, &H0, &H99, &HFF, &H33, &H0, &H66, &HFF, &H33, &H0, &H33, &HFF, &H33, &H0, &H0, &HFF, &H33, &H0, &HFF, &HCC, &H33, &H0, &HCC, &HCC, &H33, &H0, &H99, &HCC, &H33, &H0, &H66, &HCC, &H33, &H0, &H33, &HCC, &H33, &H0, &H0, &HCC, &H33, &H0, &HFF, &H99, &H33, &H0, &HCC, &H99, &H33, &H0, &H99, &H99, &H33, &H0, &H66, &H99, &H33, &H0, _
                &H33, &H99, &H33, &H0, &H0, &H99, &H33, &H0, &HFF, &H66, &H33, &H0, &HCC, &H66, &H33, &H0, &H99, &H66, &H33, &H0, &H66, &H66, &H33, &H0, &H33, &H66, &H33, &H0, &H0, &H66, &H33, &H0, &HFF, &H33, &H33, &H0, &HCC, &H33, &H33, &H0, &H99, &H33, &H33, &H0, &H66, &H33, &H33, &H0, &H33, &H33, &H33, &H0, &H0, &H33, &H33, &H0, &HFF, &H0, &H33, &H0, &HCC, &H0, &H33, &H0, _
                &H99, &H0, &H33, &H0, &H66, &H0, &H33, &H0, &H33, &H0, &H33, &H0, &H0, &H0, &H33, &H0, &HFF, &HFF, &H0, &H0, &HCC, &HFF, &H0, &H0, &H99, &HFF, &H0, &H0, &H66, &HFF, &H0, &H0, &H33, &HFF, &H0, &H0, &H0, &HFF, &H0, &H0, &HFF, &HCC, &H0, &H0, &HCC, &HCC, &H0, &H0, &H99, &HCC, &H0, &H0, &H66, &HCC, &H0, &H0, &H33, &HCC, &H0, &H0, &H0, &HCC, &H0, &H0, _
                &HFF, &H99, &H0, &H0, &HCC, &H99, &H0, &H0, &H99, &H99, &H0, &H0, &H66, &H99, &H0, &H0, &H33, &H99, &H0, &H0, &H0, &H99, &H0, &H0, &HFF, &H66, &H0, &H0, &HCC, &H66, &H0, &H0, &H99, &H66, &H0, &H0, &H66, &H66, &H0, &H0, &H33, &H66, &H0, &H0, &H0, &H66, &H0, &H0, &HFF, &H33, &H0, &H0, &HCC, &H33, &H0, &H0, &H99, &H33, &H0, &H0, &H66, &H33, &H0, &H0, _
                &H33, &H33, &H0, &H0, &H0, &H33, &H0, &H0, &HFF, &H0, &H0, &H0, &HCC, &H0, &H0, &H0, &H99, &H0, &H0, &H0, &H66, &H0, &H0, &H0, &H33, &H0, &H0, &H0, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HBB, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, _
                &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HBB, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H88, &H0, &H0, &H0, &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &HEE, &H0, &H0, &H0, &HDD, &H0, &H0, &H0, &HBB, &H0, &H0, &H0, &HAA, &H0, &H0, &H0, &H88, &H0, &H0, &H0, _
                &H77, &H0, &H0, &H0, &H55, &H0, &H0, &H0, &H44, &H0, &H0, &H0, &H22, &H0, &H0, &H0, &H11, &H0, &H0, &H0, &HEE, &HEE, &HEE, &H0, &HDD, &HDD, &HDD, &H0, &HBB, &HBB, &HBB, &H0, &HAA, &HAA, &HAA, &H0, &H88, &H88, &H88, &H0, &H77, &H77, &H77, &H0, &H55, &H55, &H55, &H0, &H44, &H44, &H44, &H0, &H22, &H22, &H22, &H0, &H11, &H11, &H11, &H0, &H0, &H0, &H0, &H0)
    For k = 0 To 1023
        clut(k) = wclut(k)
    Next k
End Sub