Public Sub Create_Real_NES_Pallete_NTSC()
'This is based on the pallete from [url]http://forums.nesdev.com/viewtopic.php?f=21&t=8121[/url]
'In my opinion this is closer to the NES than the other NTSC pallete
Dim Current_Color As Long
'Row 1
Pallete(0) = NES_RGB(104, 104, 104)
Pallete(1) = NES_RGB(0, 42, 136)
Pallete(2) = NES_RGB(20, 18, 167)
Pallete(3) = NES_RGB(59, 0, 164)
Pallete(4) = NES_RGB(92, 0, 126)
Pallete(5) = NES_RGB(110, 0, 64)
Pallete(6) = NES_RGB(108, 6, 0)
Pallete(7) = NES_RGB(86, 29, 0) 'One of the coin block animations in Super Mario Bros
Pallete(8) = NES_RGB(51, 53, 0)
Pallete(9) = NES_RGB(11, 72, 0)
Pallete(10) = NES_RGB(0, 82, 0)
Pallete(11) = NES_RGB(0, 79, 8)
Pallete(12) = NES_RGB(0, 64, 77)
Pallete(13) = NES_RGB(0, 0, 0)
Pallete(14) = NES_RGB(0, 0, 0)
Pallete(15) = NES_RGB(0, 0, 0)
'Row 2
Pallete(16) = NES_RGB(173, 173, 173)
Pallete(17) = NES_RGB(21, 95, 217)
Pallete(18) = NES_RGB(66, 64, 255)
Pallete(19) = NES_RGB(117, 39, 254)
Pallete(20) = NES_RGB(160, 26, 204)
Pallete(21) = NES_RGB(183, 30, 123)
Pallete(22) = NES_RGB(151, 19, 2) 'NES_RGB(181, 49, 32) 'Dark Red: Marios suspenders in Super Mario Bros
Pallete(23) = NES_RGB(113, 68, 0) 'NES_RGB(153, 78, 0) 'Brown: Ground Bricks and regular bricks of outdoor worlds in Super Mario Bros
Pallete(24) = NES_RGB(107, 109, 0)
Pallete(25) = NES_RGB(56, 135, 0)
Pallete(26) = NES_RGB(0, 117, 0) 'NES_RGB(12, 147, 0) 'Dark Green: Hills, turtle shells, pipe, top of flag pole in Super Mario Bros
Pallete(27) = NES_RGB(0, 143, 50)
Pallete(28) = NES_RGB(0, 104, 101) 'NES_RGB(0, 124, 141) 'Dark Turquoise: Ground and ceiling bricks in dark worlds such as 1-2 of Super Mario Bros
Pallete(29) = NES_RGB(0, 0, 0)
Pallete(30) = NES_RGB(0, 0, 0)
Pallete(31) = NES_RGB(0, 0, 0)
'Row 3
Pallete(32) = NES_RGB(255, 254, 255)
Pallete(33) = NES_RGB(100, 176, 255)
Pallete(34) = NES_RGB(156, 174, 255) 'NES_RGB(146, 144, 255) 'Sky Blue: Sky of outdoor worlds in Super Mario Bros
Pallete(35) = NES_RGB(198, 118, 255)
Pallete(36) = NES_RGB(243, 106, 255)
Pallete(37) = NES_RGB(254, 110, 204)
Pallete(38) = NES_RGB(254, 129, 112)
Pallete(39) = NES_RGB(234, 158, 34)
Pallete(40) = NES_RGB(188, 190, 0)
Pallete(41) = NES_RGB(180, 196, 0) 'NES_RGB(136, 216, 0) 'Green: Pipes in Super Mario Bros
Pallete(42) = NES_RGB(92, 228, 48)
Pallete(43) = NES_RGB(69, 224, 130)
Pallete(44) = NES_RGB(72, 205, 222)
Pallete(45) = NES_RGB(79, 79, 79)
Pallete(46) = NES_RGB(0, 0, 0)
Pallete(47) = NES_RGB(0, 0, 0)
'Row 4
Pallete(48) = NES_RGB(255, 254, 255)
Pallete(49) = NES_RGB(192, 223, 255)
Pallete(50) = NES_RGB(211, 210, 255)
Pallete(51) = NES_RGB(232, 200, 255)
Pallete(52) = NES_RGB(251, 194, 255)
Pallete(53) = NES_RGB(254, 196, 234)
Pallete(54) = NES_RGB(254, 204, 197)
Pallete(55) = NES_RGB(247, 216, 165)
Pallete(56) = NES_RGB(228, 229, 148)
Pallete(57) = NES_RGB(207, 239, 150)
Pallete(58) = NES_RGB(189, 244, 171)
Pallete(59) = NES_RGB(179, 243, 204)
Pallete(60) = NES_RGB(181, 235, 242)
Pallete(61) = NES_RGB(184, 184, 184)
Pallete(62) = NES_RGB(0, 0, 0)
Pallete(63) = NES_RGB(0, 0, 0)
For Current_Color = 0 To 63
Pallete(Current_Color + 64) = Pallete(Current_Color)
Pallete(Current_Color + 128) = Pallete(Current_Color)
Pallete(Current_Color + 192) = Pallete(Current_Color)
Next Current_Color
End Sub