1000 KEY OFF
1010 WIDTH 80
1020 SCREEN 0
1030 COLOR 0,7
1040 CLS:LOCATE ,,0,0,7
1050 PI=3.14159
1060 L$=STRING$(78,205)
1070 PRINT CHR$(201)L$CHR$(187);
1080 PRINT CHR$(186);:COLOR 0:PRINT TAB(29)"*** Sound effects ***";
1090 COLOR 0:PRINT TAB(80)CHR$(186);
1100 PRINT CHR$(204)L$CHR$(185);
1110 FOR X=4 TO 19
1120 PRINT CHR$(186)TAB(80)CHR$(186);
1130 NEXT
1140 PRINT CHR$(204)L$CHR$(185);
1150 PRINT CHR$(186);:COLOR 0:PRINT TAB(7)"*** ENTER YOUR CHOICE ***";
1160 PRINT TAB(35)"[[[ Press any key to select new sound ]]]";
1170 COLOR 0:PRINT TAB(80)CHR$(186);
1180 PRINT CHR$(200)L$CHR$(188);
1190 COLOR 0
1200 LOCATE 4,3:PRINT"A-Bat screeches";
1210 LOCATE 5,3:PRINT"B-Bird call";
1220 LOCATE 6,3:PRINT"C-Clock ticking";
1230 LOCATE 7,3:PRINT"D-Conveyor moving";
1240 LOCATE 8,3:PRINT"E-Crickets chirping";
1250 LOCATE 9,3:PRINT"F-Doorbell buzzing";
1260 LOCATE 10,3:PRINT"G-Explosion";
1270 LOCATE 11,3:PRINT"H-Generator starting";
1280 LOCATE 12,3:PRINT"I-Machine noise";
1290 LOCATE 13,3:PRINT"J-Phaser fire"
1300 LOCATE 14,3:PRINT"K-Phone call";
1310 LOCATE 15,3:PRINT"L-Phone- tuned ring"
1320 LOCATE 16,3:PRINT"M-Photon torpedo";
1330 LOCATE 17,3:PRINT"N-Random sounds";
1340 LOCATE 18,3:PRINT"O-Saucer(flying)";
1350 LOCATE 19,3:PRINT"P-Siren"
1360 LOCATE 3,40:COLOR 0:PRINT CHR$(203);
1370 FOR X=4 TO 19:LOCATE X,40:PRINT CHR$(186);:NEXT
1380 LOCATE 20,40:PRINT CHR$(202);
1390 COLOR 0
1400 LOCATE 4,42:PRINT"Q-Spigot dripping";
1410 LOCATE 5,42:PRINT"R-Train passing";
1420 LOCATE 6,42:PRINT"S-Whooping siren";
1430 LOCATE 7,42:PRINT"T-Computer thinking";
1440 LOCATE 19,42:PRINT"*-TO END";
1450 AAA$=INKEY$
1460 IF AAA$=""THEN 1450 ELSE IF AAA$="*"THEN CHAIN "bb",130 ELSE AAA=ASC(AAA$):IF AAA>90 THEN AAA=AAA-32
1470 IF AAA<65 OR AAA>90 THEN BEEP:GOTO 1450 ELSE AAA=AAA-64
1480 ON AAA GOSUB 1560,1620,1720,1770,1830,1920,2010,2080,2170,2250,2310,2320,2410
1490 IF AAA<13 THEN GOTO 1510
1500 ON AAA-13 GOSUB 2480,2580,2640,2720,2790,2840,2900
1510 BEEP:GOTO 1450
1520 QUIT=0:V$=INKEY$
1530 IF LEN(V$)=0 THEN RETURN
1540 QUIT=1
1550 RETURN
1560 REM BAT SCREECH
1570 FOR X=12000 TO 1400 STEP -100
1580 SOUND X,.11
1590 NEXT
1600 GOSUB 1520:IF QUIT=1 THEN RETURN
1610 GOTO 1570
1620 REM birdcall
1630 A=3500:B=3000
1640 SOUND A,.9
1650 FOR X=1 TO 50:NEXT X
1660 SOUND B,.9
1670 FOR X=1 TO 50:NEXT X
1680 SOUND 4000,.9
1690 FOR X=1 TO 50:NEXT X
1700 GOSUB 1520:IF QUIT=1 THEN RETURN
1710 GOTO 1640
1720 REM clock ticking
1730 SOUND 12500,.35
1740 FOR X=1 TO 600:NEXT X
1750 GOSUB 1520:IF QUIT=1 THEN RETURN
1760 GOTO 1720
1770 REM MOTORIZED CONVEYOR
1780 FOR X=37 TO 100
1790 SOUND X,.05
1800 NEXT
1810 GOSUB 1520:IF QUIT=1 THEN RETURN
1820 GOTO 1780
1830 REM CRICKETS
1840 FOR X=1 TO 10
1850 SOUND 1800,.05
1860 NEXT
1870 SOUND 2000,.02
1880 FOR X=1 TO 1800
1890 NEXT X
1900 GOSUB 1520:IF QUIT=1 THEN RETURN
1910 GOTO 1840
1920 REM DOOR BUZZER
1930 FOR X=1 TO 20
1940 FOR A=5700 TO 16000 STEP 1500
1950 SOUND A,.01
1960 NEXT
1970 NEXT X
1980 FOR TD=1 TO 1500:NEXT TD
1990 GOSUB 1520:IF QUIT=1 THEN RETURN
2000 GOTO 1930
2010 FOR EX=1 TO 5
2020 FOR E=300 TO 1800 STEP 150
2030 SOUND E,.1
2040 NEXT E
2050 NEXT EX
2060 GOSUB 1520:IF QUIT=1 THEN RETURN
2070 GOTO 2010
2080 REM ELECTRICAL GENERATOR
2090 FOR X=37 TO 1000
2100 SOUND X,.1:SOUND 2*X,.1:SOUND 3*X,.1
2110 GOSUB 1520:IF QUIT=1 THEN RETURN
2120 NEXT
2130 FOR Y=1 TO 20
2140 SOUND X,.1:SOUND 2*X,.1:SOUND 3*X,.1
2150 GOSUB 1520:IF QUIT=1 THEN RETURN
2160 NEXT Y:RETURN
2170 REM MACHINERY
2180 FOR X=400 TO 100 STEP -10
2190 SOUND X,.01
2200 SOUND X/2+37,.01
2210 SOUND X/3+37,.01
2220 NEXT
2230 GOSUB 1520:IF QUIT=1 THEN RETURN
2240 GOTO 2180
2250 REM STAR TREK PHASER SOUND
2260 FOR X=300 TO 1800 STEP 100
2270 SOUND X,.1
2280 NEXT
2290 GOSUB 1520:IF QUIT=1 THEN RETURN
2300 GOTO 2260
2310 FOR A=0 TO 8:FOR X=1 TO 10*RND:SOUND 15000,1:FOR Y=1 TO 100:NEXT Y:NEXT X:FOR Z=1 TO 1000:NEXT Z:GOSUB 1520:IF QUIT=1 THEN RETURN:NEXT A:FOR TD=1 TO 1500:NEXT TD:FOR B=0 TO 5:FOR X=1 TO 100:SOUND 500,.04:NEXT X:FOR TD=1 TO 1500:NEXT TD:NEXT B:RETURN
2320 REM TUNED TELEPHONE RING
2330 REM LOW TONE=C HIGH TONE=E
2340 FOR X=1 TO 30
2350 SOUND 523.25,.5
2360 SOUND 659.26,.5
2370 NEXT
2380 FOR TD=1 TO 1500:NEXT TD
2390 GOSUB 1520:IF QUIT=1 THEN RETURN
2400 GOTO 2340
2410 REM PHOTON TORPEDO FIRE
2420 FOR X=4000 TO 100 STEP -150
2430 SOUND X,.01
2440 SOUND X/2+37,.01
2450 SOUND X/3+37,.01
2460 IF X<200 THEN SOUND 30000,.1:RETURN
2470 NEXT
2480 REM RANDOMIZED SOUNDS AND DURATIONS
2490 FOR Y=37 TO 1000 STEP 100*RND
2500 X=RND*1
2510 SOUND Y,X
2520 NEXT
2530 FOR Y=1000 TO 37 STEP -100*RND
2540 SOUND Y,X
2550 NEXT
2560 GOSUB 1520:IF QUIT=1 THEN RETURN
2570 GOTO 2490
2580 REM FLYING SAUCER SOUND
2590 FOR A=500 TO 1500 STEP 200
2600 SOUND A,.5
2610 NEXT
2620 GOSUB 1520:IF QUIT=1 THEN RETURN
2630 GOTO 2590
2640 REM siren
2650 FOR A=200 TO 1000:SOUND A,.1
2660 NEXT
2670 SOUND A,15:GOSUB 1520:IF QUIT=1 THEN RETURN
2680 FOR A=1000 TO 200 STEP -1:SOUND A,.1
2690 NEXT
2700 GOSUB 1520:IF QUIT=1 THEN RETURN
2710 GOTO 2650
2720 REM DRIPPING SPIGOT
2730 FOR X=1000 TO 1200 STEP 100
2740 SOUND X,.15
2750 NEXT
2760 FOR TD=0 TO 2000:NEXT TD
2770 GOSUB 1520:IF QUIT=1 THEN RETURN
2780 GOTO 2730
2790 REM TRAIN
2800 FOR X=1700 TO 37 STEP -4
2810 IF X=100 THEN SOUND 30000,.05:RETURN
2820 SOUND X,.01
2830 NEXT
2840 REM whooper siren
2850 FOR A=900 TO 1000
2860 SOUND A,.089999999#
2870 NEXT
2880 GOSUB 1520:IF QUIT=1 THEN RETURN
2890 GOTO 2850
2900 REM random electronic sounds
2910 SOUND (2000*RND)+37,.5
2920 GOSUB 1520:IF QUIT=1 THEN RETURN
2930 GOTO 2910