()
Prgm
Lbl  cranwell
ClrIO:"MORE"��:1�d
"C%D%EF%G%A%B   USE?�"�c
{5,10,3,8,12,5}�m

"EADGBE"�ua
"DGDGBD"�ub
"EBEG#BE"�uc
"EAEAC#E"�ud
" C C#D EbE F F#G G#A BbB "�p
ClrIO:0�g
Lbl  ma
Lbl  np:1�note:0�fr:12�j
""�q
{1,0,0,0,1,0,0,1,0,0,0,0}�t
Output  0,0,c
Output  10,0,"               "
Lbl  hh
If  d>j:1�d
If  d<1:j�d
Output  10,d*6-5,"?"
Loop
getKey()�x
If  x>0:Exit
EndLoop
Output  10,d*6-5," "
If  x=337:d-1�d
If  x=340:d+1�d
If  x�13
Goto  hh
ClrIO
If  fr>0:d-1�g
If  note>0:d�w
If  note>0:w�ww
Lbl  fr
0�fr:12�j:0�z:0�note

ww�w
Output  0,0,c
mid(p,ww*2,2)�qq
Output  4*8,2*8,qq&q
Output  3*8,13*8,"�"
Output  3*8,11*8,g
If  g=0
Output  3*8,11*8,"open"

Toolbar
Title  "ENTER"
Item  "VARY1",v1
Item  "VARY2",v2
Item  "VARY3",v3
Item  "frets",x
Item  "exit",zz
Title  "CDEFGABC"
Item  "notes",np
Item  "frets",x
Item  "exit",zz
Title  "CHORDS"
Item  "Major-reset",ma
Item  "Minor",mn
Item  "7th",sv
Item  "maj7",ms
Item  "Sus4",sf
Item  "Aug",au
Item  "dim",j
Item  "6th",st
Item  "9th",nt
Item  "6/9",ff
Item  "11th",el
Item  "7#9",sn
Item  "13th",tt
Title  "TUNINGS"
Item  ua,t1
Item  ub,t2
Item  uc,t3
Item  ud,t4
EndTBar

Lbl  x:1�fr:18�j
For  i,1,18
Output  0,i*6-5,mod(i-1,10)
Output  10,i*6-5," "
EndFor
Goto  hh

Lbl  t1:{5,10,3,8,12,5}�m
ua�u:Goto  fr
Lbl  t2:{3,8,3,8,12,3}�m
ub�u:Goto  fr
Lbl  t3:{5,12,5,9,12,5}�m
uc�u:Goto  fr
Lbl  t4:{5,10,5,10,2,5}�m
ud�u:Goto  fr

Lbl  v2:z+4�z
Lbl  v3:z+6�z
Lbl  v1:z+1�z
15�k
Output  17,8*k,"      "
For  e,3,7
Output  8*e,8*k,"||||||"
If  e=3 and g=0
Output  8*e,8*k,"TTTTTT"
EndFor
Output  64,13,u&" tuning"

Lbl  a:1�a:5�y
Output  0,0,c
If  g>0:2�a
1�k:{0,0,0,0,0,0}�n
w-z�w:1-z�h

Lbl  ww:0�s
Loop
w+z�w:h+z�h
If  w>12:w-12�w
If  h>12:h-12�h
If  t[h]=1:Exit
EndLoop
Output  10,6*w-5,"?"

Lbl  jim:s+1�s
Loop
If  n[k]=0:Exit
k+1�k
If  k>6:k-6�k
EndLoop
0�e
Lbl  jam:e+1�e
If e>y Then:k+1�k
If  k>6:k-1�k
Goto  jim:EndIf
If  s>4:Goto  ww
m[k]+e+g-2�f
mod(f,12)+1�f
If  w�f:Goto  jam
mid(p,w*2,2)�r
Output  6*8,k*13,r
1�n[k]
Output  8*e+8*a,6*k+114,"o"
If  sum(n)=6:Goto  fr
Goto  ww
Lbl  st:1�t[10]
q&"6th"�q:Goto  fr
Lbl  au:1�t[9]:0�t[8]
q&"aug"�q
Goto  fr
Lbl  j:1�t[10]
0�t[8]:1�t[7]:q&"di"�q
Lbl  mn:0�t[5]
1�t[4]:q&"m"�q
Goto  fr
Lbl  ms:1�t[12]
q&"maj7"�q
Goto  fr
Lbl  nt:1�t[3]
1�t[11]:q&"9th"�q
Goto  fr
Lbl  sv:1�t[11]
q&"7th"�q
Goto  fr
Lbl  sf:0�t[5]
1�t[6]:q&"sus4"�q
Goto  fr
Lbl  ff:1�t[3]
1�t[10]:q&"6/9"�q
Goto  fr
Lbl  sn:1�t[11]
1�t[4]:q&"7#9"�q
Goto  fr
Lbl  el:0�t[5]:1�t[3]
1�t[6]:1�t[11]
q&"11th"�q
Goto  fr
Lbl  tt:1�t[3]:0�t[8]
1�t[11]:1�t[10]
q&"13th"�q
Goto  fr
Lbl  zz
EndPrgm