home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / piano1.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  47 lines
  1. 1 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 10 CLS
  3. 20 PRINT"Note duration(0-255)";:INPUTY
  4. 30 IFY=0THENMENUELSE51
  5. 50 GOTO 20
  6. 51 CLS
  7. 52 PRINT"Use the three rows of letters keys.":PRINT
  8. 55 PRINT"  G G# A A# B C C# D D# E F"
  9. 58 PRINT:PRINT"   G G# A A# B C C# D D# E F"
  10. 60 PRINT:PRINT"    G# A A# B C C# D D# E F"
  11. 100 A$=INKEY$:IF A$=""THEN100
  12. 200 IF A$="a"THEN X=3134
  13. 202 IFA$="s"THENX=2959
  14. 204 IF A$="d"THENX=2793
  15. 206 IFA$="f"THENX=2636
  16. 208 IFA$="g"THENX=2488
  17. 210 IFA$="h"THENX=2348
  18. 212 IFA$="j"THENX=2216
  19. 214 IFA$="k"THENX=2092
  20. 216 IFA$="l"THENX=1975
  21. 218 IFA$=";"THENX=1864
  22. 220 IFA$="'"THENX=1758
  23. 222 IFA$="z"THENX=5918
  24. 224 IFA$="x"THENX=5586
  25. 226 IFA$="c"THENX=5272
  26. 228 IFA$="v"THENX=4976
  27. 230 IFA$="b"THENX=4697
  28. 232 IFA$="n"THENX=4433
  29. 234 IFA$="m"THENX=4184
  30. 236 IFA$=","THENX=3950
  31. 238 IFA$="."THENX=3728
  32. 240 IFA$="/"THENX=3516
  33. 242 IFA$="q"THENX=1567
  34. 244 IFA$="w"THENX=1479
  35. 246 IFA$="e"THENX=1396
  36. 248 IFA$="r"THENX=1318
  37. 250 IFA$="t"THENX=1244
  38. 252 IFA$="y"THENX=1174
  39. 254 IFA$="u"THENX=1108
  40. 256 IFA$="i"THENX=1046
  41. 258 IFA$="o"THENX=987
  42. 260 IFA$="p"THENX=932
  43. 262 IFA$="["THENX=879
  44. 998 IFA$=" "THEN50
  45. 1000 SOUND X,Y
  46. 1020 GOTO 100
  47.