' BASIC Anywhere Machine program by Charlie Veniot
' mod of rel8.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.24
'The Waves..... By RelSoft 2003
'Relsoft.ath.cx
SCREEN _newimage(608, 200, 12)
2  A% = (A% + 10) MOD 360
3  LINE (0, 0)-(608, 320), 0, BF
4  FOR x% = 0 TO 14
5  FOR z% = 0 TO 15
6  PSET ((320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)), (220 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1))), 15 ' 16 - (((z% * ( 1 / 15 * 640)) / 640 + 1) - 1) * 15
7  NEXT z%, x%
_delay 0.0125
8  IF INKEY$ = "" THEN 2