home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCLING / SPELLBEE / PIANO2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  9.1 KB  |  235 lines
  1. 10  DEF SEG: POKE 106,0
  2. 20  KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19,0:PRINT "The"
  3. 30  LOCATE 7,12:PRINT "Robert K. Khedouri"
  4. 40  COLOR 10,0:LOCATE 10,9:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
  5. 50  LOCATE 11,9:PRINT CHR$(179)+"    SUPER PIANO      "+CHR$(179)
  6. 60  LOCATE 12,9:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
  7. 70  LOCATE 13,9:PRINT CHR$(179)+"    Made 1/7/`84     "+CHR$(179)
  8. 80  LOCATE 14,9:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
  9. 90  COLOR 15,0:LOCATE 17,6:PRINT "(C) Copyright Robbie Khedouri"
  10. 100  COLOR 14,0:LOCATE 23,7:PRINT "Press space bar to continue"
  11. 110  IF INKEY$ <> "" THEN  110
  12. 120  CMD$ = INKEY$:IF CMD$="" THEN 120
  13. 130  IF CMD$ = CHR$(27) THEN GOTO 1220
  14. 140  IF CMD$ <> " " THEN 120
  15. 150  ON ERROR GOTO 180
  16. 160  PLAY "mf"
  17. 170  GOTO 190
  18. 180  RESUME 190
  19. 190  ON ERROR GOTO 0
  20. 200  SCREEN 0,1:WIDTH 40:COLOR 15,1,1:CLS:DEFINT A-Z
  21. 210  LOCATE 15,7:PRINT " ------- selections -------"
  22. 220  LOCATE 16,7:PRINT " A-MARCH  E-HUMOR  I-SAKURA"
  23. 230  LOCATE 17,7:PRINT " B-STARS  F-BUG    J-BLUE  "
  24. 240  LOCATE 18,7:PRINT " C-FORTY  G-POP    K-SCALES"
  25. 250  LOCATE 19,7:PRINT " D-HAT    H-DANDY  ESC KEY-EXIT"
  26. 260  COLOR 15,0
  27. 270  FOR I=0 TO 15:FOR J=0 TO 8
  28. 280  LOCATE 5+J,5+I*2:PRINT CHR$(219);CHR$(221);
  29. 290  NEXT:NEXT
  30. 300  FOR I=0 TO 12:FOR J=0 TO 4
  31. 310  IF I=2 OR I=6 OR I=9 OR I=13 THEN 330
  32. 320  LOCATE 5+J,8+I*2:PRINT CHR$(32);CHR$(222);
  33. 330  NEXT:NEXT
  34. 340  FOR J=0 TO 9
  35. 350  LOCATE 4+J,4:COLOR 4,0:PRINT CHR$(221);:LOCATE 4+J,36:COLOR 15,0
  36. 360  PRINT CHR$(221);:COLOR 4,1:PRINT CHR$(221);
  37. 370  NEXT
  38. 380  COLOR 4,1:LOCATE 4,4
  39. 390  FOR I=0 TO 32:PRINT CHR$(219);:NEXT
  40. 400  PRINT CHR$(221);:LOCATE 13,4
  41. 410  FOR I=0 TO 32:PRINT CHR$(219);:NEXT
  42. 420  PRINT CHR$(221);:COLOR 0,7:DIM M(88),O(70)
  43. 430  LOCATE 4,8:PRINT"2 3   5 6 7   9 0   ="
  44. 440  RESTORE 2320:FOR T=7 TO 30 STEP 2:READ QWE$:LOCATE 13,T:PRINT QWE$:NEXT:RESTORE
  45. 450  FOR I=7 TO 88:M(I) =  36.8*(2^(1/12))^(I-6):NEXT
  46. 460  FOR I=0 TO 6:M(I) = 32767:NEXT
  47. 470  O(0) = 0
  48. 480  O(39)=5:O(40)=7:O(41)=8:O(42)=9
  49. 490  O(43)=10:O(44)=11:O(45)=13:O(46)=14
  50. 500  O(47)=15:O(48)=16:O(49)=17:O(50)=18
  51. 510  O(51)=19:O(52)=21:O(53)=22:O(54)=23
  52. 520  O(55)=24:O(56)=25:O(57)=27:O(58)=28
  53. 530  O(59)=29:O(60)=30:O(61)=31:O(62)=32
  54. 540  O(63)=33:O(64)=35:O(65)=36:O(66)=37
  55. 550  O(67)=38:O(68)=39:O(69)=40:O(70)=42
  56. 560  GOTO 970
  57. 570  READ M,K:K=K/2
  58. 580  IF INKEY$<>"" THEN 580
  59. 590  J=0:IF SONG =0 THEN CMD$ = INKEY$:IF CMD$="Q" THEN J=40
  60. 600  IF CMD$="2" THEN J=41
  61. 610  IF CMD$="W" THEN J=42
  62. 620  IF CMD$="3" THEN J=43
  63. 630  IF CMD$="E" THEN J=44
  64. 640  IF CMD$="R" THEN J=45
  65. 650  IF CMD$="5" THEN J=46
  66. 660  IF CMD$="T" THEN J=47
  67. 670  IF CMD$="6" THEN J=48
  68. 680  IF CMD$="Y" THEN J=49
  69. 690  IF CMD$="7" THEN J=50
  70. 700  IF CMD$="U" THEN J=51
  71. 710  IF CMD$="I" THEN J=52
  72. 720  IF CMD$="9" THEN J=53
  73. 730  IF CMD$="O" THEN J=54
  74. 740  IF CMD$="0" THEN J=55
  75. 750  IF CMD$="P" THEN J=56
  76. 760  IF CMD$="[" THEN J=57
  77. 770  IF CMD$="=" THEN J=58
  78. 780  IF CMD$="]" THEN J=59
  79. 790  IF CMD$=" " THEN J=M
  80. 795  IF CMD$="+" THEN SONG =1:J=M
  81. 800  IF M = -1  THEN RETURN
  82. 810  Q = O(M):IF M>64 OR M<39 THEN 920
  83. 820  IF SCREEN(5,Q)<>32 THEN COLOR 0,7:LOCATE 11,Q:PRINT CHR$(14);:COLOR 15,0:GOTO 840
  84. 830  COLOR 15,0:LOCATE 7,Q:PRINT CHR$(14);:COLOR 0,7
  85. 840  POKE 106,0:IF J<>M AND M>39 AND M<60 THEN 590
  86. 850  IF M<40 OR M>59 THEN J=M
  87. 860  REM
  88. 870  IF J = -1  THEN RETURN
  89. 880  Q = O(J)
  90. 890  IF J>64 OR J<39 THEN 920
  91. 900  IF SCREEN(5,Q)<>32 THEN COLOR 0,7:LOCATE 11,Q:PRINT CHR$(14);:COLOR 15,0:GOTO 920
  92. 910  COLOR 15,0:LOCATE 7,Q:PRINT CHR$(14);:COLOR 0,7
  93. 920  SOUND M(J),K:IF J=0 AND K=1 THEN 940:'SKIP NEXT FOR STACCATTO
  94. 930  IF SONG <>0 THEN SOUND 32767,9.9999E-05
  95. 940  IF J>64 OR J<39 THEN 570
  96. 950  IF SCREEN(5,Q) = 32 THEN COLOR 15,0:LOCATE 7,Q:PRINT CHR$(32);:GOTO 570
  97. 960  Q = O(J):COLOR 15,0:LOCATE 11,Q:PRINT CHR$(219);:GOTO 570
  98. 970  SONG=0:LOCATE 21,5:PRINT "                                 "
  99. 980  LOCATE 21,5:PRINT "ENTER SELECTION ==>";
  100. 990  IF INKEY$ <> "" THEN 990
  101. 1000  CMD$=INKEY$:IF CMD$="" THEN 1000
  102. 1010  IF CMD$=CHR$(27)  THEN 1220
  103. 1020  IF CMD$="A" OR CMD$="a" THEN S$= "MARCH ":RESTORE 1900:GOTO 1140
  104. 1030  IF CMD$="B" OR CMD$="b" THEN S$= "STARS ":RESTORE 1990:GOTO 1140
  105. 1040  IF CMD$="C" OR CMD$="c" THEN S$= "FORTY ":RESTORE 1680:GOTO 1140
  106. 1050  IF CMD$="D" OR CMD$="d" THEN S$= "HAT   ":RESTORE 2100:GOTO 1140
  107. 1060  IF CMD$="E" OR CMD$="e" THEN S$= "HUMOR ":RESTORE 1520:GOTO 1140
  108. 1070  IF CMD$="F" OR CMD$="f" THEN S$= "BUG   ":RESTORE 1270:GOTO 1140
  109. 1080  IF CMD$="G" OR CMD$="g" THEN S$= "POP   ":RESTORE 1600:GOTO 1140
  110. 1090  IF CMD$="H" OR CMD$="h" THEN S$= "DANDY ":RESTORE 1800:GOTO 1140
  111. 1100  IF CMD$="I" OR CMD$="i" THEN S$= "SAKURA":RESTORE 2260:GOTO 1140
  112. 1110  IF CMD$="J" OR CMD$="j" THEN S$= "BLUE  ":RESTORE 1350:GOTO 1140
  113. 1120  IF CMD$="K" OR CMD$="k" THEN S$= "SCALES":RESTORE 2180:GOTO 1140
  114. 1130  GOTO 980
  115. 1140  PRINT " ";CMD$;"-";S$
  116. 1150  READ D
  117. 1160  READ S$:LOCATE 23,1+(40.5-LEN(S$))/2
  118. 1170  COLOR 15,4:PRINT S$;:COLOR 0,7
  119. 1180  GOSUB 570
  120. 1190  S$=STRING$(39," "):LOCATE 23,1:COLOR 4,1:PRINT S$:COLOR 0,7
  121. 1200  GOTO 970
  122. 1210  END
  123. 1220  IF SAMPLES$="YES" THEN CHAIN "SAMPLES",1000
  124. 1230  SCREEN 0,1:COLOR 7,0,0:CLS:END
  125. 1240  REM The IBM Personal Computer Music Scroll
  126. 1250  REM Version 1.00 (C)Copyright IBM Corp 1981
  127. 1260  REM Licensed Material - Program Property of IBM
  128. 1270  DATA -2,"La Cucaracha - Mexican Folk Song"
  129. 1280  DATA 42,1,0,1,42,1,0,1,42,1,0,1,47,1,0,5,51,1,0,3,42,1,0,1,42,1,0,1
  130. 1290  DATA 42,1,0,1,47,1,0,5,51,1,0,5,30,1,0,1,30,1,0,1,35,1,0,3,47,1,0,1
  131. 1300  DATA 47,1,0,1,46,1,0,1,46,1,0,1,44,1,0,1,44,1,0,1,42,8,0,2,42,1,0,1
  132. 1310  DATA 42,1,0,1,42,1,0,1,46,1,0,5,49,1,0,3,42,1,0,1,42,1,0,1,42,1,0,1
  133. 1320  DATA 46,1,0,5,49,1,0,5,37,1,0,1,37,1,0,1,30,1,0,3,54,2,56,2,54,2,52,2
  134. 1330  DATA 51,2,49,2,47,8
  135. 1340  DATA -1,-1
  136. 1350  DATA -2,"Blue Danube Waltz by J.S.Strauss"
  137. 1360  DATA 42,4,42,4,46,4,49,4,49,4,0,4,61,2,0,2,61,2,0,6,58,2,0,2,58,2,0,6,42,4,42,4
  138. 1370  DATA 46,4,49,4
  139. 1380  DATA 49,4,0,4,61,2,0,2,61,2,0,6,59,2,0,2,59,2,0,6,41,4,41,4,44,4,51,4,51,4
  140. 1390  DATA 0,4,63,2,0,2,63,2,0,6,59,2,0,2
  141. 1400  DATA 59,2,0,6,41,4,41,4,44,4,51,4,51,4,0,4,63,2,0,2,63,2,0,6,58,2,0,2,58,2
  142. 1410  DATA 0,6,42,4
  143. 1420  DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2,66,2,0,6,61,2,0,2,61,2,0,6,42,4
  144. 1430  DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2
  145. 1440  DATA 66,2,0,6,63,2,0,2,63,2,0,6,44,4,44,4,47,4,51,2,0,2,51,14,0,2,48,4
  146. 1450  DATA 49,4,58,16
  147. 1460  DATA 54,4,46,4,46,8,44,4,51,8,49,4,42,4,0,2,42,2,42,4,0,8,49,2,0,2,47,2
  148. 1470  DATA 0,6,49,2,0,2
  149. 1480  DATA 47,2,0,6,49,4,58,16,56,4,49,2,0,2,46,2,0,6,49,2,0,2,46,2,0,6,49,4
  150. 1490  DATA 56,16,54,4,49,2,0,2,47,2,0,6,49,2,0,2,47,2,0,6,49,4,58,16
  151. 1500  DATA 56,4,49,4,54,4,56,4,58,4,61,8,59,4,58,2,58,2,58,4,56,2,0,2,54,4,0,8
  152. 1510  DATA -1,-1
  153. 1520  DATA -2,"Humoresque by Dvorak"
  154. 1530  DATA 47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
  155. 1540  DATA 59,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
  156. 1550  DATA 54,3,0,2,54,1,56,3,0,2,54,1,59,3,0,2,56,1,54,3,0,2,51,1
  157. 1560  DATA 49,24,47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
  158. 1570  DATA 56,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
  159. 1580  DATA 54,3,0,2,54,1,59,3,0,2,47,1,49,6,54,6,47,18
  160. 1590  DATA -1,-1
  161. 1600  DATA -2,"Pop! Goes the Weasle - Anonymous"
  162. 1610  DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,2,54,2,51,2,47,2,0,2,42,2
  163. 1620  DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,6,47,2,0,2,42,2,47,2,0,2,47,2,49,2
  164. 1630  DATA 0,2,49,2,51,2,54,2,51,2,47,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2
  165. 1640  DATA 0,4,59,2,0,2,59,2,56,2,0,2,59,2,58,2,61,2,58,2,54,2,0,4,59,2,0,2
  166. 1650  DATA 59,2,56,2,0,2,59,2,58,6,54,2,0,2,51,2,52,2,0,2,51,2,52,2,0,2,54,2
  167. 1660  DATA 56,2,0,2,58,2,59,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2
  168. 1670  DATA -1,-1
  169. 1680     DATA -2,"Symphony #40 by Mozart"
  170. 1690  DATA 55,2,54,2,54,4,55,2,54,2,54,4,55,2,54,2,54,4,62,4,0,4
  171. 1700  DATA 62,2,61,2,59,4,59,2,57,2,55,4,55,2,54,2
  172. 1710  DATA 52,4,52,4,0,4,54,2,52,2,52,4,54,2,52,2,52,4,54,2,52,2
  173. 1720  DATA 52,4,61,4,0,4,61,2,59,2,58,4,58,2,55,2,54,4,54,2,52,2
  174. 1730  DATA 50,4,50,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
  175. 1740  DATA 59,4,54,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
  176. 1750  DATA 59,4,62,4,61,2,59,2,57,2,55,2,54,4,46,4,47,4,49,4
  177. 1760  DATA 50,4,52,2,50,2,49,4,47,4,54,4,0,4,64,8
  178. 1770  DATA 65,2,0,6,64,8,65,2,0,6,64,8
  179. 1780  DATA 65,4,64,4,65,4,64,4,65,4
  180. 1790  DATA -1,-1
  181. 1800  DATA -2,"Yankee Doodle - Anonymous "
  182. 1810  DATA 50,3,50,3,52,3,54,3,50,3,54,3,52,3,45,3,50,3,50,3,52,3,54,3,50,6
  183. 1820  DATA 49,3,0,3
  184. 1830  DATA 50,3,50,3,52,3,54,3,55,3,54,3,52,3,50,3,49,3,45,3,47,3,49,3,50,6
  185. 1840  DATA 50,3,0,3
  186. 1850  DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,0,3,45,5,47,1,45,3,43,3,42,6
  187. 1860  DATA 45,3,0,3
  188. 1870  DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,47,3,45,3,50,3,49,3,52,3,50,6
  189. 1880  DATA 50,6
  190. 1890  DATA -1,-1
  191. 1900  DATA -2,"FUNERAL MARCH OF A MARIONETTE - GOUNOD"
  192. 1910  DATA 37,1,0,2,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,1,0,2
  193. 1920  DATA 30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,3,42,3,0,3,45,3
  194. 1930  DATA 49,6,47,3,45,3,0,3,49,3,52,6,50,3,49,3,0,3,53,3,56,6,54,3,53,3,50,3
  195. 1940  DATA 49,3,47,3,45,3,44,3,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3
  196. 1950  DATA 0,3,37,1,0,2,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3
  197. 1960  DATA 37,3,45,3,0,3,49,3,52,6,50,3,49,3,47,3,45,3,43,3,47,3,50,3,42,3
  198. 1970  DATA 41,3,42,3,44,3,0,3,45,1,0,2,44,9,42,1
  199. 1980  DATA -1,-1
  200. 1990  DATA -2,"STARS AND STRIPES FOREVER - SOUSA "
  201. 2000  DATA 54,6,54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3
  202. 2010  DATA 51,3,51,6,50,3,51,3
  203. 2020  DATA 54,6,51,3,54,3,52,12,49,6,0,3,49,3,49,6,48,3,49,3
  204. 2030  DATA 49,6,48,3,49,3
  205. 2040  DATA 52,16,0,2,51,3,49,3,51,3,54,9,56,9,56,3,49,16,0,2,54,6
  206. 2050  DATA 54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3,51,3,51,6,50,3 ,51,3
  207. 2060  DATA 52,3,51,3,49,5,46,1,49,12,47,6,0,3,47,3,47,6,46,3,47,3,50,6,49,3,47,3
  208. 2070  DATA 59,15,0,3,47,3,49,3,51,3,54,1,0,2,47,3,49,3,51,3,54,1,0,2,42,3,44,5
  209. 2080  DATA 51,1,49,12,47,1
  210. 2090  DATA -1,-1
  211. 2100  DATA -2,"Mexican Hat Dance - Traditional "
  212. 2110  DATA 52,2,57,2,0,2,52,2,57,2,0,2,52,2,57,6,0,4,52,2,57,2,59,2,57,2,56,4
  213. 2120  DATA 57,2,59,2,0,8,52,2,56,2,0,2,52,2,56,2,0,2,52,2,56,6,0,4,52,2
  214. 2130  DATA 56,2,57,2,56,2,54,4,56,2,57,2,0,6,64,2,63,2,64,2,61,2,60,2,61,2
  215. 2140  DATA 57,2,56,2,57,2,52,2,0,4,49,2,50,2,52,2,54,2,56,2,57,2,59,2,61,2
  216. 2150  DATA 62,2,59,2,0,4,62,2,61,2,62,2,59,2,58,2,59,2,56,2,55,2,56,2,52,2
  217. 2160  DATA 0,4,64,2,63,2,64,2,66,2,64,2,62,2,61,2,59,2,57,2
  218. 2170  DATA -1,-1
  219. 2180  DATA -2,"SCALES                          "
  220. 2190  DATA 38,1,39,1,40,1,41,1,42,1,43,1,44,1,45,1,46,1,47,1
  221. 2200  DATA 48,1,49,1,50,1,51,1,52,1,53,1,54,1,55,1,56,1
  222. 2210  DATA 57,1,58,1,59,1,60,1,61,1,62,1,63,1,64,1,65,8,0,4
  223. 2220  DATA 65,8,64,1,63,1,62,1,61,1,60,1,59,1,58,1,57,1
  224. 2230  DATA 56,1,55,1,54,1,53,1,52,1,51,1,50,1,49,1,48,1
  225. 2240  DATA 47,1,46,1,45,1,44,1,43,1,42,1,41,1,40,1,39,1,38,8
  226. 2250  DATA -1,-1
  227. 2260  DATA -2,"Sakura - Japanese Folk Melody "
  228. 2270  DATA 49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4,49,8,51,8,52,8,51,8
  229. 2280  DATA 49,8,51,4,49,4,45,16,44,8,40,8,44,8,45,8
  230. 2290  DATA 44,8,44,4,40,4,39,16,49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4
  231. 2300  DATA 40,8,44,8,45,8,49,8,51,4,49,4,45,8,44,16
  232. 2310  DATA -1,-1
  233. 2320  DATA "Q","W","E","R","T","Y","U","I","O","P","[","]"
  234. 2330  DATA "2","3","5","6","7","9","0","="
  235.