[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Interesting one-line BASIC program

Michael J. Mahon wrote:

sicklittlemonkey wrote:


On Mar 31, 6:19 pm, "Michael J. Mahon" <mjma...@aol.com> wrote:


100 HGR2 : HCOLOR= 3
110 HPLOT 279*RND(1),191*RND(1)
120 GOTO 110




That _is_ interesting. It occurs after about 6 seconds of pressing
scroll-lock in AppleWin on my machine.



Yep--a little faster than on the real hardware!  ;-)

BTW, I was being habitually conservative with the multipliers,
since RND() always returns a value less than 1.

To light up dots in *all* rows and columns, use:

110 HPLOT 280*RND(1), 192*RND(1)

Of course, the result is quite similar.

The mottled texture of dots that results in the stationary
display kind of reminds me of the COBE maps of the cosmic
background radiation--"the face of God".

Talk about "primordial soup"!  ;-)


An even faster, truly one-line version:

100 HGR2 : HCOLOR=3 : FOR I=1 TO 99999999 : HPLOT 280*RND(1),192*RND(1)
     : NEXT

As you'll see if you Ctl-C out of the loop and examine "I" when
the display stops changing, it takes less than 20000 iterations.

-michael

NadaPong: Network game demo for Apple II computers!
Home page:  http://members.aol.com/MJMahon/

"The wastebasket is our most important design
tool--and it's seriously underused."