()
Prgm
Lbl cranwell
ClrIO:"MORE":1d
"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:0g
Lbl ma
Lbl np:1note:0fr:12j
""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:1d
If d<1:jd
Output 10,d*6-5,"?"
Loop
getKey()x
If x>0:Exit
EndLoop
Output 10,d*6-5," "
If x=337:d-1d
If x=340:d+1d
If x13
Goto hh
ClrIO
If fr>0:d-1g
If note>0:dw
If note>0:www
Lbl fr
0fr:12j:0z:0note
www
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:1fr:18j
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
uau:Goto fr
Lbl t2:{3,8,3,8,12,3}m
ubu:Goto fr
Lbl t3:{5,12,5,9,12,5}m
ucu:Goto fr
Lbl t4:{5,10,5,10,2,5}m
udu:Goto fr
Lbl v2:z+4z
Lbl v3:z+6z
Lbl v1:z+1z
15k
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:1a:5y
Output 0,0,c
If g>0:2a
1k:{0,0,0,0,0,0}n
w-zw:1-zh
Lbl ww:0s
Loop
w+zw:h+zh
If w>12:w-12w
If h>12:h-12h
If t[h]=1:Exit
EndLoop
Output 10,6*w-5,"?"
Lbl jim:s+1s
Loop
If n[k]=0:Exit
k+1k
If k>6:k-6k
EndLoop
0e
Lbl jam:e+1e
If e>y Then:k+1k
If k>6:k-1k
Goto jim:EndIf
If s>4:Goto ww
m[k]+e+g-2f
mod(f,12)+1f
If wf:Goto jam
mid(p,w*2,2)r
Output 6*8,k*13,r
1n[k]
Output 8*e+8*a,6*k+114,"o"
If sum(n)=6:Goto fr
Goto ww
Lbl st:1t[10]
q&"6th"q:Goto fr
Lbl au:1t[9]:0t[8]
q&"aug"q
Goto fr
Lbl j:1t[10]
0t[8]:1t[7]:q&"di"q
Lbl mn:0t[5]
1t[4]:q&"m"q
Goto fr
Lbl ms:1t[12]
q&"maj7"q
Goto fr
Lbl nt:1t[3]
1t[11]:q&"9th"q
Goto fr
Lbl sv:1t[11]
q&"7th"q
Goto fr
Lbl sf:0t[5]
1t[6]:q&"sus4"q
Goto fr
Lbl ff:1t[3]
1t[10]:q&"6/9"q
Goto fr
Lbl sn:1t[11]
1t[4]:q&"7#9"q
Goto fr
Lbl el:0t[5]:1t[3]
1t[6]:1t[11]
q&"11th"q
Goto fr
Lbl tt:1t[3]:0t[8]
1t[11]:1t[10]
q&"13th"q
Goto fr
Lbl zz
EndPrgm
(
geocities.com/xulfrepus)