' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ­z# u*` "TENUTO","HELD FOR FULL VALUE",""Bz "COMODO","COMFORTABLE",""Z"CALORE","WARM","" "DA CAPO AL FINE","RETURN TO THE BEGINNING AND "," CONCLUDE WITH THE WORD FINE""RALLENTANDO","SLOWING GRADUALLY",""16368,0:24:868:7:"PRESS ","" R"MOLTO","VERY MUCH","";W"SEGUE","CONTINUE",""|\ "STRINGENDO","ACCELERATING THE TEMPO TOWARD A"," CLIMAX"a "PESANTE","HEAVILY",""f"BRIO","BRIGHT",""k"FUOCO","FIRE",""p "MA NON TROPPO","BUT NOT TOO MUCH"q """uMBER 1 - 3.":43022ZE1Ĭ/ZE343049j:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"v)1023,9~*: T T(13)(4):/ 10:"DO YOU WANT TO TRY"y12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" 40000:ZEZN(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUv 52,64,48,60,72,56,68/@CH(36):CV(37)]A22000:ZN$Z$:(ZN$)(((ZN$)))40003zB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: D$NUMBER 1 - 3.":43022!ZE1Ĭ1ZE343049l:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"x)1023,9*:,9*:DN$):JCV1:36,CH:868:0D$(13)(4)8:V 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"E1)043030:"PLEASE ENTER A 30980x1P,L:3P,L:6P,L/xDZ230977:yPP12@yV@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(Z1nxZ1(Z11)22%}xC1Z1Z1123xL84Z14HxL32L8030894YxL8030890}xT132L8:P8,T1P25,T1:T1x30894xT180L8:P8,T1P25,T1:T1xPP12xZ24:Z31xL5630925xZ3P,L:Z31P,L:Z32P,L:PP12xKRAM...":(4);"RUN HELLO"1)1023,99*:123Ā4D$;"RUN HELLO"(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3. ":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:QCS,QCSQEE`E QEECSEE,QCSEEEE,QEEEECS,QCSEECS,EEQCSEE,CSQCSEE,CSEQEEE,EQECSEE,EECSEQE,CSEEEQErD$(13)(4)z: 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)EE,QQBE,QBEQ,BEQQ/A QEEQQ,QQEEQ,QQQEE,EEQQQqB EQEQQ,QEQEQ,QQEQE,QEEEEQ,EEQEEQ,EEEEQQ,QEEQEE,EEQQEE,QQEEEEC BEEEQ,EEBEQ,QBEEE,BEQEE,EEQBE,QEEBE,EQEEQE,EQEEEQ,QEEEQE,EEEQEQ,EEQEQE D QEECSQ,QCSEEQ,QQCSEE,QQEECS,CSEEQQ,EECSQQ,CSQEEQ,EEQCSQ,QEE,358,340,318,302, 284,268,255,239,227,212,201, 189,179,170,160,151} 142,134,127,119,113, 106,101,94,89,85,80,75,71,67 ,64,60,56,53 ,50,47耱@ HQQ,QHQ,QQH,EEA,HBE,BEH,QQQQ,HQEE,HEEQ,QEEH,EEQH,EEHQ,QHFORMED MUSIC."DHT." " " " "WHOLE-HALF"J("WHOLE-HALF PROVIDES PRACTICE IN "v2"DISCRIMINATING AURALLY BETWEEN WHOLE"<"AND HALF STEPS."F"WRONG NOTE"P"WRONG NOTE PROVIDES DRILL IN"Z"DETERMINING DIFFERENCES BETWEEN WRITTEN"d"AND PER:"DO YOU WANT TO TRY"`12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030p :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" ZE1Ĭ:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO" @CH(36):CV(37)DA22000:ZN$Z$:(ZN$)(((ZN$)))40003aB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10,GIH,HGI,HHII,IIHH,HIIHY } E.E,FH.FH,E.FH,FH.E,GIH.E,GIH.GIH,FH.GIH,GIH.FH,HHH.E,E.HHH } E.E.E,E.FH.E,FH.E.E,E.E.FH,E.GIH.E,E.HHH.E,GIH.E.E,E.E.GIH,E.FH.E,FH.E.E} E.E.E.E,C.C,C.E.E,E.E.C,C.E.FH,FH.E.FH.E,GIH.GIH.E.E,E.GIH.E.E,E.HHH.E.E,E.E.FH.EFFF,DF,FD,DHH,FFHH,EHF,FEH,FFHH,FHHF,FFGI_} CF,FFFF,DFF,FDF,FFD,FFHHF,FGIFF,FFHFH,DFHH,FGID} FFFFF,CD,DC,FFFFHH,CFHH,FFC,CFF,FHHFD,EHFD,DEHF} FFF.FFF,C.C,FFF.FFHH,EHF.C,FFF.EHF,FFGI.FFF,C.FFF,DF.EHF,FHHF.EHF,FFHH.C} HHH,FH,HF,FII, HIIII,LxDZ230977xZ2Z22.xZ3130961>xZ3630955NxZ3330960axZ3Z31:30965qxZ33:30965xZ37:30965xZ36:30965xDZ230930yPP16yy18P8,72:PP15:} FF,EH,EII,HFH,HHF,FHH,HHHH,FGI,GIF,HIIF)} lu1,Z279,ZvuZu3!u'u6v12CP,64A vPP25GvMPxVUxZ15dxL84Z14rxZ24:Z31xL5630925xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP14:12P,L4:PP7:30980xZ31xZ3P :R$"Y"Ĭ!*(1023)123Ā54D$;"RUN HELLO" ZE0ZE443030y:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: T TCZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001bFZM:868:CV1(CV23):ZN(ZN$):{JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 15P4,52:PP15:12P,54:PP10:8y16P8,44:PP15GyD131175Myey12P7,52:PP18:{y17P6,64:PP15yD.5Ĕ12P3,52:PP15y@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006:1:PP10:30980yy3y18P8,72:PP15:?|y RESTSOyD431150_yD231160oyD131170yD.531180y19P8,72:PP15yy15P8,49:PP15yD6Ĕ12P8,50:PP15yyD331166y15P8,52:PP15:"ybuZ40728lu1,Z279,Z%vuZ,u32u8uGv12CP,64R vPP25Xv^PxxxL64:PP18:Z24:Z31xL5630925xZ3P,LxD6Ĕ12P18,61:30977xDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP15:12P,616368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::FnTT19:TT(1,TT)1:TT(2,TT)1:TT:UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U0u :uDu1:0:1 )1023,9*:B"R$"N"43030 :R$"Y"Ĭ3*(1023)123ĀG4D$;"RUN HELLO"40000:ZEZN|(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"0ZN$"0"40006LCZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001tFZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y'RETURN' TO CONTINUE.";:Z$::7 N:(4);"RUN PREP1"xUCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_J*]+U*U*U*U*U*U*U*U*U*U*U*U*U*]+U*U*U*U*U*U*U*U*U*U*U*U*UL*U+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U|O TRY"P12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030` :R$"Y"Ĭt*(1023)123Ā4D$;"RUN HELLO"nU;U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U(37)4A22000:ZN$Z$:(ZN$)(((ZN$)))40003QB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT T343049B:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"N)1023,9V*: ,9d*: FTO TRY"Q12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030a :R$"Y"Ĭu*(1023)123Ā4D$;"RUN HELLO" 40000:ZEZN(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1ĬZEV(37)5A22000:ZN$Z$:(ZN$)(((ZN$)))40003RB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT 8:R18,239:R19,96:~ MI2,MINOR 2ND,MA2,MAJOR 2ND,MI3,MINOR 3RD,MA3,MAJOR 3RD,P4,PERFECT 4TH,TRI,TRITONE/AUG. 4TH/DIMIN. 5TH,P5,PERFECT 5TH,MI6,MINOR 6TH,MA6,MAJOR 6TH,MI7,MINOR 7TH,MA7,MAJOR 7TH,OCT,OCTAVE :(4);"RUN PREP1"@CH(36):CZ1(D100255)uRuZ=uZ1D100(D100255)255Ou0,N(N):1,Z1VuR\u}R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,2000 WqP3\q32000 fqN(24),pqZ1246zqN(Z)=qZq 189,179,170,160, 151 ,142,134,127,119,112,106,100 ,94,89,85,80,75,71,67,64,60, 56,53,50 qu NOTESuD10025530160u0,N(N):1,255u6):16368,0:Z$:Z$;:Z$"R"ı@UZ$(13)ĢCV1:CH1:22010|UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001UZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012Hq-SETUP ROUTINERqK0:C1:R3 100043000X16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::^i 1P,Lt43000UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001UUCV(37):CH(3EyxA?ooo}={{^o^k|sgww__w^_W~___wxO8oJV[_{]n]vox?>pp}xOow[>{]{?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~_o>}>?]{o}_ow[gw{wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/??_w>?w?~oxp67\_{]qcfoxG?G|}xow[>{mw?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc~>?c>{o~_ow[ko{wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}ow`A{}~?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~_m>{>?y>x`ow[m{wsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~^~wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qow[>{~~?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~_j>{>_?|>{o7ow[n~{"PLEASE ENTER 1, 2, OR 3 ";:8689fZM16:40000:ZEZNNpZE0ZE443140zz:"PLEASE ENTER A NUMBER 1 - 3":43100ZE1ĬZE343180:10:"GETTING THE MENU PROGRAM":(4);"RUN HELLO"1023,9: 2,13,15,17,18,20 R R, 2, OR 3 ";'fZM16:40000:ZEZN<pZE0ZE443140hz:"PLEASE ENTER A NUMBER 1 - 3":43100tZE1ĬZE343180:10:"GETTING THE MENU PROGRAM":(4);"RUN HELLO"1023,9:: 2,13,15,17,18,20 OR"R:"3) END""\13:1):R$"Y"R$"N"43030) :R$"Y"Ĭ=*(1023)123ĀQ4D$;"RUN HELLO" 2,13,15,17,18,20 ENTER A NUMBER 1 - 3.":43100ZE1ĬZE343180:10:"GETTING THE MENU PROGRAM":(4);"RUN HELLO"1023,9: 2,13,15,17,18,20$:(ZN$)0ZN$"0"40006VCZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001~FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96: 3,5,6,8,10,12,13,15,17,18,20@CH(36):CV(37):868:22000:ZN$Z)2:T21(K):9(K0)P,K(T2,T1)LL:PP12:T2:PP12:lv 56,44,60,48,64,52,68,44,56,36,52,64,48,60PxZ1$N1$:Z11232:(N$,1,2)(Z1$,Z1,2)30830dxZ1nxZ1(Z127)212:L84Z14:1P,LLL:3P,LLL:24(L56)P,LLL:PP23yO}Z024:N(Z):Z:pq200,189,179,170,160,151,142,134,127,119,112,106,100,94,89,85,80,75,71,67,64,60,56,53,50 0u1:0:1:LL0đbuZ40728:1,ZLL279,ZLL:Z:3:uZ1D100:0,N(N):1,Z1:R:u13P,64LL:PP25:\vK0ı9fvT1((K)336):868:16368,0:Z$:Z$;:Z$"R"ıGUZ$(13)ĢCV1:CH1:22010UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001UZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012HqR300:P3:32000:N(24):1023,9: GHELLO"'1023,9/: PROGRAM, OR"R:"3) END"A\13:"PLEASE ENTER 1, 2, OR 3. ";XfZM16:40000:ZEZNmpZE0ZE443140z:"PLEASE ENTER A NUMBER 1 - 3.":43100ZE1ĬZE34318022016:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"(4) :+ 10:"DO YOU WANT TO TRY"u12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" R"WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT P,13,15,17,18,20+@868:CH(36):CV(37)YA22000:ZN$Z$:(ZN$)(((ZN$)))40003vB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)4*x1P,L:3P,L:24(L56)P,L:PP230y}R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96: 1,3,5,6,8,10,1225:\vK0ıTfvT1((K)3)2:T21(K):9(K0)P,K(T2,T1):PP12:T2:PP12:v 56,44,60,48,64,52,68,44,56,36,52,64,48,60PxZ1$"D5E5F5G5A5B5C6D6E6F6G6"ZxZ11232_x(N$,1,2)(Z1$,Z1,2)30830dxZ1nxZ1(Z127)212xL84Z100:N(24):Z024:N(Z):Zyq 200,189,179,170,160,151,142,134,127,119,112,106,100,94,89,85,80,75,71,67,64,60,56,53,50 q0u:1:0:1:Z40728:1,Z279,Z:Z:3:buZ40728:1,Z279,Z:Z:3:uZ1D100:0,N(N):1,Z1:R:u13P,64:PP(37):CH(36):868:16368,0:Z$:Z$;:Z$"R"ıQUZ$(13)ĢCV1:CH1:22010UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001UZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012HqR300:P3:320D$(13)(4):3 10:"DO YOU WANT TO TRY"}12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" 40000:ZEZN(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER 2,2,2,1,2,2,1,2,2,1,2,2,1,2 3@CH(36):CV(37)aA22000:ZN$Z$:(ZN$)(((ZN$)))40003~B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: ZE343049G:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"S)1023,9[*: KWANT TO TRY"V12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030f :R$"Y"Ĭz*(1023)123Ā4D$;"RUN HELLO" 40000:ZEZN(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1Ĭ 36):CV(37):A22000:ZN$Z$:(ZN$)(((ZN$)))40003WB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4):  10:"DO YOU LZE3)(ZE2)(ZE1)043030c:"PLEASE ENTER A NUMBER 1 - 3. ":43022ZE1ĺ:(4);"RUN RHYTHM PLAY"ZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: EQEQQ,QEQEQ,QQEQE,QEEEEQ,EEQEEQ,EEEEQQ,QEEQEE,EEQQEE,QQEEEE UD$(13)(4)]:{ 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"E,QQEEEEW+ BEEEQ,EEBEQ,QBEEE,BEQEE,EEQBE,QEEBE,EQEEQE,EQEEEQ,QEEEQE,EEEQEQ,EEQEQE, QEECSQ,QCSEEQ,QQCSEE,QQEECS,CSEEQQ,EECSQQ,CSQEEQ,EEQCSQ,QEEQCS,QCSQEE- QEECSEE,QCSEEEE,QEEEECS,QCSEECS,EEQCSEE,CSQCSEE,CSEQEEE,EQECSEE,EECSEQE,CSEEEQEC";:40010:400018FZM:868:CV1(CV23):ZN(ZN$):QJCV1:36,CH:868:( HQQ,QHQ,QQH,EEA,HBE,BEH,QQQQ,HQEE,HEEQ,QEEH,EEQH,EEHQ,QHEE,QQBE,QBEQ,BEQQ) QEEQQ,QQEEQ,QQQEE,EEQQQ* EQEQQ,QEQEQ,QQEQE,QEEEEQ,EEQEEQ,EEEEQQ,QEEQEE,EEQQER28,FS2"}R29,CS6:R30,2<}R31,DS:R32,ESEJ}R33,6SU}N(37)m}N(15)170:N(20)127s耱@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.430302:"PLEASE ENTER A NUMBER 1 - 3.":43022QZE1ĺ:(4);"RUN RHYTHM"aZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:L868:tZ127332(D$(13)(4)0:N 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"3)(ZE2)(ZE1)0,CSQCSEE,CSEQEEE,EQECSEE,EECSEQE,CSEEEQE>@CH(36):CV(37)lA22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:,QEQEQ,QQEQE,QEEEEQ,EEQEEQ,EEEEQQ,QEEQEE,EEQQEE,QQEEEE BEEEQ,EEBEQ,QBEEE,BEQEE,EEQBE,QEEBE,EQEEQE,EQEEEQ,QEEEQE,EEEQEQ,EEQEQE QEECSQ,QCSEEQ,QQCSEE,QQEECS,CSEEQQ,EECSQQ,CSQEEQ,EEQCSQ,QEEQCS,QCSQEE( QEECSEE,QCSEEEE,QEEEECS,QCSEECS,EEQCSEE24,FS6!}R25,CS6:R26,3;}R27,DS:R28,FS2S}R29,CS6:R30,2m}R31,DS:R32,ESE{}R33,6S耱 HQQ,QHQ,QQH,EEA,HBE,BEH,QQQQ,HQEE,HEEQ,QEEH,EEQH,EEHQ,QHEE,QQBE,QBEQ,BEQQ QEEQQ,QQEEQ,QQQEE,EEQQQ6 EQEQQH1:22010FUZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001vUZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012HqR768:32000Iqy0,(N256):1,(N(N256)256)"y2,(D256):3,(D(D2516368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001UUCV(37):CH(36):16368,0:Z$:Z$;:Z$"R"ı UZ$(13)ĢCV1:C8:"YOU ANSWERED ";B;" OUT OF ";P1;" PROBLEMS"m:"CORRECTLY. THAT IS A SCORE OF ";(B100P1.5);"%."15:"YOU NEEDED THE TRIADS REPEATED ";R3;" TIMES":"FOR AN AVERAGE OF ";(R310P1)10;" TIMES PER PROBLEM."1000043000>'$),1)1723:"TO HEAR THE TRIAD AGAIN, PRESS R. TO"Z"CONTINUE, PRESS 'RETURN'. ";o16368,0:R$:1R$"R"ė:4601:38044122::"CORRECT":BB1:P(T8,1)P(T8,1)1:P(T8,1)0P(T8,1)0441T34,0:0 CAN IDENTIFY THE TRIAD, ":"ENTER ITS NUMBER (1-";T92;"). ";:868:22010:R$Z$o(R$)0(R$)T921430R$"R"400380:R3R31400R$(T8)45021:"WRONG, THE CORRECT ANSWER WAS ";T8;".":P(T8,1)P(T8,1)1:P((R$),1)P((R3TT81T82N3N17*^T83N3N18<hT84N3N16Er380Nw395a|NN(N1):31000t}NN(N2):31000~NN(N3):31000NN(N2):31000NN(N1):3100034,17:18:Q1:18:"PRESS 'R' TO HEAR THE TRIAD AGAIN. IF ":"YOUA$"T1P1e#SS0:PP1T92:SSSSP(PP,1):PP:S10:PP1T92:S1S1P(PP,1):P(PP,2)S1SS:PPw$LL1600:LL,N116-T$"D"N1((1)128)6T8(1):PP14:T8P(PP,2)T8PP:3207PP@T82T84330EN2N14:340JN2N1AJOR":" 2 MINOR"-T91ĺ:260H:" 3 AUGMENTED"d:" 4 DIMINISHED":"FOR EXAMPLE, IF THE TRIAD YOU HEAR IS""MINOR, ENTER THE NUMBER 2."19:"THE TRIADS WILL BEGIN AS SOON AS YOU":"PRESS THE RETURN KEY.";:IKE A DIFFERENT ROOT NOTE"::"FOR EACH?"::"ENTER 'F' FOR FIXED, 'D' FOR DIFFERENT."k 16:868:"";T$ T$"F"T$"D"185 :2 "ENTER YOUR ANSWERS USING THE NUMBERS ":"BELOW:" :"NUMBER TRIAD" "------ -----"" 1 MADS?"4 18:"(ENTER 1 OR 2) ";:868:40000:T9ZNh T91T92Ģ23:"OOPS! REENTER 1 OR 2.":160 PP1T92:P(PP,1)P1(T92):PP 5:"WOULD YOU LIKE THE ROOT OF ALL THE "::"TRIADS TO BE THE SAME NOTE (FIXED) OR"V :"WOULD YOU LFERENT ROOT NOTES." F10000t n4:"HOW MANY EXERCISES WOULD YOU LIKE? ";:868:40000:P1ZN:P11P1(P1)110 x9:"WOULD YOU LIKE:" :" 1) ONLY MAJOR AND MINOR TRIADS," :" 2) MAJOR, MINOR, AUGMENTED, AND": " DIMINISHED TRI COVER MAJOR, MINOR, "::"AUGMENTED, AND DIMINISHED TRIADS. YOU"::"MAY DECIDE WHETHER OR NOT TO INCLUDE"::"THE AUGMENTED AND DIMINISHED TRIADS." <::"IN ADDITION, YOU MAY CHOOSE TO USE THE"::"SAME ROOT NOTE FOR ALL EXERCISES OR TO"::"USE DIFING IN"::"RECOGNIZING VARIOUS TYPES OF TRIADS." :"IN EACH EXERCISE, YOU WILL HEAR A TRIAD"::"PLAYED AS A SERIES OF NOTES - ROOT,"::"THIRD, FIFTH, THIRD, AND ROOT. YOU "::"WILL TRY TO IDENTIFY THE TRIAD." (10000 -4 2"THE EXERCISES629000 B0:ZM23BP(4,2):PP14:P(PP,1)0:PPLD100UR30l :8:17:"TRIADS" 20:"INSTRUCTIONS? (YES OR NO) ";:868:"";I$:I$(I$,1,1):I$"Y"I$"N"11  I$"N"1101 5:"THIS PROGRAM PROVIDES EAR TRAIN             A NUMBER 1 - 3.":43022#ZE1Ĭ3ZE343049n:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"z)1023,9*: K3:R8,48:R9,192w}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96:耺:(4);"RUN PREP1" 2,2,1,2,2,2,1,2,1,2,2,1,3,1 2,1,2,2,1,2,2,2,1,2,2,2,2,1  2,1,2,2,2,1,2,1,2,2,2,1,2,2 4,89,85,80,75,71,67,64,60,56,53,50(q4u NOTESIuD10025530160\u0,N(N):1,255ruZ1(D100255)yuRuZuZ1D100(D100255)255u0,N(N):1,Z1uRu}R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,17:220017UZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012RUZ1$(8)ĺ" ";:22012gUZ$Z$Z1$:22012{Hq-SETUP ROUTINERqK0:C1:R300WqP3\q32000fqN(24)pqZ124zqN(Z)qZ"q 189,179,170,160,151,142,134,127,119,112,106,100,9@UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000qU(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001wUUCV(37):CH(36):16368,0:Z$:Z$;:Z$"R"ıUZ$(13)ĢCV1:CH1:22010UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1";P1;" FOR A SCORE OF ";1(.5B100P1);"%.":"YOU NEEDED THE SCALES REPEATED ";R1::"TIMES FOR AN AVERAGE OF ";(R1100P1)100;" TIMES PER"::"PROBLEM."10004300016368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$:: 34,21:279$X$"":421634,17::460K::"CORRECT":XS2421P(A,1)P(A,1)1:P(A,1)0P(A,1)0BB1421T::3:" THAT ENDS YOUR EXERCISES"7:"YOU ANSWERED ";B;" PROBLEMS CORRECTLY"::"OUT OF 0:"NO, TRY AGAIN."DP(A,1)P(A,1)1:P(J1,1)P(J1,1)1:400"NO, THE CORRECT NUMBER WAS ";J;".":P(A,1)P(A,1)1:P(J1,1)P(J1,1)123:"PRESS 'R' TO HEAR THE SCALE AGAIN.":"PRESS 'RETURN' TO CONTINUE.";:16368,0:X$:1X$"R"427ER (1-4). ";:402c18:"WHICH SCALE OR MODE DID YOU HEAR?":"ENTER THE CORRECT NUMBER (1-8). ";868:22010:A$Z$::958A$"R"R1R11:279A(A$):A1A44(V2)A(A)40015:868:16:868:20:AJ1430SSSS1:SS242S(J,T1):30100T1%"J14295-#J3<'T1711L,NNS(J,T1)W130100d6T1:JJ1t7X$"R"425^15:"IF YOU WANT TO HEAR THE SCALE AGAIN, ":"PRESS THE 'R' KEY."V1Ģ18:"WHICH SCALE DID YOU HEAR? ENTER THE ":"CORRECT NUMB68,0:X$:  D2$ T1P1A LL1700:LL:SS1(V2) S20:PP18:S2S2P(PP,1):PP:S10:PP18:S1S1P(PP,1):P(PP,2)S1S2:PP:J(1):PP18:JP(PP,2)274 PP JPP:J1PP F((1)61) NF 30100 T117NN 9T "1. MAJOR":"2. HARMONIC MINOR ":"3. NATURAL MINOR":"4. MELODIC MINOR"a V1230 9:20:"5. DORIAN MODE":20:"6. PHRYGIAN MODE":20:"7. LYDIAN MODE":20:"8. MIXOLYDIAN MODE" 34,17 24:"PRESS 'RETURN' TO BEGIN."; 163EAR A SCALE AND BE ASKED TO "::"IDENTIFY ITS TYPE. USE THE NUMBERS"::"BELOW TO ENTER YOUR ANSWERS.":180 "YOU WILL HEAR A SCALE OR MODE AND BE"::"ASKED TO IDENTIFY ITS TYPE. USE THE"::"NUMBERS BELOW TO ENTER YOUR ANSWERS." 2. ";:868:40000:VZN) sV1V2119I t18:"PLEASE ENTER 1 OR 2."R u100X w x5:"HOW MANY PROBLEMS DO YOU WANT?";:868:40000:P1ZN }P11P1(P1)120 ~PP144(V2):P(PP,1)P1(44(V2)):PP V2140m "YOU WILL HSCALES, THREE TYPES OF MINOR ":L "SCALES, AND (OPTIONALLY) FOUR MODES."V A1000z F5:"DO YOU WANT TO WORK WITH:" P:" 1) MAJOR AND MINOR SCALES ONLY, " Z:" 2) MAJOR AND MINOR SCALES AND ":" THE FOUR MODES." d12:"ENTER 1 ORS(8,7):290007T18:C117:S(T,C1):C1:TQ(4);"NOMON I,O,C":xB0:::2:" SCALES"N$"12345678"R10:ZM23P(8,2):PP18:P(PP,1)0:PP 5:"SCALES PROVIDES PRACTICE IN IDENTIFYING" "MAJOR           0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96:h耺:(4);"RUN PREP1" 2,2,1,2,2,2,1,2,1,2,2,1,3,1 2,1,2,2,1,2,2,2,1,2,2,2,2,1  2,1,2,2,2,1,2,1,2,2,2,1,2,2  2,2,2,1,2,2,1,2,2,1,2,2,1,2 @CH( u NOTES"uD100255301605u0,N(N):1,255KuZ1(D100255)RuRYuZwuZ1D100(D100255)255u0,N(N):1,Z1uRu}R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192P}R10,166:R11,)1):22012&UZ1$(8)ĺ" ";:22012;UZ$Z$Z1$:22012OHq-SETUP ROUTINEaRqK0:C1:R300iWqP3t\q32000fqN(24)pqZ124zqN(Z)qZq 255,239,227,212,201,189,179,170,159,151,142,134,128,119,113,106,101,94,89,85,80,75,71,67q"Ģ1CV:CH1:22000EU(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001KU~UCV(37):CH(36):16368,0:Z$:Z$;:Z$"R"ıUZ$(13)ĢCV1:CH1:22010UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001 UZ1$(8)(Z$)0Z$(Z$,1,(Z$410 T::10F"YOU ANSWERED ";B;" OF ";P1;" PROBLEMS":{"CORRECTLY FOR A SCORE OF ";(.5B100P1);"%."10004300016368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$")1:P(V1,1)P(V1,1)1I22:"IF YOU WANT TO HEAR THE NOTES AGAIN,":"PRESS 'R', OTHERWISE, PRESS 'RETURN'.";:16368,0:A$:24:1A$"R"47034041019::"CORRECT":BB1:P(V1,1)P(V1,1)1:P(V1,1)0P(V1,1)0AFTER WHICH NOTE? ";:22010:S$Z$::958?~S$"R"İ340:381[S1(S$):S10S1S39024:"PLEASE TYPE A NUMBER BETWEEN 1 AND "S1".";:1:381380958:S11V45019:"NO, THE HALF STEP WAS AFTER NOTE ";V1;"."P(S1,1)P(S1,11322<S(T1)S(T11)2"=3306BS(T1)S(T11)1>JT1GK340PL375\TT11So^NS(T1):30100whT1}mw14|"PRESS 'R' TO HEAR THE NOTES AGAIN.":"---------------------------------------")}17:868:"THE HALF-STEP OCCURS A$: DO ITT1P18 COMPUTE PROBABILITIESSS0:P1S1:SSSSP(P,1):P:S10:P1S1:S1S1P(P,1):P(P,2)S1SS:P16:958T21800:T2"S(1)((1)101),V(1):P1S1:VP(P,2)VP1:3101P6T12S;VT:"TYPE THE NUMBER OF THE NOTE WHICH IS "::"PLAYED JUST BEFORE THE HALF STEP." :"FOR EXAMPLE, IF YOU HEAR A HALF STEP"::"BETWEEN NOTES 2 AND 3, ANSWER BY TYPING" :"THE NUMBER, 2." 34,1624:"PRESS 'RETURN' TO HEAR THE NOTES.";:U WANT?";:868:40000:P1ZN4 P11P1(P1)170T P1S1:P(P,1)P1(S1):PZ j I$"N"216q 4 "WHEN YOU HEAR THE NOTES, LISTEN FOR ": "THE HALF-STEP AND DECIDE BETWEEN WHICH": "TWO NOTES IT OCCURS." 1000 2R RE"::"NOTES, THE MORE DIFFICULT THE EXERCISES"B :"WILL BE." 13:"HOW MANY NOTES IN THE SERIES? (3-5) ";:868:40000:SZN S3S4S5Ģ21:"THAT WAS NOT ONE OF THE CHOICES.":"TRY AGAIN.":160 958 16:"HOW MANY PROBLEMS DO YO A WHOLE STEP."= F:"YOU MUST DETERMINE BETWEEN WHICH TWO" G:"NOTES YOU HEAR AN INTERVAL OF A HALF":" ----":"STEP." n10000 x4:"YOU CHOOSE THE NUMBER OF NOTES (3-5) "::"WHICH WILL BE IN EACH SERIES - THE MO"THIS PROGRAM PROVIDES DRILL IN ":M "RECOGNIZING WHOLE AND HALF STEPS."S Y  "THE COMPUTER WILL PLAY A SERIES OF"  #"NOTES WHICH ARE PART OF A SCALE." 2:"IN EVERY CASE BUT ONE, THE INTERVAL" <:"BETWEEN THE NOTES WILL BE:29000((4);"NOMON I,O,C":GP(4,2):P14:P(P,1)0:POD2YS(5)gD2:ZM23qB0: 8:13:"FIND THE HALF" 22:868:"INSTRUCTIONS? (YES OR NO) ";:"";I$:I$(I$,1,1):I$"Y"I$"N"10  I$"N"160$ 2:          S:R17,3d}R18,CSA3n}R19,FS:R20,FS3Kx}R21,ES9:R22,1e}R23,DS:R24,FS6}}R25,CS6:R26,3}R27,DS:R28,FS2}R29,CS6:R30,2}R31,DS:R32,ESE}R33,6S}N(37)}Z137:N(Z):ZD} 6)256),yR6y;}A10:B11:C12:D13:E14:F15:S16O }R,ES6:R1,0e}R2,ES6:R3,1{}R4,ES6:R5,2(}R6,ES6:R7,32}R8,ASE:R9,3S:R10,CS<}R11,AS6:R12,0F}R13,AS4:R14,1P}R15,8S8 Z}R16,D:ZEZN((ZE3)(ZE2)(ZE1)043030U:"PLEASE ENTER A NUMBER 1 - 3.":43022aZE1ĬqZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: K:868:CV1(CV23):ZN(ZN$):9JCV1:36,CH:868:KD$(13)(4)S:q 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" 400002,2,2,1,2,2,2,2,1 6 2,1,2,2,2,1,2,1,2,2,2,1,2,2 [ 2,2,2,1,2,2,1,2,2,1,2,2,1,2 q@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001 FZM166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96:耺:(4);"RUN PREP1" 2,2,1,2,2,2,1,2,1,2,2,1,3,1  2,1,2,2,1,Z]q 189, 179,170,160,151,142,134,127,119,112,106,100,94,89,85,80,75,71,67,64,60,56,53,50cqou NOTESuD10025530160u0,N(N):1,255uZ1(D100255)uRuZuZ1D100(D100255)255u0,N(N):1,Z1uRuM}R,22010AUZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001qUZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012Hq-SETUP ROUTINERqK0:C1:R300WqP3\q32000fqN(24)pqZ124zqN(Z)q68,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::zUCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001UUCV(37):CH(36):16368,0:Z$:Z$;:Z$"R"ıUZ$(13)ĢCV1:CH1:34,22::NF:30100# NS:30100, 2409 34,17:B 270] ::"CORRECT"::BB1f 240m T ::10:"YOU ANSWERED ";B;" OUT OF ";P1;" PROBLEMS"  ""CORRECTLY FOR A SCORE OF ";(.5100BP1);"%." #1000 $430009163S)2250! I$"H"(FS)12501 I$"R"222: 230I NF:30100X NS:30100a 200 :21:"NO, THAT IS NOT CORRECT." 23:"TO HEAR THE NOTES REPEATED, PRESS 'R'.":"TO CONTINUE, PRESS 'RETURN'.";:16368,0:W$:1 W$"R"248 S1700:SS F((1)201)0 S((1)52)= S0160G SFSV NF:30100e NS:30100n 115 18:"IS THE INTERVAL A WHOLE OR HALF STEP?"::"(ENTER W OR H) ";:868 22010:I$Z$: I$"H"I$"W"I$"R"200 I$"W"(FSWER BY"+ o:"ENTERING THE LETTER, 'H'."4 r120t s14:"IF YOU NEED TO HEAR THE TONES AGAIN,"::"PRESS 'R'." t17:"---------------------------------------": x34,17:17 24:"PRESS 'RETURN' TO HEAR THE NOTES.";:LL$: T1P1 S000:P1ZN 7P11P1(P1)50& <V F2:"YOU WILL HEAR TWO TONES WHICH WILL ": P"BE EITHER A WHOLE OR A HALF STEP": Z"APART. IF THE INTERVAL IS A WHOLE STEP," d"ANSWER BY ENTERING THE LETTER, 'W'." i n"IF IT IS A HALF STEP, AN :29000((4);"NOMON I,O,C":2:B0@D2:ZM23[2:14:"WHOLE - HALF" 5:"THIS PROGRAM PROVIDES DRILL IN": "RECOGNIZING WHOLE AND HALF STEP":"INTERVALS BY EAR." 217:"HOW MANY PROBLEMS WOULD YOU LIKE?";:868:40        %y0,(N256):1,(N(N256)256)J"y2,(D256):3,(D(D256)256)Q,yRW6y~}A10:B11:C12:D13:E14:F15:S16 }R,ES6:R1,0}R2,ES6:R3,1}R4,ES6:R5,2(}R6,ES6:R7,32}R8,ASE:R9,3S:R10,CS<}R11:R :R$"Y"Ĭ!*(1023)123Ā54D$;"RUN HELLO"H40000:ZEZNj(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001bFZM:868:CV1(CV23):ZN(ZN$):{JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151 } 142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47 }@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006:Z001 U@CH(36):CV(37)MA22000:ZN$Z$:(ZN$)(((ZN$)))40003jB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:UN RHYTHM3"N16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::'16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22TO PERFORM THE RHYTHM, SIMPLY TAP IT"Er:"OUT USING THE 'N' KEY."s|:"WHEN YOU HAVE FINISHED, THE COMPUTER":"WILL SHOW YOU WHAT YOU PLAYED."100001021,L1:1022,P1D$(4)::8:5:"ONE MOMENT PLEASE...." D$;"RF 4 QUARTER"= ":"NOTES. THIS MEASURE WILL ESTABLISH THE"l ,:"TEMPO. THE SECOND MEASURE IS THE ONE" 6:"WHICH WILL ACTUALLY BE JUDGED. WHEN" @:"YOU ARE FAMILIAR WITH THE PATTERN," J:"YOU WILL TRY TO PERFORM IT." ^10000%h5:"ZN3202 L1ZN:M 6:"HOW MANY PROBLEMS DO YOU WANT?";:868:40000e ZN1ZN(ZN)206q P1ZN: I$"N"475 4:"IN EACH EXERCISE YOU WILL SEE TWO " :"MEASURES OF MUSIC PRINTED. THE FIRST" :"WILL ALWAYS BE A MEASURE O"Y :"3. THE EXERCISES HAVE 6 OR 7 NOTES AND USE QUARTER, EIGHTH, DOTTED EIGHTH" " AND SIXTEENTH NOTES. THERE IS SOME" " SYNCOPATION." 20:"WHICH DIFFICULTY LEVEL DO YOU WANT?":"ENTER 1, 2, OR 3. ";:868:40000:ZN1ZN2LS:"6 n6:"1. THE EXERCISES HAVE 3 TO 5 NOTES AND"b x" CONSIST OF HALF, QUARTER, DOTTED" " QUARTER, AND EIGHTH NOTES." :"2. THE EXERCISES HAVE 5 OR 6 NOTES, AND USE QUARTER AND EIGHTH NOTES." " THERE IS SOME SYNCOPATION.:"WILL SEE A PATTERN AND THEN WILL BE"T 2:"ASKED TO 'PLAY' IT ON THE KEYBOARD." <::"THE COMPUTER WILL DECIDE WHETHER OR" F:"NOT THE PATTERN WAS 'PLAYED' CORRECTLY." P10000 Z2:"YOU MAY SELECT FROM ONE OF THREE" d"DIFFICULTY LEVE B0ZM241 ::8:15:"RHYTHM PLAY" 20:868:" INSTRUCTIONS? (YES OR NO) ";:"";I$:I$(I$,1,1):I$"Y"I$"N"12 I$"N"903:"IN THIS PROGRAM, YOU WILL BE DRILLED ON":"PERFORMING RHYTHM PATTERNS. YOU "' (     7,3&2}R8,ASE:R9,3S:R10,CS><}R11,AS6:R12,0VF}R13,AS4:R14,1fP}R15,8S8|Z}R16,DS:R17,3d}R18,CSAn}R19,FS:R20,FS3x}R21,ES9:R22,1}R23,DS:R24,FS6}R25,CS6:R26,3 }R27,DS:Z31xZ3P,L&x(DZ2).130977:xZ2Z22:Z3Z31KxDZ230900vxZ3P,L:PP14:12P,L3:PP10:30980yPP20y}A10:B11:C12:D13:E14:F15:S16 }R,ES6:R1,0}R2,ES6:R3,1}R4,ES6:R5,2(}R6,ES6:RdxZ1ix"ERROR""nxZ1(Z11)27sxZ113C230860HxxZ11330850U}xZ1Z112fxL84Z14LLyx(N$)230895x(N$,3,1)"#"30880x(N$,3,1)"*"30875x11P,L:30885x10P,L:30885x9P,L4:30885xPP12xxZ24:1,(N(N256)256)<u2,(D1256):3,(D1(D1256)256)CuRIuUu CLEFSgv12CP,64LLr vPP25xvPx NOTESUxZ1$"E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6"WxX(0)ZxZ127332_x(N$,1,2)(Z1$,Z1,2)30830C'16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::IHq[RqK0:C1:R300cWqP3n\q32000tq0u CLEAR AND STAFF:uLL0đDu1Nu0Xu1buZ40728lu1,ZLL279,ZLLvuZu3uu NOTESu0,(N256):"CORRECTLY; PRESS 'RETURN' TO GO ON.";:16368,0:Z$:1SZ$"R"Z$(13)1030oZ$"R"İ760:963:1030~ :T:::5:"YOU ANSWERED ";B;" QUESTIONS CORRECTLY":"OUT OF ";P1;" FOR A SCORE OF ";(B100P1.5);"%."10000$43000AYED ";:Z$:HLL60:P0:30000:30200:N$"D5":D1:T714:30800:T7_18P,72LL:PP15P91P01:R(1,P9)A(P94):P9:900:1030:"CORRECT":BB1SS(L2)1:B20(B20)İ5723:"PRESS 'R' TO HEAR THE PATTERN PLAYED":D1S94V4:30100V509505D1S94V5:30100CV60950YD1S94V6:30100gV70950}D1S94V7:30100P91P01(A(P94)R(1,P9))R(1,P9)31010P9:1020 :21:"WRONG - PRESS 'RETURN' TO SEE WHAT":"YOU PL$(L2))W1V1R(1,1)*V2R(1,2)8V3R(1,3)FV4R(1,4)hV5R(1,5):V6R(1,6):V7R(1,7)tNN(15)T714D1S9430100T7NN(20)D1S94V1:30100D1S9V24:30100D1S94V3:30100V40950(R$(L2)):A$ P913P0:953M A(P9)T1:P9:S9(A(1)A(2)A(3)A(4))16s P914P0:A(P9)(A(P9)S9.5)4 A(P9)0A(P9).25 P9:S9S97 16368,0:1000  16368,0:T10 (16384)127958 T1T11:954 V(R0,KKP12,KK:TT:XXXX.25:T7T71:940 D1:30800:30800:P30,39LLP12,39LL:P30,37LLP12,37LL:P30,38LLP12,38LL:T7T71::XXXX.5:940 DR(1,T7) 30800 T7:18P,72LL: 21:"PLAY THE PATTERN USING THE 'N' KEY." P07(R$(L2))9291 R(1,T7).5R(1,T7).75929T XXR(1,T7)(XXR(1,T7))929v R(1,T7).5R(1,T71).5929 R(1,T7).75R(1,T71).25929 R(1,T7).5924' D1.5:30800:D1:30800:TT13:JJ36TTLL:KK44TTLL:P35,JJP12,JJ:P2* (R$(P8),T7,1)"B"R(P9,T7)1.5:800T (R$(P8),T7,1)"C"R(P9,T7).75:800~ (R$(P8),T7,1)"S"R(P9,T7).25:800 (R$(P8),T7,1)"A"R(P9,T7)3:800 T7 ! #900 $941 N$"G5":XX0 T71(R$(L2)) XXXXR(1,T7):TT714:30800:T7' 18P,72:PP15I L2((1)201):SS(L2)1750X P91:P8L2a 760j 803~ T71(R$(P8)) P91 (R$(P8),T7,1)"Q"R(P9,T7)1:800 (R$(P8),T7,1)"H"R(P9,T7)2:800 (R$(P8),T7,1)"E"R(P9,T7).5:800KL1(1021):P1(1022):R(1,7),R$(20),A(17):29000:8192:SS(20):5:9gSS120:SS(SS)0:SS:o B0T71L1:T120:R$(T):T:T7;P91:P8L2T1P1LL0:P0:T71T817:R(T7,T8)0:T830000:C1:30200:N$"D5":D1        6:R3,1}R4,ES6:R5,25(}R6,ES6:R7,3W2}R8,ASE:R9,3S:R10,CSo<}R11,AS6:R12,0F}R13,AS4:R14,1P}R15,8S8Z}R16,DS:R17,3d}R18,CSAn}R19,FS:R20,FS3x}R21,ES9:R22,1 }R23,DS:R130961xZ3630955(xZ3330960;xZ3Z31:30965KxZ33:30965[xZ37:30965kxZ36:30965|xDZ230930xZ3P,L:PP14:12P,L3:PP10:30980yPP20y}A10:B11:C12:D13:E14:F15:S16 }R,ES6:R1,0 }R2,ES1256):3,(D1(D1256)256)$uR*u@u13P,64:PP25:YPxN$"D5"L76:30898bQxL64pxZ24:Z31|xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP14:12P,L3:PP10:30980xDZ230977xZ2Z22xZ3@UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000qU(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001wUHqK0:C1:R300:P3:32000:0u::1:0:1:Z40728:1,Z279,Z:Z:3:u NOTESu0,(N256):1,(N(N256)256)u2,(D030Z$"R"İ965:1030 'T1::b5:"YOU ANSWERED ";B;" QUESTIONS CORRECTLY":"OUT OF ";P1;" FOR A SCORE OF ";(.5B100P1);"%."10000$43000L64'16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::113J(W1)1ĺW1".":1015'W16WW1:1030I:"CORRECT":SBB1`LL(L2)1B20(B20)āLL120:LL(LL)9:LL23:"PRESS 'R' TO HEAR THE CORRECT PATTERN,":"PRESS 'RETURN' TO CONTINUE.";:16368,0:Z$:1:Z$"R"Z$(13)1V50990#D1150V5:301001V60990FD1150V6:30100TV70990iD1150V7:30100o:21:"WHICH PATTERN IS CORRECT? (1-3) ";:40000:WZNW1W3W(W)1000J(W)11020"NO, THE CORRECT ANSWER WAS ";W1)V2R(J(W),2)$V3R(J(W),3)5V4R(J(W),4)`V5R(J(W),5):V6R(J(W),6):V7R(J(W),7)jN170vT714D115030100T7N127D1150V1:30100D1150V2:30100D1150V3:30100V40990D1150V4:30100:24:"TYPE 'A' WHEN YOU KNOW THE ANSWER.";:121:"WHICH PATTERN DO YOU WANT TO HEAR? ":"(ENTER 1, 2, OR 3) ";:868:22000:C$Z$C$"A"1000((C$,1,1))1((C$,1,1))3950963:950V(R$(L2))W((C$,1,1))V1R(J(W),7)a D1:30800:30800:P30,39P12,39:P30,37P12,37:P30,38P12,38:T7T71:XXXX.5:940o DR(1,T7)z 30800 T7:18P,72 J(1)((1)31) J(2)((1)31) J(2)J(1)942 J(3)((1)31) J(3)J(1)J(3)J(2)944.929' XXR(1,T7)(XXR(1,T7))929I R(1,T7).5R(1,T71).5929m R(1,T7).75R(1,T71).25929 R(1,T7).5924 D1.5:30800:D1:30800:TT13:JJ36TT:KK44TT:P35,JJP12,JJ:P20,KKP12,KK:TT:XXXX.25:T7T71:940 DR(1,T 4(R$(L2))(R$(L3))803+ >P92:P8L34 H760H RL4((1)201)] \L4L3L4L2850{ f(R$(L4))(R$(L2))850 pP93:P8L4 z760 N$"G5" X(0) T71(R$(L2)) XXXXR(1,T7):T7(R$(L2))929 R(1,T7).5R(1,T7).75 (R$(P8),T7,1)"E"R(P9,T7).5:800Q (R$(P8),T7,1)"B"R(P9,T7)1.5:800{ (R$(P8),T7,1)"C"R(P9,T7).75:800 (R$(P8),T7,1)"S"R(P9,T7).25:800 (R$(P8),T7,1)"A"R(P9,T7)3:800 T7 ! #L3((1)201) *L3L2803 30000 C1 30200, N$"D5":D1C T714:30800:T7W 18P,72:PP15y L2((1)201):LL(L2)1750 P91:P8L2 760 803 T71(R$(P8)) (R$(P8),T7,1)"Q"R(P9,T7)1:800 (R$(P8),T7,1)"H"R(P9,T7)2:800'78192:L1(1021):P1(1022):R(3,7),R$(20):29000YLL(20):LL120:LL(LL)0:LLg::ZM22oB0yLN127T71L1T120:R$(T):TT7;P91:P8L2T1P1P0T713T817R(T7,T8)0T8T7         :"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"=)1023,9E*:R:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030P :R$"Y"Ĭd*(1023)123Āx4D$;"RUN HELLO"40000:ZEZN(ZE3)(ZE2)(ZE1)043030:"PLEASE ENTER A NUMBER 1 - 3.":43022ZE1ĬZE3430491:100:ZN$Z$:(ZN$)(((ZN$)))40003AB(ZN$)0ZN$"0"40006}CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"@12::R32,ESE}R33,6S%}N(37):}Z137:N(Z):Z} 378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151 } 142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47 }@CH(36):CV(37)$A2200,AS6:R12,0&F}R13,AS4:R14,16P}R15,8S8LZ}R16,DS:R17,3\d}R18,CSAvn}R19,FS:R20,FS3x}R21,ES9:R22,1}R23,DS:R24,FS6}R25,CS6:R26,3}R27,DS:R28,FS2}R29,CS6:R30,2 }R31,DSZN$"0"40006JCZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001rFZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:I:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::vUCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)06:"HOW MANY PROBLEMS DO YOU WANT?";:868:40000:P1ZNSP11P1(P1)510i1021,L1:1022,P1::8:5:"ONE MOMENT PLEASE....."&0(4);"RUN RHYTHM2"16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::5'16368,0A"::"1, 2, OR 3. YOU MAY HEAR EACH"::"PATTERN AS MANY TIMES AS YOU WISH."::"WHEN YOU DECIDE WHICH PATTERN MATCHES"::"THE PATTERN ON THE SCREEN, TYPE THE"::"LETTER, 'A'. YOU WILL THEN BE ASKED ":"FOR YOUR ANSWER."10000;ND MEASURE IS THE ONE"C 6:"WHICH YOU WILL STUDY. WHEN YOU ARE"o @:"FAMILIAR WITH THE MEASURE, YOU ARE" J:"READY TO HEAR THE POSSIBLE MATCHES." ^10000 h3N|"YOU WILL BE ASKED WHICH PATTERN YOU"::"WOULD LIKE TO HEAR. RESPOND WITH "OOPS! TRY AGAIN.":205 / I$"N"520[ 4:"IN EACH EXERCISE YOU WILL SEE TWO" :"MEASURES OF MUSIC PRINTED. THE FIRST" :"WILL ALWAYS BE A MEASURE OF 4 QUARTER" ":"NOTES. THIS MEASURE ESTABLISHES THE" ,:"TEMPO. THE SECORCISES HAVE 6 OR 7 NOTES AND USE QUARTER, EIGHTH, DOTTED EIGHTH"s " AND SIXTEENTH NOTES. THERE IS SOME" " SYNCOPATION." 20:"WHAT LEVEL OF PROBLEMS DO YOU WANT?":"ENTER 1, 2, OR 3. ";:868:40000:L1ZN L11L12L13Ģ23: EXERCISES HAVE 3 TO 5 NOTES AND"M x" CONSIST OF HALF, QUARTER, DOTTED"s " QUARTER, AND EIGHTH NOTES." :"2. THE EXERCISES HAVE 5 OR 6 NOTES, AND USE QUARTER AND EIGHTH NOTES." " THERE IS SOME SYNCOPATION."D :"3. THE EXEYTHM PATTERN AND THEN YOU WILL"N 2:"HEAR THREE RHYTHM PATTERNS. YOU MUST"y <:"DECIDE WHICH OF THE THREE CHOICES" F:"MATCHES THE PATTERN YOU SEE." P10000 Z2:"YOU MAY SELECT FROM ONE OF THREE" d"DIFFICULTY LEVELS:"! n6:"1. THE  ::8:17:"RHYTHM"o 20:868:"INSTRUCTIONS? (YES OR NO) ";:"";I$:I$(I$,1,1):I$"Y"I$"N"12yZM24I$"N"907:"IN THIS PROGRAM, YOU WILL BE DRILLED ON":"RECOGNIZING RHYTHM PATTERNS. YOU WILL" (:"SEE A RH     z#   Ӡ ӠӠֳ "ǠŠ͠ Ͳͳ ͠٠ ŭƠ ĠŠƠ ӠŠӠǠ̠Ӡ̠Ӡ Ϡ"!ǠŠϠŠӠΠŠŠŠӠ٠Ӡ(37):CH(36):16368,0:Z$:Z$;:Z$"R"ıMUZ$(13)ĢCV1:CH1:22010UZ1$:Z1$;:Z1$(13)ĢCV1:CH1(Z$):868:1:22001UZ1$(8)(Z$)0Z$(Z$,1,(Z$)1):22012UZ1$(8)ĺ" ";:22012UZ$Z$Z1$:22012HqR768:32000IqF ";(R310P1)10;" TIMES PER PROBLEM."310000>43000'16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U,UCV8,1)P(T8,1)1:P(T8,1)0P(T8,1)0,4413T?34,0:s8:"YOU ANSWERED ";B;" OUT OF ";P1;" PROBLEMS":"CORRECTLY. THAT IS A SCORE OF ";(B100P1.5);"%."13:"YOU NEEDED THE CHORDS REPEATED ";R3;" TIMES"(:"FOR AN AVERAGE ONG, THE CORRECT ANSWER WAS ";T8;".":P(T8,1)P(T8,1)1:P((R$),1)P((R$),1)1~22:"TO HEAR THE CHORD AGAIN, PRESS R. TO""CONTINUE, PRESS 'RETURN'.";16368,0:R$R$"R"ė:4601:38044121::"CORRECT":#BB1:P(T18:1:"PRESS 'R' TO HEAR THE CHORD AGAIN. IF":"YOU CAN IDENTIFY THE CHORD, ENTER ITS":"NUMBER. (1-";T921;") ";868:22010:R$Z$(R$)T921(R$)1R$"R"400R$"R"430380:R3R31400R$(T8)450M21:"WRON17:N4N110:3404NN2N13:N3N16:N4N110:340PON2N13:N3N16:N4N19YT380bw395u|NN(N1):31000}NN(N2):31000~NN(N3):31000NN(N4):31000NN(N3):31000NN(N2):31000NN(N1):3100034,17:18:x -N116Z6SS0:PP15:SSSSP(PP,1):PP:S10:PP15:S1S1P(PP,1):P(PP,2)S1SS:PP~7T8(1):PP15:T8P(PP,2)3138PP9T8PP@T8321,322,333,334,335AN2N14:N3N17:N4N111:340BN2N13:N3N17:N4N110:340MN2N14:N3 FULL-DIMINISHED 7TH"C:"FOR EXAMPLE, IF YOU HEAR A MINOR "m"SEVENTH CHORD, ENTER THE NUMBER 2."19:"THE SEVENTHS WILL BEGIN AS SOON AS YOU""PRESS THE RETURN KEY.";:A$"T1P1#LL1800:LL,T$"D"N1((1)188):310"WHEN IDENTIFYING THE SEVENTH CHORDS, ":"USE THE NUMBERS BELOW:"]:"NUMBER 7TH CHORD"v"------ ---------"" 1 MAJOR 7TH"" 2 MINOR 7TH"" 3 DOMINANT 7TH"T91260" 4 HALF-DIMINISHED 7TH"" 5 P1(T921):PP= 4:"DO YOU WANT THE ROOT USED FOR ALL":i "CHORDS TO BE FIXED OR WOULD YOU LIKE" :"A DIFFERENT ROOT FOR EACH CHORD?": "(ENTER 'F' FOR FIXED, 'D' FOR DIFFERENT)" 13:868:"";T$ T$"F"T$"D"175 B: DOMINANT":" 7THS,"> :" 2) MAJOR, MINOR, DOMINANT,"e " HALF-DIMINISHED, AND FULL-" " DIMINISHED 7THS?" 18:"(ENTER 1 OR 2)?";:868:40000:T9ZN T91T92Ģ22:"OOPS! TRY AGAIN.":161  PP1T921:P(PP,1)E TO USE THE"::"SAME ROOT NOTE FOR ALL EXERCISES,"::"OR TO USE DIFFERENT ROOT NOTES."_ Nm d10000:3 n4:"HOW MANY EXERCISES WOULD YOU LIKE?";:868:40000:P1ZN:P11P1(P1)110 x9:"WOULD YOU LIKE:" :" 1) ONLY MAJOR, MINOR, AND10000 4: 7"THE EXERCISES COVER MAJOR, MINOR,"::"DOMINANT, HALF DIMINISHED AND FULLY "::"DIMINISHED 7TH CHORDS. YOU MAY DECIDE"::"WHETHER OR NOT TO INCLUDE THE HALF AND"::"FULLY DIMINISHED CHORDS." I:Y K"IN ADDITION, YOU MAY CHOOS"RECOGNIZING VARIOUS TYPES OF SEVENTH"::"CHORDS." ::"IN EACH EXERCISE, YOU WILL HEAR A"::"CHORD PLAYED AS A SERIES OF SEVEN"::"NOTES - ROOT, THIRD, FIFTH, SEVENTH, "::"FIFTH, THIRD, AND ROOT. YOU WILL TRY" :"IDENTIFY THE CHORD." 3y 29000'B0:ZM23:D100::R30IP(5,2):PP15:P(PP,1)0:PPb :8:16:"SEVENTHS" 20:"INSTRUCTIONS? (YES OR NO) ";:868:"";I$:I$(I$,1,1):I$"Y"I$"N"11  I$"N"1104 5:"THIS PROGRAM PROVIDES EAR TRAINING IN"::      100043000V16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U0u:uDu1Nu0Xu1buZ40728 B1:C(K)C(K)1:CC1CC10R$(K)(R$(K),CC1)"1"(R$(K),10CC)b`CC1R$(K)"1"(R$(K),9)aCC10R$(K)(R$(K),9)"1"r1000|T:::10:"YOU ANSWERED "B" OF "P1" QUESTIONS":"CORRECTLY FOR A SCORE OF ";(BP1100.5);"%."E$(F$,T321,(E$))3304CT3:(E$)3E$"THAT"uD24:868:E$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:305JDRD:PPP:30800:A1T3350T868:"NO, THE CORRECT ANSWER IS ";::(F$,A121,2);::"."Y370^868::"CORRECT":C_B 30800"PPD3(K9)2:TT+305{PP13:P,100P,80:P,80P7,87:P,80P7,87:PP13:RDD:PPP21:A1DD:190121:18P3,724"WHICH TYPE NOTE WOULD COMPLETE THIS?":"(DW,W,DH,H,DQ,Q,DE,E,S) ";:868622000:E$Z$;T319@DD19-(V$(CC),TT,1)(CC$,DD,1)1705DDHPP7:D1:190tDD171,172,173,174,175,176,177,178,179D6:180D4:180D3:180D2:180D1.5:180D1:180D.75:180D.5:180D.25:180TTWW200v125;w2:35P10,70:35P11,71:28P5,54:28P6,55^x29P16,55:29P17,55:PP28m}1:233,67xPP10N$"G5"CC((1)101):(R$(K),CC,1)"1"132LL(V$(CC))WW((1)LL1)(V$(CC),WW,1)"."134TT1LL f(C(K)1)10((C(K)1)10)1049gR$(K)"0000000000"MhKK1İ14:K1KXi30000gjC1:30200|o233,64:K8119rZ$(C$,K32,1):2:(Z$)27P8,54s(Z$)27P9,55t((C$,K3,1))27P8,70u((C$,K3,1))27P9,71:PP25UARTER"6X"DE DOTTED EIGHTH":" E EIGHTH"OY" S SIXTEENTH"Z:"THE ABBREVIATIONS ARE DISPLAYED ON THE":"SCREEN WHILE YOU ANSWER THE QUESTIONS."^1000_233,67`T1P1:P1dK((1)91):C(K)0100eC(K)1104"HE MEASURE. ENTER"::"YOUR ANSWERS USING THE CODES BELOW:"::~T"CODE NOTE OR REST TYPE":"---- -----------------"U"DW DOTTED WHOLE":" W WHOLE"V"DH DOTTED HALF":" H HALF"W"DQ DOTTED QUARTER":" Q Q868:58 CC(T)1:FL1:57= EJJ0:TT19:JJJJC(TT):TTG F34,0M G H3:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:868:40000:P1ZN IP1172 J(I$,1,1)"N"ė:95 L@Q2:"IN EACH EXERCISE DECIDE WHICH ONE NOTE"::"WOULD COMPLETE T"ABCDEFGHIJ" 9(36)30ėQ :868:"";K$:K$""Z$K$:22001:K$Z$:CV(37)r ;K$"J"āT19:C(T)1:T:69 <K$""FL169 =T19 ?K$(C1$,T,1)67 @T A(K$)3K$"THAT" B24:K$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:CV:/"F. 3/8":"G. 6/8":"H. 9/8":"I. 12/8":"J. ALL OF THE ABOVE" 017:"ENTER THE LETTER OF EACH TIME SIGNATURE"::"YOU WANT (ONE PER LINE). WHEN YOU HAVE"::"FINISHED, JUST PRESS RETURN." 734,22: 8C$"2/43/44/45/46/43/86/89/812/8":C1$ NOTE.":"YOU MUST DECIDE WHICH TYPE OF NOTE"::"SHOULD BE ADDED." (15:"YOU MAY CHOOSE THE TIME SIGNATURES YOU"::"WILL BE USING.":1000 -3:"WHICH TIME SIGNATURES WOULD YOU LIKE?" .5:"A. 2/4":"B. 3/4":"C. 4/4":"D. 5/4":"E. 6/4"F 368,0:22:"INSTRUCTIONS? (YES OR NO) ";:868:22000:I$Z$a $(I$,1,1)"Y"(I$,1,1)"N"35g %} &(I$,1,1)"N"45C '4:"IN THIS DRILL YOU WILL SEE INCOMPLETE"::"MEASURES OF MUSIC. EACH MEASURE COULD"::"BE COMPLETED BY ADDING EXACTLY ONEE::B0:P0:FL0:ZM24:K10:R$(9):T19:R$(T)"0000000000":T`C(9):T19:C(T)0:T|F$"DWW DHH DQQ DEE S "CC$"ABCDEFGHI"8192 V$(10) 30:V1K:VV110:V$(VV):VV:V:8:" COUNTING"; #16        "TERMS.""TRIADS"I"TRIADS PROVIDES DRILL IN RECOGNIZING"u "ARPEGGIATED MAJOR, MINOR, AUGMENTED,""AND DIMINISHED TRIADS." "VISUAL INTERVALS" "VISUAL INTERVALS PROVIDES DRILL ON "  "RECOGNIZING INTERVALS BY SIG"SEVENTHS"<"SEVENTHS PROVIDES DRILL IN RECOGNIZING"g"ARPEGGIATED MAJOR, MINOR, DOMINANT,""HALF & FULLY DIMINISHED SEVENTH CHORDS." "TERMS" "TERMS PROVIDES DRILL ON THE MEANINGS OF"  "FIFTY-SEVEN COMMONLY USED MUSICAL" t"RHYTHM PATTENS.")~"RHYTHM PLAY"R"RHYTHM PLAY PROVIDES PRACTICE IN ""PERFORMING A VARIETY OF SHORT RHYTHMIC""PATTERNS.""SCALES""SCALES PROVIDES DRILL IN IDENTIFYING ""MAJOR AND MINOR SCALES AND MODES."" "INES.""NOTE TYPES"D"NOTE TYPES PROVIDES DRILL ON IDENTI-"s"FYING NOTES AND RESTS BY THEIR RHYTHMIC""VALUE - E.G. QUARTER, EIGHTH, ETC."V"RHYTHM"`"RHYTHM PROVIDES PRACTICE IN MATCHING"j"AURAL RHYTHM PATTERNS TO WRITTEN"TURES."] "MISSING NOTE" E^ "MISSING NOTE PROVIDES DRILL IN"i_ "ELEMENTARY DICTATION SKILL."t` " " f"NAME THE NOTE"p"NAME THE NOTE PROVIDES DRILL ON NAMING"z"NOTES. SOME DRILLS WILL INCLUDE""SHARPS, FLATS, AND LEGER LTION"* "INTRODUCTION DEMONSTRATES THE"X*"CAPABILITIES OF THE APPLE RELATIVE TO "4"MUSIC THEORY DRILL AND PRACTICE.">"KEY SIGNATURES"H"KEY SIGNATURES PROVIDES DRILL AND "R "PRACTICE ON RECOGNIZING MAJOR AND MINOR"\"KEY SIGNARILL AND PRACTICE "@"IN DETERMINING WHICH NOTES ARE ENHAR-"] "MONICALLY EQUIVALENT."u  "FIND THE HALF"  "FIND THE HALF PROVIDES DRILL IN IDENTI-" "FYING THE HALF STEP INTERVAL IN A"  "SERIES OF WHOLE STEPS." "INTRODUC"PRACTICE ON RECOGNIZING INTERVALS BY"3"EAR."B COUNTINGq"COUNTING PROVIDES DRILL AND PRACTICE ON""DETERMINING THE TYPE OF NOTE NEEDED TO ""COMPLETE A MEASURE IN A GIVEN TIME SIG.""ENHARMONICS" "ENHARMONICS PROVIDES D640lZN$"D"ZN0:PvZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:650:600xZM:868:CV1(CV23):ZN(ZN$):CV1:36,CH:868: "MUSIC THEORY - VOLUME 1",18"AURAL INTERVALS" "AURAL INTERVALS PROVIDES DRILL AND "' OR NO";:1:490# &Q0QN1570p 022:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:380 :::10:"GETTING THE PROGRAM..." DD$;"RUN ";N$(Q,1) NCH(36):CV(37) X"";ZN$:(ZN$)(((ZN$)))620b(ZN$)0ZN$"0"QN1480N :"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N;".":440w :N$(Q,2):18:N$(Q,3):20:N$(Q,4)}  23:"DO YOU WANT ANOTHER DESCRIPTION";:868 A$ (A$,1,1)"Y"430 (A$,1,1)"N"ė:380 "PLEASE ANSWER YESWANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868M 590^ ZN$"D"430~ (ZN$,1)"E"Ĺ1023,9::: QZN:550 34,15:16: 16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED. ";:868 590:QZN Q01:"AVAILABLE PROGRAMS" 4) T1N4 C14A "N$(T,C)H ,CO 6T_ @T1(N2)w JT;" ";N$(T,1);:20 TT(N2);" ";N$(T(N2),1) hT rN2(N2)ĺ(N2)1;" ";N$((N2)1,1):D |16:1:"TYPE THE NUMBER OF THE PROGRAM YOU " nD$;"BLOAD TABLE,A$4300"1 x232,0:233,67f J1(16384)128:J127J132JJ1:J400130t 16368,0z ZM24 D$(4) N$(24,4) D$;"NOMON,C,I,O" 1023,123 ::255: T$,N 1:20(T$)2 T$ 2:1 PROGRAM: HELLO4 VERSION: 2.0.2 (TMB)P LAST UPDATE: 6/27/80V(m2 (C) MECC, 1979x<22016FD$(13)(4)P:::255:(1023)123160Z:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 dD$;"BLOAD LETTERS,A$4000     LIKE TO:"::"1) RUN THIS PROGRAM AGAIN, OR"::"2) RUN A DIFFERENT PROGRAM"s13:"PLEASE ENTER 1 OR 2.";:86840000:ZEZNZE2ZE143022ZE1Ĭ:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO" B HELLO" B@CH(36):CV(37)DA22000:ZN$Z$:(ZN$)(((ZN$)))40003aB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:::5L "WOULD YOU ,GIH,HGI,HHII,IIHH,HIIHY } E.E,FH.FH,E.FH,FH.E,GIH.E,GIH.GIH,FH.GIH,GIH.FH,HHH.E,E.HHH } E.E.E,E.FH.E,FH.E.E,E.E.FH,E.GIH.E,E.HHH.E,GIH.E.E,E.E.GIH,E.FH.E,FH.E.E} E.E.E.E,C.C,C.E.E,E.E.C,C.E.FH,FH.E.FH.E,GIH.GIH.E.E,E.GIH.E.E,E.HHH.E.E,E.E.FH.EFFF,DF,FD,DHH,FFHH,EHF,FEH,FFHH,FHHF,FFGI_} CF,FFFF,DFF,FDF,FFD,FFHHF,FGIFF,FFHFH,DFHH,FGID} FFFFF,CD,DC,FFFFHH,CFHH,FFC,CFF,FHHFD,EHFD,DEHF} FFF.FFF,C.C,FFF.FFHH,EHF.C,FFF.EHF,FFGI.FFF,C.FFF,DF.EHF,FHHF.EHF,FFHH.C} HHH,FH,HF,FII, HIIII,LxDZ230977xZ2Z22.xZ3130961>xZ3630955NxZ3330960axZ3Z31:30965qxZ33:30965xZ37:30965xZ36:30965xDZ230930yPP16yy18P8,72:PP15:} FF,EH,EII,HFH,HHF,FHH,HHHH,FGI,GIF,HIIF)} lu1,Z279,ZvuZu3!u'u6v12CP,64A vPP25GvMPxVUxZ15dxL84Z14rxZ24:Z31xL5630925xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP14:12P,L4:PP7:30980xZ31xZ3P6666666666 %%%'),,,$%%'%'%'%'%;.>..>.>..>66575757575.>5>..>.>.>.>.>57575757>4??,<,> -,,%%%%%%')< %'%'%'''''???7775;.>->IIIIIIR->7-@-<'---5??7--5??'$'57->57-5??*-5;?7-->7).>-5??.-5;?-.*%')< %'%%' ???-- )%????,--%;??$$$$$$$$$$$$$$$$$.666666$$$$$$$$$$$$$$? ,,,,,,,,6R,,,,,,,,?666.$$$$$$$$$$<66666666?,-%-%-%='$$$$$$<6666666666.$$$$$$$L?.?>?7?7?66.,ee,<,?>'$$$<6666.66 $$$),5?.-5757575?.>>>7????8<<<,'%'%'%')< %'-,<@}  2xKB%'%%'%%'%%'%=777'$'66'$47NII,<%%'%%'>>>$<46>$$>vI !%@%g%---.>.>>>??<<@III$$$$$$$$$$$$56666666666666 6.$$56.$$56.$$@@@@@@@@@@HI9<<<<<<@@@@@@@III ''''''''6666666666666.   NS 6# 63@@@B@@ ??$!!!!??B@@)=$$$> ??$!) $;?2@@@0)- ') ??@@@@ !$$<::2--@@@@0)- $;?$--@@@@)- ?7&$ -@@@$ ??@`@@@@@)- ?& -6@@- $$;?2--@@@@ $$)-266? !! @@@@ T$$$$,6666.$$$$,6666.$$$$,6666.$$$$$ER HOUR SPEED ZONE.THIS SIGN MEA.-%$666@@@)=$$$=? 6) $$,?@@@@@@$$$6 @@--#$$$$$$ 666@@@@$$$.2111$$$@@@ $$)-266?@@@@$$$--2>?@@@@@@ $$)-266?%011@$$$--2?5@@@-- ?$)-@@@@@ $$$?--@@@@@@@ $$ 666;?@B@@ $#$ 66@B@@ $$$666@@$!!!!61111@@ $$#@E 08HXhx 0@P`p(8HXhx 0@P$$ 66$??@@$$$--26;?$,-@I ?$$ -@@@@$$$--266;?@@@@@$$$--;7--@@@@$$$--;7@@@@@@@d)5?$$ -@@@$$$6   R17,3d}R18,CSA1n}R19,FS:R20,FS3Ix}R21,ES9:R22,1c}R23,DS:R24,FS6{}R25,CS6:R26,3}R27,DS:R28,FS2}R29,CS6:R30,2}R31,DS:R32,ESE}R33,6S}N(37)}Z137:N(Z):ZX} 3780 yPP20y9}A10:B11:C12:D13:E14:F15:S16M }R,ES6:R1,0c}R2,ES6:R3,1y}R4,ES6:R5,2(}R6,ES6:R7,32}R8,ASE:R9,3S:R10,CS<}R11,AS6:R12,0F}R13,AS4:R14,1P}R15,8S8Z}R16,DS:Z3P,L:PP17:12P,L4:PP14:30980.xZ31FxZ3P,L:DZ230977RxZ2Z22bxZ3130961rxZ3630955xZ3330960xZ3Z31:30965xZ33:30965xZ37:30965xZ36:30965xDZ230930xZ3P,L:PP17:12P,L4:PP14:3098"#"30880#x(N$,3,1)"*"308756x11P,L:30885Ix10P,L:30885]x9P,L4:30885hxPP12xxL8030898xT680L8:P4,T6P13,T6:T6xZ24:Z31xL5630925xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900%x20:APxZ1$"E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6"LWxX(0)[ZxZ11492|_x(N$,1,2)(Z1$,Z1,2)30830dxZ1ix"ERROR"nxZ1(Z11)2sxZ113C230860xxZ11330850}xZ1Z112:L84Z14x(N$)230895 x(N$,3,1)w10P,44:PP12$w10P,56:PP129wPP(K)1220:IwPP12(K)ww(K)30710,30700,30690,30680,30670,30660w10P,60:PP12w10P,72:PP12w10P,56:PP12w10P,68:PP12w10P,52:PP12w10P,64:PP12xPP(K)122w9P,60:PP12'w9P,48:PP12:w9P,64:PP12M$w9P,52:PP12_.wPPK1220:nBwC230640~LwPP(K)12Vw(K)30610,30600,30590,30580,30570,30560`w10P,52:PP12jw10P,64:PP12tw10P,48:PP12~w10P,60:PP120,30400,30390,30380,30370,303602v9P,48:PP12Ev9P,64:PP12Xv9P,52:PP12kv9P,36:PP12~v9P,56:PP12v9P,44:PP12vPPK1220:vPPK12vK30500,30490,30480,30470,30460,30450v9P,56:PP12v9P,72:PP132000:0u:1:0:19buZ40728:1,Z279,Z:Z:3:^u0,(N256):1,(N(N256)256)u2,(D1256):3,(D1(D1256)256)uRuu12CP,64:PP25:\vK030430fvK030430pvK030530zvC230440vPPK12vK304100 18P,72 10000 M ::5:" ENJOY YOUR MUSIC LESSONS!"X 10000c 43000 16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$:: '16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::HqK0:C1:R300:P3: WILL SEE"::"NOTES, RESTS, AND OTHER MUSICAL"::"SYMBOLS. "J "10000U ,30000d 6C1:30200s @K4:30300 ^N$"C5":D2:30800 hN$"F5":D1:30800 rN$"G5":D.75:30800 |N$"A5":D.25:30800 18P,72 PP15 N$"B5":D4:308"SHORT PASSAGES OF MUSIC.":10000- D1200@ NN(13):30100S NN(22):30100f NN(18):30100 4:"THE MICROCOMPUTER CAN ALSO DISPLAY"::"MUSICAL NOTATION." :"----------------------------------------"? 10:"IN SOME OF THE DRILLS YOU:"ALLEGRO","AL SEGNO"::"ADAGIO","CANTABILE"f :"DOLORE","CRESCENDO"::"PIANO","FORTE":10000 5:"THE MICROCOMPUTER CAN GENERATE SOUND." :"----------------------------------------": 10:"IN SOME OF THE DRILLS YOU WILL HEAR":" ES WHICH WILL BE"::"USED IN THIS PACKAGE.":10000o Z2:"THE MICROCOMPUTER CAN DISPLAY TEXT "::"RAPIDLY." _:"----------------------------------------" d:"IN SOME OF THE DRILLS, YOU WILL HAVE TO"::"RECOGNIZE MUSICAL TERMS LIKE THESE..."0 x5 8192:29000K :::2:" COMPUTER ASSISTED MUSIC THEORY"5:"THIS PACKAGE CONSISTS OF 18 PROGRAMS"::"WHICH PROVIDE DRILLS FOR THE MUSIC"(:"THEORY STUDENT.":::"THE APPLE II MICROCOMPUTER HAS SOME"3 <:"UNIQUE CAPABILITI          PP12vT2v1v 56,44,60,48,64,52,68Nv 64,52,68,56,72,60,76kv 44,56,36,52,64,48,60v 52,64,48,60,72,56,68PxZ1$"C3D3E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6B6C7"ZxZ11572:(N$,1,2)(Z1$,Z1,2)30830dxZ(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000`U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001fUx0u:1:0:1:0buZ40728:1,Z279,Z:Zu3:u12CP,64:PP25:\vPP10:K0ıfvT1(K)1CpvT21(K)zv9(K0)P,K(T2,T1):" LEVEL: ";L1H7:"YOU ANSWERED "B" OUT OF ";P1;" PROBLEMS"~:"CORRECTLY FOR A SCORE OF "(B100P1.5);"%."10004300016368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$:: N:(4);"RUN PREP1"/UCV(37):CH&B$Q$570>'958:"NO, THE CORRECT ANSWER IS ";B$;"."G(590d:958:22::"CORRECT":x?BB1:V(C,VV)0AL13B11(B11)İ6DL14B15(B15)İ6EL15B34(B34)İ6LL13B22(B22)İ6N1000:T::5:Q$,2,1))35)(((Q$,2,1))42)0506?B$(N$,1,1):K0540L K0550 VV$"FCGDAEB":ST601:B$(VV$,ST1,1)KST534 ST550B$B$"#":550VV$"BEADGCF":ST601:B$(VV$,ST1,1)KST549ST"550%B$B$"*"L15Ģ23:"TRY A NOTE NAME LIKE A, F, G* OR D#.";:1:510g23:"TRY A NOTE NAME LIKE A, F, D, ETC."21:"WHAT IS THE NAME OF THE NOTE? ";:86822000:Q$Z$:(Q$)2506((Q$,1,1))65((Q$,1,1))71506(Q$)1520%(((1):RR4RR14(1).85L14410;VVRR:V(C,VV)0410RN$(Z1$,RR21,2)dPP10:30800L15Ģ24:"* <--- FLAT SIGN SHARP SIGN ---> #";:1510(Q$)6W$Q$:508W$"THAT"922:868:W$;" IS NOT A VALID NOTE NAME.":(Z1$,RR21,2):300K"RR((1)1713):RR16RR26(1).85L14290g#VVRR12:V(C,VV)0290~+N$(Z1$,RR21,2),PP10:30800:500L13410RR((1)114)VVRR3:V(2,VV)0403N$(Z1$,RR21,2):420"RR((1)17000T1P1P0:300002L13CL1:250DC((1)21)~SS0:ST117:SSSSV(C,ST):ST:SS1SS7L14C3C30200:L15280K((1)157):30300C2400L13290RR((1)1116)VVRR15:V(1,VV)0283!N$ARP SIGN."9 9:"THE '*' (ASTERISK) IS THE FLAT SIGN."g 13:"HERE ARE SOME EXAMPLES OF ANSWERS:" 15:"ANSWER YOU TYPE":"------ ---------" 17:" A A" 19:"A-SHARP A#" 21:"A-FLAT A*"1S AND FLATS"D x23:"WHICH LEVEL DO YOU WANT?";:868:40000:L1ZNW }L11L15120` :8 "HOW MANY PROBLEMS WOULD YOU LIKE?";:868:40000:P1ZN P11136 L15200 :3:"WHEN ANSWERING, REMEMBER THAT:" 7:"THE '#' IS THE SHEDGER LINES": d:"LEVEL 4 - MIXTURE OF TREBLE AND BASS"h f" CLEFS, SOME LEDGER LINES, NO" g" SHARPS OR FLATS" n:"LEVEL 5 - MIXTURE OF TREBLE AND BASS" p" CLEFS, SOME LEDGER LINES AND" q" SOME SHARPREBLE CLEF, NO SHARPS,"? H" FLATS, OR LEDGER LINES"l P:"LEVEL 2 - ALL BASS CLEF, NO SHARPS," R" FLATS, OR LEDGER LINES" Z:"LEVEL 3 - MIXTURE OF TREBLE AND BASS" \" CLEFS, NO SHARPS, FLATS OR" ]" L ON NAMING NOTES."# (Q$)1520R :"YOU WILL SEE A NOTE PRINTED, AND YOU " :"HAVE TO GIVE THE CORRECT NAME FOR THAT" (:"NOTE.":1000 <"THERE ARE FIVE LEVELS OF PROBLEM" ="DIFFICULTY AVAILABLE - THESE ARE:" F:"LEVEL 1 - ALL TX::D1:ZM24:B0:Z1$"C3D3E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6B6C7"b8192uV(2,17):6:7TT117:V(1,TT)1:V(2,TT)1:TT:2:13:"NAME THE NOTE"K(7,4) T14:T117:K(T1,T):T1:T 5:"THIS IS A DRILL     :ZEZN((ZE3)(ZE2)(ZE1)043030U:"PLEASE ENTER A NUMBER 1 - 3.":43022aZE1ĬqZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: Z:868:CV1(CV23):ZN(ZN$):9JCV1:36,CH:868:KD$(13)(4)S:q 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" 400008,0:"";Z$:Z$""Ģ1CV:CH1:22000UU(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001[Uq@CH(36):CV(37)A22000:ZN$Z$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001 FZM,A*,A*,G#,A#,B*,B*,A#,B#,C,C*,Ba! C##,D,D##,E,F##,G,G##,A,A##,B,D**,C,E**,D,G**,F,A**,G,B**,A16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::(B$,2,1)"*"(B$,2,1)"#"318 N:(4);"RUN PREP1"$UCV(37):CH(36):1636110:B(QQ)1:QQr1000"wTK|4:" THAT ENDS YOUR EXERCISES."7:"YOU ANSWERED ";B;" OUT OF ";P1;" PROBLEMS"::"CORRECTLY FOR A SCORE OF ";(BP1100.5);"%."100043000  C#,D*,D*,C#,D#,E*,E*,D#,E#,F,F*,E,F#,G*,G*,F#,G#*"(B$,2,1)"#"319>Y((B$,1,1))65((B$,1,1))71318HZ958\^B$A$(Y,2)360`17:"NO, THE ANSWER IS ";A$(Y,2);"."a370h:17:"CORRECT":mBB1nB(Y)5oS1B14(B14)āQQ114:B(QQ)1:QQqS2B10(B10)āQQID NOTE NAME - TRY A ":"NOTE NAME LIKE A, F, G#, OR A*."d@10:"WHAT IS THE SIMPLEST ENHARMONIC"J:"SPELLING OF ";A$(Y,1);"? ";T868:22000:B$Z$U(B$)3318V(B$)345,344,343W(B$,3,1)"*"(B$,3,1)"#"318X(B$,2,1)"10:A$(T1,1),A$(T1,2):T1%"T1P1V#2:"# <--- SHARP SIGN FLAT SIGN ---> *"$"--------------------------------------",S1Y((1)141)-S2Y((1)101);B(Y)1300<320>(B$)2B$"THAT"9?20:B$;" IS NOT A VAL-------":"B-FLAT IS B*":"G-SHARP IS G# "I 1000 10:"HOW MANY PROBLEMS WOULD YOUR LIKE? ";:868:40000:P1ZN P10P1(P1)210 T1114:B(T1)1:T1 T1114:A$(T1,1),A$(T1,2):T1 S1290T11C"+ :"SPELLING WOULD BE F# (F-SHARP)."5 1000< 4v "WHEN ENTERING ANSWERS:":"---- -------- --------": "USE THE '#' (NUMBER SIGN) FOR SHARPS." "USE THE '*' (ASTERISK) FOR FLATS." : ? " EXAMPLES":" -3 Z:4:"YOU WILL SEE THE NAME OF A NOTE PRINTED"9 _g d"ON THE SCREEN. YOU ARE TO TYPE IN THE" n:"SIMPLEST ENHARMONIC SPELLING OF" o:"THAT NOTE. p x:"FOR EXAMPLE, IF THE NOTE GIVEN IS G*" :"(G FLAT), THE SIMPLEST ENHARMONIS OF SPELLINGS INVOLVING ONLY":"SHARPS AND FLATS." <15:"SET 2":"------":"CONSISTS OF SPELLINGS WHICH INVOLVE":"DOUBLE SHARPS AND FLATS." A22:"WHICH SET WOULD YOU PREFER - 1 OR 2?";:868:40000:SZN FS1S265 P:(I$,1,1)"N"210:"RECOGNIZING NOTES WHICH ARE"O 10:"ENHARMONICALLY EQUIVALENT, SUCH AS "s 12:" A-SHARP AND B-FLAT."} 1000 3:"THERE ARE TWO SETS OF ENHARMONIC"::"SPELLING DRILLS FROM WHICH YOU MAY"::"CHOOSE."3 29:"SET 1":"-----":"CONSIST A$(14,2):ZM24:B(14)$B0>(4);"NOMON I,O,C": ::7:" ENHARMONICS":20:"DO YOU NEED INSTRUCTIONS? (YES OR NO) ";:"";I$:(I$,1,1)"N"(I$,1,1)"Y"10 :(I$,1,1)"N"30 6:"THIS PROGRAM PROVIDES DRILL IN":     u0,N(N):1,Z1uRu+u CLEFS:v12CP,64E vPP25Kv]\vPP10:K0ımfvT1(K)1C|pvT21(K)zv9(K0)P,K(T2,T1):PP12vT2vv 56,44,60,48,64,52,68v 64,52,68,56,72,60,76v 44,56,36,52,64,48,60,1)" "Z$(Z$,1,(Z$)1):22001'U=0u CLEAR AND STAFFC:uJDu1QNu0XXu1gbuZ40728vlu1,Z279,Z}vuZu3uu NOTESuD10025530160u0,N(N):1,255uZ1(D100255)uRuZuZ1D100(D100255)255NSWERED ";B;" OUT OF ";P1;" PROBLEMS"::"CORRECTLY FOR A SCORE OF "(.5B100P1);"%."a1000l4300016368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000!U(Z$,(Z$)B$(K8)ĺ"NO, ";K$;" IS THE MINOR KEY - TRY AGAIN.";:1:119p868:"NO, IT IS NOT ";K$;". TRY AGAIN.":119868:"NO, THE CORRECT ANSWER IS ";A$(K8);".":200868::"CORRECT"::FL0A(K8)0:BB11000T:W10:"YOU A8:"NO, IT IS NOT ";K$;". TRY AGAIN.":129c868:"NO, THE CORRECT ANSWER IS "B$(K8);".":200868::"CORRECT"::FL0B(K8)0:BB1200T2115K$A$(T2)189T2190T28K196FLFL1:FL2195<868:K$NAME LIKE C, B*, F#, ETC.";:1:130BK2((1)21):K2119,129UV01K21180bT2115uK$B$(T2)169}T2170T28K176FLFL1:FL2175868:K$A$(K8)ĺ"NO, ";K$;" IS THE MAJOR KEY - TRY AGAIN.";:1:129+86 <--- SHARP SIGN FLAT SIGN ---> *";:1|21:"THIS IS THE KEY SIGNATURE FOR WHICH":"MINOR KEY? ";:868:22000:K$Z$TT115:K$A$(TT)K$B$(TT)160TT:23:958:(K$)3K$"THAT"#K$;" IS NOT A VALID NAME. TRY AGAIN ":"USING A :"THIS IS THE KEY SIGNATURE FOR WHICH":"MAJOR KEY? ";:868:22000NyK$Z$tzTT115:K$A$(TT)K$B$(TT)160{TT:23:958:(K$)3K$"THAT"|K$" IS NOT A VALID NAME. TRY AGAIN ":"USING A NAME LIKE C, B*, F#, ETC.";:1:120*24:"#105kV02B(K8)0105;lV03B(K8)0A(K8)0105jm30300:21:V03(A(K8)0B(K8)0)140nV03A(K8)0K21:120oV03B(K8)0K22:130q21sV0119,129,140w24:"# <--- SHARP SIGN FLAT SIGN ---> *";:1Dx21Z"G IS G"& \"F-SHARP IS F#"0 _1000< dT1P1w e(V01V02)B15(B15)āTT115:A(TT)1:B(TT)1:TT fV03B30(B30)āTT115:A(TT)1:B(TT)1:TT g:P1:30000:FL0 hC((1)21):30200 iK((1)157)jV01A(K8)0NUMBER SIGN) TO INDICATE ":"SHARPS.":7:"USE THE '*' (ASTERISK) TO INDICATE":"FLATS."` Q11 R"DO NOT INCLUDE THE WORDS MINOR OR MAJOR." S12:" ---" T15 U"HERE ARE SOME EXAMPLES" V"----------------------": X"A-FLAT IS A*" U LIKE? ";:868:40000:P1ZN4 7P11P1(P1)50M <:(I$,1,1)"N"100U =:\ >4 F"THE COMPUTER WILL DRAW A KEY SIGNATURE.": K"YOU WILL HAVE TO TYPE THE NAME OF THE": N"KEY.":1000X O2:" WHEN ANSWERING:":4:"USE THE '#' ( " 1) ONLY MAJOR KEYS,":B " 2) ONLY MINOR KEYS, OR":i " 3) BOTH MAJOR AND MINOR KEYS." #:"WHICH WOULD YOU LIKE? (ENTER 1, 2, OR 3)" $21:868:40000:V0ZN %V01V03V0240 &36 ( 214:"HOW MANY PROBLEMS WOULD YO):TT:T' :8:13:"KEY SIGNATURES" 20:"INSTRUCTIONS? (YES OR NO) ";:868:22000:I$Z$:(I$,1,1)"Y"(I$,1,1)"N"9 :(I$,1,1)"N"16 3:"THIS PROGRAM IS A DRILL IN IDENTIFYING"::"KEY SIGNATURES." 9:"YOU MAY WORK WITH:":: :#(4);"NOMON I,O,C":_A$(15),B$(15),A(15),B(15):TT115:A(TT)1:B(TT)1:TT{T115:A$(T),B$(T):T C*,A*,G*,E*,D*,B*,A*,F,E*,C,B*,G,F,D C,A,G,E,D,B,A,F#,E,C#,B,G#,F#,D#,C#,A# B0:ZM24:K(7,4):T14:TT17:K(TT,T     "CON","WITH",""*/"MOTO","MOVEMENT",""S4"POCO A POCO","LITTLE BY LITTLE",""p9 "SUBITO","SUDDENLY","">"MARCATO","STRONGLY ACCENTED"? ""C "AL SEGNO","TO THE SIGN",""H "CAPO","HEAD OR BEGINNING",""M"MAESTOSO","MAJESTICALLY," VALUE" - "AL FINE","TO THE END"X "","CANTABILE","IN SINGING STYLE",""o "DOLORE","SAD","""GRAZIOSO","SMOOTH, ELEGANT","" "MENO","LESS","""PIU","MORE",""  "PIZZICATO","PLUCKED","" %"SEMPRE","ALWAYS",""*VACE","LIVELY, SPIRITED" ""N "AGITATO","FAST AND WITH EXCITEMENT",""h "LENTO","SLOWLY","" "RUBATO","INTENTIONALLY DEVIATING FROM "," STRICT RHYTHM" "GRAVE","WITH GRAVITY","" "SOSTENUTO","HELD FOR THE FULL INDICATED TIME"ANDANTE","AT WALKING SPEED",""m"ARPEGGIO","PLAYING THE NOTES OF A CHORD"," QUICKLY, ONE AFTER ANOTHER" "CANON","A ROUND","" "POCO","LITTLE","" "SFORZANDO","WITH EMPHASIS","""TUTTI","FOR ALL INSTRUMENTS OR VOICES","" "VIIANO","SOFT","","PRESTO","VERY FAST",""Y "RITARD" ,"BECOME GRADUALLY SLOWER","""STACCATO","WITH DISTINCT BREAKS BETWEEN"," SUCCESSIVE TONES" "DIMINUENDO","BECOMING GRADUALLY SOFTER","" "ADAGIO","SLOWLY AND LEISURELY","""SING A"," COMPOSITION OR PIECE":l "DOLCE","SWEET",""fq "CRESCENDO","GRADUALLY GET LOUDER",""v "FINE","THE END",""{"FORTE","LOUD","""LARGO","SLOW AND STATELY","""LEGATO","SMOOTH","" "MEZZO","MEDIUM OR FAIRLY","""PECTLY FOR A SCORE OF ";(B100P1.5);" PERCENT.";1000F43000|X "A CAPPELLA","SINGING WITHOUT ACCOMPANIMENT",""] "ALLEGRO","QUICK, BUT NOT AS FAST AS PRESTO",""b "A TEMPO","RESUME THE NORMAL TEMPO",""!g"CODA","A FINAL PASSAGE CLO A$"A"A$"B"A$"C"4609A$("ABC",Z,1)480f:"NO, THE ANSWER IS ";("ABC",Z,1);"."o482::"CORRECT"::A$(Y,1)"DONE"BB1:B19(B19)İ2551000T10:"YOU ANSWERED ";B;" OF ";P1;" QUESTIONS"1:"CORR8:"A. ";A$(X,2):A$(X,3)?11:"B. ";A$(X1,2):A$(X1,3)_14:"C. ";A$(Y,2):A$(Y,3)18:"WHAT IS THE CORRECT ANSWER - A, B, OR C?"20:868:22000:A$Z$TT(A$)11(A$,TT,1)" "467TT:469A$(A$,1,TT1):463XX1Y400 Z1430. 8:"A. ";A$(Y,2); A$(Y,3)[ 11:"B. ";A$(X,2):A$(X,3)} 14:"C. ";A$(X1,2):A$(X1,3) 450 Z2440 8:"A. ";A$(X,2):A$(X,3) 11:"B. ";A$(Y,2):A$(Y,3) 14:"C. ";A$(X1,2):A$(X1,3) 450),A$(C,3) "C ,TT -* 6T1P1= @Y((1)191)U JA$(Y,1)"DONE"320[ T| ^20(A$(Y,1))2:4:A$(Y,1) _20(A$(Y,1))2:5:TT1(A$(Y,1)):"-";:TT: rZ((1)31) |X((1)191) XY380 X1((1)191) X1CLOSELY FITS THE TERM AT THE TOP OF THE"W :"SCREEN. THE DEFINITIONS ARE LABELLED" :"A, B, AND C. TYPE THE LETTER WHICH" :"CORRESPONDS TO THE BEST DEFINITION." 1000 255 310 TT1T1 C119 A$(C,1),A$(C,2ULD YOU LIKE? ";' 868:40000:P1ZN5 P11130; l 5:"YOU WILL SEE A TERM PRINTED AT THE TOP"r "OF THE SCREEN. BELOW THE TERM ARE" :"THREE POSSIBLE DEFINITIONS. YOU ARE TO" :"SELECT THE DEFINITION WHICH MOST"( :"MONLY USED TERMS,"8 F:" 2) COMMONLY USED TERMS,"c P:" 3) LESS COMMONLY USED TERMS." d20:"WHICH SET WOULD YOU LIKE - 1, 2, OR 3?";:868:40000:T1ZN nT11T13T1(T1)Ģ23:"ENTER 1,2, OR 3.":100 :10:"HOW MANY PROBLEMS WOI(4);"NOMON I,O,C" -A$(20,3)C:2:17:"TERMS"QB0:ZM245:"THIS IS A DRILL IN MUSICAL TERMINOLOGY."(::"THERE ARE THREE SETS OF TERMS AVAILABLE"2:"FOR DRILL WORK. THEY ARE AS FOLLOWS:" 7::" 1) MOST COM       ;:1:461B2B1480B"NO, IT RECEIVES ";B1;" BEATS.":490]:"CORRECT"::B3B31g1000nT::10:"YOU ANSWERED "BB3" OUT OF "P12;" PROBLEMS ":"CORRECTLY FOR A SCORE OF ";(.5((BB3)100)(P12));"%." 1000:43000@ MANY BEATS DOES THIS ";AA$;" RECEIVE?"q"(6, 4, 3, 2, 1.5, 1, .75, .5, .25) ";:868:22000:B2$Z$:B2(B2$)B26B24B23B21.5B21B2.75B2.5B2.25B22469(B2$)3B2$"THAT" 24:868:B2$;" IS NOT A VALID ANSWER - TRY AGAIN."50"QUARTER - Q":4509"DOTTED EIGHTH - DE":450Q"EIGHTH - E ":450k"SIXTEENTH - S":450:"CORRECT"::BB1V03TT(V2,T1)0V03TT(V0,T1)0V03B18(B18)İ2000V03B9(B9)İ20001000'21:"HOW"D"A$(F$,T121,2)430:A$(F$,T121,(A$))442O"NO, IT IS A ";{T1432,433,434,435,436,437,438,439,440"DOTTED WHOLE - DW":450"WHOLE - W":450"DOTTED HALF - DH":450"HALF - H ":450"DOTTED QUARTER - DQ":422AA$"REST"_21:"ENTER THE ABBREVIATION FOR THIS ";AA$;".":"(DW,W,DH,H,DQ,Q,DE,E,S) ";v868:22000:A$Z$TT19:A$F$(TT)418TT24:868:(A$)3A$"THAT"A$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:400(A$,1,1):C1TT1P1UP0:,Y30000:302005`P35ChV03365\iV03V2((1)21)jSS0:SV19:SSSSTT(V2,SV):SV:SS1V23V2k200:DB1:V2370,380mV2V0:200:DB1:V0370,380r30800:390|31100V21AA$"NOTE"VONLY PART OF A BEAT":DB"ENTER THE NUMBER OF BEATS AS A DECIMAL"~C:"E.G. AN EIGHTH NOTE WOULD RECEIVE .5"::"BEATS."E2012((I$,1,1)"N"):"HOW MANY PROBLEMS DO YOU WANT? ";:868:40000:P1ZNFP11P1(P1)325J:2000KN$"G5" "45,"AFTER IDENTIFYING THE NOTE TYPE":d1"YOU WILL BE ASKED HOW MANY BEATS THAT":6"NOTE OR REST SHOULD BE HELD IN A TIME":;"SIGNATURE IN WHICH A QUARTER NOTE":@"IS HELD FOR ONE COUNT.":1000:4A:"IF A NOTE IS HELD ANSWER THE QUESTIONS."%1000:290+>T1((1)91)STT(V2,T1)0205T1215,220,225,230,235,240,245,250,255B16:260B14:260B13:260B12:260B11.5:260B11:260B1.75:260B1.5:260B1.25 EIGHTH". " S SIXTEENTH"Q " DW DOTTED WHOLE"s " DH DOTTED HALF" " DQ DOTTED QUARTER" " DE DOTTED EIGHTH":"THE ABBREVIATIONS ARE DISPLAYED ON THE":"SCREEN WHILE YOU K x4:"WHEN IDENTIFYING NOTES, USE THE "::"ABBREVIATIONS GIVEN BELOW:"R y9 "ABBREVIATION NOTE OR REST TYPE":"------------ -----------------" " W WHOLE" " H HALF" " Q QUARTER" " E G:"::Z P"1.) NOTES ONLY"::"2.) RESTS ONLY"::"3.) A MIXTURE OF NOTES AND RESTS" _18:"WHICH WOULD YOU LIKE? (ENTER A NUMBER"::"1 - 3) ";:868:40000:V0ZN dV01V02V03Ģ22:"PLEASE TYPE A NUMBER 1-3":95 n:(I$,1,1)"N"325ALF, DOTTED QUARTER, ETC. "::, *1000:5Y -"YOU WILL ALSO BE ASKED HOW MANY BEATS" 2:"THAT NOTE OR REST SHOULD BE HELD IF A " 4 7"QUARTER NOTE IS HELD ONE BEAT." <1000 A5 F"YOU MAY BE DRILLED ON ANY OF THE ": K"FOLLOWIN,1,1)"N"655 :"THIS PROGRAM PROVIDES DRILL ON "e :"RECOGNIZING DIFFERENT NOTES AND RESTS."m : "THE PROGRAM WILL PRINT A NOTE OR REST": "AND YOU WILL BE ASKED TO IDENTIFY": #"THE TYPE OF NOTE OR REST - E.G. WHOLE,": ("H7TT(2,9):8192QF$(9):TT19:F$(TT):TT: DW,W,DH,H,DQ,Q,DE,E,SmF$"DWW DHH DQQ DEE S "B0:B30:ZM2315:8:"NOTE TYPES"20:"INSTRUCTIONS? (YES OR NO) ";:868:22000:I$Z$:(I$,1,1)"Y"(I$,1,1)"N"8 :(I$        100043000V16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U0u:uDu1Nu0Xu1buZ40728 B1:C(K)C(K)1:CC1CC10R$(K)(R$(K),CC1)"1"(R$(K),10CC)b`CC1R$(K)"1"(R$(K),9)aCC10R$(K)(R$(K),9)"1"r1000|T:::10:"YOU ANSWERED "B" OF "P1" QUESTIONS":"CORRECTLY FOR A SCORE OF ";(BP1100.5);"%."E$(F$,T321,(E$))3304CT3:(E$)3E$"THAT"uD24:868:E$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:305JDRD:PPP:30800:A1T3350T868:"NO, THE CORRECT ANSWER IS ";::(F$,A121,2);::"."Y370^868::"CORRECT":C_B 30800"PPD3(K9)2:TT+305{PP13:P,100P,80:P,80P7,87:P,80P7,87:PP13:RDD:PPP21:A1DD:190121:18P3,724"WHICH TYPE NOTE WOULD COMPLETE THIS?":"(DW,W,DH,H,DQ,Q,DE,E,S) ";:868622000:E$Z$;T319@DD19-(V$(CC),TT,1)(CC$,DD,1)1705DDHPP7:D1:190tDD171,172,173,174,175,176,177,178,179D6:180D4:180D3:180D2:180D1.5:180D1:180D.75:180D.5:180D.25:180TTWW200v125;w2:35P10,70:35P11,71:28P5,54:28P6,55^x29P16,55:29P17,55:PP28m}1:233,67xPP10N$"G5"CC((1)101):(R$(K),CC,1)"1"132LL(V$(CC))WW((1)LL1)(V$(CC),WW,1)"."134TT1LL f(C(K)1)10((C(K)1)10)1049gR$(K)"0000000000"MhKK1İ14:K1KXi30000gjC1:30200|o233,64:K8119rZ$(C$,K32,1):2:(Z$)27P8,54s(Z$)27P9,55t((C$,K3,1))27P8,70u((C$,K3,1))27P9,71:PP25UARTER"6X"DE DOTTED EIGHTH":" E EIGHTH"OY" S SIXTEENTH"Z:"THE ABBREVIATIONS ARE DISPLAYED ON THE":"SCREEN WHILE YOU ANSWER THE QUESTIONS."^1000_233,67`T1P1:P1dK((1)91):C(K)0100eC(K)1104"HE MEASURE. ENTER"::"YOUR ANSWERS USING THE CODES BELOW:"::~T"CODE NOTE OR REST TYPE":"---- -----------------"U"DW DOTTED WHOLE":" W WHOLE"V"DH DOTTED HALF":" H HALF"W"DQ DOTTED QUARTER":" Q Q868:58 CC(T)1:FL1:57= EJJ0:TT19:JJJJC(TT):TTG F34,0M G H3:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:868:40000:P1ZN IP1172 J(I$,1,1)"N"ė:95 L@Q2:"IN EACH EXERCISE DECIDE WHICH ONE NOTE"::"WOULD COMPLETE T"ABCDEFGHIJ" 9(36)30ėQ :868:"";K$:K$""Z$K$:22001:K$Z$:CV(37)r ;K$"J"āT19:C(T)1:T:69 <K$""FL169 =T19 ?K$(C1$,T,1)67 @T A(K$)3K$"THAT" B24:K$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:CV:/"F. 3/8":"G. 6/8":"H. 9/8":"I. 12/8":"J. ALL OF THE ABOVE" 017:"ENTER THE LETTER OF EACH TIME SIGNATURE"::"YOU WANT (ONE PER LINE). WHEN YOU HAVE"::"FINISHED, JUST PRESS RETURN." 734,22: 8C$"2/43/44/45/46/43/86/89/812/8":C1$ NOTE.":"YOU MUST DECIDE WHICH TYPE OF NOTE"::"SHOULD BE ADDED." (15:"YOU MAY CHOOSE THE TIME SIGNATURES YOU"::"WILL BE USING.":1000 -3:"WHICH TIME SIGNATURES WOULD YOU LIKE?" .5:"A. 2/4":"B. 3/4":"C. 4/4":"D. 5/4":"E. 6/4"F 368,0:22:"INSTRUCTIONS? (YES OR NO) ";:868:22000:I$Z$a $(I$,1,1)"Y"(I$,1,1)"N"35g %} &(I$,1,1)"N"45C '4:"IN THIS DRILL YOU WILL SEE INCOMPLETE"::"MEASURES OF MUSIC. EACH MEASURE COULD"::"BE COMPLETED BY ADDING EXACTLY ONEE::B0:P0:FL0:ZM24:K10:R$(9):T19:R$(T)"0000000000":T`C(9):T19:C(T)0:T|F$"DWW DHH DQQ DEE S "CC$"ABCDEFGHI"8192 V$(10) 30:V1K:VV110:V$(VV):VV:V:8:" COUNTING"; #16     0b17:958:T l34,0:12(m:5:"YOU ANSWERED "B" OF "P" QUESTIONS"::"CORRECTLY FOR A SCORE OF "(BP100.5)"%.":"YOU NEEDED THE TONES REPEATED ";Y:"TIMES FOR AN AVERAGE OF "(Y100P)100;" TIMES "::"PER PROBLEM."12)12,1)16D", THE ANSWER WAS ";I$(K1,1);".":::E"PRESS 'R' TO HEAR THE NOTES AGAIN. "::"PRESS 'RETURN' TO GO ON.";FA$:A$(13)A$(32)ī610GA$"R"582HNF:30100INS:30100J582N::15:"CORRECT"::BB1X100(A$)4A$"THAT"t8958:23:A$;" IS NOT A VALID ANSWER. USE ONE OF":"THE ABBREVIATIONS LISTED ABOVE.";:1:525918:958:K1Kğ:"CORRECT";::BB1:C(TT,1)C(TT,1)1:FLTT:580?"NO";:FL0 @C(TT,1)C(TT,1)1:C(K(TT12)12,1)C(K(TTNS:30100 18:1:"TYPE THE ABBREVIATION FOR THE INTERVAL":"YOU HEARD. (PRESS 'R' IF YOU WANT TO":"HEAR THE INTERVAL AGAIN.) ";868:22010:A$Z$&A$"R"565'YY1018:1:958:5035K112:A$I$(K,1)5696K71):C(TT,2)S3SS:TTK(1);TT124:KC(TT,2)429CTT\FL(TT)(1).8410oF((1)201)K1TT(TT12)12SFK1S20480FFK1:SFK1F1430TT13500R1F:FS:SR1D2.5NF:30100 2,1)0ĺI$(T6,1);:6:I$(T6,2)&JT6,T7^T1P?h19krT1ĺ"PRESS RETURN TO HEAR THE TONES."|T1Ĺ16368,0:Z$20:958TT124:C(TT,1)C(TT,1)(C(TT,1)0):TTSS0:TT124:SSSSC(TT,1):TTS30:TT124:S3S3C(TT,P1280(#-COUNT NUMBERS AND ASSIGNL$SS0:TT124:SSSSC(TT,1):TTr%TT124:C(TT,1)C(TT,1)PSS:TTx'~+,"BELOW ARE THE INTERVAL ABBREVIATIONS":6"ABB. INTERVAL":"---- --------";P61@T6112EC(T6,1)0C(T612, OR 3? ";:868!40000:VZN:V1V3V(V)260GV1279V2āTT112:RRC(TT,1):C(TT,1)C(TT12,1):C(TT12,1)RR:TT:279TT112:C(TT12,1)C(TT,1):TT95818:"HOW MANY PROBLEMS WOULD YOU LIKE?";:868:40000:PZN "1FL:19034,0::4?"THE INTERVALS CAN BE PLAYED:":|"1. GOING FROM THE LOW NOTE TO THE ":" HIGH NOTE":"2. GOING FROM THE HIGH NOTE TO THE":" LOW NOTE":"3. A MIXTURE OF 1 AND 2"14"WHICH WOULD YOU LIKE - 1, :A$"13"āTT112:C(TT,1)1:TT:2108 C$"123456789"D T119[ A$(C$,T1,1)200c T1 A$"10"A$"11"A$"12"200 CV(37):24:868:"ILLEGAL INTERVAL VALUE - TRY AGAIN.";:1:CV:868:191 C((A$),1)1190 C((A$),1)1:FLLD LIKE, ONE PER LINE. WHEN YOU":"HAVE FINISHED, JUST PRESS THE RETURN."U 34,19[ n 958:16368,0 "";A$:A$""FL2Ģ20FL:958:24:"YOU MUST HAVE AT LEAST TWO INTERVALS.";:1:20FL:868:191 FL1A$""210% Z$A$:22001:A$Z$3TH" s"5. PERF 4TH"; t"6. AUG 4TH/DIM 5TH/TRITONE"O u"7. PERF 5TH"b v"8. MIN 6TH"u w"9. MAJ 6TH" x"10. MIN 7TH" y"11. MAJ 7TH" z"12. OCTAVE" {"13. ALL INTERVALS" J "ENTER THE NUMBERS OF THE INTERVALS YOU":"WOUTONES WILL BE PRESENTED";:" GOING FROM LOW TO HIGH OR HIGH TO LOW,";: P" 3) THE NUMBER OF PROBLEMS TO BE":" PRESENTED." Z1000 d"WHICH INTERVALS WOULD YOU LIKE?" e o"1. MIN 2ND" p"2. MAJ 2ND" q"3. MIN 3RD" r"4. MAJ (I$,1,1)"Y"(I$,1,1)"N"21% < (I$,1,1)"N"100D :u "THIS PROGRAM WILL PROVIDE EAR TRAINING ": ("EXERCISES ON INTERVAL RECOGNITION.": 2"YOU MAY SPECIFY:":: <" 1) THE INTERVALS TO BE DRILLED,":H F" 2) WHETHER THE  :FL0?:29000:I$(12,2):T112:I$(T,1),I$(T,2):T`C(24,2):T124:C(T,1)0:TmB0:FL0{Y0:ZM24(4);"NOMON I,O,C":  8" AURAL INTERVALS"20:"INSTRUCTIONS? (YES OR NO) "; 868:"";I$:          fvT1((K)3)2 pvT21(K)?zv9(K0)P,K(T2,T1):PP12GvT2MvxPxZ11492:(N$,1,2)(A$,Z1,2)30830dxZ1nxZ1(Z127)2xxZ11330850}xZ1Z112xL84Z14x1P,L:3P,L:24(L56)P,LyPP16y@CH(36):CV68,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::zUCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U0u:1:0:1:Z40728:1,Z279,Z:Z:3:u13P,64:PP25:\vK0ı IS D5":500"%I$AA$(I1,1)310O,"NO, THE ANSWER IS ";AA$(I1,1);".":500h6:"CORRECT"::BB1u1000:T:::10:"YOU ANSWERED ";B;" OUT OF ";M3;" QUESTIONS": "CORRECTLY FOR A SCORE OF ";(.5100BM3);" %.":1000:430009163,1)N1N11'M2$(S$,JJ,1)N2N21MJJ:I1(N1N2)((N1N2)6):288sJJ1(K):M$(F$,JJ,1)N1N11M2$(F$,JJ,1)N2N21JJ:I1(N1N2)((N1N2)6) (A1A2)4I16I$"D5"310 !(A1A2)4I16I$"D5"ĺ"NO, THE ANSWERCH1:CV1::868:22000:I$Z$:(I$)3I$"THAT"@ T2112V I$AA$(T2,1)270 T2:24:868:I$;" IS NOT A VALID INTERVAL.";:1:259N1A(A1):N2A(A2):T2T2(T27)K0I1(N1N2)((N1N2)6):288K0280 JJ1K:M$(S$,JJI((A2A1))0210DN$(A$,A121,2):M$(N$,1,1):30800:PP10qN$(A$,A221,2):M2$(N$,1,1):30800:21:"WHAT IS THE INTERVAL? (";JJ112:I(((JJ1)2))1ĺAA$(JJ,1);",";(36)34ĺJJ:(36):") ";:CV(37):CH(36)320:"THESE ABBREVIATIONS WILL BE ON THE":"SCREEN WHILE YOU ARE ANSWERING":"QUESTIONS.":1000yxT1M3::P0:30000C1:30200K((1)(M121)M1):30300:C10:PP10A1((1)101)A2((1)101):A2A1220(A2A1)7220RVAL BETWEEN"zU"THE NOTES. WHEN ANSWERING THE":"QUESTIONS, USE THE ABBREVIATIONS BELOW:":6:"ABBREVIATION INTERVAL"WU14X"------------ --------"YJJ16:I(JJ)1ĺAA$(JJ21,1);U);AA$(JJ21,2):AA$(JJ2,1);U);AA$(JJ2,2):ZJJ`u:Z$""FL162&;Z$""FL056C<I(I1)1:FL1:(37)23ėK=57S>:?10:"HOW MANY PROBLEMS DO YOU WANT?";:868:40000:M3ZN:M3163@:(I$,1,1)"N"120 A:"YOU WILL SEE TWO NOTES ON A STAFF. YOU":"ARE TO DETERMINE THE INTEEVENTHS" 812:"ENTER THE NUMBER OF EACH INTERVAL YOU"::"WANT TO USE (ONE PER LINE). WHEN YOU "::"HAVE FINISHED, JUST PRESS A RETURN."934,16:868:">";Z$:I1(Z$):I16I11Z$""CV(37):24:W$Z$:W$;" IS NOT A VALID INTERVAL";:1:CV:57"SIGNATURE? (ENTER A NUMBER 0 - 7.) ";:868:40000:M1ZN:M10M17M1(M1)35 2::I(7):I17:I(I)0:I:"WHICH INTERVALS DO YOU WISH TO USE?" 65:" 1. SECONDS 4. FIFTHS"::" 2. THIRDS 5. SIXTHS"::" 3. FOURTHS 6. S:"YOU WILL SELECT THE MAXIMUM NUMBER OF"::"SHARPS OR FLATS IN THE KEY SIGNATURE,"::"THE INTERVALS TO BE DRILLED, AND THE": "NUMBER OF EXERCISES.":1000 7:"WHAT IS THE MAXIMUM NUMBER OF "::"SHARPS OR FLATS YOU WANT IN THE KEY":R #11:ERVALS":20:"DO YOU WANT INSTRUCTIONS? (YES OR NO) "::868:22000:I$Z$:(I$,1,1)"Y"(I$,1,1)"N"8 :(I$,1,1)"N"31 2:12:"VISUAL INTERVALS":5:"THIS PROGRAM WILL GIVE YOU PRACTICE IN": "RECOGNIZNG INTERVALS IN WRITTEN MUSIC.": / A$"D5E5F5G5A5B5C6D6E6F6G6A6B6":B0:D1:  MI2,MINOR 2ND,MA2,MAJOR 2ND,MI3,MINOR 3RD,MA3,MAJOR 3RD,P4,PERFECT 4TH,A4,AUGMENTED 4TH,D5,DIMINISHED 5TH,P5,PERFECT 5TH,MI6,MINOR 6TH,MA6,MAJOR 6TH,MI7,MINOR 7TH,MA7,MAJOR 7THk 8:13:"VISUAL INT 81929K(7,4):JJ12:KK17:K(KK,JJ):KK:JJ_::A(12):ZM24:T112:A(T):T 56,44,60,48,64,52,68,44,56,36,52,64,48,60AA$(12,2):JJ112:AA$(JJ,1),AA$(JJ,2):JJ:F$"BEADGCF":S$"FCGDAEB"  0,2,3,5,7,9,10,12,14,15,17,19     ox<@}~??|_Oox?g}xGow[>;~?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~g>{}>_?~>{o7owo}z~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~o88`}~_oAx`?~~gox?O}x~ow[>[~?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~_o>x`??~>{o7_ow[o{}ygxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wv^wvv~O0?~}~_o>{}>_?_qwlw`\o<>@ox?a@}xxox>~~?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~{wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/~^w~~~_ |~_o>}>_?_?|k{o;_ow[o{?~{ox? }xcow[>{=}?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o               TLY"::"FOR A SCORE OF ";(B100P1.5);"%.":1000::4300016368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U0UCV3W23:958:"PRESS 'R' TO HEAR THE MELODY AGAIN.":"PRESS 'RETURN' TO CONTINUE.";y16368,0:W$:1:W$"R"510460:503:55022:868::"CORRECT"::BB(CC0):502&T<0:::5:"YOU ANSWERED ";B;" OF "P1" PROBLEMS CORREC,A(RN)23,1)520'CCCC1:CC2501B"NO, TRY AGAIN.":480Y(M$)3M$"THAT"24:868:M$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:48022:"NO, THE MISSING NOTE WAS ";(N1$,A(RN)23,1);"."PCA:N$(N1$,A(RN)23,2):2:30800:T115:D2:NB(T1):30100:T1(D1:]:24:"PRESS 'R' TO HEAR THE MELODY AGAIN.";:121:1:"WHAT IS THE NAME OF THE MISSING NOTE? ";:22010:M$Z$M$"R"İ460:480((M$,1,1))65((M$,1,1))71495958:(M$,1,1)(N1$B(T1)1B(T1)B(T1)1:423?B(T1)8B(T1)20B(T1)B(T1)1cB(T1)3B(T1)15B(T1)B(T1)1yB(T1)10B(T1)9B(T1)5B(T1)17B(T1)B(T1)1B(T1)12B(T1)11T121:"PRESS RETURN TO HEAR THE MELODY.";W$:460:470B(T1)3B(T1)15B(T1)B(T1)1BB(T1)8B(T1)20B(T1)B(T1)1fB(T1)13B(T1)1B(T1)B(T1)1B(T1)6B(T1)18B(T1)B(T1)1T1:430T115(K)422,421,420,419,418,417,416B(T1)6B(T1)18B(T1)B(T1)1:423B(T1)1350#TN$(N1$,A(T1)23,2):308006^T1:18P5,72UrT115:B(T1)C(A(T1)):T1bK0430oK0414{T115K409,408,407,406,405,404,403B(T1)12B(T1)13:410B(T1)5B(T1)17B(T1)B(T1)1:410B(T1)10B(T1)11F11)F1):30300:A(1)((1)102):N$(N1$,A(1)23,2):30800K6T125b@A(T1)((1)102)BV8(A(T1)A(T11))V9(5T1)320J(A(T1)A(T11))I11320KA(T1)A(T11)320LT1RN340MPP25:V8V8(A(T1)A(T11))NCAP25:3RE, YOU NEED":"ENTER ONLY THE NOTE NAME."::"NO SHARP OR FLAT SIGNS ARE REQUIRED."::"FOR EXAMPLE, IF THE MISSING NOTE IS"::"E-FLAT, YOU SIMPLY ENTER E.":1000:T1P1P1:RN((1)42):CC0:V80:V9I15:30000:30200?K((1)(S10C 958:20:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:40000:P1ZNQ P11160g :I$"N"::240 "IN THE EXERCISES THAT FOLLOW, YOU ARE"::"TO IDENTIFY THE MISSING NOTE."::"ALL NOTES WILL BE WITHIN THE SCALE (NO"::"ACCIDENTALS) AND THEREFO0-7) ";:40000:S1ZN:S10S17130 13:"WHAT IS THE LARGEST INTERVAL YOU WANT"::"IN THE PHRASE? (A 2ND IS INDICATED BY" :"THE NUMBER, 2, A 3RD BY 3, ETC.) ";:40000:I1ZN I12160 22:"AN INTERVAL VALUE OF "I1" IS NOT ALLOWED.":15ERVALS, AND "::"AND THE NUMBER OF PROBLEMS.":1000 n3:"WHAT IS THE GREATEST NUMBER OF FLATS"::"YOU WANT IN THE KEY SIGNATURE? (0-7) ";:40000:F1ZN:F10F17110# 8:"WHAT IS THE GREATEST NUMBER OF SHARPS"::"YOU WANT IN THE KEY SIGNATURE? (TURN" :"KEY TO HEAR THE MELODY PLAYED. BASED"::"ON HEARING THE MELODY, YOU WILL TRY TO"::"IDENTIFY THE MISSING NOTE.":10004 (3:"YOU MAY SELECT THE MAXIMUM NUMBER OF"::"FLATS OR SHARPS IN THE KEY SIGNATURE,"::"THE MAXIMUM SIZE OF THE INT:"IN THIS DRILL, YOU WILL SEE A FIVE-NOTE"::"PHRASE OF MUSIC PRINTED ON THE SCREEN.":::"FOUR OF THE NOTES WILL BE WRITTEN AS" :"NORMAL NOTES - THE OTHER WILL BE "::"INDICATED BY A SPACE. STUDY THE PHRASE."::"WHEN YOU ARE READY, PRESS THE RE8192:K(7,2):29000:A(5),B(5),C(12):D1:ZM24:N1$"D5E5F5G5A5B5C6D6E6F6G6":T12:TT17:K(TT,T):TT:T:T112:C(T):T ::8:13:"MISSING NOTE":22:"INSTRUCTIONS - YES OR NO";:I$:I$(I$,1,1):I$"Y"I$"N"10 :I$"N"110 3!! ! ! ! ! !!!!!!!!!     TT))436LL:PP15:870'f30800:TT2LL0:u16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::UCV(37):CH(36):16368,0:"";Z$:Z$""Ģ1CV:CH1:22000U(Z$,(Z$),1)" "Z$(Z$,1,(Z$)1):22001U&UCV(37):CH(<TTTT(K0)H>9(K0)P,(11TT)436LL(K0)4:PP15:F3:817YR3:W15900cWWWTT\TTW115:N$(N1$,A(TT)21,2)a(A(TT)WW)7A(TT)WWF0870bWW.2:F2Ĕ9(K0)P,(11A(TT))436LL4(K0):PP15:870c11P,(11A(TT1W11:N$(N1$,A(TT)21,2):30800:TT:2R/TT111:B(W1)D(TT)F0:817_0TT:8201N$(N1$,TT21,2):30800:8504TT111:B(W1)C(TT)F2:8225TT:825611P,(11TT)436LL:PP15:8179TT111:B(W1)D(TT)1828:TTRED ";B;" OF ";P1;" PROBLEMS"::"CORRECTLY FOR A SCORE OF "(B100P1.5)"%.":1000:43000D"FOR A SCORE OF ";(B100P1.5);" PERCENT.":1000:43000 23:958:"PRESS 'RETURN' TO SEE WHAT WAS PLAYED.";:Z$:*LL55:P0:30000:30200:30300/+O HEAR THE SECOND, OR PRESS":"'RETURN' TO CONTINUE. ";:16368,0:"";W$ZW$""ė:550pW$"2"İ460:503W$"1"B(W1)B(W1)(W2)W3:460:B(W1)B(W1)(W2)W3:503503:"CORRECT"::BB1:800:503&T0:::5[:"YOU ANSWE22010:M$Z$::M$"R"456?T6(M$):T61T66(T6)T6500V(M$)3M$"THAT"24:M$;" IS NOT A VALID ANSWER - TRY AGAIN.";:1:480T6W1520"NO, THAT IS NOT RIGHT.":800H:21:"PRESS '1' TO HEAR THE FIRST LINE,":"PRESS '2' T0B(W1)17W20432-B(W1)B(W1)(W2)W3`21:"PRESS 'RETURN' TO HEAR THE MELODY.";:Z$n460:470T115:D2:NB(T1):30100:T1D1::24:"PRESS 'R' TO HEAR MELODY AGAIN.";:121:"WHICH NOTE WAS WRONG - 2, 3, 4, OR 5? ";:4D(3)7:D(10)19:430@(K)422,421,420,419,418,417,416KD(3)5WD(7)12kD(4)7:D(11)19~D(1)2:D(8)14D(5)9D(2)4:D(9)16D(6)11T115:B(T1)D(A(T1)):T1W1((1)42):W2(1).5:W3((1)21):B(W1)5W2)320,MV8(A(T1)A(T11))V9(5T1)320hNV8V8(A(T1)A(T11)):N$(N1$,A(T1)21,2):30800:T1(K)2415,430,402K409,408,407,406,405,404,403D(6)13D(2)6:D(9)18D(5)11D(1)4:D(8)16D(4)9:D(11)21D(7)1ES"::"(2-5) WAS INCORRECT.":1000P :T1P1:P1:V95I1:V80:30000:30200 SS111:D(SS)C(SS):SS:K((1)(S1F11)F1):30300:A(1)((1)111):N$(N1$,A(1)21,2):30800 ;T125@A(T1)((1)111):(A(T1)A(T11))I11A(T1)A(T11E PHRASE. WHEN YOU ARE": "FAMILIAR WITH IT, PRESS THE RETURN KEY."::"THE COMPUTER WILL PLAY THE PHRASE WITH"::"ONE INCORRECT NOTE. THE INCORRECT NOTE"::"WILL NOT BE ";# "THE FIRST NOTE. YOU WILL"::"BE ASKED TO IDENTIFY WHICH OF THE NOT";:40000:I1ZN:I12159N 22:"AN INTERVAL OF "I1" IS NOT ALLOWED.":150X 958 20:"HOW MANY PROBLEMS WOULD YOU LIKE?";:40000:P1ZN:P11160 :"IN THE EXERCISES THAT FOLLOW, YOU WILL"::"SEE A FIVE-NOTE PHRASE OF MUSIC."::"STUDY TH10z 8:"WHAT IS THE GREATEST NUMBER OF SHARPS"::"YOU WANT IN THE KEY SIGNATURE? (0-7) ";:40000:S1ZN:S10S17130 13:"WHAT IS THE LARGEST INTERVAL YOU WANT"::"IN THE PHRASE? (A 2ND IS INDICATED BY": "THE NUMBER, 2, A 3RD BY 3, ETC.) "WHEN IT IS PLAYED, ONE OF THE NOTES"::"WILL BE WRONG. YOU MUST DETERMINE"::"WHICH OF THE NOTES (2-5) WAS INCORRECT.":1000:4 n3:"WHAT IS THE GREATEST NUMBER OF FLATS "::"YOU WANT IN THE KEY SIGNATURE? (0-7) ";:40000:F1ZN:F10F171g\8192:29000:K(7,2),D(11),A(5),B(5),C(11):D1:ZM24:N1$"D5E5F5G5A5B5C6D6E6F6G6":LL0T12:LA17:K(LA,T):LA:T:T111:C(T):T ::2:15:"WRONG NOTE":5:"IN THIS DRILL YOU WILL SEE A PHRASE OF "::"MUSIC AND THEN HEAR IT PLAYED.":"" " " " " """""""""