home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / tuner (.txt) < prev    next >
Commodore BASIC  |  1989-07-18  |  768b  |  18 lines
  1. 8 DIMHI(12),LO(12),NO$(12)
  2. 10 PRINT"[147][199]UITAR [212]UNNER":FORT=0TO300:NEXT
  3. 15 PRINT"[213]SE THE [197]/[193]/[196]/[199]/[194]/[195][212][210][204]-[197]"
  4. 16 PRINT"KEYS FOR A SIX-STRING GUITAR."
  5. 17 PRINT"[196]EPRESS THE [211][200][201][198][212][160][204][207][195][203] KEY"
  6. 18 PRINT"TO TUNE THE SECOND SET OF"
  7. 19 PRINT"STRINGS FOR A TWELVE-STRING GUITAR."
  8. 20 S=54272:FORT=0TO23:POKES+T,0:NEXT:POKES+24,12:POKES+5,17:POKES+6,243
  9. 70 FORT=1TO11:READHI,LO:HI(T)=HI:LO(T)=LO:NEXTT
  10. 80 GETA$:IFA$=""THEN80
  11. 90 A=-(A$="E")-2*(A$="A")-3*(A$="D")-4*(A$="G")-5*(A$="B")-6*(A$=CHR$(5))
  12. 95 A=A-7*(A$="[197]")-8*(A$="[193]")
  13. 97 A=A-9*(A$="[196]")-10*(A$="[199]")-11*(A$="[194]")
  14. 100 POKES,LO(A):POKES+1,HI(A)
  15. 150 POKES+4,17:FORI=0TO2000:NEXTI:POKES+4,16
  16. 175 POKE198,0:GOTO80
  17. 200 DATA 10,143,14,24,18,209,25,30,31,165,42,62,21,31,28,49,37,162,50,60,31,165
  18.