Forum Navigation
You need to log in to create posts and topics.

FN GETCTABLE(72)

Posted by: vegasswede <vegasswede@...>

Mornin' all, again,

The below FN gives me a usable ID# of the 256 colors ..

How can I make it save that Information to a Simple Text Document ..

OR ..

Send the info to the printer ..

LOCAL FN dumpColors
DIM clutHdl&, myRed%, myGreen%, myBlue%, i%
clutHdl& = FN GETCTABLE(72)
LONG IF clutHdl&
FOR i% = 0 TO 255
myRed% = PEEK(clutHdl& + 8 + (i%*3))
myGreen% = PEEK(clutHdl& + 9 + (i%*3))
myBlue% = PEEK(clutHdl& + 10 + (i%*3))
PRINT i%;": ";myRed%;" ";myGreen%;" ";myBlue%
NEXT i%
END IF
END FN

Jim (^_^) s aplenty

Las Vegas is the Fun Capital Of The World
An Oasis Dedicated To Around The Clock Entertainment
Come Often, Enjoy Its Many Pleasures, Stay A Spell
Bring Lots Of Money, Help Keep Nevada Green

Jim Henson,vegasswede@earthlink.net