' Mystery screensaver
' made by Svjatoslav Agejenko
' last edit 2004.01
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
SCREEN 7, , , 1


1
frm = frm + 1

f = (SIN(frm / 100) + 1.1) * 2
FOR s = 1 TO 20 STEP .1
  x = SIN(s / 1 + frm / 7) * 100
  y = COS(s / 1 + frm / 10) * 100
  x1 = SIN(s / 1 - frm / 8) * 100
  y1 = COS(s / 1 + frm / 15) * 100
  LINE (x + 160, y + 100)-(x1 + 160, y1 + 100), s MOD 15
NEXT s


PCOPY 0, 1
SOUND 0, 1
CLS
IF INKEY$ <> "" THEN SYSTEM
GOTO 1