' Svjatoslav Agejenko 2003.04

SCREEN 7, , , 1

1
IF frm > 10000 THEN frm = -10000
FOR c = 1 TO 6
  OUT &H3C8, c
  OUT &H3C9, SIN(c + frm * 3) * 30 + 31
  OUT &H3C9, COS(c * 1 + frm * 5) * 30 + 31
  OUT &H3C9, SIN(c * .7 + frm * 2.23) * 30 + 31
NEXT c

frm = frm + .01

FOR b = 1 TO 10
  c = (b MOD 6) + 1
  x = SIN(b + frm) * 100 + 150
  y = COS(b * 1.2 + frm * 1.81) * 80 + 100
  xs = SIN(b * frm * 2.3)
  FOR xp = -50 TO 50 STEP 10
  ys = COS(xp / 60 + frm * 1 + b) * 50
  LINE (x, y)-(x + xp * xs, y - ys), c
  NEXT xp
NEXT b
PCOPY 0, 1
CLS
SOUND 0, .4
IF INKEY$ <> "" THEN SYSTEM
GOTO 1