10 KEY OFF
20 SCREEN 0:CLS
30 FOR F=1 TO 15
40 FOR B=1 TO 15
50 COLOR F,B
60 CLS
70 LOCATE 5,30:PRINT "COLOR DEMONSTRATION PROGRAMME"
80 LOCATE 10,30:PRINT "Current Colours :"
90 LOCATE 11,40:COLOR F-1:PRINT " Foreground - ";F
100 LOCATE 12,40:COLOR B-1:PRINT " Background - ";B
110 LOCATE 20,20:PRINT "PRESS ANY KEY TO CONTINUE"
120 IF INKEY$="" THEN 120
130 NEXT B
140 NEXT F