Code: Select all
REM retro background
REM just a simple retro game background for fun.
REM enjoy...
GRAPHICS
res = 20
speed=.009
main:
GRAPHICS CLEAR 0,0,0
REFRESH OFF
GOSUB background
REFRESH
GOTO main
background:
mm=mm+.speed
b=1000*SIN(mm)
g=1000*SIN(mm/2)
r=1000*SIN(mm/3)
FOR a=1 TO SCREEN_HEIGHT() STEP res
FILL COLOR (r+a)/1000,(g+a)/1000,(b+a)/1000
FILL RECT 0,a TO SCREEN_WIDTH(),a+res
NEXT a
RETURN
