' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6  H8`?E V9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD#HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hE(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠ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()!)FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ穎7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl3L 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*55L6 &L"L& # "#-55*( $ z$egehtpjigh q$ Q(l` $ z$8L`*Ma*EK@>ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ*@ N'5L& ' ' ' ' "L#` -e* L  #s*r* #m*l* #s*r*L# "-5L& # z$e*)r*s* z$r*s*Lq$ ]# Q(lr** L& #8gh #hgL# #8LʨM #ˤL#5H "hL'55555 &55L&&E`( !80 0 !DDL"DLDL^* t*^*`,t*P pMt*-^*^*`*DH #hW*L' " d'@` "L" 5 5 c* "L" " &Lq6L#c*l* m*l*l*5m*5 "EL&AD@ C' N' 'c*5L&u*ɠ% d': "L" 'c*vc*]*ܢ @)J)0G e*e*ʎd* !d* E DU)EX) ЃDW)c*ДJEg*Df*L H e*e*h) t*t* !L [' !_*HH`]*ɍ]*ɬ` !ɠ`5`DE !ɤ<(L! !DE`80!  !eDeE ! !eDDeEE8`DͲ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L 5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`/B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4Ќ7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 5` / 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 (+_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 5AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3UVERIF!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 DIMINISHED SEVENTH CHORDS."* "TERMS"[ "TERMS PROVIDES DRILL ON THE MEANINGS OF"  "FIFTY-SEVEN COMMONLY USED MUSICAL"  "TERMS.""TRIADS""TRIADS PROVIDES DRILL IN RECOGNIZING" "ARPEGGIATED MAJOR, MINOR, AUGMENTED,"3(65435)6ĺ(4)"PR#0":(4)"IN#0":16372,0I PROGRAM: HELLOf VERSION: 2.0.2 (TMB) LAST UPDATE: 6/27/80(2 (C) MECC, 1979<22016FD$(13)(4)P:::255:(1023)123160) Z230,32:D$"BRUN LOGO":16297,0:16304,0:16302,0:16300,0:16368,0H dD$;"BLOAD LETTERS,A$4000"e nD$;"BLOAD TABLE,A$4300"x x232,0:233,67 J1(16384)128:J127J132JJ1:J400130 16368,0 ZM24 D$(4) N$(24,4) D$;"NOMON,C,I,O" 1023,123 ::255:" T$,N5 1:20(T$)2= T$^ 2:11:"AVAILABLE PROGRAMS"e 4p T1N{ C14 "N$(T,C) ,C 6T @T1(N2) JT;" ";N$(T,1);:20 TT(N2);" ";N$(T(N2),1) hT rN2(N2)ĺ(N2)1;" ";N$((N2)1,1):U |(64435)6Ģ24:" Make sure your caps lock key is down."; 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 590 ZN$"D"430 (ZN$,1)"E"Ĺ1023,9::: QZN:550# 34,15:16:n 16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED. ";:868| 590:QZN Q0QN1480 :"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N;".":440 :N$(Q,2):18:N$(Q,3):20:N$(Q,4) 5 23:"DO YOU WANT ANOTHER DESCRIPTION";:868= A$T (A$,1,1)"Y"430n (A$,1,1)"N"ė:380 "PLEASE ANSWER YES OR NO";:1:490 &Q0QN1570 022:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:380:::10:"GETTING THE PROGRAM..."3DD$;"RUN ";N$(Q,1)INCH(36):CV(37)oX"";ZN$:(ZN$)(((ZN$)))620b(ZN$)0ZN$"0"640lZN$"D"ZN0:vZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:650:600ZM:868:CV1(CV23):ZN(ZN$):CV1:36,CH:868:> "MUSIC THEORY - VOLUME 1",18U"AURAL INTERVALS" "AURAL INTERVALS PROVIDES DRILL AND ""PRACTICE ON RECOGNIZING INTERVALS BY""EAR." COUNTING"COUNTING PROVIDES DRILL AND PRACTICE ON"&"DETERMINING THE TYPE OF NOTE NEEDED TO "U"COMPLETE A MEASURE IN A GIVEN TIME SIG."h"ENHARMONICS" "ENHARMONICS PROVIDES DRILL AND PRACTICE ""IN DETERMINING WHICH NOTES ARE ENHAR-" "MONICALLY EQUIVALENT."  "FIND THE HALF" + "FIND THE HALF PROVIDES DRILL IN IDENTI-"V "FYING THE HALF STEP INTERVAL IN A" w "SERIES OF WHOLE STEPS." "INTRODUCTION" "INTRODUCTION DEMONSTRATES THE"*"CAPABILITIES OF THE APPLE RELATIVE TO "4"MUSIC THEORY DRILL AND PRACTICE.">"KEY SIGNATURES"FH"KEY SIGNATURES PROVIDES DRILL AND "vR "PRACTICE ON RECOGNIZING MAJOR AND MINOR"\"KEY SIGNATURES."] "MISSING NOTE" ^ "MISSING NOTE PROVIDES DRILL IN"_ "ELEMENTARY DICTATION SKILL."` " " f"NAME THE NOTE"=p"NAME THE NOTE PROVIDES DRILL ON NAMING"ez"NOTES. SOME DRILLS WILL INCLUDE""SHARPS, FLATS, AND LEGER LINES.""NOTE TYPES""NOTE TYPES PROVIDES DRILL ON IDENTI-""FYING NOTES AND RESTS BY THEIR RHYTHMIC"#"VALUE - E.G. QUARTER, EIGHTH, ETC."1V"RHYTHM"]`"RHYTHM PROVIDES PRACTICE IN MATCHING"j"AURAL RHYTHM PATTERNS TO WRITTEN"t"RHYTHM PATTENS."~"RHYTHM PLAY""RHYTHM PLAY PROVIDES PRACTICE IN ""PERFORMING A VARIETY OF SHORT RHYTHMIC""PATTERNS."%"SCALES"R"SCALES PROVIDES DRILL IN IDENTIFYING "{"MAJOR AND MINOR SCALES AND MODES."" ""SEVENTHS""SEVENTHS PROVIDES DRILL IN RECOGNIZING""ARPEGGIATED MAJOR, MINOR, DOMINANT,""HALF & FULLY     F ";(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,UCV(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:32000Iq%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,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,DS: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)$A22000: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: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:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"=)1023,9E*:R:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:8,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(T :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*:R        y 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"::"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." 310000 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 CHOOSE 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, AND 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)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:"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 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 -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:N3N17: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:x18: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:"WROCZM:"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: 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 DIFFERENT 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 TRIADS?"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 LIKE 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 MAJOR":" 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.";:A$"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:340JN2N13TT81T82N3N17*^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 ":"YOU 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((R$),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:08:"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>'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):22001UUCV(37):CH(36):16368,0:Z$:Z$;:Z$"R"ı UZ$(13)ĢCV1:CH1: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(D256)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,DS: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} ING 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 TRAIN68,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 T117NNS(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 NUMBER (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:SS2420:"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"427 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 ";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$::@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: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,94,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,173: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 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: D$(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 A NUMBER 1 - 3.":43022#ZE1Ĭ3ZE343049n:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"z)1023,9*: K       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." AFTER 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,1)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)0410 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$""Ģ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$)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 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,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(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 WANT 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Ĭ ZE343049G:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"S)1023,9[*: K         S(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 SCALES, 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 OR 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 H1322<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;VT68,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: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)qZ]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,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:耺:(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 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 FZM: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" 40000:ZEZN((ZE3)(ZE2)(ZE1)043030U:"PLEASE ENTER A NUMBER 1 - 3.":43022aZE1ĬqZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: K            :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:"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 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 MORE"::"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 YOU 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 :"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.";: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 :"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 LEVELS:"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."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:ZN1ZN2ZN3202 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 OF 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:"TO 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$;"RUN 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):22001 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:Z        :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:40000: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, ANSWER 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 SS1700: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"(F 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 "' (     D1S94V4:30100V509505D1S94V5:30100CV60950YD1S94V6:30100gV70950}D1S94V7:30100P91P01(A(P94)R(1,P9))R(1,P9)31010P9:1020 :21:"WRONG - PRESS 'RETURN' TO SEE WHAT":"YOU PLAYED ";: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":"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$43000C'16368,0:24:868:7:"PRESS 'RETURN' TO CONTINUE.";:Z$::IHq[RqK0:C1:R300cWqP3n\q32000tq0u CLEAR AND STAFF:uLL0đDu1Nu0Xu1buZ40728lu1,ZLL279,ZLLvuZu3uu NOTESu0,(N256):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)30830dxZ1ix"ERROR""nxZ1(Z11)27sxZ113C230860HxxZ11330850U}xZ1Z112fxL84Z14LLyx(N$)230895x(N$,3,1)"#"30880x(N$,3,1)"*"30875x11P,L:30885x10P,L:30885x9P,L4:30885xPP12xxZ24: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:R7,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:R28,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.";: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,EEQQEE,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 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"ZE3)(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*:L$(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(R1256):3,(D1(D1256)256)$uR*u@u13P,64:PP25:YPxN$"D5"L76:30898bQxL64pxZ24:Z31|xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP14:12P,L3:PP10:30980xDZ230977xZ2Z22xZ3130961xZ3630955(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,ES6: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:R24,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 EQEQQ,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,EEQCSEE,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:868: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)0430302:"PLEASE ENTER A NUMBER 1 - 3.":43022QZE1ĺ:(4);"RUN RHYTHM"aZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:L               KL1(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 T714: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:800* (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):T7(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:P20,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." P0@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$::6:"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,0: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$)0ZN$"0"40006JCZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001rFZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:I      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 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' (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 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).75929' 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,T7)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.: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),1)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:30100V50990#D1150V5:301001V60990FD1150V6:30100TV70990iD1150V7:30100o:21:"WHICH PATTERN IS CORRECT? (1-3) ";:40000:WZNW1W3W(W)1000J(W)11020"NO, THE CORRECT ANSWER WAS ";W113J(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)1A"::"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 36):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):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)3)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}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$:(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$,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 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:"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    ::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 RHYTHM 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 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 EXERCISES 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:"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 SECOTT))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(          g\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.": "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:F10F17110z 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.) ";: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 THE 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 NOTES"::"(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(T11)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)14D(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)5W20B(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? ";:22010: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' TO 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 ANSWERED ";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/+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:TT1023,9: GHELLO"'1023,9/: Pz#?  ٠ӠӠŠӠ Ǡ̠Ӡ̠ӠϠ  !ǠŠǠŠ͠  Ͳ ͳ ͠٠ ŭƠ ĠŠƠ ӠӠ Ӡ  à٠Ϡ ŠӠΠŠŠŠ Ӡ"AND HALF STEPS."%F"WRONG NOTE"IP"WRONG NOTE PROVIDES DRILL IN"xZ"DETERMINING DIFFERENCES BETWEEN WRITTEN"d"AND PERFORMED MUSIC."D"AND DIMINISHED TRIADS."3 "VISUAL INTERVALS"b "VISUAL INTERVALS PROVIDES DRILL ON "  "RECOGNIZING INTERVALS BY SIGHT." " "  "WHOLE-HALF"("WHOLE-HALF PROVIDES PRACTICE IN "2"DISCRIMINATING AURALLY BETWEEN WHOLE"<:"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":" t u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)    @}  2xKB%'%%'%%'%%'%=777'$'66'$47NII,<%%'%%'>>>$<46>$$>vI !%@%g%---.>.>>>??<<@III$$$$$$$$$$$$56666666666666 6.$$56.$$56.$$@@@@@@@@@@HI9<<<<<<@@@@@@@III ''''''''6666666666666.$$$$$$$$$$$$$$? ,,,,,,,,6R,,,,,,,,?666.$$$$$$$$$$<66666666?,-%-%-%='$$$$$$<6666666666.$$$$$$$L?.?>?7?7?66.,ee,<,?>'$$$<6666.66 $$$),5?.-5757575?.>>>7????8<<<,'%'%'%')< %'-,< %%%'),,,$%%'%'%'%'%;.>..>.>..>66575757575.>5>..>.>.>.>.>57575757>4??,<,> -,,%%%%%%')< %'%'%'''''???7775;.>->IIIIIIR->7-@-<'---5??7--5??'$'57->57-5??*-5;?7-->7).>-5??.-5;?-.*%')< %'%%' ???-- )%????,--%;??$$$$$$$$$$$$$$$$$.6666666666666666@E 08HXhx 0@P`p(8HXhx 0@P$$ 66$??@@$$$--26;?$,-@I ?$$ -@@@@$$$--266;?@@@@@$$$--;7--@@@@$$$--;7@@@@@@@d)5?$$ -@@@$$$6.-%$666@@@)=$$$=? 6) $$,?@@@@@@$$$6 @@--#$$$$$$ 666@@@@$$$.2111$$$@@@ $$)-266?@@@@$$$--2>?@@@@@@ $$)-266?%011@$$$--2?5@@@-- ?$)-@@@@@ $$$?--@@@@@@@ $$ 666;?@B@@ $#$ 66@B@@ $$$666@@$!!!!61111@@ $$## 63@@@B@@ ??$!!!!??B@@)=$$$> ??$!) $;?2@@@0)- ') ??@@@@ !$$<::2--@@@@0)- $;?$--@@@@)- ?7&$ -@@@$ ??@`@@@@@)- ?& -6@@- $$;?2--@@@@ $$)-266? !! @@@@ T$$$$,6666.$$$$,6666.$$$$,6666.$$$$$ER HOUR SPEED ZONE.THIS SIGN MEANS 6     5 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 CAPABILITIES 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 x123Ā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*: 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:30800 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:32000:0u:1:0:19buZ40728:1,Z279,Z:Z:3:^u0,(N256):1,(N(N256)256)u2,(D1256):3,(D1(D1256)256)uRuu12CP,64:PP25:\vK030430fvK030430pvK030530zvC230440vPPK12vK30410,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:PP12w9P,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:PP12w10P,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)1220: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)"#"30880#x(N$,3,1)"*"308756x11P,L:30885Ix10P,L:30885]x9P,L4:30885hxPP12xxL8030898xT680L8:P4,T6P13,T6:T6xZ24:Z31xL5630925xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900%xZ3P,L:PP17:12P,L4:PP14:30980.xZ31FxZ3P,L:DZ230977RxZ2Z22bxZ3130961rxZ3630955xZ3330960xZ3Z31:30965xZ33:30965xZ37:30965xZ36:30965xDZ230930xZ3P,L:PP17:12P,L4:PP14:30980 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: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} 378,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,QHEE,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,QEEQCS,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)Ѻ"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(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):        X::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 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 TREBLE 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" ]" LEDGER 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 SHARPS 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 SHARP 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*"1000T1P1P0:300002L13CL1:250DC((1)21)~SS0:ST117:SSSSV(C,ST):ST:SS1SS7L14C3C30200:L15280K((1)157):30300C2400L13290RR((1)1116)VVRR15:V(1,VV)0283!N$(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)171):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.":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%(((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$"*"&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:" 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):CHKRAM...":(4);"RUN HELLO"1)1023,99*:110: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#1nxZ1(Z11)22%}xC1Z1Z1123xL84Z14HxL32L8030894YxL8030890}xT132L8:P8,T1P25,T1:T1x30894xT180L8:P8,T1P25,T1:T1xPP12xZ24:Z31xL5630925xZ3P,L:Z31P,L:Z32P,L:PP12x30980x1P,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(ZN$):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 NUMBER 1 - 3.":43022!ZE1Ĭ1ZE343049l:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"x)1023,9*:,9*:D   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"::"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":"-----":"CONSISTS 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"2103 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 ENHARMONIC"+ :"SPELLING WOULD BE F# (F-SHARP)."5 1000< 4v "WHEN ENTERING ANSWERS:":"---- -------- --------": "USE THE '#' (NUMBER SIGN) FOR SHARPS." "USE THE '*' (ASTERISK) FOR FLATS." : ? " EXAMPLES":" --------":"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 S1290T1110: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 VALID 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)"*"(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)āQQPP12vT2v1v 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)30830dxZ8:"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$8,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: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" 40000:ZEZN((ZE3)(ZE2)(ZE1)043030U:"PLEASE ENTER A NUMBER 1 - 3.":43022aZE1ĬqZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*: Z        :#(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):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:":: " 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 YOU 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 '#' (NUMBER 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*" Z"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)0105kV02B(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 ---> *";:1Dx21:"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:"# <--- 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 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,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):1636 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:"CORRNSWERED ";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$),1)" "Z$(Z$,1,(Z$)1):22001'U=0u CLEAR AND STAFFC:uJDu1QNu0XXu1gbuZ40728vlu1,Z279,Z}vuZu3uu NOTESuD10025530160u0,N(N):1,255uZ1(D100255)uRuZuZ1D100(D100255)255u0,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,60v 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$(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 NUMBER 1 - 3.":43022ZE1Ĭ/ZE343049j:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"v)1023,9~*: T T     I(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 COMMONLY 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 WOULD 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"( :"CLOSELY 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,2),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) X1XX1Y400 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) 4508:"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):463B$(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 A,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,": ("HSING 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","""PIANO","SOFT","","PRESTO","VERY FAST",""Y "RITARD" ,"BECOME GRADUALLY SLOWER","""STACCATO","WITH DISTINCT BREAKS BETWEEN"," SUCCESSIVE TONES" "DIMINUENDO","BECOMING GRADUALLY SOFTER","" "ADAGIO","SLOWLY AND LEISURELY","""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","" "VIVACE","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"," 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",""*"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","" 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 """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 '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$)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"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" )1023,9*:B      7TT(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$ECTLY 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 CLO1:PP10:30980yy3y18P8,72:PP15:?|y RESTSOyD431150_yD231160oyD131170yD.531180y19P8,72:PP15yy15P8,49:PP15yD6Ĕ12P8,50:PP15yyD331166y15P8,52:PP15:"yG:"::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"325K x4:"WHEN IDENTIFYING NOTES, USE THE "::"ABBREVIATIONS GIVEN BELOW:"R y9 "ABBREVIATION NOTE OR REST TYPE":"------------ -----------------" " W WHOLE" " H HALF" " Q QUARTER" " E 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 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 "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 ONLY 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":C1TT1P1UP0:,Y30000:302005`P35ChV03365\iV03V2((1)21)jSS0:SV19:SSSSTT(V2,SV):SV:SS1V23V2k200:DB1:V2370,380mV2V0:200:DB1:V0370,380r30800:390|31100V21AA$"NOTE"V22AA$"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)"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":450"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 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.";: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@16368,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:1buZ40728lu1,Z279,Z%vuZ,u32u8uGv12CP,64R vPP25Xv^PxxxL64:PP18:Z24:Z31xL5630925xZ3P,LxD6Ĕ12P18,61:30977xDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP15:12P,6ALF, 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 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@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  :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 T        E::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"; #16368,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 ONE 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 /"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$"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:868: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 THE 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 QUARTER"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"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:PP25v125;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 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:180TTWW20015P4,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::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:FLB1: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);"%."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 lu1,Z279,ZvuZu3!u'u6v12CP,64A vPP25GvMPxVUxZ15dxL84Z14rxZ24:Z31xL5630925xZ3P,LxDZ230977xZ2Z22:Z3Z31xDZ230900xZ3P,L:PP14:12P,L4:PP7:30980xZ31xZ3P,LxDZ230977xZ2Z22.xZ3130961>xZ3630955NxZ3330960axZ3Z31:30965qxZ33:30965xZ37:30965xZ36:30965xDZ230930yPP16yy18P8,72:PP15:} FF,EH,EII,HFH,HHF,FHH,HHHH,FGI,GIF,HIIF)} FFF,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,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.E@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:"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"       :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$:(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 TONES 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 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":"WOULD 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$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_BTO 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ĬZE2, 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 "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,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,1):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 NS: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)5696K7(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(TT12)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"::BB1X1000b17: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." 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(36):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:R300 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,255uZ1(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,208: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):CV(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 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, 68,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ı           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 / 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 INTERVALS":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."::"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:"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. SEVENTHS" 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: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 INTERVAL 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`u20:"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)7220I((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)3CH1: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$,JJ,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 ANSWER 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:430009163343049B:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"N)1023,9V*: ,9d*: F(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 TO 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*U+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U|L*]+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*UJ捿ttmtt`BB0xXCB_?J*B037B6AC k mJUBBC3ACw7tJ*BA_BBC3ACzG?BJUNA]??B/++*C*BB3?>CABwAJ*NGAGO?_WUUUBUABUCUBB>0C1B.1JUNGTvGJ??C*B*B***B*AB*C*BBB3CwvuswJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCoJUNGAGN~C*B*B* FBC BBB C~}~LJ*NGAGOCUBWBB@B`@CC?G{JUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NG\IdGO~x`FBAQB oBlOCFJUNG\OF@IIDOdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG_DyCdGOaHBAQBBOB`OCFJUNG_ | dGQ|0TAA ~~B@@oBLOCFJ*NG_p`pc`pdGOE@`pG`@GBBYCFJUNG\AgccBgAdGOGCGAHBBOBYOCFJ*NG_BgdGO~x`FGA>B~BBBYCFJUNG_xpBpxdGQF@`Dp`@HB@@_BY_CFJ*NGAGOG|L|HBFACFJUNG\AGdGOD@CAAGA <