[net.micro.atari] Sound Program

dad@aluxp.UUCP (DAPKUS) (04/27/85)

Since there is no net.src.atari, I am posting this little
goodie right here.  It's a small, but neat, sound program:

10 INPUT D
20 FOR X=0 to 3
30 SOUND X,PEEK(54283),14,6
40 FOR Y=1 TO D:NEXT Y
50 NEXT X
60 GOTO 20

You get some real neat stuff out of it!  Enter inputs from
1 to 255; the lower numbers (1-10) are exspecially interesting.

Location 54283 is the vertical scan line counter, which
changes extremely fast.  This program reads it on regular
intervals to create a 4-voice pattern.

If anyone else has some interesting little bitty tidbits,
please post them!

				Don Dapkus
			{ihnp4, allegra}!aluxp!dad