:Lbl CRANWELL:ClLCD:"MORE"üÊ:1üD
:"C%D%EF%G%A%B    USEÏå"üC
:{5,10,3,8,12,5}üM
:" C C#D EbE F F#G G#A BbB "üP
:Lbl NP:0üFR
:0üU:12üL
:ClLCD:Disp C
:Disp "                ENTER"
:Lbl HH:If U:Then:If M(int (D/2))ù2
:M(int (D/2))+(x==25)-(x==34)üM(int (D/2))
:For(I,1,6)
:Outpt(1,2I,sub(P,2M(I),2)
:Outpt(2,2I,"  "):End:End
:If D>L:1üD:If D<1:LüD:Outpt(2,D,"ş")
:Repeat x:getKyüx:End
:Outpt(2,D," ")
:If x==22:Stop:D+(x==26)-(x==24)üD
:If (xø21)(xø105):Goto HH
:If U:Goto FR:If FR:D-1üG:If FR+U:Goto FR
:sub(P,D*2,2)üQ
:{1,0,0,0,1,0,0,1,0,0,0,0}üT
:Lbl Z:DüW:WüWW
:Menu(1,"Minor",MN,2,"7th",SV,3,"maj7",MS,4,"Sus4",SF,5,Ê,P)
:Lbl P:Menu(1,"Aug",AU,2,"dim",J,3,"6th",ST,4,"9th",NT,5,Ê,OP)
:Lbl OP:0üG:Menu(1,"6/9",FF,2,"11th",EL,3,"7#9",SN,4,"13th",TT,5,Ê,FR)
:Lbl FR:0üZ:0üFR:0üU:12üL
:Menu(1,"FRET",X,2,"TUNE",TU,5,"VR1",V1,4,"VR2",V2,3,"VR3",V3)
:Lbl FQ:0üZ:0üFR:0üU:12üL
:Menu(1,"FRET",X,2,"NEW",NP,5,"VR1",V1,4,"VR2",V2,3,"VR3",V3)
:Lbl X:1üFR:18üL:For(I,1,18)
:Outpt(1,I,mod(I-1,10)
:Outpt(2,I," "):End:Goto HH
:Lbl TU:1üU:Goto HH
:Lbl V2:Z+4üZ:Lbl V3:Z+6üZ:Lbl V1:Z+1üZ:WWüW
:Lbl A:1üA:ClLCD:Disp C:5üY:Outpt(4,2,Q)
:If G:Then:2üA:5üY:Outpt(3,13,"å"):Outpt(3,11,G):End
:15üK:For(E,3,7):Outpt(E,K,"||||||")
:If E==3 and G==0:Outpt(E,K,"TTTTTT"):End
:0üK:{0,0,0,0,0,0}üN:W-ZüW:1-ZüH
:Lbl WW:0üS:Repeat T(H):W+ZüW:H+ZüH
:If W>12:W-12üW:If H>12:H-12üH:End
:Outpt(2,W,"ş")
:Lbl JIM:S+1üS:Repeat N(K)==0:K+1üK
:If K>6:K-6üK:End:0üE
:Lbl JAM:E+1üE:If E>Y:Goto JIM:If S>4:Goto WW
:M(K)+E+G-2üF:mod(F,12)+1üF
:If WøF:Goto JAM
:sub(P,W*2,2)üR
:Outpt(6,2K,R):1üN(K)
:Outpt(E+A,K+14,"o")
:If sum N==6:Goto FQ
:Goto WW
:Lbl ST:1üT(10):Q+"6th"üQ:Goto OP
:Lbl AU:1üT(9):0üT(8):Q+"aug"üQ:Goto OP
: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 Z
:Lbl MS:1üT(12):Q+"maj7"üQ:Goto P
:Lbl NT:1üT(3):If T(12)==0:1üT(11):Q+"9th"üQ:Goto OP
:Lbl SV:1üT(11):Q+"7th"üQ:Goto Z
:Lbl SF:0üT(5):1üT(6):Q+"sus4"üQ:Goto OP
: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):If T(12)==0:1üT(11):Q+"11th"üQ
:Goto FR
:Lbl TT:1üT(3):0üT(8):If T(12)==0:1üT(11):1üT(10):Q+"13th"üQ
:Goto FR
:
:"????şÿ"
:
:
:
: