FN GETCTABLE(72)
Quote from Forum Archives on November 21, 1997, 12:47 amPosted 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 FNJim (^_^) 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 GreenJim Henson,vegasswede@earthlink.net
Posted by: vegasswede <vegasswede@...>
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