ZXTape! 0Created with Ramsoft MakeTZX(TH1    X61928:10 ,4;1;1;"LOADING - 7 min. 15 sec.":500 (300,:7:7:0: T5:0,1;" ";1;" ";2;" " a1,0;7;" ";5;" ";1;" ";2;" " (K2,1;" ";1;" ";2;" " 2K3,1;" ";1;" ";2;" " Ϳ*2#"2[8R|!"0!"4.*.|ħ*0!!}5![0R!!}5> Ϳ*0#"0[4R<|! ͭ!ͭ!!  YOUR SUCCESS!! RATE FOR! !  THIS RUN IS:> *,+*,+",!![, ͭ!X'+< N#F#T] < > 8 z ClMD!>#0 )= >U">U">U">{}>o!"l\!"V!xͯ6!͠ͼ!5!ʹ35!A¹! >̓ͯ6x"!Lʓ!P[M7T144UX20000W0O6N! -͜5!ͿUO5N!&-͜5!ͿUN!@-͜5!Ϳ!-!-!-ͻ!X' 4a1$b3CD7a! 6C3$b7#f!&O5N5fe7d!@ 1bgdg3C3_7b! 5g3E3_7D!&O3N7Gg!@5EO5N11FCa3G6E!  11$bge5a3$b6g!& O5N5cc3$d6c!@1f#fg$a3fO5N1bC#CD6b!  6C1ba3_7g!& O5N7d3$e6d!@1egCg8E!  1gCE3C1EG$A7C!&O5N4c1eg$age7c!@1$ag3$af4g1d6b!  3D1Cb3a5b6g!& O4N5F3D3_7g!@ 3$a1g$a3f3_7g! 5C3a3_7C!& O5N5$e3c3_7e!@1gf3$e1d$e3f7d!  1$b$a3g5$g7f!&O4N5$e1$bC3D7$b!@1defg$a$bC1_7D! 1fg$a$bCD3$E7F!&O3N5$B$A1$BF6$b!@ 4$b1a$ba3g7e!  4D1CDC3$b7g!&O4N5$b1$bC3DC6c!@1e#de4f1e1_7#c! 1#CC#C4C1#C1_7a!& O4N7a1EFE5_1a!@1cfaCd#faD3C6b! 1aCFA#faD#F3E6D!& O3N5FA3G6g!@4a1d4e1g4f1$e5d! 1#FF3#F1Cb3C1$ag3$a5b!& O4N3D5C3$b5Cg!@ 1d3e1d5e3g6a!  4f1$b5g1gD6C!&O3N5$B3C1$BA5$BF!@11$bfd11afc5ge!  3D$bCa11Dbg5g!& O3N5$BF3GB5C!@ 11FD$b11Caf7g!  5D3FC11Dbg5E!&O4N3$bD5a3bD5C!@!X'f(![*Z[:hS(ͤ ͅ "Z[[ÿN#F#T] ö*Ϳ5~(#~Ķ͠2~5"e\##^#V+q#py#N#F#ö**e\Bͼhʹ3ʹ3ʹ3͠#~ͫ"e\#~0Se\Ϳ5͗2~Ȁw(x ?xʭ1 50Se\0Se\Ϳ5n4*e\B"e\ʹ3_ULGö*<4*e\ T] >Kv\+-474A218͢-Cv\~(wDM!B^#Vz #B(##^#Vp "l\CE\<EFP=ZydnxE]>$mZM7T144UX20000W0O6N4$b1a$ba3g7eUO5N4D1CDC3$b7gUNO4N5$b1$bC3DC6c 4$b1a$ba3g7e 4D1CDC3$b7gO4N5$b1$bC3DC6c$$$~$$$~$ C|8p82`@ 0 000 0 00~ 0` 80~~0  0 l8flxpxlf``````~cwkkccffv~nffcA@@`0 @@Ac>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|0000ffff<fff<ckk6f<<~ 0~>kIHH@@@@@@@@HHIk>d|<>00`0`0`0<<@ 04fs=0ch4600X &nfs*fs>5ch4600X Znfs=0ink:0,11 ;1;"Key sig.";0;" no # or +":900 grl>3800  9grl=3nfs>4-1*(ch<4)600X :grl=3ch<4fs=0nfs>1600X Dgrl=2nfs>1+2*(fs=0ch=4)600X  13,6,2,5,8,4 *17,4,8,5,9 ,6 4800 +fs*10 >x=1nfs Hla R*la,x+2;dr;(35#+8*fs) \fsj(x)=la:870f a k(x)=la fx 18,0;0;"Please input the key note.";:grl>2;" If itis a sharp or flat, put s or fafter it. Example: input B flatas bf. B natural is just b ." /"Key note? ";n$:n$=""1200:910 o$=n$:8150:n$=o$ n$="x"150 n$="z"3500 #n$=n$+" ":n$=n$(12)  1100L fks=2*(nfs+7*fs*(ch=4)+13 *(fs=0)*(ch<4)+18*fs*(ch<4)) k$=d$(ks-1ks) *n$k$3000 :2850" :900  1300  1000  2000 ?r=1+1*(n$(2)="s")-1*(n$(2)="f") n$=n$(1)  Lcl=n$(1) V)cl<97an$(1)=(cl+32 ) [cl=n$(1) `1cl>103gcl<97a1200:900 jcl=n$(2) t>cl102fcl115scl32 1200:900 ~ &.2~L,-4:.3,-5  ;0,11 ;0;0;" "  x4:0:1:4::1,13 ;"OPTION";3,3;"Harmonic and melodic minor";3,3;1;"__________________________" 5,1;"If you wish to be tested on only one of the two kinds of minor scale:"''" Enter ";6;"h";4;" for harmonic minor"''" Enter ";6;" m";4;" for melodic minor"'' s" If you are ready for both harmonic and melodic:"''7;"Enter ";6;" b";4;" for both"'' &6:"h or m? or b for both ";j$ >7:7:0:0:o$=j$:8150:j$=o$ .j$"b"j$"h"j$"m"1200:1440 10 :15:7: j$="m"ch=3ch=4 "j$="h"ch=(+.5)+3  @grl>3 Jgrl=21650r T:ch=4(n$="b "n$="fs"n$="df"n$="gf")1680 ^:ch<4(n$="b "n$="f "n$(2)" ")1680 h 1690 r:ch=4(n$="e "n$="b "n$(2)" ")1680 |0ch<4n$"a "n$"d "n$"e "1680  1690  ng=1   1 x=17 n$=m$(x)2030 x:2800 :900 ll=14-x cq=02070 z=18 ?a(z)=n(2+2*(ch=4),z)+n(4,x)-1+r z  21004+ad*100d  2400` z=18 a(z)=n(4,(x+z-1)) z  Gr1ll-7*ad,8;dr;(35#+8*(r=0)) %7a(1+7*ad)=a(1+7*ad)-1+r *21004+100d*ad / 2400` 4y=18 >%l=15-x-y:c=3*y+6 H l,c;dr;64@:2300 Ry \ y=81-1 /l=15-x-y:c=3*(9 -y)+6  l,c;dr;64@:2300 y  Ucc=0(l=13 l=1l=0)l+1*(l=0),c;dr;60< gcc=1l11 l-1*(l=12 ),c;dr;60<:l=13 11 ,c;dr;60<  `#cq=1ch=42700 e3000 :18,0;"When asked each note, input s, for n if a sharp, flat or naturalis needed. If none, just pressENTER. Input d to delete answer." jx=28 oev=(9 -2*x)*ad:la=(ll-7*ad)-x+1+2*(x-1)*ad:ca=3*x+5 t61300:"Note "+x+"? ";s$:s$=""x:2700 yo$=s$:8150:s$=o$ ~Is$"d"s$"x"s$"z"s$"s"s$"n"s$"f"s$""1200:2420t s$="x"150 s$="z"3500 s$="d"2820 2490 +20*fs 2530 <a(x+v)=a(x+v)+(s$="s")-(s$="f"s$="n")+2*(s$="n")*fs 2590 z=16 Yla=k(z)la-7=k(z)la+7=k(z)2550 +30*(s$="n")+27*(s$="f") z:s$="n"2560  z=16 Yla=j(z)la-7=j(z)la+7=j(z)2540 +30*(s$="s")+40(*(s$="n") z:s$="n"2560  :la,ca;dr;(35#+8*(s$="f")+7*(s$="n"))  A8120:0,13 ;4;1;"Flat already!" 2585 B8120:0,12 ;4;1;"Sharp already!" 2585 D8120:0,11 ;4;1;"Natural already!"  2585 @8120:0,13 ;4;1;"Not a sharp!"  2585 ?8120:0,13 ;4;1;"Not a flat!"  2585  2505 70F:2420t x # 2700 (x=18 2d,a(x)-24*cc:e <x F Zx=81-1 dd,a(x)-24*cc:e nx x /d=.5:e=2:2600( +502*ad x=18 %a(x)-a(1)n(ch,x)2800 x 2900T 3000 2850" :70F  I205:240:3300 :3360 +10 *ad:cq800   2000 "^e(2)=e(2)+1:19,4;1;1;"SORRY,WRONG: TRY AGAIN" ,"21,11 ;"Press a key" 62:0 @ 3000 J T 3000 Yze(3)=e(3)+1:cq=1ch=418,13 ;2;1;1;"RIGHT!":2920h ^818,8;2;1;"RIGHT! WELL DONE" h/d=.2~L:e=1:2600( +502*ad rMink:20,7;"Press z to finish,";6;"x for next question" |u$= u$=""2940| o$=u$:8150:u$=o$ u$="x"150 u$="z"3500 8120:2940| x=1821 8x,0;0;" " x  x=1521 8x,0;0;" " x  h60<,78N,135,195,195,225,114r,60<,60<,126~,70F,66B,66B,98b,126~,60<,0,0,0,0,255,0,0,0,16,16,30,18,18,30,2,2,16,16,24,20,18,18,20,24 ! 3100 & g$="rslnf" 0x=15 :y=07 Dg N g$(x)+y,g Xy bx l Ola,ca;dr;0;(60<-28*((la/2-(la/2))=0)) 1300  .3300 +ch*10 -10 *(ch=2) 616,6;"MELODIC MINOR, ";:3350 716,6;"HARMONIC MINOR, ";:3350 "16,6;"MAJOR, ";  )"ASCENDING":ch=2ch=1 % **"DESCENDING":ch=1ch=2 / z0:0:4::6,0;1;"PLEASE ENTER THE LEVEL (";6;"2, 3, 4"''4;" OR";6;" 5";4;") AT WHICH YOU WANT TO BE"''5;"TESTED (see handbook)" > i$:i$=""i$<"2"i$>"5"űi$>11200:3460 grl=i$ e(1)=03495 20:10 :14,2;1;"TO CLEAR THE ""SUCCESS RATE"""''9 ;"SCORE, press C"''1;"ANY OTHER KEY TO LET IT RUN ON" i$=:i$=""3485 ?o$=i$:8150:o$="c"x=13:e(x)=0:x  e(1)>08200 0:0:4:1::0,1;"FOR EXERCISES ON KEY SIGNATURES";2,4;"AND TONIC TRIADS";6;" press 1";4; 5,3;"FOR EXERCISES ON MAJOR AND";7,6;"MINOR SCALES";6;" press 2" 10 ,3;"FOR EXERCISES ON INTERVALS";15,8;"TO CHANGE LEVEL"; 17,3;"and/or CLEAR SCORE";20,5;"FOR FIRST MENU";6;" press 5";12 ,12 ;"press 3";17,22;"press 4" i$= i$=""3510 i$="4"3450z :3503 "i$="5":!"z":! "z"e():! "m" M0:7:7:i$="1"dr=0:ink=2:ink:3900< 1i$="2"dr=2:ink=1:ink:100d 2i$="3"dr=1:ink=0:ink:6000p 1200:3510 <>:l$(23,5)::" KEY SIGNATURES AND TONIC TRIADS" Fu5,0;"To pass to the next question,press x when cursor is showing.To return to main menu press z." P10 ,0;"This part of the program uses noleger lines. When asked to makea triad, place it so that legerlines are not needed. Triadsthat cannot be done like this are not asked." Z$20,14;1;"Wait" 5r$="1s2s3s4s5s6s0f1f2f3f4f5f6f1s2s3s4s0f1f2f3f4f5f" a3,7,6,4,2,8,5,5,8,9 ,4,6  4010 x=16 y=12  w:c(y,x)=w y x x=123  q=2*x 4p=(*23)+1:l$(p)" "4095 x<14f$=" " x14f$="m" *l$(p)=d$(q-1q)+f$+r$(q-1q) "x ,E20,6;0;1;"Press a key if ready":0 6+e(1)=e(1)+1:qu=1 @grl=2(l$(qu,4)>3(l$(qu,3)="m"l$(qu,5)="f")ưl$(qu,4)>1)qu=qu+1:4160@ Jgrl=3(l$(qu,4)>4l$(qu,3)="m"(l$(qu,4)>3l$(qu,5)="s"ưl$(qu,4)>1))qu=qu+1:4170J h]:200:0+11 *cc,3;4;1;" x = next question z = quit" rla=2:ca=4 |q23,21,19,17,16,14,12 ,11 ,9 ,7,5,4,2 .4220|:x=113 :w:t(x)=w:x 44000:4600 u$=:u$=""4245 G0+11 *cc,3;0;" " o$=u$:8150:u$=o$ u$="x"5120 u$="r"5000 u$="z"3500 u$="d"5230n u$="f"u$="s"4330 Mu$=10 la=la+1:la>12 -2*ccla=12 -2*cc Ku$=11 la=la-1:la<2-2*ccla=2-2*cc 44000:4245 i$=u$ 4500:4245 0[cc=1la>0la-1,ca;dr;(32 +28*(la/2=(la/2))) 2cc4410: 5Qla-1,ca;dr;(32 +28*(la/2=(la/2))*(la>2)) :la,ca;dr;"" ?bccla+1,ca;dr;(32 +28*(la/2=(la/2))*(la<10 )):4430N DRla+1,ca;dr;(32 +28*(la/2=(la/2))*(la<12 )) N  3200 )la,ca;dr;(35#+8*(i$="f")) nt=la+1:4550 'la>6nt=la-6:4550 'la<6nt=la+8:4550 9s((1+1*(i$="f")),((ca-2)/2))=la (ca=ca+2:ca>165000  44000  (t(nt)=t(nt)+1-2*(i$="f"): 15,6;"KEY: "; $z$=(l$(qu,1)-32 )+" "  #l$(qu,2)="f"z$=z$+"FLAT " $l$(qu,2)="s"z$=z$+"SHARP "  /l$(qu,3)="m"z$=z$+"MINOR":46604 *z$=z$+"MAJOR" 415,11 ;1;z$;2;18,0;"Using up/down arrow keys, placethe cursor, then press s for asharp, f for a flat, d to deleteand begin again, r when ready." > Lca=4l$(qu,4)="0f"2,4;0;" ":5080 3200 :3000 p=1+1*(i$="f") k$=((ca-4)/2)+i$  k$l$(qu,4)5200P x=1̰k$(1) s(p,x)c(p,x)5200P x 3050 :7500L e(3)=e(3)+1:18,13 ;1;1;"RIGHT!"''0;7;2;"Press z to finish,";6;"x for next question." w$=:w$=""5100 w$="x"5120 w$="z"3500 8120:5100 Se(1)=e(1)+1:5250:qu=qu+1:qu=24qu=1  4160@ P[e(2)=e(2)+1:19,6;1;1;"HARD LUCK; TRY AGAIN" Z"21,11 ;"Press a key" d2:0 n%:5250:205:4210r Dx=16:s(1,x)=0:s(2,x)=0:x: p7:7285u::11 ,14;"Wait":6120 ze(1)=e(1)+1  64502 n1=a  64502 n2=a n286015 $grl=2in>56015 %in=8t$="OCTAVE":6280 Fin<4t$=in+x$(2*in-1)+x$(2*in):6280 !t$=in+x$(7):6280 *p(2,12 ):v$(7,8) 12 ,2,11 ,4,10 ,5,9 ,7,8,9 ,7,11 ,6,12 ,5,14,4,16,3,17,2,19,1,21  6130 x=112 y=12  w:p(y,x)=w $y .x 8v$(1)="d21222122" Bv$(2)="e11221122" Lv$(3)="f22322222" Vv$(4)="g22222122" `v$(5)="a21221122" jv$(6)="b11211122" tv$(7)="c22222222" yx$="stndrdth" ~p$="defgabcdefga":6010z q$=p$(n1):h$=p$(n2) grl=27360 2in=8sfq=0:sfa=0:6380 7grl<4sfq=0-1*(q$="b"):6335  6480P sfq=a *(q$="c"q$="f")sfq=-16300 )(q$="b"q$="e")sfq=16300 Rgrl=2sfa=0+1*sfch*(h$="f")-1*sfch*(h$="b"):6380  6480P sfa=a *(h$="c"h$="f")sfa=-16340 )(h$="b"h$="e")sfa=16340 pqn=p(2,n1)+sfq lqn=p(1,n1) pan=p(2,n2)+sfa  lan=p(1,n2) in=86570 x=17 (q$=v$(x,1)ni=v$(x,in)-sfq+sfa (x:6500d 2a=(*12 )+1 < Pa=(*3)-1 Z d.ni=0in5in76015 n0ni=3(in=3in=7)6015 xFni>3ni<0ni=0(in=4in=5)6015 ni=0v=0 /ni=1(in=4in=5)v=0 /ni=1(in<4in>5)v=1 /ni=2(in=4in=5)v=2 /ni=2(in<4in>5)v=3 ni=3v=4 grl<57390 :cc=(+.5) qu=(*3)  205:6820:1 #6600+300,*(qu=2) ȩ15,0;"What note must go this oneto make the interval named? Uses/f for sharp/flat if needed,e.g. call F f, call F sharp fs." Jin=821,12 ;1;1;1;t$:6620 7170+10 *v 1;1;1;t$ #6630+100d*(qu=1) Ul=lqn:c=12 :7320:15,18;"above":.5,pqn-24*cc >sfq0l,c-2;(35#+8*(sfq=-1))  7100 x=112 n$(1)=p$(x)p(2,n1) JUl=lan:c=12 :7320:15,18;"below":.5,pan-24*cc TBsfa0l,c-2;dr;(35#+8*(sfa=-1)) ^ 7100 hx=112 rn$(1)=p$(x)p(2,x) ;m=011 :4;m,22;" ":m 4;1;1,23;"x = next";3,23;"question";5,23;"z = back";7,23;"to main";9 ,25;"menu"  l=lqn:c=12 :7320 7l=lan:c=12 -1*(n2-n1<2):7320 Jlqn,c-2;(32 +3*(sfq=1)+11 *(sfq=-1))  flan,c-2-1*(n2-n1<2);dr;(32 +3*(sfa=1)+11 *(sfa=-1)) ,15,5;"______________________" 815,5;"What interval is this?":7470. 16,0;"Answer with 3 letters and anumber, e.g. maj6 means MAJOR6th. min=MINOR. per=PERFECT.":grl=519,0;"dim=DIMINISHED. aug=AUGMENTED." !8grl>26;"For OCTAVE put oct ." &2;"Answer?";i$ (o$=i$:8150:i$=o$ . i$="z"8100:3500 0!i$="x"ind=0:6010z 1di$="oct"i$="oct8":21,12 ;1;1;1;"OCTAVE":u=2:7030v 2%i$41200:6950& 39i$(4)<"2"i$(4)>"7"1200:6950& 5>i$(13)="dim"u=0:7170:7000X :>i$(13)="min"u=1:7180 :7000X ?>i$(13)="per"u=2:7190:7000X D>i$(13)="maj"u=3:7200 :7000X I>i$(13)="aug"u=4:7210*:7000X N1200:6950& X)1;1;1;i$(4); bli$(4)<41;1;1;x$(2*i$(4)-1)+x$(2*i$(4)) l?i$(4)41;1;1;x$(7) v&ind=1u=4-u:7460$  75K #i$="oct8"t$="OCTAVE"7250R )v=ui$(4)=t$(1)7250R  72204 2;"Note? ";n$ +n$=""űn$>21200:7100 o$=n$:8150:n$=o$ n$="x"6010z n$="z"3500 n$=17130 In$(2)"s"n$(2)"f"n$(2)"n"1200:7100 Fn$(1)<97aůn$(1)>103g1200:7100  n$=n$+" " n$=n$(12) @sf=0-1*(n$(2)="f")+1*(n$(2)="s")  @21,10 ;1;1;1;"DIMINISHED ";:  ;21,10 ;1;1;1;"MINOR ";: =21,10 ;1;1;1;"PERFECT ";:  ;21,10 ;1;1;1;"MAJOR ";: *?21,10 ;1;1;1;"AUGMENTED ";: 4&ind=17460$:ind=0 >3050 :e(2)=e(2)+1:18,8;1;1;"NO - THINK AGAIN";21,10 ;0;0;"Press a key" C2:0 H:6585 Rgrl=5qu=2t$"OCTAVE"ind=(ind-1)*(ind-1):ind=11:7450:0:21,8;0;" ":6950& WV3050 :e(3)=e(3)+1:18,8;1;"RIGHT ANSWER" Y$qu=285004!:7265a \ 7470. a^20,1;"Press x for another question,";6;"z to return to menu." fw$=:w$=""7270f io$=w$:8150:w$=o$ kw$="z"3500 m'w$"z"w$"x"8120:7270f pB3000 :20,6;"Next question coming":6010z u68100::0:0,11 ;"INTERVALS" z2,0;"You will be asked three kinds ofquestion:"''" (1) To add a note above a givennote to form a named interval; "''" (2) To add a note below a givennote to form a named interval;" 11 ,1;"(3) To name the interval formedby two given notes.";14,0;"Read carefully the instructionsgiven when the question is set." 17,0;"To pass on the question and skipto the next, enter x when youare asked for an input.";21,4;"Press a key when ready" 2:0   l,c;dr;64@:2300  Ol,c-2;(32 +3*(n$(2)="s")+11 *(n$(2)="f"))  in>5q$="b"6015  sfch=(+.5):6295 "in=2v36015 .in=7(v<1v>3)6015 /(in=4in=5)v26015 ;(in=6in=3)(v=0v=4)6015 .grl=3in=6v36015  6570 |e(3)=e(3)+1:e(1)=e(1)+1:15,1;0;"RIGHT! NOW NAME ITS INVERSION": $'t$(1)=(9 -t$(1)): .a$="T60O"+z$(y$,pan):b$="O"+z$(y$,pqn):a$,b$:30:qu1a$="T60V0N6dV15"+a$(4):b$=b$(3)+"7_6"+b$(5):7490B 86b$="V0N6dV15"+b$:a$=a$(6)+"7_6"+a$(8) B a$,b$: Le(3)=e(3)+1:e(1)=e(1)+1:15,0;"RIGHT! Now add the TONIC TRIADof this key in the " Q 7760P T 7780d V|18,0;"Use up/down arrow keys to placecursor. Press p to print a note,d to delete, r when ready." `=ca=18:la=12 -2*cc:lc=0:l(4) j 44000 ou$= tu$=""7535o vo$=u$:8150:u$=o$ xu$="x"5120 zu$="z"3500 |Ru$="p"Ʃ((ca+2)*8+2,(21-la)*8+2)7535o ~ju$="p"lc<3la,ca+2;dr;1;96`:.8L,t(la+1)-24*cc:7580 u$="r"7595 u$="d"Ʃ((ca+2)*8+2,(21-la)*8+2)dr;la,ca+2;(32 +28*(la/2ɺ(la/2))):lc=lc-1 Mu$=10 la=la+1:la>12 -2*ccla=12 -2*cc Ku$=11 la=la-1:la<2-2*ccla=2-2*cc  44000  7535o lc=lc+1:l(lc)=la  7535o +lc3.3,-2:7535o l(1)>l(2)l(4)=l(1):l(1)=l(2):l(2)=l(3):l(3)=l(4):7600 hl(2)>l(3)l(4)=l(2):l(2)=l(3):l(3)=l(4):7600 !lkn=105i-(l$(qu,1)) H3050 :la,ca;dr;(32 +28*(la/2ɺ(la/2))) l(2)-l(1)=2l(3)-l(2)=2(l(3)=lknl(3)=lkn+7l(3)=lkn-7)inv=08400 :8300l :85004!:5090 l(2)-l(1)=3l(3)-l(2)=2(l(1)=lknl(1)=lkn+7l(1)=lkn-7)inv=18400 :8300l :85004!:5090 l(2)-l(1)=2l(3)-l(2)=3(l(2)=lknl(2)=lkn+7l(2)=lkn-7)inv=28400 :8300l :85004!:5090 3050 :8400 :e(2)=e(2)+1:17,3;"Key signature is right, but";19,9 ;1;"CHORD IS WRONG";21,10 ;0;"Press a key"  2:0 x=13 Jl(x),ca+2;dr;(32 +28*(l(x)/2ɺ(l(x)/2))) (x 2J3050 :15,0;1;z$;2;" TONIC TRIAD in the" 7<la,ca;dr;(32 +28*(la/2ɺ(la/2))) <2x=3-2*cc11 -2*cc2 Ax,ca+2;dr;60< Fx K 7508T P,inv=(*3):grl<5inv=0 R7l$(qu,1)="a"inv=1+1*cc7760P U7l$(qu,1)="f"inv=2cc=07760P X7l$(qu,1)="c"inv=1cc=17760P Z d3inv=016,19;"ROOT POSITION" n1inv=116,19;"1st INVERSION" x1inv=216,19;"2nd INVERSION"  .05|L,9 : m=1̱o$  code=o$(m) 5code>64@code<91[o$(m)=(code+32 ) m  &7:1:1:1: 620022 &v6;1;12 ,14;(e(3)*100d/(e(2)+e(1))+.5);12 ,17;"$" 062524<::90Z : l-16,14;2;1;"YES!" v )a$="T60O"+z$(y$,t(l(1)+1)) &b$="O"+z$(y$,t(l(2)+1)) &c$="O"+z$(y$,t(l(3)+1)) a$,b$,c$ 5:40(: !z$(y$э,z)=y$(10 +3*(z-24*cc+21))+"N7"+y$(11 +3*(z-24*cc+21)12 +3*(z-24*cc+21)) !415:62524<: !> ' 'o0:0:4:1::8,7;"ERROR! - RE-START";10 ,10 ;"IN 5 SECONDS" '&.4L,24:.4L,18 ' /X=06:X,0;0;" ":X ' 10 :140 ' 10 !b p61929: 0,0:8:8:1:!:(2,0)"b"!"b"5:0:7:19,0:"m" Xe(3):!"z"e():dz=0:0:236066\,86V:236077\,251 @tsd=0:tsn=0:ft=0:cfq=0:rul=0 Nplb=0:psd=0:psn=0:cou=0:4100:dz=1: c()=c+8*(l-8) %l()=cl+1+8*(ll-6)  0:0:1:4::3,0;"FOR EXERCISES ON TIME SIGNATURES"''"AND PUTTING IN BAR LINES ";6;"press 1" @10 ,1;"FOR EXERCISES ON RESTS ";6;"press 2" (<15,3;"BACK TO FIRST MENU";6;" press 3" 2I20,2;"(Read on-screen instructions";11 ;"carefully)" <w$=:w$=""60< A1w$<"1"w$>"3"űw$>12200:60< F 4000 PWw$="1"9290J$:ft=1:6000p: 62008:0:0:9370$ Z?w$="2"6100: 62008:0:0:9500% dw$="3"!"z":!"z"e():!"m" xsj=0:k=0:e(1)=e(1)+1:ff=0:cn=0:dn=0:xn=0:sel=10 Yll=0:cl=0:nl=0:no=0:end=128:ksn=0:ksd=0 'x1=31:x2=31:x3=31 $z$=8+9 +"234689PDRXZ" /6:6::11 ,14;"Wait" +m$="0":x=1127:m$=m$+"0":x n$=m$:r$=m$:f$=m$ $tdc=1sc=0:230 *7000X:ch=0sc=ch:230 7000X:ch=1sc=ch 7000X:sc=ch '7010b:dt=(brn/2)-1 '7000X:sb=ch:scdtsb=1 tsd=4+(4*sc) 6dttsn=3+6*sc:tdc=2dt=1  tsn=3nl=1 dttsn=4+2*sc -tsd=psdtsn=psncou=cou+1:276 cou=0:280 ocou>2tsn=4tsn=3:dt=0:sc=0:brn=5:nl=1:cou=0:280 ecou>2tsn=4:tsd=4:dt=1:sc=0:brn=4:nl=0:cou=0 57010b:b=brn+2*(tsn=3tsn=6) o$="B"b>4b=4 "$p=tsn/(1+2*sc):bt=b*p 'No$="C"bt=12 +6*(tsn=3)7000X:b=b+1-2*ch (]a$="M7UX22000W0O5N": b$="O3V9((((":sb=0b$="O3V0N"+(5-2*sc)+"GV9((((" ) tsn=4b$=b$+"5g&G&))))" *"tsn=6b$=b$+"3g&&G&&))))" ,tsn=3b$=b$+"5g&&))))" .0:7::o$="A"6;" PUT IN THE BAR LINES";0;" ";0;"Use left and right arrow keys tomove the cursor. To print a barline press p. To delete press d.Press r when ready for checking.":3106 0o$="B"6;" PUT IN THE TIME SIGNATURE";0;" ";0;"Type in the two numbers, top onefirst. If you change your mind,over-type until you get what you want. Press r when ready. ":3106 26;"ADD TIME SIGNATURE AND BAR LINES";0;" ";0;"For time signature type numbers.Use arrows to move cursor, p toprint a bar line, d to delete.When ready for checking press r." 6l=8:c=2 @sb350^ J'sc8250: :8260D :350^ T07000X:8030^+10 *ch:8260D ^pr=8031_ h g=1b r h=1p |+g>1h=1420:430 ;(tsn=6tsn=9 )h=2420:430 ;(tsn=4tsn=9 )h=3420:430 >m$(c())=(3-3*(g=1h=1)):430 Dm$(c())=(2-1*(h=1)):h=1n$(c())="1": g=bh=psb=0830> -sel=0j=1j=0:780  I(sel=1sel=2)sc=0cn=0sel=0:780  1sel=21sc=0sel=0:780  1sel=12 sc=1sel=0:780  2dn0pr=8225! +10 *dn:8204 sc670 dt610b 8g=2h=3sb=1sel=1:780  Dg=2h=1sb=0sel=21:j=1:780  8g=2h=2sb=0sel=1:780  8g=2h=4sb=0sel=3:780  &Ag=bh=1sb=17000X:ch8200 :8259 0g=bh=1sb=1ch7000X:8030^+10 *ch:m$(c())="3":7000X:8030^+10 *ch:m$(c())="2":8015O:8259 :Kg=bh=2sb=18030^:m$(c())="2":8015O:8259 D1g=bh=1sb=08210 :8259 NKg=bh=2sb=08030^:m$(c())="2":8030^:8259 Xdtsc770 bmg=3+1*(b=7)-1*(b=4)h=1 sb=1sel=21:j=1:780  l`g=3+1*(b=7)-1*(b=4)h=1sb=0sel=1:780  v<g=b-1h=3sel=(*7)+3:780  )g=b8015O+195*sb:8259 sc770 dt720 8g=2b4h=2sel=12 :780  -g=b7000X:ch8190:8259 +chg=b8210 :8100:8259 dt770 -g=2h=2sel=1:780  7g=4h=2b6sel=1:780  Ag=bh=1sb=17000X:ch8210 :8259 1g=bh=2sb=18100:8259 'g=bsb=08220 :8259  7020l  'cn=cn-1:cn<0cn=0 #sel=0h=3ff=1  sel=0830> *(pr=8000@+90Z*sc+10 *sel 4pr:830> 9h=p >h Hg R]l-1,c-1;"";l,c-1;"":end=c():8300l :lx=l-2:cx=c-1 Uo$="A"5950> Yo$="B"5900  Za$=a$+"H":plb=1ˤa$,b$ \ (7,23)870f a?21,0;6;"x for next question, z to finish" f#i=0:ll=6:cl=0 p ll,cl;"%" zi$= i$=""890z  9970& )z=113 :i$=z$(z)940 z 5150:no960 #2200:no=0:890z i$="X"120x i$="Z"10 +i$=8o$"B"2000:890z $i$=9 2060 :890z 2i$>491Ưi$<58:2150f:890z i$="D"2190:890z ei$="R"ll,cl;" ";21,0;6;" ":i$="":8950" i$="P"2180:890z 2200:890z /cl=0ll=66,0;"%":  ll,cl;" " ]cl=0ll=ll-4:cl=x1*(ll=6)+x2*(ll=10 )+x3*(ll=14):2035 cl=cl-1 Am$(cl+1+8*(ll-6))"0"ll,cl;"%":2050  2000   ll,cl;" " =ll=lxcl=cxll=6:cl=0:6,0;"%":  ]ll=6cl=x1ll=10 cl=x2ll=14cl=x3ll=ll+4:cl=0:21004 *cl=cl+1 4Am$(cl+1+8*(ll-6))"0"ll,cl;"%":2110> 9 2060  > fo$="A"2200: k/7+k,0;i$:kksd=i$:2170z p ksn=i$ zk=(k-1)*(k-1)  %ll=6cl=02200: Rll+1,cl;"";ll+2,cl;"":f$(cl+1+8*(ll-6))="1": 7f$(cl+1+8*(ll-6))="0"2200: [ll+1,cl;" ";ll+2,cl;7;"_":f$(cl+1+8*(ll-6))="0": s=15 .02{# =,s+6 s  J6:0:u$="sqcm":v$="1248":y$=8+9 +"mcqsdbrxz" ĸa$="T64N":b$="V12O2N1D&&&":zn=1:e(1)=e(1)+1:t=0:cch=0:div=1:sub=0:tb=0:btq=0:sgf=0:7100:3500 *tsn=4tsn+tsd=5sub=1 tsn+tsd=6sub=-1 tsn=12 sub=3 tsn6div=3 ,tb=(tsn/div)*nb-1*sub:a(tb+2) x=1tb+2 >tsn=2tsd=4x=6a(x)=-2:2600( :x=tsn/div+1a(x)=-2-10 *zz:2600( .7190:t=1zn=82570 zn=8t=1  a(x)=zn (x 2Vtsn=12 tsn=3tsd=2a(tb+1)=535-10 *zz:2640P <1tsn=4a(tb+1)=11 :2640P Fa(tb+1)=1 P$a(tb+2)=-1-10 *zz Z:c=2:h$=" ":d$="00":x=13 17:7;x,2;" ":x \1tsn=4tsn=2tsd=23400H ^>7;14,0;tsn;" ";15,0;tsd;" " `O7;13 ,0;" ";16,0;" ";17,0;" " dx=1tb+2 i$(a(x))=1h$(c-1)="^" n'8400 +100d*zz+10 *a(x) xx 'g$="00000000000000000000000000000000" a$=a$+"H":plb=1ˤa$,b$ 19,3;"Press";2;" b";0;" for beat markers.";21,0;2;" r";0;"=ready ";2;" x";0;"=next ";2;" z";0;"=finish " M0,10 ;"INSERT RESTS ";1,5;"TO COMPLETE THESE BARS" e"minim ","m ","quaver ","q ","crotchet ","c &","semiquaver ","s " 33,1;"Left/right arrows move cursor." 2690 x=14 Ve$:5+3*(x>2),0+16*((x/2)=x/2);"For ";e$ ]e$:6+3*(x>2),0+16*((x/2)=x/2);"rest press ";e$ x x=59 x,14;"" x 211 ,4;"Use d to delete a rest." ,7;13 ,0;"%":cl=0 i$= i$=""2830  9980& ,y=111 6i$=y$(y)2900T @y J2200:2830 T1i$=8i$=9 3030 :2830 Y8i$="d"ƫ(15,cl)58:2200:2830 ^Ii$="d"7;15,cl;7;"_";16,cl;" ":2830 hi$="x"2500 rbi$="r"7;13 ,cl;" ";17,2;" ":31200 |i$="z"10 3i$="b"17,2;7;h$:2830 Vi$="m"s$=" ":3000 :16,cl;1;7;7;"":2830 )i$="c"s$="&":3000 :2830 )i$="q"s$="":3000 :2830 )i$="s"s$="~":3000 :2830 cl=02200: Z7;2;15,cl;s$(1);16,cl;s$(2):g$(cl+1)=i$: 2200: 7;13 ,cl;" " 4i$=8cl=cl-1:cl<2cl=0 i$=9 cl=cl+1 ?cl=0cl=c7;13 ,0;"%":cl=0: d$(cl+1)"0"3090  3030 7;13 ,cl;"%"  0c19,3;" ";21,1;" " : g$(1̱d$)=d$3200 ?btq=1:4200h De(2)=e(2)+1:5;1;19,7;"SORRY - NOT RIGHT";20,5;"Press a key when ready";21,10 ;"to try again" N1:0 vcch=1:2650Z 1 ;e(3)=e(3)+1:3290 :62524<: 1:125} 0 3290 H21,0;1;2;"x for next question, z to finish" i$=:i$=""3260 9970& i$="X"2500 i$="Z"10 2200:3260 61;2;19,9 ;" R I G H T ! "  Hbtq=13420\ R7000X:sgf=ch \sgf=12654^ fQtsn=27;14,0;"{ ";15,0;"} ":2656` pD7;14,0;"[ ";15,0;"] ":2656` @tsd=8tsd=4tsn=6a$="T96N":b$=b$+"&&))": b$=b$+"))": e(1)=0w$="3" :4,3;"PRESS C TO CLEAR THE SCORE";10 ,2;"PRESS ANY OTHER KEY TO KEEP";12 ,3;"THE SCORE YOU ALREADY HAVE" i$=:i$=""4020 3i$="C"i$="c"x=13:e(x)=0:x  !e(1)=0dz=0 620022 v6;1;12 ,14;(e(3)*100d/(e(2)+e(1))+.5);12 ,17;"$" "62524<::90Z , hKwng=0:rul=0:20,11 ;5;1;"Checking" rEx=1̱d$-1:d$(x)g$(x)4240:wngx=d$-1 |x:wnge(2)=e(2)+1:5;1;19,1;"ADDS UP RIGHT, BUT CHECK RULES";20,9 ;"(press a key)":10 :0:cfq=1:9650%+rul  3140D )d$(x)="0"d$(x+1)="0"4280 5d$(x)=g$(x+1)d$(x+1)=g$(x)4290 !d$(x)d$(x+1)4280 od$(x)="c"g$(xx+1)="m0"d$(x)="q"g$(xx+1)="c0"rul=40(+20*(zz>1):4290 wng=0: wng=1:x=x+1: e(1)=e(1)+1 8955":2:6:0,0;"Is this time called: ";4,21;"":x=13:x,21;"";x,30;"":x tdc15050 J2,0;"1. Duple time?"'"2. Triple time?"'"3. Quadruple time?" F1,22;"PRESS 1,";3,22;"2, OR 3":5080 1,0;"1. Simple duple?"'"2. Simple triple?"'"3. Simple quadruple?"'"4. Compound duple?":tdc=35,0;"5. Compound triple?" j1,22;"PRESS 1,":tdc=22,24;"2, 3";3,24;"or 4":5080 72,22;"2, 3, 4,";3,24;"or 5" i$=:i$=""5080 _i$<491ůi$>513+1*(tdc>1)+1*(tdc=3)2200:5080 Ai$=ksn-1-(ksn=6)-3*(ksn=9 )5120 e(2)=e(2)+1:8955":1,9 ;1;5;0;"";2,9 ;" TRY AGAIN ";3,9 ;"":5:60<:5010  0: "i$="R"i$="X"i$="Z"5180< (Bll=6cl=0o$="A"i$9 no=1:5180< 2$o$="B"(i$<"2"i$>"9")no=1 <  +nl=0tsn=67000X:nl=ch x=7end  m$(x)="1"nl=0m$(x)="2"ll=((x-1)/32 )*4+6:cl=x-1-(ll-6)*8:ll+1,cl;"";ll+2,cl;"" *x 4 >:ksd=tsd:tsn=4nl=0ksn=2:5980\ HHtsn=6nl=07000X:ksn=3+3*ch:5980\ R ksn=tsn U9ksn=47000X:ch7000X:ch5980\ XDksn=47,0;"[";8,0;"]":5990f \+7,0;ksn;8,0;ksd f pL0:0:6::"OPTIONS";0,0;1;"_______" u1,12 ;"2 3 4 ["'"Opt. 1 Only 4, 4, 4 (= ] ) time.";3,22;"3 6"'"Opt. 2 The above plus 8 and 8."''"Opt. 3 Any time signature." z<x=262:x,0;1;"______":x E"1, 2 or 3? ";i$:i$>1i$<"1"i$>"3"2200:6015 4tdc=i$:2*tdc,0;1;"Opt. ";tdc 8,0;"Opt. A Time signature given: you put in the bar lines."''"Opt. B Bar lines given: you put in the time signature."''"Opt. C You put in the time sig- nature and the bar lines." =x=8143:x,0;1;"______":x E"A, B or C? ";i$:9970&:i$<"A"i$>"C"2200:6035 o$=i$ =(o$-64@)*3+5,0;1;"Opt. ";o$ G17,0;"Do you want to be asked what thetimes are called?" =tdc=1" (duple, triple, quadruple)":6065 ?" (E.g. simple triple,"'" compound duple etc.)" >"Y/N ";i$:9970&:i$"Y"i$"N"2200:6065 q$=i$  a0:0:6::1,12 ;"OPTIONS:";1,12 ;1;"________" ٌ4,12 ;"2 3 4 ["'"Opt. 1 Only 4, 4 and 4 (= ] )";8,18;"2 { 3"'"Opt. 2 Above plus 2 (= } ) and 2" ރ13 ,0;"Opt. 3 Simple times as above,"'" also compound times -"''21;"6 6 9 12";21;"4, 8, 8, 8" =x=513 4:x,0;1;"______":x E"1, 2 or 3? ";i$:i$>1i$<"1"i$>"3"2200:6120 <rdc=i$:4*rdc+1,0;1;"Opt. ";rdc  65A: 8plb=0::8,10 ;"DO YOU WANT";10 ,3;"THE QUESTIONS TO BE PLAYED";12 ,3;"AS WELL AS DISPLAYED? Y/N" Bi$=:i$=""6210B L 9970& V.i$"Y"i$"N".3,-6:6210B `i$="Y"plb=1 j Xch=(*2): bTbrn=(*4)+2:brn=2(o$="C"tsn=4tsn=9 )7010b g l/7000X:chsel=(*4)+2-sc: vsel=(*9 )+1  n=(*(3*rdc-1*(rdc>1)))+1:nb=2:7100+xn*10 : 4tsn=2:tsd=4:nb=3:zz=0: (tsn=3:tsd=4:zz=0: (tsn=4:tsd=4:zz=0: (tsn=2:tsd=2:zz=1: (tsn=3:tsd=2:zz=1: (tsn=6:tsd=8:zz=2: )tsn=12 :tsd=8:zz=2:  (tsn=6:tsd=4:zz=3: 'zn>3zn=(*5)+1:  zn=(*10 )+1:  cchsch 87000X:sch=8805e"+30*zz+5*ch:sch  cchtch 7000X:ch7330 87000X:tch=8815o"+30*zz+5*ch:tch 87000X:tch=8825y"+30*zz+5*ch:tch @;c+ca+1>318305q :c=0:l=l+4 B Ec=c+ca+1:a$=a$+x$: J1tsn=3h=3cn=2:8230& : M1tsn=4h=4cn=2:8230& : Okca=5:8000@:l-1,c;"";l,c;"":x$="7g":8005E:h=2nl=1:8290b P T1tsn=3h=3cn=2:82400 : W=tsn=4(h=2h=4)cn=2:82400 : Yjca=6:8000@:l-1,c;" ";l,c;" ":x$="6g3g":8005E:h=28290b Z ^^ca=3:8000@:l-1,c;"";l,c;" ":x$="5g":dn=1xn=1x$="7g" _dn=1xn=0x$="" `dn=2x$="6g3g" c8005E: hTca=3:8000@:l-1,c;"";l,c;" ":x$="3gg":dn>0x$="" m8005E: rRca=4:8000@:l-1,c;"";l,c;" ":x$="4g1g":8005E: |Sca=4:8000@:l-1,c;"";l,c;" ":x$="3g1gg":8005E: Qca=3:8000@:l-1,c;"";l,c;"":x$="1gg3g":8005E: Sca=4:8000@:l-1,c;"";l,c;"":x$="1gggg":8005E: dca=3:8000@:l-1,c;"";l,c;"";l+1,c;"3":x$="11ggg":8005E: Kca=4:8000@:l-1,c;"";l,c;"":x$="6g":8005E: Sca=5:8000@:l-1,c;" ";l,c;" ":x$="5g3g":8005E: Tca=5:8000@:l-1,c;"";l,c;" ":x$="3ggg":8005E: Vca=5:8000@:l-1,c;"";l,c;" ":x$="4g1g3g":8005E: Uca=5:8000@:l-1,c;" ";l,c;" ":x$="5g1gg":8005E: Xca=6:8000@:l-1,c;"";l,c;" ":x$="3g4g1g":8005E: Wca=5:8000@:l-1,c;"";l,c;" ":x$="3g1gg3g":8005E: Vca=5:8000@:l-1,c;"";l,c;" ":x$="1gg3gg":8005E: Xca=6:8000@:l-1,c;"";l,c;" ":x$="3gg1gg":8005E: ca=12 :8000@:l-1,c;" ";l,c;" ";l+1,c;0;"":nl=1:x$="8_6g":8005E:ff=1: Qca=7:8000@:l,c;"":nl=1:x$="9g":8005E:ff=1: cca=7:8000@:l-1,c;"";l,c;"":nl=1:x$="8g":8005E:ff=1: ca=8:8000@:l-1,c;" ";l,c;" ";l+1,c;0;"":m$(c+5+8*(l-8))="2":x$="6_5g":8005E: &dn=1:8030^: +\l+1,c-4;"":xn=1:8030^:8270N :xn=0:dn=0: 0dn=2:8030^: 5Dl+1,c-4;"":8040h:8270N :dn=0: :Kca=2:8000@:l-1,c;"";l,c;"":x$="3g":8005E: D98000@:l-1,c-1;"";l,c-1;"": N#c=4l+1,0;"" X bsel=0:j=1: ql=8x1=c-1 vl=12 x2=c-1 {l=16x3=c-1  :x$="":p$="00":7;16,c;"":8400 : @x$="":p$="00":7;16,c;"":xc=c:8400 : Нca=p$(1):d$=d$+p$(2ca+2):7;14,c;p$((ca+3)2*ca+3);15,c;p$((2*ca+4)):8005E: &x$="5d":p$="2000 ":8400 : 'x$="3d&":p$="200q ":8400 : +x$="1d&&&":p$="300sq ":8400 : /x$="1_1d&d":p$="300s0 ":8400 : !.x$="1dd&d":p$="300s0 ":8400 : ! .x$="V0N3dV15d":p$="2q00 ":8400 : !3x$="V0N4dV15N1d":p$="3qs00 ":8400 : ! -x$="V0N5dV15N":p$="2c00 ":8400 : !* 7300 !4 7310 !>4x$=(3+tsd)+"d":p$="2000 ":8400 : !H)x$="3d&":p$="300c0 ":8400 : !R+x$="1d&&&":p$="300qc ":8400 : !\1x$="1_1d&d":p$="400q00 ":8400 : !f,x$="1dd&&":p$="300c0 ":8400 : !p1x$="V0N3dV15d":p$="3c000 ":8400 : !z5x$="V0N3dV15N1dd":p$="3c000 ":8400 : !/x$="V0N5dV15N":p$="3m000 ":8400 : ! 7300 ! 7310 !+x$="6d":p$="400000 ":8400 : !.x$="3_3d&":p$="4000q0 ":8400 : !,x$="3d&&":p$="400qq0 ":8400 : !2x$="3d&d":p$="500q000 ":8400 : !7x$="3d1_1d&d":p$="50000s0 ":8400 : !6x$="V0N5dV15N3d":p$="4c0000 ":8400 : !8x$="V0N3dV15dd":p$="5q00000 ":8400 : !6x$="V0N3dV13d&":p$="5q000q0 ":8400 : ! 7300 ! 7310 "+x$="6d":p$="400000 ":8400 : "-x$="3_3d&":p$="4000c0 ":8400 : "5x$="3d&1dd":p$="500c000 ":8400 : "$2x$="3d&d":p$="500c000 ":8400 : ".;x$="V0N3dV15d1dd":p$="5c00000 ":8400 : "88x$="V0N3dV15dd":p$="5c00000 ":8400 : "B8x$="V0N5dV15N1dd":p$="4m0000 ":8400 : "L3x$="V0N6dV15N":p$="4m00c0 ":8400 : "V 7300 "` 7310 "e,x$="2_1d&":p$="3000s ":8400 : "j2x$="V0N3dV15N1dd":p$="2q00 ":8400 : "o+x$="3dd":p$="30000 ":8400 : "t-x$="4d1d":p$="30000 ":8400 : "y-x$="1dd3d":p$="30000 ":8400 : "~Ox$="11ddd":p$="2000":8400 :7;16,c-3;"3": ",x$="1dd&&":p$="300c0 ":8400 : "+x$="3dd":p$="30000 ":8400 : ".x$="1dddd":p$="30000":8400 : "/x$="4d1d":p$="400000 ":8400 : "-x$="1dd3d":p$="30000 ":8400 : ".x$="3d1dd":p$="30000 ":8400 : "2x$="3_1d&&&":p$="5000sq0 ":8400 : "8x$="V0N5dV15N1dd":p$="4c0000 ":8400 : "0x$="3dd&":p$="50000q0 ":8400 : "/x$="5d3d":p$="400000 ":8400 : "2x$="3ddd":p$="5000000 ":8400 : "6x$="1_1d&d3d":p$="500s000 ":8400 : "2x$="3_1d&&&":p$="5000qc0 ":8400 : "6x$="V0N5dV15N3d":p$="4m0000 ":8400 : "0x$="3dd&":p$="50000c0 ":8400 : "/x$="5d3d":p$="400000 ":8400 : "-x$="3d&&":p$="400cc0 ":8400 : "=x$="V0N3dV15N1dddd":p$="5c00000 ":8400 : "Nx$="7d":p$="400000 ":tsn=12 x$="9_7d":p$="30000 . " "8400 : "8955":8960# "Px=05:x,0;6;" ":x: #%ksd=0ksn=09050Z# # m1,12 ;2;6;"Checking":o$"B"2,9 ;2;6;"(wait please)" #Isig=((2*ksn/ksd)-.3):wr=9210#:o$"C"wr=9205# #o$="A"9080x# #(o$="B"signlwr #2%ksntsnksntsn/29050Z# #6;5,0;"p prints, d erases, r when ready" $@J21,0;6;" x = next z = finish ":870f $Jft=1 $O&0:6:6:0: $T$" TIME SIGNATURES AND BAR LINES " $^:"In ""live"" questions a tune wouldbe given, but the examples hereare shown as rhythm only. Theprogram aims only to test your""musical arithmetic""." $c[:"The examples try to look fairlyreasonable: you could put a tuneof some sort to them." $h-:"The form of the question dependson the options you will choose.If you do not get it right, thesame question will appear again,but you can ""pass"" a question atany time by pressing ";2;"x";0;" to go tothe next question or ";2;"z";0;" to finishand recall the menu." $r0:" PRESS ANY KEY TO CONTINUE":0:: $|:"The program will accept any timesignature that fits the example. 4 2 2For certain questions 4, 4 and 2"; $}jtdc1" 3 6 could all be right, or 8 and 8 for instance.":9343$ $~"could all be right." $&:"But you must look at everything." $<:"The bars cannot be shorter thanthe longest single note shown.Every example must add up to anexact number of bars. If anexample starts on the last beatof a bar (shown by one bar linebeing put in) then the bar atthe end must be incomplete bythe same amount."::"Press a key to read about TIES." $ 0 $:"TIES are used in three ways:"''"1. To write a note of odd length that one note cannot show, as";:tdc=19359$ $B" 6 9"'"in (used in 8 and 8)"'" " $@tdc=24,23;" ";5,18;") " $ 9360$ $ " "'"in "'" " $]:"2. To carry a note across a bar "'"line: or or "; $&tdc1" ":9363$ $ " " $" "''6;"4 2 "'"3. In 4 or 2 time, is usedon beats 2 and 3 "'"(weaker to stronger beat). Otherwise it is written as of course." $.21,10 ;"Press a key":0: $o$="B"120x $6:6: $D10 ;"INFORMATION:";0,10 ;1;"____________" $O$="C":"If you change your mind about atime signature, just re-type thenumbers. It does not matter where the cursor is."  $:"The cursor (%) visits only thosepositions where it is POSSIBLEto print a bar line. You decidewhether or not to put one there."''"The end of a line does not have to be the end of a bar." $416,3;"For help , press h." $2o$="A"16,12 ;"on TIES":9440$ $16,12 ;"screens" $M18,0;"To see the first question, press any other key." $i$=:i$=""9450$ $99970&:i$="H"o$"B"9340|$+15*(o$="A") $ 120x %86:6::"PUTTING RESTS IN INCOMPLETE BARS" %!c:"You will see an exercise a fewbars long, which will not add upcorrectly without some rests." %&`:"Beat markers ( ^ ) can be addedto the exercise by pressing ";2;"b";0;" ." %+9:"Short instructions are on screenwith the questions." %0E:"The cursor ( % ) visits only theplaces where a rest can be put." %5:"The program strictly follows therules of music-writing, and onthe next screens some rules arebriefly explained. If you wantto skip these screens, press ";2;"s";0;" .If not, press any other key." %:i$=:i$=""9530:% %? 9970& %Di$="S"2490 %N:"Dotted rests, unusual in printedmusic, are not used in this pro-gram. A dotted crotchet rest (for example) is written as: & " %l:"The minim rest is shown as tomake clear that it is not asemibreve rest. The line under-neath is not part of the sign." %vH :"Quavers and semiquavers aregrouped according to beats, so,e. g., if you see 4 thesemust be in 4 different beats, and a rest mustgo between them: Other- wise they would be written (call beat markers if in doubt)." %I21,2;"Press any key for next page":10 :0  %:"If you have to fill up a beatthat has only one semiquaver init, you need to be careful howyou place the two rests and .";24;" "'"The must fill up either the first half-beat or thesecond half-beat." %" ";26;""'"E.g. is right,  not  ,";7;"";28;""'"and if the semiquaver is at the";7;"";27;""'"end, is right, not  .";5;"";25;"" %ƣrdc>119;"2 3"'"In the same way in 2 or 2 , the";16;"";27;""'"right forms are and .";18;"&";25;"&" %%cfq=1rul=09760 & %-21,8;"Press any key":0 %?cfq=1(tsd=8tsd=4tsn=6)9710% %q:"The trickiest rules are aboutthe ways in which rests are madeto agree with time signature andbeat value." %\:"For example, a rest of 2 beatsin 4 is not  .";:rdc>1" But in 2 a" %[3;"4 & &";:rdc>128;"2 rest of half a bar is .":9695% % %#tab=0+6*(rdc=1) %~:"You cannot have one rest fillingparts of different beats, so:"''tab;" wrong right"'tab;" % %" %tab;"4  "'tab;"4  &  "''tab;" ^ ^ ^^ ^ ^ ^^"'tab;" 1 2 34 1 2 34" %rdc>113 ,21;"wrong right";14,23;"% %";15,20;"2  ";16,20;"2  &&";18,22;"^ ^ ^ ^";19,22;"1 2 1 2" %=rdc<3cfq=1tsd8tsn69760 & %-:10 ;"Press a key":1:0 %:21;"3":"In compound time and 8, the ruleis that a rest on the beat canbe a crotchet rest, but trailingrests are always quavers (doublethese values in 6) 4 e.g." %:"(on beat) (trailing) % % % 6 8 & & " & C:" 6 In 4 this would be: " &b:" 6 4 & & & & & " & ccfq=1cfq=0:21,1;"BACK TO QUESTION: PRESS A KEY":0:3190v &%I21,0;"PRESS ANY KEY FOR FIRST QUESTION":10 :0 &* 2490 &-cod=i$: i$=(cod-32 *(cod>96`)) & &8cod=i$:cod>64@cod<97ai$=(cod+32 ) ' ' 'o0:0:4:1::8,7;"ERROR! - RE-START";10 ,10 ;"IN 5 SECONDS" '&.4L,24:.4L,18 ' /X=06:X,0;0;" ":X ' 10 :140 ' 5 @m ^ ^ L` 61929: 0:0:0: '0,0:8:1:! 2(3,0)"m"!"m"10 :500 (w23675{\,88X:23676|\,255:236066\,86V:236077\,251:0:4:1: 25;"KEY SIGNATURES"''5;"TONIC TRIADS"''5;"SCALES"''5;"INTERVALS"''''5;"TIME SIGNATURES"''5;"BAR LINES"''5;"RESTS"''''5;"terms and signs"''5;"chord lay-out" <6:70F F50,6,10 ,14,18,20 P&p=13:T,B:300,:P Z3,24;"PRESS 1";12 ,24;"PRESS 2";18,24;"re-set,";19,24;"load";20,24;"Side B":0:x=06:x,0;" ":x d!0:i$=:i$=""100d ni$1100d xi$="1"!"a" i$="2"!"b" 100d ,KT,1;"FOR";T+1,1;"";T,21;"";B,21;"" 6X=TB:X,22;"":X @ .255,129,189,161,161,189,129,255,255,24,24,24,24,24,24,24,0,0,0,255,129,255,128,255,1,1,1,255,129,129,129,255 1193,193,193,255,196,196,196,199,24,0,0,24,24,24,24,24,0,0,0,255,128,128,128,128,128,128,128,255,132,132,132,135 v28,12 ,12 ,12 ,12 ,12 ,12 ,12 ,255,129,129,129,255,1,1,255,126~,66B,66B,66B,255,129,129,255,255,1,1,1,63?,32 ,32 ,32 ,237,33!,183,156,579,237,132,183 1500:x=50000P50103:d:x,d:x @23675{\,80P:23676|\,195:6: 0 &Ax=12019:y=130:x,y;"":y:x 0Ay=13029:x=219:x,y;"":x:y :013 ,3;" " D4:3,5;"";4,7;" ";5,7;" ";6,7;" ";7,24;"";8,8;" " N9 ,4;" ";10 ,4;" ";11 ,4;" " X15,7;" ";16,7;" ";17,7;" ";18,7;" " b62524<:62524< l95_:40( ' 'f0:0:4::8,7;"ERROR! - RE-START";10 ,10 ;"IN 5 SECONDS" '&.4L,24:.4L,18 ' /X=06:X,0;0;" ":X ' 10 :140 ' 10 h