ZXTape! 0Created with Ramsoft MakeTZXNotevaluesw @@#+6## 23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:7:7:1::9 ;21,8;"Please Wait";0,0;:"""a":"sc":9 :21,8;"Press ENTER":0  n/0:4:7:1:0: s"23561",35# x>2,0;6;" N O T E V A L U E S " 6,0;" This program will help you",,,"learn note values such as minims",,"quavers,crotchets,semibreves",,,"and their rests." L15,0;" For information, press I.",,," Otherwise press ENTER." B20,0;2;7;"  H.C.STIDWILL 1983", 810* a$(2) q(2,480):q=0 Tscore=0:z=1:c=1:y=4:x=18:yy=9 :xx=5 ts=(*3)+2 ,W3,18;ts;5,18;"4";18,2;ts;20,2;"4" / b$="123468" 2Ac$(2,6):c$(1)="233579":c$(2)="013357" 3 1 4011 ,5;" " 5+12 ,5;" " 6+13 ,5;" " 818,10 ;" " 9119,5;" " :!20,5;" " ;Oi=9 21:2;i,0;"":i <58,0;" Random notes/rests will appear " =R300,:0;1;8,0;"Choose notes/rests to fill bars." >N300,:0;8,0;" N.B. ";ts;" crotchet beats in a bar!" ?R300,:0;1;8,0;"Use keys 5 to 8 to choose,then 9" @h=112 /ts A bl=0 B u=0 C2;yy,xx;"*" D/bl=0h/2ɺ(h/2)9500% EQ0;2;6;15,0;"For length of note/rest,press 0." F="0".01z# =,36$:.01z# =,33!:0;2;6;15,0;" .5 1 1.5 2 3 4 " I-0:z$=:335O:z$"9"326F J 350^ O^z$="6".01z# =,12 :2;yy,xx;"*":c=2:yy=16:2;yy,xx;"*" Q]z$="7".01z# =,36$:2;yy,xx;"*":c=1:yy=9 :2;yy,xx;"*" Tmz$="5"z>1.01z# =,27:2;yy,xx;"*":z=z-1:xx=xx-5:2;yy,xx;"*" Woz$="8"xx<29.01z# =,30:2;yy,xx;"*":z=z+1:xx=xx+5:2;yy,xx;"*" ] m 9400$ o>bl=bl+((b$(z))/2):u=u+1:q=q+1:q(c,q)=z plbl>tsq(c,q)=0:0;6;2;1;8,0;" Too many beats in this bar! ":u=u-2:1,-40(:100d:0;5;8,0;" Now try that bar again ! ":q=q-1:score=score+1:9600%:502:0;1;8,0;"Use keys 5 to 8 to choose,then 9":323C qjbl=ts23760\:23760\:g=y-2y+2:g,x;"":g:2;yy,xx;"*":h:400 w 325E '147,120x:0,39'  u=q-1 &H0;2;15,0;" " XP8,0;0;0;9 ;" Here is your composition again!" h=0:9600% U4,22;"You made";6,21;score;" mistake";("s"score1)  Q8,0;3;9 ;0;" Press ENTER to play again. " 'P0;1;9 ;9 ,0;" Press I for information. " * 0 /=13 :250 4="i"8100 8:2;9 ;" THE FOUR MAIN NOTES AND RESTS " K2,2;"(You don't need to know the names for the game)" 100d:5,2;"QUAVER - (half beat)";6,11 ;" ";7,11 ;"":.4L,0 100d:8,16;"";9 ,0;"CROTCHET - (1 beat)";10 ,11 ;" ";11 ,11 ;"":.8L,2 }100d:13 ,2;" MINIM - (2 beats)";14,11 ;"";15,11 ;"":1.6L,4 Q100d:17,0;"SEMIBREVE- (4 beats)":3.2L,5  9000(# 66;9 ;" DOTTED NOTES AND RESTS " U100d:9 ,0;" A DOT adds half as much again",,,"to a note or rest." ~200:14,0;" e.g. a dotted MINIM has the",,,"same length as one and a half",,,"MINIMS or three CROTCHETS." !3200:6,6;"1 2 3 1 2 3 1 2 3" &3,3;"3";5,3;"4";3,6;" ";4,6;" ";5,6;" " 0y250:2.4,9 :1.6L,7:.8L,5:.8L,4:.8L,2:.8L,0 : 9000(# l61;9 ;" T I M E S I G N A T U R E S " vb100d:3,0;" In this program we will only be",,"using three TIME SIGNATURES - " j200:7,7;"2 3 4";8,15;"and";9 ,7;"4 4 4" U200:12 ,1;"The bottom number in this case means a crochet beat." \200:17,1;"The top number indicates the number of beats in each bar." 9000(# !4 800  !> #(J150:21,0;1;" Please press ENTER to continue " #2"0:13 90102# #<: #~g=b$(z):y,x;n$(z,1);y+1,x;n$(z,2);y+2,x;n$(z,3);y,x+1;n$(z,4):g/4,h: #g=b$(z):y-1,x;r$(z,1);y,x;r$(z,2);y+1,x;r$(z,3);y,x+1;r$(z,4);y,x+2;r$(z,5):g*6.25H: $e=c$(1,z):g=1e:23760\:23760\:g:9000(#+100d*c:e=c$(2,z):g=1e:23760\:23760\:g: %:u=u+1:cc=c:zz=z:c=(1+*2):z=(1+*3):9400$:bl=bl+((b$(z))/2):q=q+1:q(c,q)=z:z=zz:c=cc:368p %%w=117:23760\:w %Y2;yy,xx;"*":bl=0:v=q-u:u=0:r=vq:c=12:q(c,r)c %z=q(c,r):9400$:bl=bl+((b$(z))/2):u=u+1:bl=tsbl=0:h=h+1:23760\:23760\:g=y-2y+2:g,x;"":g:r:147,120x:0,39' %r %.c=1:z=1:xx=5:yy=9 % b@@y"$ I # %e% a\#]]'"!$x ;q%%uvcor% Z9 0B123468233579013357NV bytes Xt?~~~~M2 @@  0`0!@`0?sc @D?@@<>>@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@ <"150" Zh="0" \ z="1"̰"5" `"0","0";z am="0" "9004" r=(*"13")+"1" aa=r:bb="15" l="0" i=(*"3")+"1" r="13"i="2""200" u"208" h$=(143+i) 0rǰ"7"ٰ"0";r,bb-"2";(h$i<"3");r,bb;"" 0r>"7"ٰ"0";r,bb-"2";(h$i<"3");r,bb;"" (r="13"r="1"r,bb-"1";ް"1";" " 8o=("14"-r)*"2":o=c$(o-1o)-(i="2")+(i="1") aa=r "8300" !q="1""4000":dur,o:"4036" q <ڰ"6";ٰ"0";"14","0";"(8-Right or 5-Left. Then ENTER.)" װ"1",o:"7000" Jp=o;ٰ"1";۰"1";"14","0";" Quite correct! ":"245" m="2""6000" I۰"1";ٰ"2";"14","0";" That is wrong.Please try again.":װ"3","-39" $m=m+"1":"7000"+"100"*(""+b$) m="3""6000" I"0","7";("SECOND"m);"0","7";("LAST "m="2");"0","19";" TRY" "233" Bװ".1",o-"5":װ".1",o-"5":װ".1",o-"5":װ"1.3",o:s=s+(m="0") e="1"̰"300":e "14","0",, /"8100":"8000":z >@"14","0";ݰ"1";ٰ"1";" Your score was ";s;" out of 5 " Hs="5"ٰ"3";۰"1";"0","7";" CONGRATULATIONS ":װ".2","10":װ".2","12":װ".2","14":װ".4","15":װ".2","10":װ".05","27":װ".05","26":װ".2","27" R"150" A"0","0";ݰ"1";ٰ"2";ڰ"7";" Press ENTER to play game again "  "0":"10" "14","0",, <"0","0";ڰ"1";ٰ"7";" These are the NATURAL notes " "8105":"8000" "30" r="13"̰"1"Ͱ"-1" q="1" i="3" #"14","8";"This note is ";d$(r) dur=".5"+r/"10" "210" "8105":"8000" r &"30" ("14","5";"This note is A (natural)" ;"0","0";ڰ"2";ٰ"7";" SHARPS () and FLATS () " aa="8":bb="15":aa,bb;"" "8300" b$="101":x="12":"4030" װ"4","9" "4036" ?"14","1";" A flat() - to the left of A ";aa,13 ;"" "16","11";"A" b$="010":x="11":"4030" װ"4","8" "4036" >"14","0";" This note is A again ";aa,"13";" " b$="101":x="12":"4030" װ"4","9" "4036" ="14","0";" A sharp() - to the right of A";aa,"13";"" "16","13";"A" b$="010":x="13":"4030" װ"4","10" "7"aa,bb;"" +aa="13"aa="1"aa,bb-"1";ް"1";" "  "8300" J:ڰ"2";۰"1";"15","1";"Press ENTER when you are ready" T"0":ɰ"13""5460" Y"8105":"8000":"70" p"7000"+"100"*(""+b$) s"0","0",,:ڰ"1";ٰ"7";"14","0";" Here is the correct note. ":"4000":װ"1.3",o:ڰ"6";"0","0";" Press ENTER to continue. ":"1":"0":"4036" v"250" X#b$="010":p="2":x="2":y="17" [ "7026" ]z$= ^z$"5"z$"8""7017" _ "4036" bFz$="5"p=p-"1":x=x-"1"-(b$(2)=0):װ".03",p-2 gFz$="8"p=p+"1":x=x+"1"+(b$(2)=0):װ".03",p-2 i%z$="13"p=p-"2":װ"1",p:c="7" j z$="13" lp<"2"p="2":x="2" mp>"25"p="25":x="28" rb$=a$(p-1p+1) v "4030"  "7005" ;y,x;c;"";y+"1",x;"";y+"2",x;"";y+"3",x;""   Xy,x;ٰ"10"-c-(3c="7");"";y+"1",x;"";ٰ"0";y+"2",x;"";y+"3",x;"" * ;y,x;c;"";y+"1",x;"";y+"2",x;"";y+"3",x;""  ;y,x;c;"";y+"1",x;"";y+"2",x;"";y+"3",x;""  L;y,x;c;"";y+"1",x;"";y+"2",x;"";y+"3",x;"" V @aa="147"̰"83"Ͱ"-16":"0",a:"255","0":a:"16","0";"________________________________": "0","0",, a="1"̰"13":a,"6",,:a  lY(7aa>7)+bb*8,168+(27aa>7)-aa*8:"0","-20" v #-0"17","0";"" #2$"" #7$"" #<$"" #F$"" #K   !!!!""""########efghijkcdlmbn`ao^_p]^q]rs\t\u[v[wGHIZxFZyEYjklmzDYin{DXho|DXp}DXq~EWXqFWqGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~XqXqXqYqYqZp[p\o]o^n_`lm`abkcdefghijs\CS@hkn pvct y i  lImS0C CD DE F FG GA AB C CD DE F FG GA AB F0C DD EE F GG AA BB C DD EE F GG AA BB C00020405070911121416171921A00101001010100101001010100f uqo D AGFEDCBAGFEDCduR8-,HZB001KB bytes X&>@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@ <