home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / GUITAR-TUNE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  46 lines
  1. 10 DIMH(6),L(6),S$(6),CO$(6),P$(2)
  2. 20 S=54272:U$=CHR$(145):D$=CHR$(17):L$=CHR$(157)
  3. 30 SM$=CHR$(182)+CHR$(181):BK$=CHR$(113)+CHR$(113)
  4. 40 FORI=STOS+24:POKEI,0:NEXT
  5. 50 POKES+5,96:POKES+6,96:POKES+24,15
  6. 60 FORI=1TO6:READH(I),L(I):NEXTI
  7. 70 FORI=1TO6:READCO:CO$(I)=CHR$(CO):NEXTI
  8. 80 SP$=CHR$(160):FORI=2TO12:SP$=SP$+CHR$(160):NEXTI
  9. 90 S$=CHR$(99):FORI=2TO25:S$=S$+CHR$(99-24*(I/5=INT(I/5))):NEXTI
  10. 100 S$=S$+CHR$(123):FORI=1TO14:S$=S$+CHR$(99):NEXTI
  11. 110 P$(1)=SM$+U$+L$+L$+BK$:P$(2)=SM$+D$+L$+L$+BK$
  12. 120 FORI=1TO3:P$(1)=CHR$(98)+U$+L$+P$(1)
  13. 130 P$(2)=CHR$(98)+D$+L$+P$(2):NEXTI
  14. 140 FORI=1TO6:READT$,L,R
  15. 150 S$(I)=T$+LEFT$(S$,L)+CHR$(107+2*(I<3))
  16. 160 S$(I)=S$(I)+CHR$(145+128*(I<3))+L$
  17. 170 S$(I)=S$(I)+RIGHT$(P$(1-(I<3)),R):NEXTI
  18. 180 POKE53280,0:POKE53281,0
  19. 190 PRINTCHR$(147);TAB(3);CHR$(5);"*--- THE ULTIMATE PITCH PIPE ---*"
  20. 200 PRINTCHR$(28):POKE214,5:PRINT:FORI=1TO8
  21. 210 PRINTTAB(27);CHR$(28);CHR$(18);SP$:NEXTI
  22. 220 PRINTCH$(5):FORI=7TO11:POKE214,I:PRINT
  23. 230 PRINTS$(I-5):NEXTI
  24. 240 POKE214,18:PRINT
  25. 250 PRINTCHR$(5);TAB(4);"PRESS <SPACE BAR> TO MOVE FROM"
  26. 260 PRINT"  STRING TO STRING, <P> TO TURN SOUND"
  27. 270 PRINTTAB(6);"ON AND OFF, OR<Q> TO QUIT."
  28. 280 P=6:F=0
  29. 290 POKE214,P:PRINT:PRINTCO$(1);S$(1)
  30. 300 GETK$:IFK$=""THEN300
  31. 310 IFK$<>"Q"THEN330
  32. 320 SYS770:END
  33. 330 IFK$="P"THENF=NOTF:GOSUB1000:GOTO300
  34. 340 IFK$<>" "THEN300
  35. 350 POKE214,P:PRINT
  36. 360 PRINTCHR$(5);S$(P-5):P=P+1+6*(P=11)
  37. 370 POKE214,P:PRINT
  38. 380 PRINTCO$(P-5);S$(P-5):IFFTHENGOSUB1000
  39. 390 GOTO3    
  40. 1000 POKES+4,-33*F:POKES,-L(P-5)*F
  41. 1010 POKES+1,-H(P-5)*F:RETURN
  42. 2000 DATA5,71,7,12,9,104,12,143,15,210,21,31
  43. 3000 DATA30,31,156,158,159,28
  44. 4000 DATAE,27,10,A,31,13,D,35,16
  45. 4010 DATAG,35,16,B,31,13,E,27,10
  46.