SCREEN 13
DEFINT A-Z
PRINT "initializing colors"
r = 64
FOR b = 0 TO 63
  r = r - 1
  IF c <> 0 THEN PALETTE c, b * 65536 + r
  c = c + 1
NEXT b

FOR g = 0 TO 63
  b = b - 1
  PALETTE c, b * 65536 + g * 256
  c = c + 1
NEXT g

FOR r = 0 TO 63
  g = g - 1
  PALETTE c, g * 256 + r
  c = c + 1
NEXT r
LOCATE 1, 1
PRINT SPACE$(80)
s = 1
DO
  x = x + s
  IF x = 32767 OR x = 0 THEN s = -s
  y = x MOD 192 + 57
  LINE (y, 75)-(y, 125), x MOD 191 + 1
  IF y = 57 THEN
    LOCATE 20, 12
    COLOR x MOD 191
    PRINT "Programmed by Ben"
  END IF
LOOP UNTIL INKEY$ <> ""