:Disp "cranwell@gootar.com"
: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 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 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:Outpt(8,1,"Goddess401")
:Menu(1,"FRET",X,2,"EXIT",TU,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:Stop: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 FR: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 OP
:Lbl NT:1üT(3):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):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
:
:"????þÿ"
:
:
: