oph4`H`EASY2INTERTNKEYTONEHARDEASY1FLTSHTONE1TONE2DRST1ST2IN1IN2DWNSCALE1SCALE2SCALE3EASYTSCALESCALEEASYHAREXERANGSEAAOUOPTDARETVANTUNVAPTPTPTPTCBDVCCBBINXXDVCHOICDUOCFLTSX1X2DERESNPDTUNEUCDTOAASIGNASCTYPJMPSIZDUMMNUNOTENUNOTVAVAR2VARXSTEPTONEXVA7N2SCALESCALESCALE4VAR7NUNOTEGLETAZAs>CJ ASACJ R [ h q z A$3AV >A 3@bA!@`@a@@@I@@I @U!@%"#$A4%@&'A"v(@)@*@+A(,-./0AU1AU234567@I8@I9AU:;<=>?@@@A@BCD@EFGHIJ@KLMNOPQRSAT AU VW@`X@`AY 3@Z@[\AU]^ bb. RECENTLY INSTALLED TRAPS AT 11370 AND 7730 IF LOOPS TURN UP, TAKE THEM OUT AND FIND ERRORS ##@@K:%(RQ (}Q(CMUSICIANSHIP: AN EAR TRAINING PROGRAM FOR THE ATARI 8-BIT COMPUTER.(( WRITTEN BY(( TIM MILLER(1859 CONCORD AVE(STOCKTON, CA 95204($$(DONATED TO THE PUBLIC DOMAIN(AUGUST 1, 1987(!!(PRESS ANY KEY TO CONTINUE)@ (} (WAIT A MOMENT.....ZZ9@,;@%,9@<@a,;@,;@ ,9@$,9@,PPTN(1,X) IS RESERVED FOR GRAPHICS DATA IF SOMEONE WANTS TO ADD THAT SOMEDAYhh;@,;@,;@ ,;@,;@ ,;@ ,;@,;@,;@ ,$&&;@,9@ ,9@ ,8m19@P,9@a,9@P,9@P,mTHESE WILL BE THE SCALES USED TO SELECT NOTES IN THE PROPLBBACCORDING TO LEVEL OF DIFFICULTY IN NAME THAT NOTE (EXER=53)t,A1@,. TURN OFF KEY CLICK'AR@'TURN OFF CURSOR-@@"68,- ,,2,4,5,7,9,11,12,-1,-3,-5,-7,-8,-10,-12-@@6"68,-( <SS0,2,4,5,7,9,11,12,14,16,17,19,21,23,24,26,28,29,31,33,35,36,38,40,41,43,45,47P48,50,52,53,55,57,59,60d-@@ax"68,- 881,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20AA21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40DD41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61-@@F="68,-=USED IN NAME THAT NOTE. FLAT THIRD AND 7TH jj0,2,3,4,5,7,9,10,11,12,14,15,16,17,19,21,22,23,24,26,27,28,29,31,33,34,35,36,38,39,40,41,43,45,46,47,##48,50,51,52,53,55,57,58,59,60@-@@FTB"68,-BUSED IN NAME THAT NOTE. SHARP TONIC AND FOURTHh |ii0,1,2,4,5,6,7,9,11,12,13,14,16,17,18,19,21,23,24,25,26,28,29,30,31,33,35,36,37,38,40,41,42,43,45,47##48,49,50,52,53,54,55,57,59,60-@@"68,- %%2,4,5,7,9,11,12,2,4,5,7,9,11,12-@@$"68,- 0GG-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9,10,11,12:-@@a;"68@<,-< =VV1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12>==1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1D-@@aX"68@<,-l GG13675,12907,12182,11498,10852,10243,9668,9125,8612,8128,7672,7241KK6834,6450,6088,5746,5423,5118,4830,4559,4303,4061,3832,3617,3414,3222KK3040,2869,2708,2555,2412,2276,2148,2027,1913,1805,1703,1607,1517,1431//1350,1274,1202,1134,1070,1010,953,899,84855800,755,712,672,634,598,564,532,501,473,446,421/ }/ !YOU HAVE YOUR CHOICE OF EXERCISES  1='NAME THAT INTERVAL   2='TUNE IT UP'4 3='PLAY THAT INTERVAL'H(4='FINE TUNING\(5='NAME THAT NOTEp((  ENTER YOUR CHOICE (1,2,3,4 or 5)A@d)@NEXT LINE IN6-@# @I)!@S# A @"@I A%"@Q A% "@R B $ "@R6-@I8 "@R6-@L "@R A&`` "@S Bt # }# YOU HAVE YOUR CHOICE:  1=WAY OUT OF TUNE  2=SLIGHTLY OUT OF TUNE "" ENTER YOUR CHOICE (1 or 2) A@d )@ #@I*@P# A$  [ Ap`[. THIS GOSUB REQUESTS THE TYPE OF INTERVALS DESIRED AND SETS UP SCALE STEPSd 0 }0 "YOU HAVE YOUR CHOICE OF SEQUENTIALx  OR SIMULTANEOUS NOTES $$ 1=SEQUENTIAL 2=SIMULTANEOUS "" ENTER YOUR CHOICE (1 OR 2) A@d )@ #@I*@P# A' #"@Q*"@P# A)  11NEXT SUB TAKES CARE OF DURATION, SETS "DUR" Ar@, ""NEXT SUB INPUTS STARTING KEY@ #"@R*"@I# A@T #"@R*"@P# A2 h At@| ggAAA A@A`AAA A@A`AA "@ A0@ "@6-%@ "@6-%@$ "@6-%@6 #"@I*"@P# A@ SEQ:1=SEQUENTIAL,2=SIMUL #"@I*"@I# A@ #"@I*"@Q# AU 0 #"@P*"@Q# AI@D "@S A@X 6-@@l EEBEGIN NAME THAT INTERVAL,TUNEITUP AND FINETUNING --SIMULTANEOUS WWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EASY2,HARD.SETS UP TYPE OF INTERVAL WANTED A 7%27B7hA  "@ B 6-8@<, "@R6- 6-8@<%, >>NEXT SUB MAKES NOTES SHARP FLAT OR NORMAL FOR TUNE IT UP #"@P)"@R# A`4 K6-P:'AV,'6-P:&$AV,86-P:'AV,K6-P:&$AV,H @ \ ?B7`B7b?B7c+@$@,%@p ?B7dB7f?B7g+@$@,%@ F:@ ,  A4` K'B7c+@$,%KB7g+@$,% /"@P)"@R%6-AU/ A6@ M }.  PRESS RETURN TO DISPLAY INTERVALM PRESS R TO REPEAT INTERVAL A@d )@ "@ A3AU A5 $MMNEXT SUB TAKES CARE OF INTERVAL, STEP AND SECOND NOTE NAMES AND DISPLAY8 A`L::NEXT SUB TAKES CARE OF SHARP AND FLAT FOR TUNE IT UP`#"@P)"@R# At!! PRESS RETURN TO TRY AGAIN"@R" C CHANGES KEY. M RETURNS TO MENU  R REPEATSA@d)@=-AU*@g*@w*@3 }= A77"AU*" }- KEY IS 7 A2 )"AU*"@ }) A2 ()"@g*"@R }) A7 <"@g A) P"@w A @d"@ A3xCCBEGIN NAME THAT INTERVAL, TUNEITUP AND FINETUNING -SEQUENTIALWWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EASY2,HARD.SETS UP TYPE OF INTERVAL WANTED Ab%27B7hA bTHIS POKE SETS SOUND TO DOUBLE PRECISION4"@ B4SUB VARIES KEY AT RANDOMj6-8@<,jVA1 IS POKE VALUE FOR FIRST NOTE (TONIC). TN(3,X) IS MASTER ARRAY FOR SOUND VALUES.AA DETERMINES TONIC4"@R6-4TUNB USED IN TUNE IT UP ONLYp6-8@<%,pN2 IS SET IN GOSUB 8420. IT IS A CERTAIN VALUE FROM ARRAYS CALLED EASY1, EASY2, OR HARD,#"@P)"@R# A`@_6-P:'AV,'6-P:&$AV,86-P:'AV,K6-P:&$AV,_COMPUTE PT VALUEST@ h]B7`B7b?B7c+@$@,%@]POKE SOUND VALUES FOR TONIC|F:@ ,  AB @ cB7c+@$,%?B7g+@$,%cPOKE SOUND VALUES FOR SECOND NOTE"F:@ , @0" AB@ ?B7dB7f?B7g+@$@,%@F:@ ,  AC@?B7c+@$,%?B7g+@$,%/"@P)"@R%6-AU/ AE@0Y @S }:  PRESS RETURN TO DISPLAY INTERVALY PRESS R TO REPEAT INTERVALDR"@S }7 PRESS RETURN TO DISPLAY NOTE R PRESS R TO REPEAT NOTEXA@dl)@"@ AAAU AD11NEXT GOSUB NAMES SECOND NOTE, INTERVAL, ETC A`::NEXT SUB TAKES CARE OF SHARP AND FLAT FOR TUNE IT UP#"@P)"@R# A!! PRESS RETURN TO TRY AGAIN !@R!  C CHANGES KEY  M RETURNS TO MENU4  R REPEATSHA@d\)@p=-AU*@g*@w*@3 }= AF)"@R*"@g }) AF"@g A) "@ AA"@w A @7"AU*" }- KEY IS 7 A@)"AU*"@(}) A@#"AU*"@S# B`,,START PLAY THAT INTERVAL, SIMULTANEOUS$OONEXT SUB SETS UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HARD N1,N28%%BEGIN PLAY THAT INTERVAL--SIMULL A`7%27B7hA t"@ B"@I AU 00NEXT TWO SUBS PRINT SCALE STEP OR INTERVAL A` TO CONTROL TONE((  USE CURSOR KEYS WITH KEY&& PRESS RETURN WHEN YOU ARE DONE6-8@<,6-'6-P:'AV,'6-P:&$AV,(?B7`B7b?B7c+@$@,%@<)@PA7@E*@a*@*A$*AUA AQd6->P$6-?$x"@a6-%"A$6-%"@E6-&"@6-&"AU AT@# A)!B`# A # A)!B`# AI@'6-P:'AV,'6-P:&$AV,?B7dB7f?B7g+@$@,%@, AQ@U'B7c+@$,%KB7g+@$,%U AT AI@h**BEGIN PLAY THAT INTERVAL--SEQUENTAIL|OONEXT SUB SETS UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HARD N1,N2 A"@ B7%27B7hA 26-8@<,6-&6-26-36-P:'AV,'6-P:&$AV,-6-36- A` HERE'S THE FIRST NOTE@ 0?B7`B7b?B7c+@$@,%@DF:@ ,  AWX''B7c+@$,%l@ "F:@ , @ " AW`"@ AX $$ NOW YOU PLAY THE SECOND NOTE TO CONTROL TONE((  USE CURSOR KEYS WITH KEY((  PRESS R TO HEAR FIRST NOTE AGAIN PRESS RETURN WHEN DONE 3B7dB7f3B7g+@$,% )@4KA@E*@a*@*A$*AU*@K AY H6->P$6-?P$\"@a6-%p"A$6-%"@E6-&"@6-&"AU Ab`'"@'B7g+@$,%!"@!@ ,""@*F:@ , @ , Aa "@(} AV # A)!B`# A $# A)!B`# AU 8'6-P:'AV,'6-P:&$AV,L?B7dB7f?B7g+@$@,%@` AY t1'B7g+@$,%1 A AU $6.2- or RO!6.1+ or DE$$"6.2 or RE6.2 or RE"$$6.3- or ME!6.2+ or RI$$"6.3 or MI6.3 or MI"$"6.4 or FA6.4 or FA"$$6.5- or SA!6.4+ or FO$$"6.5 or SO6.5 or SO"$($6.6- or LO!6.5+ or SA$$<"6.6 or LA6.6 or LA"$P$6.7- or TA!6.6+ or LI$$d"6.7 or TI6.7 or TI"$x"6.8 or DO6.8 or DO"$ 6. $6. (DESCENDING)$06. MINOR SECOND-6.AUGMENTED UNISON0$ 6.SECOND6.SECOND $/6. MINOR THIRD,6.AUGMENTED SECOND/$6.THIRD6.THIRD$ 6.FOURTH6.FOURTH $46.DIMINISHED FIFTH16.AUGMENTED FOURTH4$,6.FIFTH6.FIFTH$@.6. MINOR SIXTH+6.AUGMENTED FIFTH.$T6.SIXTH6.SIXTH$h06. MINOR SEVENTH-6.AUGMENTED SIXTH0$|"6.SEVENTH6.SEVENTH"$ 6.OCTAVE6.OCTAVE $ 6.C6.C$!6.C SHARP6.D FLAT!$ 6.D6.D$!6.D SHARP6.E FLAT!$ 6.E6.E$ 6.F6.F$!6.F SHARP6.G FLAT!$0 6.G6.G$D!6.G SHARP6.A FLAT!$X 6.A6.A$l!6.A SHARP6.B FLAT!$ 6.B6.B$3 }3 %CHOOSE THE KIND OF INTERVALS YOU WANT 1=EASY--ASCENDING ONLY((  2=EASY--ASCENDING AND DESCENDING 3=HARD--ASCENDING ONLYA@d((  4=HARD--ASCENDING AND DESCENDING )@ # @I)!@R# Ap`4$H3 }3 %YOU HAVE YOUR CHOICE OF NOTE DURATION\## 1=SLOW 2=FASTER 3=FASTESTp ENTER YOUR CHOICEA@d)@#!@Q) @I# Ar@"@I6-@U"@P6-@0"@Q6-@$ }$( 1 = C8( 2 = D FLATL( 3 = D`( 4 = E FLATt( 5 = E( 6 = F( 8 = G( 9 = A FLAT(10 = A( 11 = B FLAT(12 = B"@S Aw (13 = VARY AT RANDOM(@(/("ENTER THE KEY YOU WANT (1 THRU 12)@( AND 2 At@<FP 6-P:,d"@ At@x# @)!@# At@#"@*"@S# At@6-"@6-@"@$ggAAA A@A`AAA A@A`AA(ENTER R TO CHANGE RANGE""(PRESS TO CONTINUEA@d,)@@#AU*@# AyT"AU AhE"@*"@%6-@;(NOW IN HIGH RANGEE Ay |D"@*"@%6-@:(NOW IN LOW RANGED Ay G"@*"@%6-@=(NOW IN MIDDLE RANGEG Ay $%%6-P:@$H:,,%@"@R A 6-? $6-?$ !"@I*"@!6-%0 !"@I*"@!6-&D !"@P*"@!6-%X !"@P*"@!6-&l -"@*"@R-6-%+$$>`, -"@*"@R-6-&+$$>`, "@6- $ )) !FLAT=F SHARP=S CORRECT=C R=REPEAT  ENTER YOUR CHOICE A@d )@ !#"@*"@P# A3 !#"@*"@I# AA4!-#@p*@*@g- A@H!"@6.SHARP\!"@6.FLATp!"@6.CORRECT!#"@*"@# A`!#"@p*"@# A`!#"@g*"@# A`!. }$ SORRY, THE NOTE WAS . A! }  THAT'S RIGHT!$!i%6-P:H:,$@ ,&@iTHIS IS NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RANDOM"6-P:@$H:,,%@"6-P:@$$H:,,%@$""@I6-8,8""@P6-8,L"""@Q)"@R"6-8,`""@Q6-O:,t"DR:1=ASC.2=DESC"@R6-@"%@R* %6-@"%"@R*!%6-@"%"@R* %6-@"$"))6-+8@<%,&,'8@<%,"  A@"* >u } RIGHT!* A`#F>u* ?P }< ABOUT 1% SHARP--NOT BAD!F A`#S?P* ? }I %WITHIN 3%--ABOUT A QUARTER TONE SHARPS A`(#F?* ? }< ALMOST A HALF STEP SHARPF A`<#?? }5 MORE THAN A HALF STEP SHARP? A`P# 6-$6@d#  >u } RIGHT!x#;>u* ?P }; ABOUT 1% FLAT--NOT BAD!#H?P* ? }H $WITHIN 3%--ABOUT A QUARTER TONE FLAT#;?* ? }; ALMOST A HALF STEP FLAT#4? }4 MORE THAN A HALF STEP FLAT# PRESS RETURN TO GO AGAIN#D(  C CHANGES KEY. M RETURNS TO MENUD R REPEATS LAST INTERVAL#A@d$)@$7-AU*@g*@w*@7 A`,$"@g A) @$#"@*"@I# AU`T$#"@*"@P# AI`h$"@w A @|$$$!! PRESS RETURN TO GO AGAIN.$ 6.C$$6.D FLAT$$ 6.D$$6.E FLAT$$ 6.E$% 6.F$%$0% 6.G$D%6.A FLAT$X% 6.A$l%6.B FLAT$% 6.B$% } NOTE OUT OF RANGE%]'B7c+@$,%KB7g+@$,%]@ %"F:@ , A " A`%$% 6. DOWN TO %!6. UP TO  &$ &jjO:,AeAfAf Af@Af`AfAgAg Ag@Ag`AgAh4&v"@vO:,AcAc Ac@Ac`AcAdAd Ad@Ad`AdAeAe H&v"@vO:,AeAdAd`Ad@Ad AdAcAc`Ac@Ac AcAe \&6-8@<%,p&'!@6-&@' A@& A&Ae@Ae`&ggAh Ah@Ah`AhAiAi Ai@Ai`AiApAp Ap@&(} '*"@*(FROM  ()8'*"@*(FROM  ()L'$`'%%6-P:@$H:,,%@t'"@ B'ggAAA A@A`AAA A@A`AA'%%6-P:@$H:,,%@'"@6-@'6-%$@'$'a! }THE KEY VARIES AT RANDOMB(ENTER THE DEVIATION YOU WANTa(1 TO 99 CENTS AND ( B (((# @)!@# B <(k }(1=MINOR SECOND)(2=SECOND;( 3=MINOR THIRDG(4=THIRDT(5=FOURTHk(6=DIMINISHED FIFTHP(_(7=FIFTH!( 8=MINOR SIXTH-(9=SIXTHB(10=MINOR SEVENTHQ( 11=SEVENTH_( 12=OCTAVEd((x((USE MINUS SIGN FOR((DESCENDING INTERVALS(3(3(&ENTER INTERVAL TO PRACTICE AND( B(( 6-P:,()O:, @)O:,!@) B)6-)7O:,!@6-@7DOES THIS DO ANYTHING?,)$@) NAME THAT NOTE BEGINS HERET)6-6-h)0 (}(0(CHOOSE THE SCALE YOU WILL USE|)( 1=MAJOR ONLY)((( 2=MAJOR WITH SHARP TONIC AND 4TH)%%(3=MAJOR WITH FLAT 3RD AND 7TH)( 4=CHROMATIC))@)# @I)!@R# B*- (}-(ENTER THE MAXIMUM SIZE OF SCALE*,,($JUMPS YOU WILL WANT IN THIS EXERCISE0*((MINIMUM 1, MAXIMUM 9)X*)@l* @I B`*!@W B`*6-&@H*0 (}0("ENTER THE NUMBER OF NOTES YOU WANT*&&(PRESENTED IN SEQUENCE (1 TO 9)*)@*# @I)!@W# B *6-&@H +! Ar@!SET NOTE DURATION +@"@R }(@(!DO YOU WANT ACCIDENTALS DISPLAYED4+/"@R/ AS SHARPS (S) OR FLATS (F)?H+-"@R  ENTER S OR F-)@\+-#"@R*@p*@- B@p+' }' CHOOSE YOUR KEY SIGNATURE+ ( 1=C+( 2 = D FLAT+( 3 = D+( 4 = E FLAT+( 5 = E+( 6 = F+( 8 = G,( 9 = A FLAT$,(10 = A8,( 11 = B FLATL,(12 = B`,(13 = Cj, B t,, 6-P:,,"@ B ,# @)!@# B ,6-6-,``THE METHOD FOR SETTING THE KEY AND RANGE IS DIFFERENT HERE COMPARED TO THE OTHER EXERCISES,__WHERE TN(3,X) IS THE MASTER ARRAY FOR NOTE VALUES, SCALEX IS CHOSEN ACCORDING TO "SCTYPE",VVAND THE Y IN SCALEX(Y) DETERMINES THE SIZE OF THE JUMP FROM ONE NOTE TO THE NEXT-b%27B7hA bTHIS POKE SETS SOUND TO DOUBLE PRECISION-p6-8@<%@$,pVA1 IS USED TO COMPUTE POKE VALUE FOR FIRST NOTE (TONIC). IF TONIC IS C, THEN THE(-==VALUE FOR THE TONIC WILL BE THE 25TH ELEMENT IN TN(3,X)<-//TN(3,X) IS MASTER ARRAY FOR SOUND VALUES.P-AA DETERMINES TONICd-j6-P:'AV,'6-P:&$AV,j. PT1 AND PT2 ARE THE POKE VALUES FOR PLAYING FIRST NOTE (TONIC)x-@ - (}(HERE'S THE TONIC-pB7`B7b?B7c+@$@,%@pPOKE SOUND VALUES FOR TONIC (I.E., PLAY TONIC)-F:@ ,  B-_B7c+@$,%?B7g+@$,%_TURN OFF SOUND FOR FIRST NOTE-(-**("PRESS RETURN TO HEAR THE NEXT NOTE.)@.AU B`,.@ @.% }%(HERE'S THE NEXT NOTE(S)T.-@h.i%6-P:H:,$@ ,&@iTHIS IS NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RANDOM|.^'6-P:H:,$++@$,%@,&,^IF JMPSIZE=3 THIS SHOULD PRODUCE VALUES FROM -3 TO 3." B.X 6-%XTHIS KEEPS INCREMENTING NUNOTE UP AND DOWN WITHIN THE RANGE SET BY JMPSIZE.q"@I6-@'6-@6qTHESE LINES BRING THE SECOND NOTE UP TO THE SAME RANGE AS THE TONIC AND.++PREVENT A VALUE OF ZERO IN SCALEX(X)..'"@R6-@%'6-@a.1"@P)"@Q%6-@16-@F/>% @46-O:,%O:P:+%@,'@,,> B@/A %!76-6@$O:,&O:P:+%@,'@,,A B@0/"@I6-8%,D/"@R6-8%,X/"@P6-8%,l/"@Q6-8%,/-%!@`#6-6@$O:,- B@/T6-8@<+%,,TADDING AA (WHICH RANGES FROM 0 TO TWELVE) ADJUSTS FOR KEY/+A!!6-6@$O:,+ B@/<B6u26-O:,%O:P:+%@,'@,,< B@/ 68,-/ 6-%/'!@6-&@' B" 0 68,-40M6-P:'AV,'6-P:&$AV,MCOMPUTE POKE VALUES FOR SECOND TONEH0"F:@ , @0" B#`\0@ p0TB7dB7f?B7g+@$@,%@T. PLAY SECOND NOTE0F:@ ,  B$ 0XB7c+@$,%?B7g+@$,%X. TURN OFF SECOND NOTE0 0F }+ PRESS RETURN TO DISPLAY NOTE A PRESS R TO REPEATF(0A@d0)@06"@,(HERE'S THE NOTE(S) AGAIN6 B1`1AU B$$111NEXT GOSUB NAMES SECOND NOTE, INTERVAL, ETC816-@L1jj8,Ah Ah@Ah`AhAiAi Ai@Ai`AiApAp Ap@`1 6-8,t1T%+"@P)"@Q,*!@36-&@= B&`TTHIS LINE WILL CAUSE1GGCAUSE CERTAIN ACCIDENTALS TO BE NAMED PROPERLY IF SCTYPE=50 OR 51199:PRINT VARXY.ERROR CHECK HOPEFULLY NO LONGER NEEDED1]W@R*+"@)"@)"@)"@)"@)"@)"@,]6.1IC@R*+"@)"@)"@)"@ )"@,I6.1"@R*"@p6.1"@R*"@6.2+%"@P*+"@)"@,+6.2+%"@Q*+"@)"@,+6.(2(PUT BACK CLR LATER<2!  6-%@! B& P2&(&(PRESS RETURN TO TRY AGAINd2 x2( R REPEATS2(T RETURNS TO TONIC2  C CHANGES KEY2(M RETURNS TO MENU2A@d2)@2G7AU*@g*@w*@*@= }G B(@3"@g B 3%"@6-@% B%@,31"@6-'6-1 B@@3"@w A @T3"AU B@h36-|3-@3 6-8,3T6-8@<+%,,TADDING AA (WHICH RANGES FROM 0 TO TWELVE) ADJUSTS FOR KEY3M6-P:'AV,'6-P:&$AV,MCOMPUTE POKE VALUES FOR SECOND TONE3"F:@ , @0" B#`3@ 3TB7dB7f?B7g+@$@,%@T. PLAY SECOND NOTE4F:@ ,  B$ 4XB7c+@$,%?B7g+@$,%X. TURN OFF SECOND NOTE04 D4$ D:INPROG.801