'Title: ColorHelper
'Author: TheOuterLinux with help from Reddit
'Purpose: To get RGB color values from color numbers
'QB Version: QB45, QBX, and QB64

SCREEN 13
INPUT "Start color number?: ", START
INPUT "End color number?: ", FINISH
FOR attribute = START TO FINISH
    CLS
    OUT &H3C7, attribute
    red% = INP(&H3C9) * 4.0475 + .0282
    red% = INT(red%)
    IF red% = 126 THEN red% = 125
    IF red% = 198 THEN red% = 199
    IF red% = 57 THEN red% = 56
    IF red% = 49 THEN red% = 48
    IF red% = 41 THEN red% = 40
    IF red% = 45 THEN red% = 44
    IF red% = 53 THEN red% = 52
    IF red% = 61 THEN red% = 60
    green% = INP(&H3C9) * 4.0475 + .0282
    green% = INT(green%)
    IF green% = 126 THEN green% = 125
    IF green% = 198 THEN green% = 199
    IF green% = 57 THEN green% = 56
    IF green% = 49 THEN green% = 48
    IF green% = 41 THEN green% = 40
    IF green% = 45 THEN green% = 44
    IF green% = 53 THEN green% = 52
    IF green% = 61 THEN green% = 60
    blue% = INP(&H3C9) * 4.0475 + .0282
    blue% = INT(blue%)
    IF blue% = 126 THEN blue% = 125
    IF blue% = 198 THEN blue% = 199
    IF blue% = 57 THEN blue% = 56
    IF blue% = 49 THEN blue% = 48
    IF blue% = 41 THEN blue% = 40
    IF blue% = 45 THEN blue% = 44
    IF blue% = 53 THEN blue% = 52
    IF blue% = 61 THEN blue% = 60
    CIRCLE (0, 0), 1, attribute
    PAINT (0, 0), attribute, 1
    PRINT ""
    IF attribute = 0 OR attribute = 16 OR attribute > 247 THEN
        COLOR 15
    ELSE
        COLOR attribute
    END IF
    PRINT "Color " + " = ", attribute
    PRINT ""
    PRINT "RED: ", red%
    PRINT "GREEN: ", INT(green%)
    PRINT "BLUE: ", INT(blue%)
    PRINT ""
    PRINT "Press any key to continue."
    PRINT "Use LEFT or DOWN to go back."
    PRINT "Use q or ESC to quit."
    DO
        LET k$ = INKEY$
    LOOP UNTIL k$ <> ""
    SELECT CASE k$
        CASE CHR$(27) 'ESC key
            END
        CASE "q"
            END
        CASE CHR$(0) + CHR$(75) 'LEFT key
            attribute = attribute - 2
            IF attribute < 0 THEN : attribute = 0
            IF attribute = 0 THEN : attribute = 0
        CASE CHR$(0) + CHR$(80) 'RIGHT key
            attribute = attribute - 2
            IF attribute < 0 THEN : attribute = 0
            IF attribute = 0 THEN : attribute = 0
    END SELECT
NEXT