home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / piano2.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  45 lines
  1. 0 'PIANO.BA author unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'There are two variables in line  15 
  4. 3 'which can be changed to suit   your 
  5. 4 'own   taste.    X   is  any   whole   
  6. 5 'number; the larger the number,  the 
  7. 6 'longer  the sound after you press a 
  8. 7 'key.   Y  is  any  number between 1   
  9. 8 'and  5.   Whole  numbers for Y will  
  10. 9 'result   in  the   actual   pitches      
  11. 10 'indicated  by the "piano" keyboard 
  12. 11 'on  the screen.  Rational  numbers  
  13. 12 'for Y will put you in another key. 
  14. 15 DIMS(13):X=7:Y=2
  15. 20 FORI=1TO13:READS(I):NEXTI
  16. 30 FORI=1TO13:S(I)=INT(S(I)/Y):NEXTI
  17. 40 GOSUB300
  18. 100 S$=INKEY$
  19. 110 IFS$="z"THENSOUNDS(1),X
  20. 120 IFS$="s"THENSOUNDS(2),X
  21. 130 IFS$="x"THENSOUNDS(3),X
  22. 140 IFS$="d"THENSOUNDS(4),X
  23. 150 IFS$="c"THENSOUNDS(5),X
  24. 160 IFS$="v"THENSOUNDS(6),X
  25. 170 IFS$="g"THENSOUNDS(7),X
  26. 180 IFS$="b"THENSOUNDS(8),X
  27. 190 IFS$="h"THENSOUNDS(9),X
  28. 200 IFS$="n"THENSOUNDS(10),X
  29. 210 IFS$="j"THENSOUNDS(11),X
  30. 220 IFS$="m"THENSOUNDS(12),X
  31. 230 IFS$=","THENSOUNDS(13),X
  32. 250 GOTO100
  33. 300 CLS:LINE(23,20)-(23,52):LINE(23,52)-(43,52):LINE(43,52)-(43,36):LINE(35,20)-(55,36),1,BF
  34. 310 LINE(47,36)-(47,52):LINE(47,52)-(67,52):LINE(67,52)-(67,36):LINE(59,20)-(79,36),1,BF
  35. 320 LINE(71,36)-(71,52):LINE(71,52)-(91,52):LINE(91,52)-(91,20)
  36. 330 LINE(95,20)-(95,52):LINE(95,52)-(115,52):LINE(115,52)-(115,36):LINE(107,20)-(127,36),1,BF
  37. 340 LINE(119,36)-(119,52):LINE(119,52)-(139,52):LINE(139,52)-(139,36):LINE(131,20)-(151,36),1,BF
  38. 350 LINE(143,36)-(143,52):LINE(143,52)-(163,52):LINE(163,52)-(163,36):LINE(155,20)-(175,36),1,BF
  39. 360 LINE(167,36)-(167,52):LINE(167,52)-(187,52):LINE(187,52)-(187,20)
  40. 370 LINE(191,20)-(191,52):LINE(191,52)-(211,52):LINE(211,52)-(211,36):LINE(211,36)-(203,36):LINE(203,36)-(203,20)
  41. 390 PRINT@205,"z":PRINT@209,"x":PRINT@213,"c":PRINT@217,"v":PRINT@221,"b":PRINT@225,"n":PRINT@229,"m":PRINT@233,","
  42. 395 PRINTCHR$(27);"p":PRINT@127,"s":PRINT@131,"d":PRINT@139,"g":PRINT@143,"h":PRINT@147,"j":PRINTCHR$(27);"q"
  43. 400 RETURN
  44. 2000 DATA9394,8866,8368,7900,7456,7032,6642,6269,5918,5586,5272,4976,4697
  45.