1: SCREEN 13: CLS 2: T = 2 3: GOTO 233 4: FOR Clr = 0 TO 255 ' Draw the palette bar 5: LINE (Clr, 0)-(Clr, Clr), Clr 6: NEXT 7: 8: FOR Q = 1 TO 255 9: LINE (Q, 0)-(Q, Q), 15 10: LINE (260, 0)-(319, Q), Q, BF ' Draw the current color Box 11: LINE (260, 0)-(319, Q), 15, B 12: LINE (Q - 1, 0)-(Q - 1, Q), Q - 1 13: LOCATE 3, 1: PRINT Q 14: A$ = INPUT$(1) 15: NEXT Q 16: '0-15 NORMAL 17: '16-31 GRAYSCALE 18: '32-52 HI-NEON 19: '53-111 LOW-NEON 20: '112-175 DARK NEON 21: '176-247 DARK2 NEON 22: 233 FOR Q = 176 * T TO 247 * T 23: LINE (Q - 176 * T, 0)-(Q - 176 * T, 255), Q / T 24: LINE (Q - 176, 0)-(Q - 176, 255), Q / T 25: 26: NEXT Q 27: A$ = INPUT$(1) 28: |