home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / guitar chords (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  9.6 KB  |  269 lines
  1. 10 poke53280,13:poke53281,5:poke646,1:printchr$(142)
  2. 100 rem guitar chords
  3. 110 rem andy gamble, columbia college
  4. 120 rem 1625 w 10 ave vancouver bc
  5. 130 rem (c) feb '84
  6. 140 rem for pet, vic with 10k, c64
  7. 150 dataana,3,002220,002225,577655
  8. 160 dataanb,2,002020,575685,anc,2,002210,577555
  9. 170 dataand,2,002010,575585,ane,2,002120,x07654
  10. 180 dataanf,2,00230,x07755,ang,2,002030,575755
  11. 190 dataanh,2,002222,5x7675,ani,2,002212,5x7575
  12. 200 dataanj,3,002423,x05455,x05657,ank,2,002413,x05557
  13. 210 dataanl,2,002100,54645x,anm,2,x04200,x04455,x07677
  14. 220 dataann,2,x02523,x05658,ano,2,5453xx,5x5656
  15. 230 dataanp,3,x4322x,5432xx,xx3221,anq,2,x03021,5x5665
  16. 240 dataanr,3,2312xx,x3424x,xx1212,ans,2,x0122x,x07645
  17. 250 dataant,2,x0102x,x05645,anu,3,x0100x,545445,x07887
  18. 260 dataanv,3,x00000,x05433,x07787,anw,2,x05422,5x5677
  19. 270 dataasa,2,113331,688766,asb,2,113131,686796,asc,2,113321,688666
  20. 280 dataasd,2,113121,686696,ase,2,113231,68776x
  21. 290 dataasf,3,113341,xx3346,668866,asg,2,113141,686866,ash,2,113333,6x8786
  22. 300 dataasi,2,113023,6x8686,asj,3,110111,x5656x,6x6768
  23. 310 dataask,2,6465xx,686668,asl,3,110211,6575xx,xx8565
  24. 320 dataasm,2,110011,655566,asn,3,110121,65666x,686769
  25. 330 dataaso,3,110101,6564xx,6x6767,asp,3,x5433x,6543xx,xx4332
  26. 340 dataasq,2,x14132,6x6776,asr,3,3423xx,x1202x,xx2323
  27. 350 dataass,3,x1233x,xx8756,6787xx,ast,2,x1213x,xx6756
  28. 360 dataasu,3,010110,656556,xx8998,asv,3,011111,6x6544,x88898
  29. 370 dataasw,3,110113,6x6533,6x6788
  30. 380 databna,2,224442,799877,bnb,2,221202,223232
  31. 390 databnc,2,224432,799777,bnd,2,220202,224232
  32. 400 databne,3,224342,79887x,xx9876,bnf,3,224452,xx4457,779977
  33. 410 databng,3,222200,224252,797977,bnh,3,22110x,224444,7x9897
  34. 420 databni,3,220102,224434,7999797,bnj,3,221222,x6767x,xx7677
  35. 430 databnk,3,220222,7576xx,797779,bnl,3,x2132x,7686xx,xx9676
  36. 440 databnm,3,221122,766677,xx9899,bnn,2,x2123x,76777x
  37. 450 databno,3,x2121x,7675xx,7x7878,bnp,3,x2100x,3210xx,xx5443
  38. 460 databnq,3,x01003,x25243,7x7887,bnr,3,1201xx,x2313x,xx0101
  39. 470 databns,2,x2344x,xx9867,bnt,2,x2324x,xx7868
  40. 480 databnu,2,121221,767667,bnv,2,111111,7x7655
  41. 490 databnw,3,221224,7x7644,7x7899
  42. 500 datacna,2,332010,335553,cnb,2,332310,335353
  43. 510 datacnc,2,33101x,335543,cnd,2,33131x,335343
  44. 520 datacne,2,332000,335453,cnf,2,333011,335563
  45. 530 datacng,2,33331x,335363,cnh,2,332210,335555
  46. 540 datacni,2,33121x,335545,cnj,2,332333,x7878x,xx8788
  47. 550 datacnk,2,331333,8687xx,cnl,2,x3242x,8797xx
  48. 560 datacnm,2,332233,877788,cnn,2,x3234x,87888x
  49. 570 datacno,3,x3232x,8786xx,8x8989,cnp,3,x3211x,4321xx,xx6554
  50. 580 datacnq,3,x1211x,x36354,8x8998,cnr,3,2312xx,x3424x,xx1212
  51. 590 datacns,1,x3455x,cnt,2,x3435x,xx8978,cnu,x,232332,878778
  52. 600 datacnv,2,333333,8x8766,cnw,2,332335,8x8755
  53. 610 datacsa,2,443121,446664,csb,2,44342x,446464
  54. 620 datacsc,1,446654,csd,2,44242x,446454,cse,2,44311,446564
  55. 630 datacsf,2,446674,xx6679,csg,2,44442x,446474
  56. 640 datacsh,2,x4332x,446666,csi,2,44232x,44x656
  57. 650 datacsj,2,443444,x8989x,csk,2,442444,9798xx
  58. 660 datacsl,1,x4354x,csm,2,443344,988899,csn,2,x4345x,98999x
  59. 670 datacso,2,x4343x,9897xx,csp,3,x4322x,5432xx,xx3221
  60. 680 datacsq,2,x2322x,x47465,xsr,3,3423xx,x1202x,xx2323
  61. 690 datacss,1,x4566x,cst,1,x4546x,csu,2,343443,989889
  62. 700 datacsv,2,444444,9x9877,csw,2,443446,9x9866
  63. 710 datadna,2,x00232,557775,dnb,2,x00212,557575
  64. 720 datadnc,2,x00231,557765,dnd,2,x00211,557565
  65. 730 datadne,2,x00222,557675,dnf,2,x00233,557785
  66. 740 datadng,2,x00213,557585,dnh,2,x00202,557777
  67. 750 datadni,2,x00201,55x767,dnj,2,x00210,554555
  68. 760 datadnk,2,x00210,553555,dnl,2,x04220,x5465x
  69. 770 datadnm,1,554455,dnn,1,x5456x,dno,1,x5454x
  70. 780 datadnp,3,x5433x,6543xx,xx4332,dnq,2,x3433x,x58576
  71. 790 datadnr,3,1201xx,x2313x,xx0101,dns,1,x5677x,dnt,1,x5657x
  72. 800 datadnu,2,xx0110,454554,dnv,2,x00010,555555,dnw,1,554557
  73. 810 datadsa,2,665343,668886,dsb,2,66564x,668686
  74. 820 datadsc,2,xx4342,668876,dsd,2,66464x,668676
  75. 830 datadse,2,665333,668786,dsf,2,x6634x,668896
  76. 840 datadsg,2,66664x,668696,dsh,2,x6554x,668888
  77. 850 datadsi,2,66454x,66x878,dsj,1,665666,dsk,1,664666
  78. 860 datadsl,2,xx1031,x6576x,dsm,2,xx1011,665566,dsn,2,xx1022,x6567x
  79. 870 datadso,2,xx1020,x6565x,dsp,3,x2100x,3210xx,xx5443
  80. 880 datadsq,2,x4544x,x69687,dsr,3,2312xx,x3424x,xx1212
  81. 890 datadss,2,xx1243,x6788x,dst,2,xx1223,x6768x
  82. 900 datadsu,2,xx1221,565665,dsv,2,x11121,666666,dsw,1,665668
  83. 910 dataena,3,022100,076454,079990,enb,3,022130,076750,079797
  84. 920 dataenc,3,022000,0x5453,079987,end,3,022030,0x5430,079787
  85. 930 dataene,3,021100,076444,079897,enf,2,022200,077450
  86. 940 dataeng,2,020200,0x2435,enh,3,022120,076650,079999
  87. 950 dataeni,3,022020,07565x,07x989,enj,2,020132,076770
  88. 960 dataenk,2,0022032,075770,enl,3,021102,074444,076870
  89. 970 dataenm,2,022122,076677,enn,2,022133,076780
  90. 980 dataeno,2,0x0101,07676x,enp,3,032110,4321xx,0x6554
  91. 990 dataenq,2,0x0110,05655x,enr,3,3423xx,012020,0x2323
  92. 1000 dataens,3,0121x0,0x2354,078990,ent,2,0101x0,07879x
  93. 1010 dataenu,2,0x2332,676776,env,2,022232,077777
  94. 1020 dataenw,2,0x0122,0x6779
  95. 1030 datafna,2,133211,887565,fnb,2,131241,88786x
  96. 1040 datafnc,2,133111,x33564,fnd,2,131141,x33544
  97. 1050 datafne,2,1x3210,087555,fnf,2,113311,x8856x
  98. 1060 datafng,2,131311,88886x,fnh,2,1x3231,x8776x
  99. 1070 datafni,2,133131,88676x,fnj,3,101011,xx3543,887888
  100. 1080 datafnk,3,131113,xx3543,886888,fnl,3,103010,x85555,x8798x
  101. 1090 datafnm,3,10011,xx3233,887788,fnn,3,131214,xx3244,x8789x
  102. 1100 datafno,3,1x1212,xx3242,x8787x,fnp,3,x4322x,5432xx,xx3221
  103. 1110 datafnq,2,1x1221,x6766x,fnr,5,1201xx,x2313x,xx0101,xx3434,x5646x
  104. 1120 datafns,2,12320x,xx3456,fnt,2,12120,xx3445
  105. 1130 datafnu,3,101001,xx3443,787887,fnv,2,x3343,888888,fnw,1,1x1233
  106. 1140 datafsa,2,244322,998676,fsb,2,242352,99897x
  107. 1150 datafsc,2,244222,x44675,fsd,2,242252,x44655
  108. 1160 datafse,2,24332x,998666,fsf,2,224422,x9967x
  109. 1170 datafsg,2,242422,99997x,fsh,2,2x4342,x9887x
  110. 1180 datafsi,2,244242,99787x,fsj,3,xx2122,xx4654,998999
  111. 1190 datafsk,3,242224,xx4254,997999,fsl,2,xx4121,x96666
  112. 1200 datafsm,3,211122,xx4344,998899,fsn,2,21222x,242325
  113. 1210 datafso,3,2x2323,xx4353,x9898x
  114. 1215 datafsp,5,x5433x,6543xx,xx4332,x9877x,xx8776
  115. 1220 datafsq,2,2x2332,x7877x,fsr,5,2312xx,x3424x,xx1212,5645xx,x6757x
  116. 1230 datafss,2,2343xx,xx4576,fst,2,2323xx,224556
  117. 1240 datafsu,3,212112,xx4554,898998,fsv,3,2x2100,x44454,999999
  118. 1250 datafsw,1,2x2344,gna,3,320003,320033,355433,gnb,2,320001,353463
  119. 1260 datagnc,2,355333,x55786,gnd,2,353363,x55766
  120. 1270 datagne,2,xx5432,35443x,gnf,2,3x0013,335533
  121. 1280 datagng,2,3x301x,353533,gnh,2,320000,3x5453
  122. 1290 datagni,1,3x5353,gnj,2,x2323x,xx3233,gnk,2,3132xx,353335
  123. 1300 datagnl,2,32423x,xx5232,gnm,2,322233,xx5455
  124. 1310 datagnn,2,32333x,353436,gno,2,32310x,3x3434
  125. 1320 datagnp,6,x2100x,3210xx,xx5443,x6544x,7654xx,xx9887
  126. 1325 datagnq,2,3x3443,x8988x
  127. 1330 datagnr,3423xx,x1202x,xx2323,6756xx,x4535x,xx5656
  128. 1340 datagns,2,xx4312,xx5687,gnt,2,34340x,xx5667
  129. 1350 datagnu,2,323223,xx5665,gnv,2,3x3211,x55565
  130. 1360 datagnw,2,3x3200,3x3455
  131. 1370 datagsa,2,xx1114,466544,gsb,2,xx1112,464574
  132. 1380 datagsc,2,466444,x66897,gsd,2,466474,x66877
  133. 1390 datagse,2,xx6543,46554x,gsf,3,xx1124,446644,xx6899
  134. 1400 datagsg,3,xx1122,464644,xx6879,gsh,x,xx1111,4x6564
  135. 1410 datagsi,2,xx1101,4x6464,gsj,2,x3434x,xx4344
  136. 1420 datagsk,2,464446,xx6476,gsl,2,43534x,xx6343
  137. 1430 datagsm,2,433344,xx6566,gsn,2,43444x,464547
  138. 1440 datagso,2,4342xx,4x4545
  139. 1450 datagsp,5,x3211x,4321xx,xx6554,x7655x,8765xx
  140. 1460 datagsq,1,4x4554,gsr,6,1201xx,x2313x,xx0101,4534xx,x5646x,xx3434
  141. 1470 datagss,2,xx6534,4565xx,gst,3,xx4534,4545xx,xx6778
  142. 1480 datagsu,2,434334,xx6776,gsv,2,4x4322,x66676
  143. 1490 datagsw,2,4x4311,4x4566,*
  144. 1500 ll=40:rem line length for vic=22
  145. 1510 goto2650
  146. 1520 wi$="[221][221][221][221][221][221]":fr$="[171][219][219][219][219][179]":nut$="[176][178][178][178][178][174]"
  147. 1530 dimc$(24):lc$=""
  148. 1540 vt$=""
  149. 1550 bl$="                                        "
  150. 1560 rem chord types
  151. 1570 c$(1)="major"
  152. 1580 c$(2)="7th"
  153. 1590 c$(3)="minor"
  154. 1600 c$(4)="min 7th"
  155. 1610 c$(5)="maj 7"
  156. 1620 c$(6)="sus 4"
  157. 1630 c$(7)="7 sus 4"
  158. 1640 c$(8)="6th"
  159. 1650 c$(9)="min 6"
  160. 1660 c$(11)="min 9"
  161. 1670 c$(10)="9th"
  162. 1680 c$(12)="maj 9"
  163. 1690 c$(13)="6/9"
  164. 1700 c$(14)="7 aug 9"
  165. 1710 c$(15)="7 dim 9"
  166. 1720 c$(16)="aug"
  167. 1730 c$(17)="7 aug 5"
  168. 1740 c$(18)="dim"
  169. 1750 c$(19)="dim 5"
  170. 1760 c$(20)="7 dim 5"
  171. 1770 c$(21)="9 dim 5"
  172. 1780 c$(22)="11th"
  173. 1790 c$(23)="13th"
  174. 1800 c$(24)=""
  175. 1810 rem main routine
  176. 1820 cn$="":print"[147]";
  177. 1830 gosub2570
  178. 1840 print"enter root (a-g)"
  179. 1850 gosub2500:ifx$="q"thenprint"[147]":goto63000
  180. 1860 ifx$<"a"orx$>"g"then1830
  181. 1870 cn$=x$
  182. 1880 printleft$(vt$,18)cn$
  183. 1890 gosub2570
  184. 1900 print" [146]sharp [146]flat [146]natural ?"
  185. 1910 gosub2500:ifx$="s"orx$="f"orx$="n"then1930
  186. 1920 goto1890
  187. 1930 ifcn$="b"andx$="s"then1820
  188. 1940 ifcn$="e"andx$="f"then1820
  189. 1960 ifcn$="f"andx$="f"then1820
  190. 1970 rem allow sharps only
  191. 1980 ifx$="f"andcn$="a"thenx$="s":cn$="g"
  192. 1990 ifx$="f"thenx$="s":cn$=chr$(asc(cn$)-1)
  193. 2000 printleft$(vt$,18)cn$
  194. 2010 cn$=cn$+x$
  195. 2020 p$="":ifx$="s"thenp$="sharp"
  196. 2030 printleft$(vt$,18)tab(2)p$
  197. 2040 gosub2570
  198. 2050 rem choose chords
  199. 2060 print""left$(bl$,ll):print" enter letter:"
  200. 2070 fori=1to12
  201. 2080 print""chr$(64+i)"[146]: "c$(i)tab(ll/2)""chr$(76+i)"[146]: "c$(i+12):next
  202. 2090 gosub2500:ifx$=chr$(13)then2150
  203. 2100 ifx$<"a"orx$>"x"then2040
  204. 2110 printleft$(vt$,18)tab(8)c$(asc(x$)-64)
  205. 2120 cn$=cn$+x$
  206. 2130 gosub2570
  207. 2140 print"please wait"
  208. 2150 printleft$(vt$,2):fori=1to12
  209. 2160 printleft$(bl$,ll-1):next
  210. 2170 rem chord search
  211. 2180 gosub2590
  212. 2190 ifn$<>"*"then2230
  213. 2200 print""left$(bl$,ll):print"return (or 'q' to quit)"
  214. 2210 gosub2500:ifx$="q"thenprint"[147]":goto63000
  215. 2220 goto1820
  216. 2230 nc=1:readch$
  217. 2240 gosub2530:printleft$(vt$,4)left$(bl$,6)
  218. 2250 fori=1to6:ifval(mid$(ch$,i,1))>5then2350
  219. 2260 next
  220. 2270 rem 1st position chords
  221. 2280 printleft$(vt$,5)nut$"_nut"
  222. 2290 fori=1to6
  223. 2300 ifmid$(ch$,i,1)="0"thenprintleft$(vt$,4)tab(i-1)"o":goto2330
  224. 2310 ifmid$(ch$,i,1)="x"thenprintleft$(vt$,4)tab(i-1)"x":goto2330
  225. 2320 poke646,0:printleft$(vt$,4+2*val(mid$(ch$,i,1)))tab(i-1)"[209]":poke646,1
  226. 2330 next:goto2440
  227. 2340 rem higher up the neck
  228. 2350 mn=24:fori=1to6:x=val(mid$(ch$,i,1))
  229. 2360 ifx<>0thenifx<mnthenmn=x
  230. 2370 next
  231. 2380 printleft$(vt$,5)tab(6)"_"mn-1"[157]  "
  232. 2390 fori=1to6
  233. 2400 ifmid$(ch$,i,1)="0"thenprintleft$(vt$,4)tab(i-1)"o":goto2430
  234. 2410 ifmid$(ch$,i,1)="x"thenprintleft$(vt$,4)tab(i-1)"x":goto2430
  235. 2420 printleft$(vt$,6+2*val(mid$(ch$,i,1))-mn)tab(i-1)"[209]"
  236. 2430 next
  237. 2440 ifnc<>hmthenprint"<ret> to cont.":gosub2500:ifx$=chr$(13)then2480
  238. 2450 ifnc<>hmthengoto2440
  239. 2460 print"return (or 'q' to quit)":gosub2500:ifx$=chr$(13)thengoto1820
  240. 2470 print"[147]":goto63000
  241. 2480 nc=nc+1:readch$:goto2240
  242. 2490 rem input
  243. 2500 getx$:ifx$=""then2500
  244. 2510 return
  245. 2520 rem draw neck
  246. 2530 printleft$(vt$,5);
  247. 2540 fori=1to6:printfr$:printwi$:next
  248. 2550 return
  249. 2560 rem blank
  250. 2570 print""left$(bl$,ll):return
  251. 2580 rem read chords
  252. 2590 ifcn$<=lc$thenrestore
  253. 2600 readn$:ifn$="*"thenrestore:return
  254. 2610 ifcn$=n$thenlc$=cn$:readhm:return
  255. 2620 goto2600
  256. 2630 rem chord data
  257. 2640 rem titles
  258. 2650 print"[147]"
  259. 2690 print""
  260. 2700 printtab(9)"  [207][183] [175][167]      [204]"
  261. 2710 printtab(9)"  [204][175][186][186][186][186][186][186][205][206][204][204][204][204][206][205]"
  262. 2720 print""tab(13)"guitar chords"
  263. 2730 print""tab(25)"andy gamble"
  264. 2740 print""tab(8)"press any key to continue"
  265. 2750 gosub2500:goto1520
  266. 63000 rem    connect back to l.s.
  267. 63002 print"[147]load"chr$(34)"c.payload"chr$(34)",8":print"run"
  268. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  269.