Quote: "According to the help file, the screen should now be green, yet the screen is black."
CLS by itself has never used the current INK background color to clear the screen despite what the help files say.
Quote: "In this case, CLS did colour the screen green. However, although the background INK is the same colour as used to clear the screen, the text background displays as a slightly (but noticeably) lighter shade of green than the background colour."
I never really noticed it but if you really don't like that don't use SET TEXT OPAQUE so it ignores the background color. The only time I use SET TEXT OPAQUE is when I want a quick and dirty way to erase text in code examples for newbies. Most of us clear the screen by pasting an image... it's prettier.
` Make random number picking more random
randomize timer()
` Make a colored box the size of the screen
box 0,0,screen width(),screen height(),rgb(0,0,255),rgb(0,0,255),rgb(0,255,0),rgb(0,255,0)
` Grab the box as an image
get image 1,0,0,screen width(),screen height(),1
` Set the text style
set text font "Times New Roman"
set text size 55
set text to bold
` Set a starting direction
Direction=1
do
` Show the background
paste image 1,0,0
` Pick a random text color
ink rgb(rnd(255),rnd(255),rnd(255)),0
` Show the text
center text screen width()/2,y,"This is test #"+str$(Count)
` Increase the counter
inc Count
` Check current direction
if Direction=1
` Going down
inc y
if y>screen height()-text height("A") then Direction=0
else
` Going up
dec y
if y<0 then Direction=1
endif
loop
