Page 1 of 1
VERA Palette in BASIC
Posted: Wed Jan 24, 2024 8:48 pm
by 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 1918 times
Re: VERA Palette in BASIC
Posted: Thu Jan 25, 2024 3:15 am
by mortarm
To say it looks "something like this" implies that it could look different. In what way?
Re: VERA Palette in BASIC
Posted: Thu Jan 25, 2024 3:49 am
by ahenry3068
JimmyDansbo wrote: ↑Wed Jan 24, 2024 8:48 pm
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
Re: VERA Palette in BASIC
Posted: Thu Jan 25, 2024 7:13 am
by JimmyDansbo
mortarm wrote: ↑Thu Jan 25, 2024 3:15 am
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.
Re: VERA Palette in BASIC
Posted: Thu Jan 25, 2024 8:20 am
by 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
PALETTE.BAS