Displays all color combinations.
Appears on
Capital Area Timex Sinclair User Group’s Library Tape.
Source Code
10 PAPER 0: INK 9: BORDER 0: CLS : PRINT '"ADJUST COLOR CONTROLS PLEASE"'': FOR i=0 TO 7: PRINT PAPER i;" "'': NEXT i: PRINT ''"HIT ANY KEY WHEN READY.": PAUSE 0 20 CLS : FOR x=0 TO 6 STEP 2: POKE USR "\p"+x,85: POKE USR "\p"+x+1,170: NEXT x: PRINT "128 COLORS": FOR p=0 TO 7: FOR i=0 TO 7: FOR b=0 TO 1: PRINT PAPER p; INK i; BRIGHT b;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p": PRINT : NEXT b: NEXT i: NEXT p: PAUSE 200: CLS : PRINT "AND NOW FULL SCREEN.....": PAUSE 200: CLS : POKE 23692,100: FOR p=0 TO 7: FOR i=0 TO 7: FOR b=0 TO 1: FOR k=0 TO 31: PRINT PAPER p; INK i; BRIGHT b;"\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p\p": NEXT k: POKE 23692,100: NEXT b: NEXT i: NEXT p: STOP 9995 SAVE "128 colors" LINE 1