:Disp "cranwell@yahoo.com"
:"MORE"üÊ:"C%D%EF%G%A%B    USEÏå"üC:" "üQ:1üD:ClLCD:Disp C
:Disp "                ENTER"
:Lbl HH:If D>12:1üD:If D<1:12üD
:Outpt(2,D,"þ")
:Repeat x:getKyüx:End:Outpt(2,D," "):D+(x==26)-(x==24)üD
:If (xø21)(xø105):Goto HH:1üZ
:Outpt(2,D,"þ"):{1,0,1,0,1,1,0,1,0,1,0,1}üT
:Lbl Z:DüW:Menu(1,"ION",IO,2,"DOR",DO,3,"PHRY",PH,4,"LID",LI,5,Ê,OP)
:Lbl OP:Menu(1,"MIX",MX,2,"AEOL",AE,3,"MSG",MG,4,"EXIT",X,5,Ê,Z)
:Lbl A:Outpt(1,1,C):W-1üW:H-1üH:Outpt(8,1,Q)
:Lbl WW:0üA:W+1üW:H+1üH:If W>12:W-12üW:If H>12:H-12üH:If W>5:1üA
:If sub(C,W,1)=="%":Then:Outpt(3,W+A,"|#"):Outpt(4,W+A,"|#"):End
:If sub(C,W,1)ø"%":Then:Outpt(5,W+A,"| "):Outpt(6,W+A,"| "):End
:If T(H)(sub(C,W,1)ø"%"):Outpt(6,W+A,"|o")
:If T(H)(sub(C,W,1)=="%"):Outpt(4,W+A,"|o"):Z+1üZ:If Z>12:Stop:Goto WW
:Lbl IO:Q+"IONIAN"üQ:1üH:Goto A
:Lbl DO:Q+"DORIAN"üQ:3üH:Goto A
:Lbl PH:Q+"PHRYGIAN"üQ:5üH:Goto A
:Lbl LI:Q+"LYDIAN"üQ:6üH:Goto A
:Lbl MX:Q+"MIXOLYDIAN"üQ:8üH:Goto A
:Lbl AE:Q+"AEOLIAN"üQ:10üH:Goto A
:Lbl MG:Q+"MADELYNIAN"üQ:12üH:Goto A
:?????þÿ?|
:Lbl X:Stop

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)