Sorry your browser is not supported!

Rem Project: Screensaver1
Rem Created: 25/07/2005 02:09:10
Rem Created by BiggAdd
Rem ***** Main Source File *****


sync on
sync rate 60

set display mode 640,480,16

y2=screen height()
x2=screen width()
y#=0

randomize timer()

scr=rnd(2)
wai=500
hide mouse
do


if scr=0
for x=0 to x2/2
if w=0
ink RGB(g/2,g/2,g),0
text x*10,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#,0.1
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
for x=0 to x2/10
if w=0
ink RGB(g,g,g),0
text x*20,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
endif

if scr=1
for x=0 to x2/10
if w=0
ink RGB(g/2,g/3,g),0
text x*10,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#,0.1
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
for x=0 to x2/4
if w=0
ink RGB(g,g,g),0
text x*10,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#,0.1
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
endif

if scr=2
for x=0 to x2/2
if w=0
ink RGB(g/2,g/3,g),0
text x*10,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#,0.1
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
for x=0 to x2/4
if w=0
ink RGB(g,g,g),0
text x*10,y#,"#"
w=10
inc y#,10
inc g
if g>255 then g=0
inc f#,0.1
if f#>20 then f#=0
endif
dec w
if y#>(y2-20) then y#=0
next x
endif

if wai=0
scr=Rnd(1)
wai=500
endif



dec wai

sync
loop