_ __ __ _____ (_) ___ ___ ___ / _|_ __ ___ _ __ ___ \ \ / / _ \| |/ __/ _ \/ __| | |_| '__/ _ \| '_ ` _ \ \ V / (_) | | (_| __/\__ \ | _| | | (_) | | | | | | \_/ \___/|_|\___\___||___/ |_| |_| \___/|_| |_| |_| _ _ _ _ | |_| |__ ___ __ _____ (_) __| | | __| '_ \ / _ \ \ \ / / _ \| |/ _` | | |_| | | | __/ \ V / (_) | | (_| | \__|_| |_|\___| \_/ \___/|_|\__,_| /\ ________ /\ / \ / \ / \ /\ / \ \ _ o \ / \ / \ / \ / _/ \ / / \___/ \ / \ / \ \ / ____/ \/ \/ ,- \ \_____ -- \ \ \ \ / \ \ \ \___ \ \ \__________ \________ \ \ ___ \ / / \ \ / / / / ___/ / / /_______ / \ / \ /_______\ /_____________\ A random music sound program for the Commodore 64 by 6 TRAK 1 REM *** VOICES FROM THE VOID *** 2 REM *** BY 6 TRAK 10 PRINT CHR$(147): S=54272 11 INPUT "MASTER VOLUME (1-15)";M 13 PRINT: PRINT "HIT ANY KEY TO STOP..." 14 GOSUB 999: POKE S+24,M 18 FOR X=0 TO 2 19 GOSUB1001: POKES+4+(X*7),W+E 20 GOSUB1000: POKES+1+(X*7),F/1+X 21 GOSUB 1003: POKES+5+(X*7),D 22 GOSUB 1004: POKES+6+(X*7),SR 23 GOSUB 1001: POKES+4+(X*7),W+E+1 24 NEXT X 26 FOR A=1 TO 150-F: POKE S+1,A: NEXT A 27 GET A$: IF A$="" THEN 18 28 GOSUB 999: END 999 FOR Z=0 TO 24: POKE S+Z,0: NEXT Z 1000 F=INT(RND(1)*50): RETURN 1001 W=2^INT(RND(1)*3)*8 1002 E=(INT(RND(1)*3+1)*2: RETURN 1003 D=INT(RND(1)*12):RETURN 1004 SR=INT(RND(1)*200): RETURN 6TRAK