Page 1 of 1
Screen Saver
Posted: Thu Jan 22, 2015 3:39 am
by R'zo
Here is a very simple screen saver program that I wrote. The longer you watch it the more interesting it gets.
1 print"shift+clr home"
2 forz=255to0step-1
3 fory=0to255
4 b=int(rnd(1)*255)+1
5 fort=0to510stepb
6 poke7680+t,z
7 poke38400+t,y
8 nextt
9 poke36879,int(rnd(1)
*255)+0
10 nexty
11 nextz
12 goto2
ready.
Re: Screen Saver
Posted: Thu Jan 22, 2015 9:07 am
by orion70
Gosh! I got hypnotized! Thanks for this
Re: Screen Saver
Posted: Thu Jan 22, 2015 10:40 am
by akator
Very cool. My cat likes it, too
Re: Screen Saver
Posted: Fri Jan 23, 2015 6:58 am
by pitcalco
Neat!
I am vaguely reminded of a cross between a kaleidoscope and the funky sequence toward the end of 2001:A Space Odyssey.
Re: Screen Saver
Posted: Thu Mar 26, 2015 1:05 am
by R'zo
I updated this program adding sound to it. Enjoy!
S=shift+clr home
1 poke36878,8
100 print"S"
200 forz=255to0step-1
300 fory=0to255
400 b=int(rnd(1)*255)+
1
410 poke36874,z/2+127
420 poke36875,y
500 fort=0to510stepb
510 poke36877,t/2
520 poke36876,0
530 poke36874,b
600 poke7680+t,z
700 poke38400+t,y
800 nextt
810 poke36877,0
820 poke36876,(t/4)+(i
nt(rnd(5)*15)+0)
830 poke36875,(t/4)+42
840 poke36874,0
900 poke36879,int(rnd(
1)*255)+0
1000 nexty
1010 poke36875,0
1100 nextz
1200 goto200