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.
Screen Saver
Moderator: Moderators
Screen Saver
R'zo
I do not believe in obsolete...
I do not believe in obsolete...
- orion70
- VICtalian
- Posts: 4337
- Joined: Thu Feb 02, 2006 4:45 am
- Location: Piacenza, Italy
- Occupation: Biologist
Re: Screen Saver
Gosh! I got hypnotized! Thanks for this
Re: Screen Saver
Very cool. My cat likes it, too
Re: Screen Saver
Neat!
I am vaguely reminded of a cross between a kaleidoscope and the funky sequence toward the end of 2001:A Space Odyssey.
I am vaguely reminded of a cross between a kaleidoscope and the funky sequence toward the end of 2001:A Space Odyssey.
There are only three kinds of people in the world: those who can count and those who can't.
Paul Lambert
Berlin
Federal Republic of Germany
Paul Lambert
Berlin
Federal Republic of Germany
Re: Screen Saver
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
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
R'zo
I do not believe in obsolete...
I do not believe in obsolete...