Diagnostic Programs
BASIC Code Listings
Test Display Attributes

8200 REM ==== ====
8202 REM ==== Test Display Attributes ====
8205 DATA "Blue ","Green ","Cyan ","Red "
8206 DATA "Magenta ","Brown ","White ","Gray "
8207 DATA "Lt Blue ","Lt Grn ","Lt Cyan ","Lt Red "
8208 DATA "Lt Mgta ","Yellow ","Br White"
8210 SCREEN 0, 1: COLOR 7, 0: CLS
8220 REM === Foreground Color Test ===
8225 FOR I% = 1 TO 15
8230 COLOR I%, 0: CLS : READ K$
8235 FOR J% = 1 TO 250: PRINT K$; : NEXT J%
8240 COLOR 7, 0: LOCATE 2, 4: PRINT " Foreground Color Test "
8245 FOR J% = 1 TO 32000: NEXT J%
8248 NEXT I%
8250 REM === Background Color Test ===
8252 RESTORE
8255 FOR I% = 1 TO 7
8260 COLOR 0, I%: CLS : READ K$
8265 FOR J% = 1 TO 250: PRINT K$; : NEXT J%
8270 COLOR 7, 0: LOCATE 2, 4: PRINT " Background Color Test "
8275 FOR J% = 1 TO 32000: NEXT J%
8278 NEXT I%
8280 REM === Border Color Test ===
8282 RESTORE
8285 FOR I% = 1 TO 7
8288 COLOR 7, 0, I%: CLS : READ K$
8290 FOR J% = 1 TO 250: PRINT K$; : NEXT J%
8292 COLOR 0, 7: LOCATE 2, 4: PRINT " Border Color Test "
8294 FOR J% = 1 TO 32000: NEXT J%
8296 NEXT I%
8298 COLOR 7, 0, 0: LOCATE 24, 72: PRINT "Press any key ...";
8299 K$ = INKEY$: IF K$ = "" THEN 8299