' FOR-4.BAS
' This program uses a FOR loop and the COLOR statement
'   to change both the foreground and background colors.

CLS

FOR i% = 1 TO 15        ' use colors 1 through 15
    COLOR i%, i% - 1
    PRINT "Current foreground color is"; i%;
    PRINT "; current background color is"; i% - 1
NEXT i%

