Program COLOR256C.TRU

Students!! Here is the TB program listing for the Subject program:

! Filename: color256c.tru, tjm, 07-20-03
!
SET MODE "color256"
CLEAR
SET WINDOW 1, 17, 1, 17
LET cv = -1
FOR r = 1 to 16
FOR c = 1 to 16
LET cv = cv + 1
SET COLOR cv
BOX AREA c, c+1, r, r+1
SET COLOR 1 ! "white"
PLOT TEXT, AT c, r: STR$(cv)
SET COLOR 0 ! "black"
PLOT TEXT, AT c, r+0.5: STR$(cv)
NEXT c
NEXT r
END

Try it. Regards ... Tom M