home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / sound.bas < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  5.5 KB  |  195 lines
  1. 210 KEY OFF
  2. 220 WIDTH 80
  3. 230 SCREEN 0
  4. 240 COLOR 0,7
  5. 250 CLS:LOCATE ,,0,0,7
  6. 260 PI=3.14159
  7. 270 L$=STRING$(78,205)
  8. 280 PRINT CHR$(201)L$CHR$(187);
  9. 290 PRINT CHR$(186);:COLOR 0:PRINT TAB(29)"*** Sound effects ***";
  10. 300 COLOR 0:PRINT TAB(80)CHR$(186);
  11. 310 PRINT CHR$(204)L$CHR$(185);
  12. 320 FOR X=4 TO 19
  13. 330 PRINT CHR$(186)TAB(80)CHR$(186);
  14. 340 NEXT
  15. 350 PRINT CHR$(204)L$CHR$(185);
  16. 360 PRINT CHR$(186);:COLOR 0:PRINT TAB(7)"*** ENTER YOUR CHOICE ***";
  17. 365 PRINT TAB(35)"[[[ Press any key to select new sound ]]]";
  18. 370 COLOR 0:PRINT TAB(80)CHR$(186);
  19. 380 PRINT CHR$(200)L$CHR$(188);
  20. 390 COLOR 0
  21. 400 LOCATE 4,3:PRINT"A-Bat screeches";
  22. 410 LOCATE 5,3:PRINT"B-Bird call";
  23. 420 LOCATE 6,3:PRINT"C-Clock ticking";
  24. 430 LOCATE 7,3:PRINT"D-Conveyor moving";
  25. 440 LOCATE 8,3:PRINT"E-Crickets chirping";
  26. 450 LOCATE 9,3:PRINT"F-Doorbell buzzing";
  27. 460 LOCATE 10,3:PRINT"G-Explosion";
  28. 470 LOCATE 11,3:PRINT"H-Generator starting";
  29. 480 LOCATE 12,3:PRINT"I-Machine noise";
  30. 490 LOCATE 13,3:PRINT"J-Phaser fire"
  31. 500 LOCATE 14,3:PRINT"K-Phone call";
  32. 510 LOCATE 15,3:PRINT"L-Phone- tuned ring"
  33. 520 LOCATE 16,3:PRINT"M-Photon torpedo";
  34. 530 LOCATE 17,3:PRINT"N-Random sounds";
  35. 540 LOCATE 18,3:PRINT"O-Saucer(flying)";
  36. 550 LOCATE 19,3:PRINT"P-Siren"
  37. 560 LOCATE 3,40:COLOR 0:PRINT CHR$(203);
  38. 570 FOR X=4 TO 19:LOCATE X,40:PRINT CHR$(186);:NEXT
  39. 580 LOCATE 20,40:PRINT CHR$(202);
  40. 590 COLOR 0
  41. 600 LOCATE 4,42:PRINT"Q-Spigot dripping";
  42. 610 LOCATE 5,42:PRINT"R-Train passing";
  43. 620 LOCATE 6,42:PRINT"S-Whooping siren";
  44. 630 LOCATE 7,42:PRINT"T-Computer thinking";
  45. 640 LOCATE 19,42:PRINT"*-TO END";
  46. 650 AAA$=INKEY$
  47. 660 IF AAA$=""THEN 650 ELSE IF AAA$="*"THEN END ELSE AAA=ASC(AAA$):IF AAA>90 THEN AAA=AAA-32
  48. 670 IF AAA<65 OR AAA>90 THEN BEEP:GOTO 650 ELSE AAA=AAA-64
  49. 680 ON AAA GOSUB 1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120
  50. 685 IF AAA<13 THEN GOTO 700
  51. 690 ON AAA-13 GOSUB 1130,1140,1150,1160,1170,1180,1190
  52. 700 BEEP:GOTO 650
  53. 900 QUIT=0:V$=INKEY$
  54. 902 IF LEN(V$)=0 THEN RETURN
  55. 904 QUIT=1
  56. 905 RETURN
  57. 1000 REM BAT SCREECH
  58. 1001 FOR X=12000 TO 1400 STEP -100
  59. 1002 SOUND X,.11
  60. 1003 NEXT
  61. 1004 GOSUB 900:IF QUIT=1 THEN RETURN
  62. 1005 GOTO 1001
  63. 1010 REM birdcall
  64. 1011 A=3500:B=3000
  65. 1012 SOUND A,.9
  66. 1013 FOR X=1 TO 50:NEXT X
  67. 1014 SOUND B,.9
  68. 1015 FOR X=1 TO 50:NEXT X
  69. 1016 SOUND 4000,.9
  70. 1017 FOR X=1 TO 50:NEXT X
  71. 1018 GOSUB 900:IF QUIT=1 THEN RETURN
  72. 1019 GOTO 1012
  73. 1020 REM clock ticking
  74. 1021 SOUND 12500,.35
  75. 1022 FOR X=1 TO 600:NEXT X
  76. 1023 GOSUB 900:IF QUIT=1 THEN RETURN
  77. 1024 GOTO 1020
  78. 1030 REM MOTORIZED CONVEYOR
  79. 1031 FOR X=37 TO 100
  80. 1032 SOUND X,.05
  81. 1033 NEXT
  82. 1034 GOSUB 900:IF QUIT=1 THEN RETURN
  83. 1035 GOTO 1031
  84. 1040 REM CRICKETS
  85. 1041 FOR X=1 TO 10
  86. 1042 SOUND 1800,.05
  87. 1043 NEXT
  88. 1044 SOUND 2000,.02
  89. 1045 FOR X=1 TO 1800
  90. 1046 NEXT X
  91. 1047 GOSUB 900:IF QUIT=1 THEN RETURN
  92. 1048 GOTO 1041
  93. 1050 REM DOOR BUZZER
  94. 1051 FOR X=1 TO 20
  95. 1052 FOR A=5700 TO 16000 STEP 1500
  96. 1053 SOUND A,.01
  97. 1054 NEXT
  98. 1055 NEXT X
  99. 1056 FOR TD=1 TO 1500:NEXT TD
  100. 1057 GOSUB 900:IF QUIT=1 THEN RETURN
  101. 1058 GOTO 1051
  102. 1060 FOR EX=1 TO 5
  103. 1061 FOR E=300 TO 1800 STEP 150
  104. 1062 SOUND E,.1
  105. 1063 NEXT E
  106. 1064 NEXT EX
  107. 1065 GOSUB 900:IF QUIT=1 THEN RETURN
  108. 1066 GOTO 1060
  109. 1070 REM ELECTRICAL GENERATOR
  110. 1071 FOR X=37 TO 1000
  111. 1072 SOUND X,.1:SOUND 2*X,.1:SOUND 3*X,.1
  112. 1073 GOSUB 900:IF QUIT=1 THEN RETURN
  113. 1074 NEXT
  114. 1075 FOR Y=1 TO 20
  115. 1076 SOUND X,.1:SOUND 2*X,.1:SOUND 3*X,.1
  116. 1077 GOSUB 900:IF QUIT=1 THEN RETURN
  117. 1079 NEXT Y:RETURN
  118. 1080 REM MACHINERY
  119. 1081 FOR X=400 TO 100 STEP -10
  120. 1082 SOUND X,.01
  121. 1083 SOUND X/2+37,.01
  122. 1084 SOUND X/3+37,.01
  123. 1085 NEXT
  124. 1086 GOSUB 900:IF QUIT=1 THEN RETURN
  125. 1087 GOTO 1081
  126. 1090 REM STAR TREK PHASER SOUND
  127. 1091 FOR X=300 TO 1800 STEP 100
  128. 1092 SOUND X,.1
  129. 1093 NEXT
  130. 1094 GOSUB 900:IF QUIT=1 THEN RETURN
  131. 1095 GOTO 1091
  132. 1100 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 900: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
  133. 1110 REM TUNED TELEPHONE RING
  134. 1111 REM LOW TONE=C HIGH TONE=E
  135. 1113 FOR X=1 TO 30
  136. 1114 SOUND 523.25,.5
  137. 1115 SOUND 659.26,.5
  138. 1116 NEXT
  139. 1117 FOR TD=1 TO 1500:NEXT TD
  140. 1118 GOSUB 900:IF QUIT=1 THEN RETURN
  141. 1119 GOTO 1113
  142. 1120 REM PHOTON TORPEDO FIRE
  143. 1121 FOR X=4000 TO 100 STEP -150
  144. 1122 SOUND X,.01
  145. 1123 SOUND X/2+37,.01
  146. 1124 SOUND X/3+37,.01
  147. 1125 IF X<200 THEN SOUND 30000,.1:RETURN
  148. 1126 NEXT
  149. 1130 REM RANDOMIZED SOUNDS AND DURATIONS
  150. 1131 FOR Y=37 TO 1000 STEP 100*RND
  151. 1132 X=RND*1
  152. 1133 SOUND Y,X
  153. 1134 NEXT
  154. 1135 FOR Y=1000 TO 37 STEP -100*RND
  155. 1136 SOUND Y,X
  156. 1137 NEXT
  157. 1138 GOSUB 900:IF QUIT=1 THEN RETURN
  158. 1139 GOTO 1131
  159. 1140 REM FLYING SAUCER SOUND
  160. 1141 FOR A=500 TO 1500 STEP 200
  161. 1142 SOUND A,.5
  162. 1143 NEXT
  163. 1144 GOSUB 900:IF QUIT=1 THEN RETURN
  164. 1145 GOTO 1141
  165. 1150 REM siren
  166. 1151 FOR A=200 TO 1000:SOUND A,.1
  167. 1153 NEXT
  168. 1154 SOUND A,15:GOSUB 900:IF QUIT=1 THEN RETURN
  169. 1155 FOR A=1000 TO 200 STEP -1:SOUND A,.1
  170. 1157 NEXT
  171. 1158 GOSUB 900:IF QUIT=1 THEN RETURN
  172. 1159 GOTO 1151
  173. 1160 REM DRIPPING SPIGOT
  174. 1161 FOR X=1000 TO 1200 STEP 100
  175. 1162 SOUND X,.15
  176. 1163 NEXT
  177. 1164 FOR TD=0 TO 2000:NEXT TD
  178. 1165 GOSUB 900:IF QUIT=1 THEN RETURN
  179. 1166 GOTO 1161
  180. 1170 REM TRAIN
  181. 1171 FOR X=1700 TO 37 STEP -4
  182. 1172 IF X=100 THEN SOUND 30000,.05:RETURN
  183. 1173 SOUND X,.01
  184. 1174 NEXT
  185. 1180 REM whooper siren
  186. 1181 FOR A=900 TO 1000
  187. 1182 SOUND A,.089999999#
  188. 1183 NEXT
  189. 1184 GOSUB 900:IF QUIT=1 THEN RETURN
  190. 1185 GOTO 1181
  191. 1190 REM random electronic sounds
  192. 1192 SOUND (2000*RND)+37,.5
  193. 1194 GOSUB 900:IF QUIT=1 THEN RETURN
  194. 1196 GOTO 1192
  195.