@ %:(14);(8):OC4:TU2:TE10:TE:NC1:SC$(60,8),SC(60)z 0,,,,,,600: 5,,,3,3,2,3500: 4,7: 3,,8,0: 8,3,13J1:SC$(NC,J):SC$(NC,J)"END"NCNC1:40J28:SC$(NC,J):J:SC(NC):NCNC1:20#(" NTER THE APPROPRIATE NUMBER TO SELECT ONE OF THE FOLLOWING KEYS:"[2"AJOR"20)"ARMONIC INOR"50)"THER SCALES IN "<I1NC:I;SC$(I,1):I1"">I8""?I15I30"";@I16I23I35:I3550)"REEK ODES:"AI1520);:I3050);.EI:"";:I123:"";:I:"(* = RARELY USED)"NFA$:SC(A$):SC1SCNC40Z" SE THE CURSOR UP/DOWN KEYS TO CHANGE THE TEMPO."[" SE THE CURSOR LEFT/RIGHT KEYS TO CHANGE THE ENVELOPE."\" SE THE +/- KEYS TO CHANGE OCTAVES. (MIDDLE IS AT THE BOTTOM OF OCTAVE 4)"R]" SE THE 'M' OR '' KEY TO RETURN TO MAIN MENU."^"EY SELECTED :";SC$(SC,1);:(SC$(SC,1),1)"*""(RARELY USED)":ՙd:i" ";SC$(SC,2);" ONIC (ROOT)"n" ";SC$(SC,3);" UPERTONIC" s" ";SC$(SC,4);" EDIANT"L x" ";SC$(SC,5);" UB-DOMINANT"t }" ";SC$(SC,6);" OMINANT" " ";SC$(SC,7);" UB-MEDIANT OR RELATIVE MINOR" " ";SC$(SC,8);" EVENTH OR LEADING NOTE "!" ";SC$(SC,2);" ONIC (OCTAVE)"!"";:I120:"";:I:(27);"Q";:"EMPO"TE"NVELOPE"TU"CTAVE"OC:NO1:DI1:P$"V1T"(TU)"O"(OC):P$:TE!A$:A$""200!QNO1:Q9Q2!OC6NOSC(SC)1DIDI:NONODI:155"DI1NOSC(SC)1OC17P$"O"(OC1):P$8"DI1NOSC(SC)P$"O"(OC):P$""";:I1(6ZN):"";:I:" ";:SC$(SC,Q):"";:I1(6NO):"";:I:">";:ZNNO:NONODI"NO1NO1:DIDI"NO8NO8:DIDI"155"A$"M"A$""40#A$""TETE1:TE255TE1&#A$""TETE1:TE1TE255E#A$""TUTU1:TU0TU9d#A$""TUTU1:TU9TU0#A$"+"OCOC1:OC6OC0#A$"-"OCOC1:OC0OC6#150#" AJOR"," C"," D"," E"," F"," G"," A"," B",7$" AJOR"," G"," A"," B"," C"," D"," E","#F",3J$" AJOR"," D"," E","#F"," G"," A"," B","#C",6$" AJOR"," A"," B","#C"," D"," E","#F","#G",2$" AJOR"," E","#F","#G"," A"," B","#C","#D",5$" AJOR"," B","#C","#D"," E","#F","#G","#A",1%"*# AJOR","#F","#G","#A"," B","#C","#D","#E",4U%"*# AJOR","#C","#D","#E","#F","#G","#A","#B",7%" AJOR"," F"," G"," A","$B"," C"," D"," E",4%"B AJOR","$B"," C"," D","$E"," F"," G"," A",1%"B AJOR","$E"," F"," G","$A","$B"," C"," D",5(&"B AJOR","$A","$B"," C","$D","$E"," F"," G",2]&"B AJOR","$D","$E"," F","$G","$A","$B"," C",6&"B AJOR","$G","$A","$B","$C","$D","$E"," F",3&"*B AJOR","$C","$D","$E","$F","$G","$A","$B",7&" INOR"," A"," B"," C"," D"," E"," F","#G",22'" INOR"," E","#F"," G"," A"," B"," C","#D",5g'" INOR"," B","#C"," D"," E","#F"," G","#A",1'"# INOR","#F","#G"," A"," B","#C"," D","#E",4'"# INOR","#C","#D"," E","#F","#G"," A","#B",7( "# INOR (G=##F)","#G","#A"," B","#C","#D"," E"," G",3L( "*# INOR (D=##C)","#D","#E","#F","#G","#A"," B"," D",6( "*# INOR (A=##G)","#A","#B","#C","#D","#E","#F"," A",2( " INOR"," D"," E"," F"," G"," A","$B","#C",6( " INOR"," G"," A","$B"," C"," D","$E","#F",3))" INOR"," C"," D","$E"," F"," G","$A"," B",7^)" INOR"," F"," G","$A","$B"," C","$D"," E",4)"B INOR","$B"," C","$D","$E"," F","$G"," A",1)"B INOR","$E"," F","$G","$A","$B","$C"," D",5)"B INOR","$A","$B","$C","$D","$E","$F"," G",2/*"LUES"," C","$E"," E"," F"," G"," A","$B",7l*"EOPOLITAN AJOR"," C","$D","$E"," F"," G"," A"," B",7*"EOPOLITAN INOR"," C","$D","$E"," F"," G","$A"," B",7*"UNGARIAN INOR"," C"," D","$E","#F"," G","$A"," B",7+"NIGMATIC"," C","$D"," E","#F","#G","#A"," B",7V+"ONIAN ( AJ)"," C"," D"," E"," F"," G"," A"," B",7+"ORIAN"," C"," D","$E"," F"," G"," A","$B",7+"HRYGIAN"," C","$D","$E"," F"," G","$A","$B",7+"YDIAN"," C"," D"," E","#F"," G"," A"," B",7(,"IXOLYDIAN"," C"," D"," E"," F"," G"," A","$B",7\,"EOLIAN"," C"," D","$E"," F"," G","$A","$B",7,"OCRIAN"," C","$D","$E"," F","$G","$A","$B",7,X"END"