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