ZXTape! 0Created with Ramsoft MakeTZXTrebleCleft23676|\,127:7:7:1::21,8;9 ;"Please Wait";0,0;:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:"":"sc":9 :21,8;"Press ENTER":0:"9000":"127","-1","-1","-1","-1","-1","-1","126","126","-1","-1","-1","-1","-1","-1","-2","0","0","2","4","40","16","0","0","0","0","0","20","8","20","0","0" 6j="0":z="1":t="32000":st="30959":ke="32028"  l(3) 23561 \,0  "4":ڰ"7":ٰ"0":ܰ"1"::ް"0" l=t 7ڰ"6";"0","0";" T R E B L E C L E F " _"14","4";"This is a game to help you know the notes on the treble stave (or staff)." <ٰ"2";ݰ"1";"20","0";"  H.C.STIDWILL 1983 "  l=st k="1":"850" 2<ݰ"1";ٰ"1";"18","0";" Press ENTER when you are ready " <l=ke A K*"10","3";" How many players?(max:3)" Q&l=ke:q$=:q$<"1"q$>"3"81Q Ry=q$ S.ݰ"1";"15","12";;" player";("s"Ʀ>"1") V 502 W"10","5",, X"15","12",, hx$(y,18) iv(y) j b="1"y nb p_"7","6";("1st"b=1);("2nd"b=2);("3rd"b=3);7,10 ;" player," rH"11","7";"Please type your name";"15","10";"...then press ENTER" xx$(b) y5x$(b,1)"a"x$(b,1)=(x$(b)-32 ) b :"6":"" +"7","6",,;"11","7",,;"15","10",, P"17","5";"These are the notes on";"19","3";"the treble stave (or staff)" l=t l=st j="1" "850" j="0" 0"17","0";" LINES: E G B D F " 0"19","0";" SPACES: D F A C E G " "5":"" "8200" l=ke 30 z=zy  l=st z+2:"" "0","0";z l=st l=t  z:ٰ"9" "15","0",, )"16","0";" ";x$(z);" " :x$(z)=" ""16","0";" Player ";z;"," "17","0",, _"18","0";" When you are ready ";"19","0";" please press ENTER " "20","0",,,, l=ke 0"18","0";" As the note appears, " 1"19","0";" press the correct letter " "20","0",,,,  ڰ"7":ٰ"0"  80P f="1"̰"5":h="0" c=(*"11")+"2" *762:a=1c-1:d:ee:a u"3","19","0","17","2","16","4","14","5","12","6","11","1","9","3","7","0","5","2","4","4","2" ;c,(f*5)+2;d;(""c>7)+(""c<8) 6vp=c:hp=(f*5)+2:8300l :1,ee 4ڰ"6";ٰ"9";"0","5";" For help,please press H " l=ke:a$=:"h"773 "0","0",,:"0","0";z:۰"1";"14","31";"^":10 :100d:"14","31";" ":769:n="12"̰"2"Ͱ"-1":a,b u"4","2","2","4","0","5","3","7","1","9","6","11","5","12","4","14","2","16","0","17","3","19" 6l(z)=1:s=311 :s,31;" ":s ra;9 ;n,31;((80P-n)-(7n<9 )):.5,b:10 :n,31;" ":n:h=0 @6;9 ;0,5;" Now try that note again " a$<"a"a$>"g"767 /13 ,(f*5)+2;(a$-32 ) %c=c-2:c>6c=c-7 103g-a$c13 ,(f*5)+3;"":.6,-9 :.5,-12 :14,(f*5)+1;"(";(71G-c);")":10  103g-a$=c13 ,(f*5)+3;"":v(z)=v(z)+1:.05|L,ee:.05|L,ee+12 :.1}L,ee:30 Ff-v(z)>02;7;21,19;f-v(z);" WRONG" ev(z)>04;21,5;v(z);" RIGHT";(" - WITH HELP !"l(z)=1v(z)=5) f:l(z)=1801!  v(z)>44;1;21,14;" CONGRATULATIONS!":.2~L,19:.2~L,21:.2~L,23:.4L,24:.6,19:502:21,14;0;" CONGRATULATIONS!" % 8200 &l=ke /z 0:4:"":7 1l=st 2l=t 3@5;0,0;" T R E B L E C L E F " 6 b=1y ;!r=(v(b)=5)(l(b)=0) >Er;13 +b,0;1;b;" ";x$(b);" ";v(b);" correct " Cnx$(b)=" "r;13 +b,0;1;b;" Player ";b;" ";v(b);" correct " Hb M 0 Q k=0 Ri769:a=12 2-1:c,d:a,32 -(a*2);c;(""a>7)+(""a<8) S7vp=a:hp=32 -(a*2):8300l :.5,d Tfja+1-(2a<8),32 -(a*2);((80P-a)-(7a<9 )):30 Wa \jk /18,3;"To play again,press ENTER" H6;8;21,0;" PROGRAM BY H.C. & J.M.STIDWILL " 0:2 B1;1;0,5;" Press ENTER to continue ": lY0:32044,},vp:32060<},vp:32075K},vp*8:320568},hp*8 vl=32043+}: #(+:a="a""d"+7:b:a,b:a:2 R6jt}x}l}kcd yh  rQ3;1 2 3 AaTC m code px7r!`D 6# # ! L 6# # efghijkcdlmbn`ao^_p]^q]rs \ t \ u [ v [ w G H I Z xFZyEYjklmzDYin{DXho|DXp}DXq~EWXqFWqGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~XqXqXqYqYqZp[p\o]o ^ n!_!`!l!m"`"a"b"k#c#d#e#f#g#h#i#j!y>NO#^{0 >_#":\8:\0>0..>o>8!>@_M."- sc @C}?@@<>>@Pp !?P>H'? @>?>><<*>.>@@@N9`3H#p?>@{|{{88*o{A|@ @?1A~>" ~88"  82A@<<Ap~?x<|  DR  @<<@>?|?x<x|?@k Z8MDJ(p; @@<<@P>x<x? KDCpDFd?">> >>?>06;0?" @@"'@K#H8&d 1V"0 J@8 $ `x@0|`@@@f8<a1! @G  p@@`@@ 0`DD !@! H    L@h@@@0XD !E0@@@`@ @@~88T @80 @``` @@  @  hL@   @@@ @  8( ,@  "~0 8"@x8@0@ @0 x HB@"|@ D @ B @@ `>JdU3U@% * g TSS5U@3 |B?U*5U@ (B8888B88gHx@gBD@DB0x (Z5@U|x<8xB<@3>5U@RSJ`@@D@ZD|% *3U@JlU8@ <\,0:23613=\+1+256*23614>\,0:7:7:1::9 ;21,8;"Please Wait";0,0;:""30959x:"sc":9 :21,8;"Press ENTER":0:23675{\,43+:23676|\,125} 23561 \,35#  0  Qtr="32000":st="30959":ke="32028":s="0":z="1":"5":ڰ"7":ܰ"1":ٰ"0": ;ٰ"1";ݰ"1";"0","0";" * S C A L E P O S I T I O N * " ?ٰ"2";1;"21","0";"  H.C.STIDWILL 1983 "  ٰ"0":l=tr "7","5";"":l=st "14","0";"This is a game with 10 questions";"16","0";"to test your knowledge of scale";"18","0";"positions;e.g.Tonic,Dominant etc" K60<:a="0"̰"7":b:aa=10 -a:bb=a*3+8:8300l +a<"3"a-(7a=7);aa,bb;"" .a>2a-(7a=7);aa,bb;""  װ".1",b:a  70F #<۰"1";ٰ"4";"20","0";" Press ENTER when you are ready " (l=ke - /"7","5";"" 2l=tr:l=st 7q$(12 ) ;6ݰ"1";"14","0";" These are the scale positions " <."5","7","9","10","12","14","16","17" G60<:a="0"̰"7":b Haa=10 -a:bb=a*3+8:8300l :a-(7a=7);aa,bb;(""aa>7)+(""aa<8);8;1;a+1 J&װ".3",b:a:30:"14","0";,, KX756:a="1"̰"7":q$:ݰ"1";a-1;22-a,a*3-3;a;" ";q$:a L"ݰ"1";"14","21";"8 TONIC " O 502 P5۰"1";"0","0";" Press ENTER when you are ready " Ul=ke X Zh="0" ^ z=z̰"10" _:ٰ"0":l=tr:l=st b"0","0";z d "3":"" nk=(*9 ) x130+(k>5) "3","5";(""k>0);"6","6";(""k>1);"2","7";(""k>2);"5","8";(""k>3);"8","9";(""k>4):"135" m"7","5";(""k>5);"4","6";(""k>6);"8","7";(""k>7);"5","8";(""k>8) 1ٰ"1";ݰ"1";"14","6";" Press NUMBER of key " ,"16","3";"0 - C major 5 - B major" ,"17","3";"1 - G major 6 - F major" ,"18","3";"2 - D major 7 - B major" ,"19","3";"3 - A major 8 - E major" 9"20","3";"4 - E major 9 - A major":h=1 i="1" `168:a="0"k:n:a:װ".4",n:װ".4",n+4:װ".4",n+7:װ".4",n+4:װ".8",n 6"12","7","2","9","4","11","5","10","3","8" )0:a$=:a$<"0"a$>"9"170 a$=k+480180 i="0""190" ;i="0":ݰ"1";ٰ"2";"14","4";" No - please try again " 5a="12"̰"-36"Ͱ"-4":װ".03",a:a:20:"167" ;ٰ"4";۰"1";"14","2";" ";a$;" - Absolutely correct! " (a="1"̰"48"Ͱ"4":װ".01",a:a:"200" ?װ"1","-30":ڰ"5";"14","4";" No, it is key number ";k;" " T1;0,10 ;"Press ENTER":0:0,10 ;" " "4":"" 8110 p=(*7) #"":756:a=0p:q$:a Xp"15","0";"Type the correct letter for the";p;"17","9";ٰ"9";" ";q$;" ":"19","8";"of this major key" ]0"21","0";"Type the letter only - no or " "0","0";z j" TONIC "," SUPERTONIC "," MEDIANT "," SUBDOMINANT"," DOMINANT "," SUBMEDIANT ","LEADING NOTE" <763:a="0"k:v:a:762:a="7"pͰ"-1":c:a 7t=v+c-(12 v+c>13 -(k=9 )):.8L,t ."17","16","14","12","10","9","7","5" 6"7","2","-3","4","-1","6","0","5","-2","3" 0:a$= a$<"a"a$>"g"766 y=(103g-a$) %775:a=0k:n:a:x=n-p W11 ,7,10 ,13 ,9 ,12 ,8,12 ,9 ,13 r=(x=yx-7=y) mbb=15:aa=y+2+(7y<4):8300l :+(pr);aa,bb;(""aa<8)+(""aa>7)  8110  wrs=s+r:.08}# =,t:.08}# =,t+12 :.1}L,t:16,6;4;1;" Absolutely correct! " "r.5,-30:aa=x+2-(7x>10 )+(7x<4):bb=23:8300l :14,15;" No - this is the ";p;9 ;16,9 ;" ";q$;" ":13 ,23;;"^";p;aa,bb;(""aa>7)+(""aa<8) #_6;20,0;" If you want HELP,please press H If not,press ENTER " %=18,3;"Your score is ";s;" out of ";z:30 &s=10 1;1;0,0;" CONGRATULATIONS! ":.2~L,19:.2~L,21:.2~L,23:.4L,24:.6,19 (50:r$=:r$=104hz=z+1:45- )r$13 808( . 30 /z 0:0:l=tr:5:"" 17,5;"":l=st >G14,3;1;0;" You got ";s;" out of 10 right " H7s=10 1;16,11 ;" Well done!" I?s=8s=9 1;16,12 ;" Good try!" J8s<81;16,10 ;" Keep trying!" QA5,6,1,3,0,6,4,5 R60<:a=07:b:aa=10 -a:bb=a*3+8:8300l :a-(7a=7);aa,bb;(""aa>7)+(""aa<8):.05|L,b:a /18,3;"To play again,press ENTER" H2;1;21,0;" PROGRAM BY H.C.& J.M.STIDWILL " l=ke 0:2 %a=113 :a,5,,:a (a=1421:a,0,,:a: l_(7aa>7)+bb*8,168+(27aa>7)-aa*8:0,-20 v }x}s ^lb hkn ipvc tyxr DOMINANT AfR SP m code \x1^!`D 6# # ! L 6# # efghijkcdlmbn`ao^_p]^q]rs \ t \ u [ v [ w G H I Z xFZyEYjklmzDYin{DXho|DXp}DXq~EWXqFWqGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~XqXqXqYqYqZp[p\o]o ^ n!_!`!l!m"`"a"b"k#c#d#e#f#g#h#i#j!y>NO#^{0 >_#":\8:\0&>@Pp !?P>H'? @>?>><<*>.>@@@N9`3H#p?>@{|{{88*o{A|@ @?1A~>" ~88"  82A@<<Ap~?x<|  DR  @<<@>?|?x<x|?@k Z8MDJ(p; @@<<@P>x<x? KDCpDFd?">> >>?>06;0?" @@"'@K#H8&d 1V"0 J@8 $ `x@0|`@@@f8<a1! @G  p@@`@@ 0`DD !@! H    L@h@@@0XD !E0@@@`@ @@~88T @80 @``` @@  @  hL@   @@@ @  8( ,@  "~0 8"@x8@0@ @0 x HB@"|@ D @ B @@ `>JdU3U@% * g TSS5U@3 |B?U*5U@ (B8888B88gHx@gBD@DB0x (Z5@U|x<8xB<@3>5U@RSJ`@@D@ZD|% *3U@JlU8@ <