SCREEN 7, , , 1

1
LINE (0, 0)-(319, 199), RND, BF
SOUND 0, 1
frm = frm + 1
st = (SIN(frm / 10) + 2) / 3
x = SIN(frm / 30) * 50
y = COS(frm / 42) * 30


FOR a = .1 TO 10 STEP st
  CIRCLE (160 + x, 100 + y), 80, 10, , , a
NEXT a

c = RND * 2 + 12
FOR a = 0 TO 50
   f = (a + frm) / 12
   f2 = (a + frm) / 7
   x1 = SIN(f) * 50
   y1 = COS(f) * 30
   x2 = SIN(f2 + 6) * 80
   y2 = COS(f2 + 6) * 120
   LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c
NEXT a

FOR a = 0 TO 50
   f = (a * 15 + frm) / 12
   f2 = (a * 15 + frm) / 7
   x1 = SIN(f) * 50
   y1 = COS(f) * 30
   x2 = SIN(f2 + 6) * 80
   y2 = COS(f2 + 6) * 120
   CIRCLE (x1 + 80, y1 + 50), a / 2, 14
   PAINT (x1 + 80, y1 + 50), 14
NEXT a


FOR a = 0 TO 15
   f = (a + frm) / 12
   f2 = (a + frm) / 7
   x1 = SIN(f) * 50
   y1 = COS(f) * 30
   x2 = SIN(f2 + 6) * 80
   y2 = COS(f2 + 6) * 120
   LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c
NEXT a
 
FOR a = 0 TO 50
  x = RND * 320
  y = RND * 320
  PSET (x, y), RND * 15
NEXT a

PCOPY 0, 1
CLS

IF frm > 100 THEN GOTO 2
GOTO 1
2
CHAIN "KHKDEMO4.BAS"