100 REM Colour test program 110 // 120 DIM c$(15) 130 FOR i = 0 TO 15 CYCLE 140 READ c$(i) 150 REPEAT 160 // 170 CLS 180 VTAB = 4 190 PRINT "Colour test program" 200 PRINT "===================" 210 VTAB = 10 220 FOR bg = 0 TO 15 CYCLE 230 FOR i = 0 TO 1 CYCLE 240 BCOLOUR = 0 250 TCOLOUR = bg 260 PRINT c$(bg); 270 FOR fg = 0 TO 7 CYCLE 280 PROC testcolour(fg + i * 8, bg) 290 REPEAT 300 PRINT 310 REPEAT 320 REPEAT 330 TCOLOUR = 15 340 BCOLOUR = 0 345 END 350 // 360 // Procedure to print some text in the colours supplied 370 // 380 DEF PROC testcolour(f, b) 390 TCOLOUR = f 400 BCOLOUR = b 410 PRINT c$(f); 420 ENDPROC 900 // 901 DATA " Black ", " Navy ", " Green ", " Teal " 902 DATA " Maroon ", " Purple ", " Olive ", " Silver " 903 DATA " Grey ", " Blue ", " Lime ", " Aqua " 904 DATA " Red ", " Pink ", " Yellow ", " White "