'Little Swirly Thing by Matt Bross, 1997
'HOMEPAGE - http://www.GeoCities.Com/SoHo/7067/
'EMAIL    - oh_bother@GeoCities.Com
'
' Do what you Want!

DEFINT A-Z
DECLARE SUB Pal (C%, r%, g%, b%)
SCREEN 13: RANDOMIZE TIMER

'make random patern
rot! = RND: PRINT rot!

'these look cool
'rot! = .55
'rot! = .508
'rot! = .25
'rot! = .85
'rot! = .893

DO
  an! = an! + .1
  d! = d! + .0025
  C! = (C! + rot!)
  DO: IF C! >= 16 THEN C! = C! - 16
  LOOP UNTIL C! < 16
    x = SIN(an!) * d!: y = COS(an!) * d!
    LINE -(x + 160, y + 100), INT(C!) + 16
LOOP UNTIL d! >= 200

delay! = .005

DO

FOR d = 0 TO delay! * 70
 WAIT &H3DA, 8
 WAIT &H3DA, 8, 8
NEXT

FOR C = 16 TO 31
  r = r + 1
  Pal C, r, 0, 0
  IF r >= 31 THEN r = 16
NEXT

LOOP UNTIL INKEY$ <> ""

END

SUB Pal (C, r, g, b)
OUT &H3C8, C
OUT &H3C9, r
OUT &H3C9, g
OUT &H3C9, b
END SUB