SCREEN 13: CLS
T = 2
GOTO 233
    FOR Clr = 0 TO 255                           ' Draw the palette bar
        LINE (Clr, 0)-(Clr, Clr), Clr
    NEXT

    FOR Q = 1 TO 255
    LINE (Q, 0)-(Q, Q), 15
    LINE (260, 0)-(319, Q), Q, BF                ' Draw the current color Box
    LINE (260, 0)-(319, Q), 15, B
    LINE (Q - 1, 0)-(Q - 1, Q), Q - 1
LOCATE 3, 1: PRINT Q
A$ = INPUT$(1)
NEXT Q
'0-15    NORMAL
'16-31   GRAYSCALE
'32-52   HI-NEON
'53-111  LOW-NEON
'112-175 DARK NEON
'176-247 DARK2 NEON
233 FOR Q = 176 * T TO 247 * T
LINE (Q - 176 * T, 0)-(Q - 176 * T, 255), Q / T
LINE (Q - 176, 0)-(Q - 176, 255), Q / T

NEXT Q
A$ = INPUT$(1)