It's a dumb screensaver with exploding circles!
set display mode 640, 480, 16:randomize timer():x = 320:y = 240:s = 45:dim dotsx(360):dim dotsy(360)
cls:elipse(x,y,s):center text 320, 140, "Press a key!":wait key:atime = timer():do:cls:btime = timer():btime = (btime - atime) / 1000:for n = 1 to 360:which = rnd(1):if which = 0:dotsx(n) = dotsx(n) + rnd(25):dotsy(n) = dotsy(n) + rnd(25):endif:if which = 1:dotsx(n) = dotsx(n) - rnd(25):dotsy(n) = dotsy(n) - rnd(25):endif
if dotsx(n) > 640:dotsx(n) = 640:endif:if dotsx(n) < 0:dotsx(n) = 0:endif:if dotsy(n) > 480:dotsy(n) = 480:endif:if dotsy(n) < 0:dotsy(n) = 0:endif:color():dot dotsx(n), dotsy(n):next n:if btime = 1:repeat:btime = timer():btime = (btime - atime) / 1000:cls:for n = 1 to 360:xvalue = x + (cos(n) * (s + 1)):yvalue = y + (sin(n) * (s + 1)):if dotsx(n) > xvalue:dotsx(n) = dotsx(n) - rnd(3):endif:if dotsx(n) < xvalue:dotsx(n) = dotsx(n) + rnd(3)
endif:if dotsy(n) > yvalue:dotsy(n) = dotsy(n) - rnd(3):endif:if dotsy(n) < yvalue:dotsy(n) = dotsy(n) + rnd(3):endif:color():dot dotsx(n), dotsy(n):next n:until btime = 3:atime = timer():s = rnd(85) + 5:x = rnd((640-(2*s)))+ s:y = rnd((480-(2*s)))+ s:endif:loop:end
function elipse(x,y,s)
v = 1:hsize = s+1:vsize = s+1:for n = 1 to 360:ox = cos(v) * hsize:oy = sin(v) * vsize:v = v + 1:dotsx(n) = x:dotsy(n) = y:dot x + ox, y + oy:next n
endfunction
function color
ink rgb(rnd(255), rnd(255),rnd(255)),0
endfunction
For some reason it's not clearing the screen though.
here's the original
set display mode 640, 480, 16
randomize timer()
x = 320
y = 240
s = 45
dim dotsx(360)
dim dotsy(360)
`circle x, y, s
`sleep 5000
cls
`ink rgb(0,255,0),0
elipse(x,y,s)
center text 320, 140, "Press a key!"
wait key
atime = timer()
do
cls
btime = timer()
btime = (btime - atime) / 1000
for n = 1 to 360
which = rnd(1)
if which = 0
dotsx(n) = dotsx(n) + rnd(25)
dotsy(n) = dotsy(n) + rnd(25)
endif
if which = 1
dotsx(n) = dotsx(n) - rnd(25)
dotsy(n) = dotsy(n) - rnd(25)
endif
`remstart
if dotsx(n) > 640
dotsx(n) = 640
endif
if dotsx(n) < 0
dotsx(n) = 0
endif
if dotsy(n) > 480
dotsy(n) = 480
endif
if dotsy(n) < 0
dotsy(n) = 0
endif
`remend
color()
dot dotsx(n), dotsy(n)
next n
if btime = 1
repeat
btime = timer()
btime = (btime - atime) / 1000
cls
for n = 1 to 360
xvalue = x + (cos(n) * (s + 1))
yvalue = y + (sin(n) * (s + 1))
if dotsx(n) > xvalue
dotsx(n) = dotsx(n) - rnd(3)
endif
if dotsx(n) < xvalue
dotsx(n) = dotsx(n) + rnd(3)
endif
if dotsy(n) > yvalue
dotsy(n) = dotsy(n) - rnd(3)
endif
if dotsy(n) < yvalue
dotsy(n) = dotsy(n) + rnd(3)
endif
color()
dot dotsx(n), dotsy(n)
next n
until btime = 3
atime = timer()
s = rnd(85) + 5
x = rnd((640-(2*s)))+ s
y = rnd((480-(2*s)))+ s
endif
loop
wait key
end
function elipse(x,y,s)
v = 1
hsize = s+1
vsize = s+1
for n = 1 to 360
ox = cos(v) * hsize
oy = sin(v) * vsize
v = v + 1
dotsx(n) = x
dotsy(n) = y
dot x + ox, y + oy
next n
endfunction
function color
ink rgb(rnd(255), rnd(255),rnd(255)),0
endfunction
Noob programs FTW!!
