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