Code: Select all
'$lang: "qb"
DEFLNG A-Z
SCREEN 13: CLS
LINE (5, 5)-(160, 100), 1, BF
Sel = 1
Red = 32: Green = 32: Blue = 32
COLOR 3: LOCATE 24, 1: PRINT "+ Increment - Decrement ESC-Quit";
DO
ColorN = 65536 * Blue + 256 * Green + Red
PALETTE 1, ColorN
COLOR 7: LOCATE 18, 10: PRINT USING "PalValue: ####### "; ColorN
LOCATE 5, 26: COLOR 9: PRINT USING "Blue : ##"; Blue
LOCATE 6, 26: COLOR 10: PRINT USING "Green : ##"; Green
LOCATE 7, 26: COLOR 12: PRINT USING "Red : ##"; Red
LOCATE 5, 25: PRINT " "
LOCATE 6, 25: PRINT " "
LOCATE 7, 25: PRINT " "
LOCATE 4 + Sel, 25: COLOR 7: PRINT ">";
DO
x$ = INKEY$
LOOP WHILE x$ = ""
SELECT CASE x$
CASE CHR$(0) + "H":
Sel = Sel - 1
IF Sel < 1 THEN Sel = 3
CASE CHR$(0) + "P"
Sel = Sel + 1
IF Sel > 3 THEN Sel = 1
CASE "+"
SELECT CASE Sel
CASE 1: IF Blue < 63 THEN Blue = Blue + 1
CASE 3: IF Red < 63 THEN Red = Red + 1
CASE 2: IF Green < 63 THEN Green = Green + 1
END SELECT
CASE "-"
SELECT CASE Sel
CASE 1: IF Blue > 0 THEN Blue = Blue - 1
CASE 3: IF Red > 0 THEN Red = Red - 1
CASE 2: IF Green > 0 THEN Green = Green - 1
END SELECT
END SELECT
LOOP WHILE x$ <> CHR$(27)
END
(Forgot to mention I am using FreeDOS 1.0 under DOSEmu 1.4.0, under Slackware 12.1. Maybe that's the problem)