Diagnostic Programs
BASIC Code Listings
Test Display Attributes

8000 REM ======== ========
8005 REM ======== DISPLAY / MONITOR TESTS ========
8100 REM ==== Test Display Attributes ====
8105 DATA "Blue","Green","Cyan","Red","Magenta","Brown","White"
8110 SCREEN 0, 1: COLOR 7, 0: CLS
8120 PRINT "******** Display Attribute Test ********": PRINT
8130 COLOR 15, 0: PRINT "This line should be bright white on black.": PRINT
8131 COLOR 23, 0: PRINT "This line should be blinking.": PRINT
8132 COLOR 0, 7: PRINT "This line should be black on white.": PRINT
8133 FOR I% = 1 TO 7
8134 READ K$: COLOR I%, 0: PRINT "This line should be "; K$; ".": PRINT
8135 NEXT I%
8190 COLOR 7, 0: PRINT "Press any key ...";
8195 K$ = INKEY$: IF K$ = "" THEN 8195