MODE 3
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
>

'
'settick 2000, ping
'do
'loop

DO
WATCHDOG HW 8000
DEVICE HUMID GP20, tVar, hVar
PRINT TIME$, n, tVar, hVar ;
PAUSE 2000
n = n + 1
PRINT n
LOOP

SUB ping
'do
WATCHDOG HW 8000
DEVICE HUMID GP20, tVar, hVar
PRINT TIME$, n, tVar, hVar ;
'pause 2000
n = n + 1
PRINT n
'loop
END SUB