home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCLING / SPELLBEE / MINUET2.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  1.1 KB  |  42 lines
  1. 10 DIM TUNE$(4)
  2. 20 CLS:KEY OFF
  3. 30 LOCATE 11,37:PRINT "Minuet"
  4. 40 LOCATE 12,35:PRINT "J.S. Bach"
  5. 50 FOR MEASURE=1 TO 32
  6. 60 READ NOTES$
  7. 70 TUNE$(MEASURE\8)=TUNE$(MEASURE\8)+NOTES$
  8. 80 NEXT MEASURE
  9. 90 PLAY "xTUNE$(0);xTUNE$(1);xTUNE$(2);xTUNE$(3);xTUNE$(4);"
  10. 100 DATA t110 l8 ms d4 mn o3 g a b o4 c
  11. 110 DATA d4 o3 ms g4 mn g4
  12. 120 DATA o4 ms e4 mn c d e f#
  13. 130 DATA g4 o3 ms g4 mn g4
  14. 140 DATA ms o4 c4 mn d c o3 b a
  15. 150 DATA ms b4 mn o4 c o3 b a g
  16. 160 DATA MS F#4 MN G A B G
  17. 170 DATA B4 A2
  18. 180 DATA O4 MS D4 MN O3 G A B O4 C
  19. 190 DATA D4 O3 MS G4 G4
  20. 200 DATA O4 E4 MN C D E F#
  21. 210 DATA G4 O3 MS G4 G4
  22. 220 DATA O4 C4 MN D C O3 B A
  23. 230 DATA B4 O4 C O3 B A G
  24. 240 DATA A4 B A G F#
  25. 250 DATA G2
  26. 260 DATA O4 B4 G A B G
  27. 270 DATA A4 D E F# D
  28. 280 DATA G4 E F# G D
  29. 290 DATA C#4 O3 B O4 C# O3 A4
  30. 300 DATA A B O4 C# D E F#
  31. 310 DATA MS G4 MN F#4 E4
  32. 320 DATA MS F#4 O3 A4 O4 C#4
  33. 330 DATA MN D2
  34. 340 DATA D4 O3 G F# G4
  35. 350 DATA O4 E4 O3 G F# G4
  36. 360 DATA O4 D4 C4 O3 B4
  37. 370 DATA A G F# G A4
  38. 380 DATA D E F# G A B
  39. 390 DATA O4 C4 O3 B4 A4
  40. 400 DATA B O4 D O3 G4 F#4
  41. 410 DATA G2
  42.