'Shiner of CCC's tutorial scripts...
'
'The first part is basically a "colour wheel" that shows which colour is which.
'If it says 1, then the colour it's printed in is colour 1...
'Therefore, Color 1 is a dark blue.
'
'The second part is a comparison. The basic colors are 1-8; 9-15 are brighter
'or different versions of them. This part compares Color 1 to Color 9, Color
'2 to Color 10, etc. etc...and of course you already know that 16-31 are the
'flashing variants of all of those
'
'Part 3 details how to add backgrounds to your text.
'
'Part 4 draws a spiral with 15 lines showing each colour, while showing the
' X and Y coordinates of where the line is.
'
'Use this program with gratitude!
' -Shiner
CLS
FOR b = 1 TO 31
COLOR b
PRINT b
DO
LOOP WHILE INKEY$ = ""
NEXT b
CLS
FOR a = 1 TO 8
COLOR a
PRINT a
LOCATE a, 3
COLOR a + 8
PRINT a + 8
DO
LOOP WHILE INKEY$ = ""
NEXT a
CLS
COLOR 15
PRINT "Top"
COLOR 0, 15
PRINT "Bottom"
DO
LOOP WHILE INKEY$ = ""
part = 1
x = 300
CLS
SCREEN 7
2
LOCATE 12, 12
PRINT " X = "; x; ""
LOCATE 13, 12
PRINT " Y = "; y; ""
LOCATE 11, 12
PRINT "Colour = "; part; ""
IF part = 1 THEN y = 5
IF part = 2 THEN y = y + 1
IF part = 1 THEN x = x - 1
IF part = 3 THEN x = x + 1
IF part = 4 THEN y = y - 1
IF part = 5 THEN x = x - 1
IF part = 6 THEN y = y + 1
IF part = 7 THEN x = x + 1
IF part = 8 THEN y = y - 1
IF part = 9 THEN x = x - 1
IF part = 10 THEN y = y + 1
IF part = 11 THEN x = x + 1
IF part = 12 THEN y = y - 1
IF part = 13 THEN x = x - 1
IF part = 14 THEN y = y + 1
IF part = 15 THEN x = x + 1
LINE (x, y)-(x, y), part
'SOUND part * part * part + 100, 1
IF x = 5 THEN part = 2
IF x = 5 AND y = 170 THEN part = 3
IF x = 300 AND y = 170 THEN part = 4
IF y = 20 AND x = 300 THEN part = 5
IF x = 20 AND y = 20 THEN part = 6
IF x = 20 AND y = 150 THEN part = 7
IF x = 280 AND y = 150 THEN part = 8
IF x = 280 AND y = 40 THEN part = 9
IF x = 40 AND y = 40 THEN part = 10
IF x = 40 AND y = 130 THEN part = 11
IF x = 260 AND y = 130 THEN part = 12
IF x = 260 AND y = 60 THEN part = 13
IF x = 60 AND y = 60 THEN part = 14
IF x = 60 AND y = 110 THEN part = 15
IF x = 240 AND y = 110 THEN GOTO 1
GOTO 2
1
DO
LOOP WHILE INKEY$ = ""
COLOR 0
END