Happy Birthday R1CH! - Page 7

SCREEN 13
RANDOMIZE TIMER
VIEW PRINT 1 TO 25
text$ = "HAPPY BIRTHDAY R1CH"
x = 1 + CINT(RND * (40 - LEN(text$)))
y = 1 + CINT(RND * 25)
dx = 1
dy = 1
c = 1
WHILE INKEY$ = ""
  LOCATE y, x
  COLOR c
  PRINT text$;
  IF x = 1 THEN
    dx = 1
  END IF
  IF x = 40 - LEN(text$) THEN
    dx = -1
  END IF
  IF y = 1 THEN
    dy = 1
  END IF
  IF y = 25 THEN
    dy = -1
  END IF
  IF c = 10 THEN
    c = 1
  END IF
  x = x + dx
  y = y + dy
  c = c + 1
  r = CINT(RND * 63)
  g = CINT(RND * 63)
  b = CINT(RND * 63)
  PALETTE c, r + g * 256 + b * 256 * 256
  PLAY "P64"
WEND