A utility demonstrating a number of different effects made possible by the SOUND command.
Content
Image 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