VERA Palette in BASIC

[JimmyDansbo]

I am not sure if this has already been done. I could not find it here on the forum.

Here is a small BASIC program that displays VERAs full standard palette in 256 color text mode.

Try It Now!

It will look something like this.

palette.png (146.96 KiB) Viewed 1920 times

PALETTE.BAS

(5.37 KiB) Downloaded 322 times

[mortarm]

To say it looks "something like this" implies that it could look different. In what way?

[ahenry3068]

I am not sure if this has already been done. I could not find it here on the forum.

Here is a small BASIC program that displays VERAs full standard palette in 256 color text mode.

I like the X & Y axis layout.. Mine were a little more "In your face"

Or maybe one of these...

MY "LABELED" VERA PALETTE
viewtopic.php?t=6597

AND A FULL PALETTE EDITOR
viewtopic.php?t=6957

[JimmyDansbo]

To say it looks "something like this" implies that it could look different. In what way?

I just meant that the window dressing of your particular emulator might look different.

[TomXP411]

How funny. I just wrote something similar.

Code: Select all

10 REM DISPLAYS THE DEFAULT PALETTE
15 REM MOVE THE MOUSE TO SEE THE COLOR VALUE
20 DIM P$(15,15)
30 XS=10:YS=10
40 SCREEN 128
50 RECT 0,0,319,239,0
60 C=0
70 FOR Y=0 TO 15
80 Y1=Y*YS:Y2=Y1+YS-1
90 Y3=Y1+8
100 FOR X=0 TO 15
110 X1=X*XS:X2=X1+XS-1
120 X3=X1
130 RECT  X1,Y1,X2,Y2,C
140 CX=$FA00+C*2
150 C$=HEX$(VPEEK($1,CX))+HEX$(VPEEK($1,CX+1))
170 P$(X,Y) = C$
180 C=C+1
190 NEXT
200 NEXT
210 MOUSE 1
220 X=INT(MX/XS)
230 Y=INT(MY/YS)
240 IF X<0 OR X>15 THEN 220
250 IF Y<0 OR Y>15 THEN 220
260 LOCATE 21,9
270 PRINT P$(X,Y)
280 GOTO 220