PITCH SWITCH - RUN PRG@ EAR TRAINING 1, C64 VERSIONR MAJOR SCALE[N10gSL$(5) SL$(1)"017037019063021154022227025177028214032094034075" SL$(2)"010060011114012216013156015070017037019063020100"! SL$(3)"022227025177028214030141034075038126043052045198"_ SL$(4)"027056030141034075036085040200045198051097054111" SL$(5)"007163008147009159010060011114012216014107015070" V54296:A254284:S254285:H254280:L254279:W254283 SC53281:BO53280:CO54272:CR53272 CR,23:A2,12:S2,240( SC,1:BO,6\ " ITCH WITCH " " HIS PROGRAM WILL HELP YOU TO RECOGNIZE"; "PITCH DIFFERENCES BETWEEN NOTES OF A":"MAJOR SCALE." " OU MUST ANSWER";N;"RIGHT TO FINISH THE":"GAME."7 " F YOU NEED TO HEAR A PROBLEM REPEATED,";R "PRESS THE 'F1' KEY."| &" RESS ANY KEY." (M$:M$""40 *BO,7:R0:W0:"IFFICULTY EVEL" +"1.-EYNOTE INTERVALS ON THE SAME SCALE." ,"2.-EYNOTE INTERVALS ON VARYING SCALES."H -"3.-ARYING INTERVALS ON VARYING SCALES."x /" EGIN BY SELECTINTG 1,2,OR 3." 2L$:L$""50 5L(L$) 6L3L150 O PLAY SCALE ZSN((1)51) dBO,2:"ERE IS A MAJOR SCALE." gV,15:"" i K188 nPH((SL$(SN),6K5,3))U oPL((SL$(SN),6K2,3))~ xH2,PH:L2,PL:W2,17:2K2)"" y2K2)K I1200:I W2,0 K:V,0 GIVE PROBLEM AN$""180 NN((1)81) N1((1)81) L3N11(FH((SL$(SN),6N15,3))FFL((SL$(SN),6N12,3))dSH((SL$(SN),6NN5,3))SL((SL$(SN),6NN2,3))I1500:IL3200"ERE ARE TWO NOTES OF THE SCALE.":WM0:205L3200""ERE IS THE KEYNOTE FOLLOWED BY ONE OF":"THE OTHERS.":WM02I1500:I<V,15UH2,FH:L2,FL:W2,17"":X1N1:2X2)"";:X"":2X)"";N1;""I1300:IW2,0I1300:IH2,SH:L2,SL:W2,17I1300:IW2,0:V,0WM1610B"YPE THE NUMBER OF THE SECOND NOTE. "`" "u"AN$:AN$""290#AN$""100%AN(AN$)&AN0290'ANNN500,600 CORRECTBO,0:"Ԓ":V,15:H2,115:L2,88:W2,17 I180:IW2,0:V,0*I11000:I4RR1ARN800NL1100V90bW WRONGXBO,13:V,15:W2,33:X18YH2,10012X:L2,10012X:I1200:I:XZW2,0:V,0:WM1]"HE ANSWER IS...":205b"":X1NN:2X2)"";:X0c"":2X)"";NN;""ee" RESS ANY KEY."xgM$:M$""610lWW1vL110090 TALLY SCORE BO,1:V,15:W2,17!" !":X130:H2,1005X:L2,50"I120:I#X%W2,0:V,0?&" OU GOT";R;"RIGHT OUT OF";RW;"."g*"RESS '' FOR ANOTHER ROUND."4"RESS '' TO RETURN TO THE BEGINNING.">"RESS '' TO END."HM$:M$""840RM$"A"42UM$"R"19X"":CR,21: