Screen Saver

Basic and Machine Language

Moderator: Moderators

Post Reply
User avatar
R'zo
Vic 20 Nerd
Posts: 514
Joined: Fri Jan 16, 2015 11:48 pm

Screen Saver

Post 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.
R'zo
I do not believe in obsolete...
User avatar
orion70
VICtalian
Posts: 4337
Joined: Thu Feb 02, 2006 4:45 am
Location: Piacenza, Italy
Occupation: Biologist

Re: Screen Saver

Post by orion70 »

Gosh! I got hypnotized! Thanks for this :)
User avatar
akator
Vic 20 Afficionado
Posts: 327
Joined: Wed Apr 14, 2010 6:01 pm

Re: Screen Saver

Post by akator »

Very cool. My cat likes it, too :)
User avatar
pitcalco
just pitcalco
Posts: 1272
Joined: Wed Dec 28, 2005 4:13 pm
Location: Berlin

Re: Screen Saver

Post 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.
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
User avatar
R'zo
Vic 20 Nerd
Posts: 514
Joined: Fri Jan 16, 2015 11:48 pm

Re: Screen Saver

Post 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
R'zo
I do not believe in obsolete...
Post Reply