palette.bas

1 REM DISPLAY PALETTE
10 VLOAD "PAL.BIN",1,$F,$1000
100 VPOKE $F,$3000,$21
200 PRINT CHR$(147) : PRINT CHR$(150)
300 PRINT "" : PRINT ""
400 PRINT "         0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
500 PRINT ""
600 PRINT "      00"
650 PRINT "" : PRINT ""
700 PRINT "      10"
750 PRINT "" : PRINT ""
800 PRINT "      20"
850 PRINT "" : PRINT ""
900 PRINT "      30"
950 PRINT "" : PRINT ""
1000 PRINT "      40"
1050 PRINT "" : PRINT ""
1100 PRINT "      50"
1150 PRINT "" : PRINT ""
1200 PRINT "      60"
1250 PRINT "" : PRINT ""
1300 PRINT "      70"
1350 PRINT "" : PRINT ""
1400 PRINT "      80"
1450 PRINT "" : PRINT ""
1500 PRINT "      90"
1550 PRINT "" : PRINT ""
1600 PRINT "      A0"
1650 PRINT "" : PRINT ""
1700 PRINT "      B0"
1750 PRINT "" : PRINT ""
1800 PRINT "      C0"
1850 PRINT "" : PRINT ""
1900 PRINT "      D0"
1950 PRINT "" : PRINT ""
2000 PRINT "      E0"
2050 PRINT "" : PRINT ""
2100 PRINT "      F0"
2200 PRINT ""
2300 FOR I=0 TO 255
2400 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$510,$E0
2450 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$511,I
2500 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$512,$E0
2550 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$513,I
2600 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$514,$E0
2650 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$515,I
2700 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$610,$E0
2750 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$611,I
2800 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$612,$E0
2850 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$613,I
2900 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$614,$E0
2950 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$615,I
3000 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$710,$E0
3050 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$711,I
3100 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$712,$E0
3150 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$713,I
3200 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$714,$E0
3250 VPOKE 0,(I AND $0F)*6+(I AND $F0)*$30+$715,I
3300 NEXT I