REM ******************************************************
REM ******************************************************
REM ***  SCREEN SAVER - MULTICOLOR TRIANGLE!           ***
REM ***                                                ***
REM ***  Less than 20 lines!                           ***
REM ***                                                ***
REM ***  programmed by ALAN YAP (chingfat@tm.net.my)   ***
REM ***  http://members.xoom.com/9061/qb_home.htm      ***
REM ***                                                ***
REM ******************************************************
REM ******************************************************
SCREEN 13
X = 160
Y = 100
sx = -2
sy = -2
DO UNTIL INKEY$ = CHR$(27)
  X = X + sx
  Y = Y + sy
  IF X < 2 OR X > 317 THEN sx = sx * -1
  IF Y < 2 OR Y > 197 THEN sy = sy * -1
  rot = rot + 3
  IF rot > 359 THEN rot = 0
  col = 32 + CINT(rot / 4)
  PSET (X, Y)
  DRAW "C" + STR$(col) + "TA" + LTRIM$(STR$(rot)) + "BM-30,+12 E30 F30 L60 bm+30,-12 p" + STR$(col) + "," + STR$(col)
  g1 = TIMER
  DO WHILE TIMER - g1 < .001
  LOOP
LOOP