SCREEN 7, , , 1

1
FOR a = 1 TO SIN(frm / 30) * 3 + 4
  LOCATE a * 2, a * 4
  COLOR RND * 5 + 10
  PRINT "Programmeerimine ***"
NEXT a

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, 2, , , a
NEXT a

c = RND * 2 + 12
FOR a = 0 TO 10
   f = (a + frm) / 12
   f2 = (a + frm) / 7
   x1 = SIN(f) * 50
   y1 = COS(f) * 30
   x2 = SIN(f2 + 6) * 50
   y2 = COS(f2 + 6) * 30
   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 > 200 THEN GOTO 2
GOTO 1
2
CHAIN "KHKDEMO3.BAS"