home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / pcbugl.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  8.5 KB  |  205 lines
  1. 1000 REM  **  PC BUGLE CALLS  **
  2. 1010 REM
  3. 1020 REM     8/15/87 VERSION
  4. 1030 REM
  5. 1040 REM     LOUIS F. SANDER
  6. 1050 REM     153 MAYER DRIVE
  7. 1060 REM  PITTSBURGH, PA  15237
  8. 1070 REM      (412)367-1376
  9. 1080 REM
  10. 1090 REM
  11. 1100 REM  ***  INITIALIZATION  ***
  12. 1110 KEY OFF:CLS:WIDTH 40
  13. 1120 C1=12 :REM RED
  14. 1130 C2=11 :REM CYAN
  15. 1140 C3=14 :REM YELLOW
  16. 1150 REM
  17. 1160 REM  ***  MAIN LOOP  ***
  18. 1170 COLOR C3:PRINT" PC BUGLE CALLS  -  LOUIS F. SANDER"
  19. 1180 PRINT:COLOR C1:PRINT"THIS IS A COLLECTION OF FAMOUS BUGLE"
  20. 1190 PRINT"CALLS. YOU CAN SEPARATE THEM FROM THIS"
  21. 1200 PRINT"PROGRAM TO USE IN YOUR OWN CREATIONS."
  22. 1210 PRINT:PRINT"TO HEAR A CALL, ENTER ITS NUMBER."
  23. 1220 PRINT"TO QUIT, JUST PRESS RETURN.":PRINT
  24. 1230 T=1:U=21
  25. 1240 COLOR C3:PRINT TAB(T)"1  ";:COLOR C2:PRINT"ADJUTANT'S CALL";
  26. 1250 COLOR C3:PRINT TAB(U)"11 ";:COLOR C2:PRINT"GENERAL CALL"
  27. 1260 COLOR C3:PRINT TAB(T)"2  ";:COLOR C2:PRINT"ASSEMBLY";
  28. 1270 COLOR C3:PRINT TAB(U)"12 ";:COLOR C2:PRINT"MAIL CALL"
  29. 1280 COLOR C3:PRINT TAB(T)"3  ";:COLOR C2:PRINT"ATTENTION";
  30. 1290 COLOR C3:PRINT TAB(U)"13 ";:COLOR C2:PRINT"MESS CALL"
  31. 1300 COLOR C3:PRINT TAB(T)"4  ";:COLOR C2:PRINT"CHURCH CALL";
  32. 1310 COLOR C3:PRINT TAB(U)"14 ";:COLOR C2:PRINT"OFFICERS' CALL"
  33. 1320 COLOR C3:PRINT TAB(T)"5  ";:COLOR C2:PRINT"COLORS";
  34. 1330 COLOR C3:PRINT TAB(U)"15 ";:COLOR C2:PRINT"QUARTERS"
  35. 1340 COLOR C3:PRINT TAB(T)"6  ";:COLOR C2:PRINT"DRILL CALL";
  36. 1350 COLOR C3:PRINT TAB(U)"16 ";:COLOR C2:PRINT"RECALL"
  37. 1360 COLOR C3:PRINT TAB(T)"7  ";:COLOR C2:PRINT"FATIGUE";
  38. 1370 COLOR C3:PRINT TAB(U)"17 ";:COLOR C2:PRINT"RETREAT"
  39. 1380 COLOR C3:PRINT TAB(T)"8  ";:COLOR C2:PRINT"FIRE CALL";
  40. 1390 COLOR C3:PRINT TAB(U)"18 ";:COLOR C2:PRINT"REVEILLE"
  41. 1400 COLOR C3:PRINT TAB(T)"9  ";:COLOR C2:PRINT"FIRST CALL";
  42. 1410 COLOR C3:PRINT TAB(U)"19 ";:COLOR C2:PRINT"SWIM CALL"
  43. 1420 COLOR C3:PRINT TAB(T)"10 ";:COLOR C2:PRINT"FLOURISHES";
  44. 1430 COLOR C3:PRINT TAB(U)"20 ";:COLOR C2:PRINT"TAPS"
  45. 1440 COLOR C3:LOCATE 22,4+11:PRINT SPACE$(26)
  46. 1450 LOCATE 22,4:S$="":COLOR C3:INPUT"SELECTION";S$:S=VAL(S$):IF S>255 THEN 1440
  47. 1460 IF S<1 THEN 1490
  48. 1470 ON S GOSUB 1520,1580,1640,1700,1770,1910,1980,2040,2150,2210,2280,2480,2520,2610,2650,2710,2760,2830,2930,2980
  49. 1480 GOTO 1440
  50. 1490 COLOR 7:WIDTH 80:KEY ON:END
  51. 1500 :
  52. 1510 REM  ***  BUGLE CALLS  ***
  53. 1520 REM ADJUTANT'S CALL - LOUIS F. SANDER
  54. 1530 FOR J=1 TO 2
  55. 1540 PLAY"T120 MN O3 G8 E16 C16 G4 G8 E16 C16 G4 G8 E16 C16 O2 G8 O3 G8 E8 G16 E16 C4"
  56. 1550 NEXT
  57. 1560 RETURN
  58. 1570 :
  59. 1580 REM ASSEMBLY - LOUIS F. SANDER
  60. 1590 PLAY"T200 MN O2 G8. G16 O3 C8. O2 G16 O3 C8. E16 C4 C8 C16"
  61. 1600 PLAY"O3 L8 E8. C16 E8. G16 E4 C8. E16 G4 E8. C16 O2 G4 G8. G16"
  62. 1610 PLAY"O3 C4 C8. C16 C4."
  63. 1620 RETURN
  64. 1630 :
  65. 1640 REM ATTENTION/CARRY ON - LOUIS F. SANDER
  66. 1650 PLAY"T100 MN O3 C16 E4.. O2 G16 O3 E4.."
  67. 1660 PLAY"P8 C4 P16 C4 P1 P2"
  68. 1670 PLAY"T200 O2 G8 G8 O3 C8 E8 G8 G8 G8 O2 G8 G8 G8 O3 C4"
  69. 1680 RETURN
  70. 1690 :
  71. 1700 REM CHURCH CALL - LOUIS F. SANDER
  72. 1710 PLAY"MN T60 O2 G4. O3 MS C8 MN E2 C4 E4 O2 G2 O3 C4."
  73. 1720 PLAY"MS E8 MN G2 E4 C4 O2 G4. MS G16 O3 C8 C16 E16 C8 E8"
  74. 1730 PLAY"O2 G8 G8 G4 O3 C8 C16 E16 C8 E8 G8 G8 O2 G8 O3 C8"
  75. 1740 PLAY"C16 E16 C8 E8 O2 G8 G8 G8 G4 O3 C8 C16 E16 G8 E8 MN C2"
  76. 1750 RETURN
  77. 1760 :
  78. 1770 REM CALL TO THE COLORS - LOUIS F. SANDER
  79. 1780 GOSUB 1790:GOTO 1850
  80. 1790 PLAY"T136 MN O3 E8. E16 G4 C8. C16 E4 O2 G8."
  81. 1800 PLAY"G16 O3 C4 C8. C16 C4 C8. E16 G4 G8. G16"
  82. 1810 PLAY"E4 C8. E16 G2 O2 G4 O3 E8. E16 G4 C8."
  83. 1820 PLAY"C16 E4 O2 G8. G16 O3 C4 C8. C16 C4 C8."
  84. 1830 PLAY"E16 G8 E8 C8 O2 G8 O3 G8 E8 C8 O2 G8 O3 C4 C8. C16 C4"
  85. 1840 RETURN
  86. 1850 PLAY"O2 G8. G16 O3 C2 C8 C16 C16 C8 C8 E2 E8 E16"
  87. 1860 PLAY"E16 E8 E8 G2 G8 G16 G16 G8 G8 E8 G8 E16 C16 O2 G8"
  88. 1870 PLAY"O3 E8 G8 E16 C16 O2 G8 O3 G8 G16 G16 G8 G8 G4"
  89. 1880 GOSUB 1790
  90. 1890 RETURN
  91. 1900 :
  92. 1910 REM DRILL CALL - LOUIS F. SANDER
  93. 1920 PLAY"T152 MN O3 C16 C16 C8 O2 G16 G16 G8 O3 E16 E16 E8 C16"
  94. 1930 PLAY"C16 C8 P8 O2 G8 O3 C16 E16 G8 E16 G4. C16 C16 C8"
  95. 1940 PLAY"O2 G16 G16 G8 O3 E16 E16 E8 C16 C16 C4 O2 G8 G16 G16"
  96. 1950 PLAY"G6 G6 G6 O3 C4."
  97. 1960 RETURN
  98. 1970 :
  99. 1980 REM FATIGUE - LOUIS F. SANDER
  100. 1990 PLAY"T140 MN O3 C8 E8 C8 G8 G24 G24 G24 G8 C8 E8 C8 O2 C4 P8"
  101. 2000 PLAY"O3 C8 E8 C8 G8 G24 G24 G24 G8 C8 E8 C8 O2 C4 P8"
  102. 2010 PLAY"O3 C8 E8 C8 G8 G24 G24 G24 G8 C8 E8 C8 G4 P8 MS C8 C24 C24 C24 P32 C8 C4."
  103. 2020 RETURN
  104. 2030 :
  105. 2040 REM FIRE CALL - LOUIS F. SANDER
  106. 2050 FOR J=1 TO 2
  107. 2060 PLAY"T176 MN O2 G8. G16 O3 ML E2 E8 MN P8 O2 G8. G16"
  108. 2070 PLAY"ML O3 E2 E8 MN P16 O2 G16 O3 C8. E16"
  109. 2080 PLAY"G2 E8. E16 C8. C16 ML O2 G2 G8 P8 P8. O3 E16"
  110. 2090 PLAY"C8. E16 O2 G8. O3 E16 C8. E16 O2 G8. O3 E16"
  111. 2100 PLAY"C8. E16 G8. E16 C4 O2 G4 O3 C8. E16 O2 G8. O3 E16 C8. E16 O2 G8. O3 E16"
  112. 2110 PLAY"C8. O2 G16 O3 E8. O2 G16 O3 C2."
  113. 2120 NEXT
  114. 2130 RETURN
  115. 2140 :
  116. 2150 REM FIRST CALL - LOUIS F. SANDER
  117. 2160 PLAY"T132 MN O2 G24 O3 C24 E24 G8 G24 G24 G24 G8 E8 E24 E24 E24 E8"
  118. 2170 PLAY"C8 E8 C8 O2 G8 P8 G24 O3 C24 E24 G8 G24 G24 G24 G8"
  119. 2180 PLAY"G8 E8 C8 O2 G8 G24 G24 G24 G8 O3 C2"
  120. 2190 RETURN
  121. 2200 :
  122. 2210 REM FLOURISHES - LOUIS F. SANDER
  123. 2220 FOR J=1 TO 3
  124. 2230 PLAY"T120 MN O2 G8 G16 G16 G8 G16 G16 O3 ML C4. P8"
  125. 2240 NEXT
  126. 2250 PLAY"T120 MN O2 G8 G16 G16 G8 G16 G16 O3 ML C2 C8 MN P4 P8
  127. 2260 RETURN
  128. 2270 :
  129. 2280 REM GENERAL CALL - LOUIS F. SANDER
  130. 2290 PLAY"T140"
  131. 2300 PLAY"O3 MS C8 MN C24 C24 C24 C8 C8 C8 C8"
  132. 2310 PLAY"MS C8 MN C24 C24 C24 C8 MS C8 E8 C8"
  133. 2320 PLAY"MS G8 MN G24 G24 G24 G8 G8 E8 C8 O2 G4 G4 P4"
  134. 2330 PLAY"O3 C8 C24 C24 C24 C8 C8 C8 C8"
  135. 2340 PLAY"C8 C24 C24 C24 C8 MS C8 E8 G8"
  136. 2350 PLAY"C8 C24 C24 C24 C8 C8 O2 MS G8 G8 O3 MN C4 C4 P4"
  137. 2360 FOR J=1 TO 3:PLAY"O2 G8. MS G16 MN":NEXT
  138. 2370 PLAY"G8. O3 MS E16 MN C12 G12 E12 C12 E12 C12"
  139. 2380 FOR J=1 TO 3:PLAY"O2 G8. G16":NEXT
  140. 2390 PLAY"O3 C12 O2 G12 O3 E12 C4 P4"
  141. 2400 FOR J=1 TO 3:PLAY"O2 G8. G16":NEXT
  142. 2410 PLAY"O3 C12 O2 G12 O3 E12 C12 O2 G12 O3 E12 O2 G12 O3 C12 E12"
  143. 2420 PLAY"MS G8 MN O2 G24 G24 G24 G8 MS G8 G8 O3 E16 MN"
  144. 2430 PLAY"C4 P8 O2 G24 G24 G24 G8. MS G16 MN"
  145. 2440 PLAY"O3 C4 P8 O2 G24 G24 G24 G8. O3 MS E16 MN"
  146. 2450 PLAY"C2 P4"
  147. 2460 RETURN
  148. 2470 :
  149. 2480 REM MAIL CALL - LOUIS F. SANDER
  150. 2490 PLAY"T176 MN O3 C8 C16 C16 C8 O2 G8 O3 C8 C16 C16 C8 O2 G8 O3 C8 E8 C8 E8 C8 C8 O2 ML G4 MN"
  151. 2500 RETURN
  152. 2510 :
  153. 2520 REM MESS CALL - LOUIS F. SANDER
  154. 2530 PLAY"T160 MN O3 C8 E8 C8 E8 C4 C4"
  155. 2540 PLAY"MS C8 MN C24 C24 C24 MS C8 E8 MN C4 P4
  156. 2550 PLAY"MS O3 E8 G8 E8 G8 MN E4 E4"
  157. 2560 PLAY"MS E8 MN E24 E24 E24 E8 MS G8 MN E4 P4
  158. 2570 PLAY"O2 G8 O3 C8 O2 G8 O3 C8 O2 G4 G4"
  159. 2580 PLAY"MS G8 MN G24 G24 G24 G8 MS O3 C8 MN O2 G4. P8"
  160. 2590 RETURN
  161. 2600 :
  162. 2610 REM OFFICERS' CALL - LOUIS F. SANDER
  163. 2620 PLAY"T100 MN O3 C8 C16 E16 G8 E8 C16 E16 G8 E8 C16 E16 G8 E4. C8 C16 E16 G8 E8 C16 E16 G8 E8 C8 O2 G8 O3 C4."
  164. 2630 RETURN
  165. 2640 :
  166. 2650 REM QUARTERS - LOUIS F. SANDER
  167. 2660 PLAY"T110 O3 C4 E4 G2. P8 P4 P4 O2 G4 O3 C4 C8. C16 C4 MS E8 C8 MN O2 G4 O3 C2 C8. MS E16 MN"
  168. 2670 PLAY"O3 G4 G12 E12 G12 E4 E12 C12 E12 C4 C12 E12 C12 O2 G2"
  169. 2680 PLAY"O3 C4 E4 G4 E4 C4 E4 O2 G4 O3 C4 O2 ML C4 G4 O3 C2 MN"
  170. 2690 RETURN
  171. 2700 :
  172. 2710 REM RECALL - LOUIS F. SANDER
  173. 2720 PLAY"T120 O3 C8 C24 C24 C24 L8 C8 C8 E4 C8 E8 G8 G24 G24 G24 G8 E8 G8 E8 C4"
  174. 2730 PLAY"C8 C24 C24 C24 C8 C8 E4 C8 E8 G8 G24 G24 G24 G8 E8 C4"
  175. 2740 RETURN
  176. 2750 :
  177. 2760 REM RETREAT - LOUIS F. SANDER
  178. 2770 PLAY"T120 MN O3 C4 C8. C16 G2 E4 G8. MS E16 MN C4. O2 MS G8 MN O3 C4 E4"
  179. 2780 PLAY"C4. O2 MS G8 MN O3 C8. E16 G8. E16 C4 O2 G8. MS G16 MN O3 C8. O2 G16 O3 MS C16 O2 G16 O3 C16 E16 MN G2"
  180. 2790 PLAY"MS G4 MN G8. G16 E4. MS E8 G8 E8 G8 E8 MN C4 P4 C4 O2 G4 O3 C2"
  181. 2800 PLAY"C4 O2 G4 O3 C2 C4 O2 G4 O3 C8. MS O2 G16 O3 C16 O2 G16 O3 C16 E16 G8. E16 G16 E16 G16 E16 ML C4 MN P4"
  182. 2810 RETURN
  183. 2820 :
  184. 2830 REM REVEILLE - LOUIS F. SANDER
  185. 2840 GOSUB 2850:GOTO 2890
  186. 2850 PLAY"T140 MN O2 G8 O3 MS C8 MN E16 C16 O2 G8 O3 MS E8 C8 MN E16 C16 O2 G8 O3 E8"
  187. 2860 PLAY"C8 E16 C16 O2 G8 O3 MS C8 MN E4 C8 O2 MS G8 MN"
  188. 2870 PLAY"O3 C8 E16 C16 O2 G8 O3 E8 C8 E16 C16 O2 G8 O3 E8"
  189. 2880 PLAY"C8 E16 C16 O2 G8 G8 O3 C4.":RETURN
  190. 2890 PLAY"E8 MS E8 E8 E8 E8 MN G4 E8 MS C8 E8 C8 E8 C8 MN E4 C8 MS E8 E8 E8 E8 E8 MN G4"
  191. 2900 PLAY"E8 MS C8 E8 C8 O2 G8 G8 MN O3 C4.":GOSUB 2850
  192. 2910 RETURN
  193. 2920 :
  194. 2930 REM SWIM CALL - LOUIS F. SANDER
  195. 2940 PLAY"T198 MN O2 G8 O3 C8 P8 C8 C8 E8 C8 O2 G8 P8 G8 G8 P8 G8 O3 C8 P8 C8 C8 E8 C8"
  196. 2950 PLAY"O2 G4 P8 P4 G8 O3 C8 P8 C8 C8 E8 C8 G8 P8 G8 G8 P8 G8 G8 E8 C8 O2 G8 P8 G8 O3 C4. P4"
  197. 2960 RETURN
  198. 2970 :
  199. 2980 REM TAPS - LOUIS F. SANDER
  200. 2990 PLAY"T90 MN O2 G8. G16 O3 ML C2. MN O2 G8. O3 C16"
  201. 3000 PLAY"ML E2. MN O2 G8 O3 C8 E4 O2 G8 O3 C8 E4 O2 G8 O3 C8"
  202. 3010 PLAY"ML E2. MN C8. E16 G2 E4 C4"
  203. 3020 PLAY"O2 G2. G8. G16 O3 ML C2. MN"
  204. 3030 RETURN
  205.