MODE 2
Dim co(16,3)
For f=1 To 15:Read co(f,0),co(f,1),co(f,2)
Text 0,f*12,"Color MAP("+Str$(f)+")"',,,,Map(f)
'TEXT 0,0,"Hello world",,,,MAP(1)
Next
Do
' Color-map-rotation
For f=0 To 15
  Map(F)=RGB(co(f,0),co(f,1),co(f,2))
Next
Map set
Pause 100
R1=co(1,0):G1=co(1,1):B1=co(1,2)
For n=2 To 15:co(n-1,0)=co(n,0):co(n-1,1)=co(n,1):co
(n-1,2)=co(n,2):Next
co(15,0)=R1:co(15,1)=G1:co(15,2)=B1
Loop

Data 0,0,128
Data 0,128,0
Data 0,128,128
Data 128,0,0
Data 128,0,128
Data 128,128,0
Data 128,128,128
Data 0,0,0
Data 0,0,255
Data 0,255,0
Data 0,255,255
Data 255,0,0
Data 255,0,255
Data 255,255,0
Data 255,255,255
Data 255,0,0

'map switching demo
Dim integer cmap(13)

'Clear the screen
MODE 2
Map reset
CLS rgb(black)

'Set up colours in the array
cmap(1)=RGB(white)
cmap(2)=RGB(black)
cmap(3)=RGB(black)
cmap(4)=RGB(black)
cmap(5)=RGB(black)
cmap(6)=RGB(black)

cmap(7)=RGB(white)
cmap(8)=RGB(black)
cmap(9)=RGB(black)
cmap(10)=RGB(black)
cmap(11)=RGB(black)
cmap(12)=RGB(black)

' Do an initial update of the Colour map to set up our colours
domap

hline=76:hy=1:mch=1
line 0,75,319,75,,RGB(white)

do'draw horizontal lines
 line 0,hline,319,hline,,map(mch)
 inc mch:if mch=7 then mch=1
 hline=hline+hy:hy=hy+0.6
loop until hline>240

xb=-149:xt=10:mch=7
do'draw vertical lines
 line xb,239,xt,75,,map(mch)
 inc mch:if mch=13 then mch=7
 xb=xb+8:xt=xt+4
loop until xb>=479

'
lr=0
do
cmap(0)=cmap(6)
 For i=5 To 0 Step -1' move horizontal lines
   cmap(i+1)=cmap(i)
 Next

 if lr<40 then
 cmap(6)=cmap(12)
 For i=11 To 6 Step -1' move vertical lines
   cmap(i+1)=cmap(i)
 Next
 else
 cmap(12)=cmap(7)
 For i=7 To 12' move vertical lines
   cmap(i)=cmap(i+1)
 Next
 end if
 inc lr:if lr>80 then lr=0

 domap
 pause 100
loop

end

Sub domap
Local integer i
Map (0)=RGB(black)
For i=1 To 12
  Map (i)=cmap(i)
Next
Map set
End Sub