A utility demonstrating a number of different effects made possible by the SOUND command.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Gallery
Source Code
10 PRINT AT 0,10;"SOUND EFFECTS" 15 GO TO 3000 20 PRINT AT 10,12;"BOMB" 50 SOUND 7,62;8,15 60 FOR I=50 TO 100 70 SOUND 0,I: PAUSE 3 80 NEXT I 200 SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8 220 PAUSE 90 230 SOUND 8,0;9,0;10,0 240 CLS 245 GO TO 3000 250 PRINT AT 10,10;"GUNSHOT" 260 PRINT AT 21,0;"PRESS ""ENTER""" 270 FOR C=1 TO 5 310 SOUND 6,15;7,7;8,16;9,16;12,16;13,0 350 PAUSE 30 370 NEXT C 375 CLS : GO TO 3000 400 PRINT AT 10,10;"EXPLOSION" 500 INPUT "SECONDS INTERVAL = "''S 550 FOR A=1 TO 10 600 SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8 700 PAUSE S 800 SOUND 8,0;9,0;10,0 850 NEXT A 900 CLS 910 GO TO 3000 2000 PRINT AT 10,4;"AMERICA, THE BEAUTIFUL" 2050 PAUSE 60 2100 READ d,p: LET d=d/16 2105 IF p=999 THEN GO TO 2400 2110 BEEP d,p: GO TO 2100 2200 DATA 4,7,8,7,2,4,4,4,4,7,8,7,2,2,4,2,4,4,4,5,4,7,4,9,4,11,8,7,8,69 2210 DATA 4,7,6,7,2,4,4,4,4,7,8,7,2,2,4,2,4,14,4,13,4,14,4,16,4,9,8,14,8,69 2220 DATA 4,7,8,16,2,16,4,14,4,12,8,12,2,11,4,11,4,12,4,14,4,11,4,9,4,7,8,12,8,69 2230 DATA 4,12,8,12,2,9,4,9,4,12,8,12,2,7,4,7,4,7,4,9,4,12,4,7,4,14,16,12 2300 DATA 999,999 2400 PAUSE 60: CLS : GO TO 3000 2450 STOP 2510 REM USE CAPS MODE !!! 2530 PRINT AT 5,12; FLASH 1;"PIANO" 2540 PRINT AT 8,2;"YOUR PIANO'S WHITE KEYS ARE THOSE FROM 'Q' TO 'P'" 2550 PRINT AT 12,0;"PRESSING 'Z' WILL GIVE A HIGHER OCTAVE, 'X' GIVES A LOWER ONE" 2560 PRINT AT 16,0;"PRESS 'V' FOR VIBRATO AND 'M' TO SWITCH IT OFF" 2570 PRINT AT 19,0;"PRESSING 'C' PUTS MID C ON 'T' AGAIN" 2580 LET K=0: LET X=0.4 2590 PAUSE 500 2600 REM VISUAL DISPLAY 2610 CLS 2620 PRINT AT 10,4;"Q";AT 10,6;"W";AT 10,8;"E";AT 10,10;"R";AT 10,12;"T";AT 10,14;"Y";AT 10,16;"U";AT 10,18;"I";AT 10,20;"O";AT 10,22;"P" 2630 PRINT ; INVERSE 1;AT 8,5;"2";AT 8,7;"3";AT 8,9;"4";AT 8,13;"6";AT 8,15;"7";AT 8,19;"9";AT 8,21;"0" 2635 PRINT AT 21,0;"To stop press 'S'" 2640 IF INKEY$="Z" THEN LET K=12 2650 IF INKEY$="X" THEN LET K=-12 2660 IF INKEY$="C" THEN LET K=0 2670 IF INKEY$="V" THEN LET X=0.03 2680 IF INKEY$="M" THEN LET X=0.3 2690 IF INKEY$="2" THEN BEEP X,-6+K 2700 IF INKEY$="3" THEN BEEP X,-4+K 2710 IF INKEY$="5" THEN BEEP X,-1+K 2720 IF INKEY$="6" THEN BEEP X,1+K 2730 IF INKEY$="7" THEN BEEP X,3+K 2740 IF INKEY$="9" THEN BEEP X,6+K 2750 IF INKEY$="0" THEN BEEP X,8+K 2760 IF INKEY$="Q" THEN BEEP X,-7+K 2770 IF INKEY$="W" THEN BEEP X,-5+K 2780 IF INKEY$="E" THEN BEEP X,-3+K 2790 IF INKEY$="R" THEN BEEP X,-2+K 2800 IF INKEY$="T" THEN BEEP X,0+K 2810 IF INKEY$="Y" THEN BEEP X,2+K 2820 IF INKEY$="U" THEN BEEP X,4+K 2830 IF INKEY$="I" THEN BEEP X,5+K 2840 IF INKEY$="O" THEN BEEP X,7+K 2850 IF INKEY$="P" THEN BEEP X,9+K 2855 IF INKEY$="S" THEN CLS : GO TO 3000 2860 GO TO 2630 2870 STOP 3000 PRINT AT 3,0;"Select a sound" 3100 PRINT '"1 - BOMB" 3200 PRINT '"2 - GUNSHOT" 3300 PRINT '"3 - EXPLOSION" 3400 PRINT '"4 - MUSIC" 3500 PRINT '"5 - PIANO" 3550 PRINT '"6 - STOP" 3600 INPUT N: CLS 3610 IF N=1 THEN GO TO 20 3620 IF N=2 THEN GO TO 250 3630 IF N=3 THEN GO TO 400 3640 IF N=4 THEN GO TO 2000 3650 IF N=5 THEN GO TO 2510 3660 IF N=6 THEN CLS 3670 FOR J=1 TO 10 3680 PRINT TAB 6;"GREAT JOB, COMPUTER" 3690 NEXT J 9997 STOP 9998 SAVE "SoundEffec" LINE 1