ZXTape! 0Created with Ramsoft MakeTZXTh2 G G$I 61188:236066\,0:236077\,60<:23675{\,88X:23676|\,255:0:5:5:5:1::"Th2CHR" 0,0;"     " "       " ("       " 2"         " <"            " F"            " P"         " Z("" d%19,0:1:1 n "Th2CODE" x19,0 "Th2PROG" Th2CHR XG!????""""""Th2CODE Gć!"l\!}͗"!gͭ!mͭk ́!2A! A͆! A <+ͯ6 +ͯ"n!"t*n"xÙ"p<}\(*pI*t#"t[xR|{"r<*rI! !2!{\6!|\6!aͭ!sͭ!"t!"x!"z|L!"v!"|.*t*vy>> *v#"v[|R<|*t[zz"t[x R\|!"v!"|!"~|ÿ!"t!"xá*t*vy>> *t#"t[xR|*v[~z"v[| R|x! !y > !aͭ!!y!!y !!y !!y !!y!!y > ! !y ! !y ! !y > !!y !!y !!y !!y > !X'N#F#T] < *l\^#V#"l\DM=Ϳ5~(<#~6+2~5"e\##^#VV0Se\V0Se\Ϳ5n4ʹ3_ULGö*_|(ULGö**e\ T] >U">U">U">U">{}>Kv\+-474A218͢-Cv\~(wDM!^#Vz #B(##^#Vp "l\CE\2@<@lF@P@ Z@Hd@n@x@0@|@@0            ,          (     (   $      -        *     !"l\!}͗"!ͭ!ͭ!ͭk !!!!> !"!"u*!>*!>!*!>!>!*!>*!>> M *#"[R| !!!!!!!!!!!! !!  !! > M !!!!YOUR!!  SUCCESS RATE! !  FOR THIS RUN! !IS!!!!>%> M !X'N#F#T] < >U">U">U">{}>}>|;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33!"l\͹|}͗"͹|ͭ͹|ͭk ͹|͹|͹|͹|g ERROR! - RE-START ͹ |͹ |g IN 5 SECONDS > M ͹L͹͹L͹͹|s!X'N#F#T] < DM=Ϳ5~(͹#~ijͨ2~5"e\##^#V;0Se\Ϳ5n4ʹ3*e\ T] >U">U">U">U">{}> ~BBB? !9턷$$6666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~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<<@ 0"3"2200:60< F 4000 PDw$="1"9290J$:ft=1:6000p:9850z&:9370$ Z,w$="2"6100:9850z&:9500% d6:11 ,12 ;"GOODBYE!":135:0 n 20 xgj=0:k=0:qus=qus+1:ff=0:cn=0:dn=0:sel=10 :d$="":j$="" Yll=0:cl=0:nl=0:no=0:end=128:ksn=0:ksd=0 'x1=31:x2=31:x3=31 z$="ZX234689PDRNF" /6:6::11 ,14;"Wait" +m$="0":x=1127:m$=m$+"0":x n$=m$:r$=m$:b$=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:dt=1:sc=0:brn=4:nl=0:tsd=4: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 ,0:7: .o$="A"6;" PUT IN THE BAR LINES";0;" ";0;"Key x moves cursor forward, keyz moves it back. 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 z and x 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=08259 -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  \ (7,23)870f aG21,0;6;"n for next question, f to finish" f#i=0:ll=6:cl=0 pll,cl;"":9900& zi$= i$=""890z  9970& )z=113 :i$=z$(z)940 z 5150:no960 #2200:no=0:890z i$="N"120x i$="F"10 &i$="Z"o$"B"2000:890z i$="X"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;"":b$(cl+1+8*(ll-6))="1": 7b$(cl+1+8*(ll-6))="0"2200: [ll+1,cl;" ";ll+2,cl;7;"_":b$(cl+1+8*(ll-6))="0": s=15 .02{# =,s+6 s  :6:0:u$="sqcm":v$="1248":y$="xzmcqsdbrnf" ďj$="":d$="":zn=1:qus=qus+1:t=0:cch=0:div=1:sub=0:tb=0:btq=0:sgf=0:7100 *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$=" ":a$="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 'c$="00000000000000000000000000000000" t19,3;"Press b for beat markers.";21,0;" r=ready n=next f=finish " M0,10 ;"INSERT RESTS ";1,5;"TO COMPLETE THESE BARS" e"minim ","m ","quaver ","q ","crotchet ","c ","semiquaver ","s " ;3,1;"Move cursor with keys z and x." 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." 87;13 ,0;"":cl=0:9930& i$= i$=""2830  9980& ,y=111 6i$=y$(y)2900T @y J2200:2830 T'i$="x"i$="z"3030 :2830 Y8i$="d"ƫ(15,cl)58:2200:2830 ^Ii$="d"7;15,cl;7;"_";16,cl;" ":2830 hi$="n"2500 rbi$="r"7;13 ,cl;" ";17,2;" ":31200 |i$="f"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):c$(cl+1)=i$: 2200: 7;13 ,cl;" " /i$="z"cl=cl-1:cl<2cl=0 i$="x"cl=cl+1 ?cl=0cl=c7;13 ,0;"":cl=0: a$(cl+1)"0"3090  3030 7;13 ,cl;""  0c19,3;" ";21,1;" " : c$(1̱a$)=a$3200 ?btq=1:4200h Datt=att+1:5;1;19,7;"SORRY - NOT RIGHT";20,5;"Press a key when ready";21,10 ;"to try again" N1:0 v cch=1:d$="":2650Z 1 suc=suc+1:3290 1:125} 0 3290 H21,0;1;2;"n for next question, f to finish" i$=:i$=""3260 9970& i$="N"2500 i$="F"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` qus=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 6i$="C"i$="c"qus=0:att=0:suc=0  qus=0 63360 C:15,14;7;(suc*100d/(qus+att)+.5) " 180 , hKwng=0:rul=0:20,11 ;5;1;"Checking" rEx=1̱a$-1:a$(x)c$(x)4240:wngx=a$-1 |x:wngatt=att+1:5;1;19,1;"ADDS UP RIGHT, BUT CHECK RULES";20,9 ;"(press a key)":10 :0:cfq=1:9650%+rul  3140D )a$(x)="0"a$(x+1)="0"4280 5a$(X)=c$(x+1)a$(x+1)=c$(x)4290 !a$(x)a$(x+1)4280 oa$(x)="c"c$(xx+1)="m0"a$(x)="q"c$(xx+1)="c0"rul=40(+20*(zz>1):4290 wng=0: wng=1:x=x+1: qus=qus+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$<"1"i$>"5"2200:5080 Qi$>3+1*(tdc>1)+1*(tdc=3)2200:5080 Ai$=ksn-1-(ksn=6)-3*(ksn=9 )5120 att=att+1:8955":1,9 ;1;5;0;"";2,9 ;" TRY AGAIN ";3,9 ;"":5:60<:5010  0: "i$="R"i$="N"i$="F"5180< (=ll=6cl=0o$="A"i$"X"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 p1:"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$  F: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: 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 E&c=c+ca+1:dn=0d$=d$+j$ F J1tsn=3h=3cn=2:8230& : M1tsn=4h=4cn=2:8230& : Ojj$="6":ca=5:8000@:l-1,c;"";l,c;"":8005E:h=2nl=1:8290b P T1tsn=3h=3cn=2:82400 : W=tsn=4(h=2h=4)cn=2:82400 : Yhj$="52":ca=6:8000@:l-1,c;" ";l,c;" ":8005E:h=28290b Z ^ddi=0j$="4" _Cca=3:8000@:l-1,c;"";l,c;" ":8005E: hddi=0j$="22" iEca=3:8000@:l-1,c;"";l,c;" ":8005E: rPj$="31":ca=4:8000@:l-1,c;"";l,c;" ":8005E: |Qj$="211":ca=4:8000@:l-1,c;"";l,c;" ":8005E: Oj$="112":ca=3:8000@:l-1,c;"";l,c;"":8005E: Rj$="1111":ca=4:8000@:l-1,c;"";l,c;"":8005E: bj$="000":ca=3:8000@:l-1,c;"";l,c;"";l+1,c;"3":8005E: Jj$="5":ca=4:8000@:l-1,c;"";l,c;"":8005E: Qj$="42":ca=5:8000@:l-1,c;" ";l,c;" ":8005E: Sj$="222":ca=5:8000@:l-1,c;"";l,c;" ":8005E: Sj$="312":ca=5:8000@:l-1,c;"";l,c;" ":8005E: Sj$="411":ca=5:8000@:l-1,c;" ";l,c;" ":8005E: Uj$="231":ca=6:8000@:l-1,c;"";l,c;" ":8005E: Tj$="2112":ca=5:8000@:l-1,c;"";l,c;" ":8005E: Tj$="1122":ca=5:8000@:l-1,c;"";l,c;" ":8005E: Vj$="2211":ca=6:8000@:l-1,c;"";l,c;" ":8005E: j$="9":ca=12 :8000@:l-1,c;" ";l,c;" ";l+1,c;0;"":nl=1:8005E:ff=1: Pj$="8":ca=7:8000@:l,c;"":nl=1:8005E:ff=1: bj$="7":ca=7:8000@:l-1,c;"";l,c;"":nl=1:8005E:ff=1: j$="6":ca=8:8000@:l-1,c;" ";l,c;" ";l+1,c;0;"":m$(c+5+8*(l-8))="2":8005E: &/ddi=1:j$="6":8030^:dn=1: +Xj$="":l+1,c-4;"":8030^:ddi=0:8270N :dn=0: 00ddi=1:j$="52":8030^:dn=2: 5Xj$="":l+1,c-4;"":8040h:ddi=0:8270N :dn=0: :Jj$="2":ca=2:8000@:l-1,c;"";l,c;"":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  Kp$="00":7;16,c;"":dn=1:8400 :dn=0: Qp$="00":7;16,c;"":xc=c:dn=1:8400 :dn=0: Нca=p$(1):a$=a$+p$(2ca+2):7;14,c;p$((ca+3)2*ca+3);15,c;p$((2*ca+4)):8005E: &j$="40":p$="2000 ":8400 : (j$="2021":p$="200q ":8400 : *j$="1031":p$="300sq ":8400 : /j$="201110":p$="300s0 ":8400 : !1j$="10101110":p$="300s0 ":8400 : ! )j$="2120":p$="2q00 ":8400 : !,j$="3110":p$="3qs00 ":8400 : ! &j$="41":p$="2c00 ":8400 : !* 7300 !4 7310 !>j$="40":tsd=4j$="60" !?p$="2000 ":8400 : !H*j$="2021":p$="300c0 ":8400 : !R*j$="1031":p$="300qc ":8400 : !\1j$="201110":p$="400q00 ":8400 : !f-j$="101021":p$="300c0 ":8400 : !p,j$="2120":p$="3c000 ":8400 : !z/j$="211010":p$="3c000 ":8400 : !*j$="41":p$="3m000 ":8400 : ! 7300 ! 7310 !+j$="50":p$="400000 ":8400 : !/j$="4021":p$="4000q0 ":8400 : !,j$="2041":p$="400qq0 ":8400 : !4j$="202120":p$="500q000 ":8400 : !7j$="20201110":p$="50000s0 ":8400 : !/j$="4120":p$="4c0000 ":8400 : !4j$="212020":p$="5q00000 ":8400 : !2j$="212021":p$="5q000q0 ":8400 : ! 7300 ! 7310 "+j$="50":p$="400000 ":8400 : ",j$="4021":p$="4000c0 ":8400 : "7j$="20211010":p$="500c000 ":8400 : "$4j$="202120":p$="500c000 ":8400 : ".7j$="21201010":p$="5c00000 ":8400 : "84j$="212020":p$="5c00000 ":8400 : "B2j$="411010":p$="4m0000 ":8400 : "L-j$="61":p$="4m00c0 ":8400 : "V 7300 "` 7310 "e+j$="3011":p$="3000s ":8400 : "j,j$="211010":p$="2q00 ":8400 : "o,j$="2020":p$="30000 ":8400 : "t-j$="3010":p$="30000 ":8400 : "y.j$="101020":p$="30000 ":8400 : "~Pj$="000000":p$="2000":8400 :7;16,c-3;"3": "-j$="101021":p$="300c0 ":8400 : ",j$="2020":p$="30000 ":8400 : "1j$="10101010":p$="30000":8400 : "/j$="3010":p$="400000 ":8400 : ".j$="101020":p$="30000 ":8400 : "/j$="201010":p$="30000 ":8400 : "/j$="3031":p$="5000sq0 ":8400 : "2j$="411010":p$="4c0000 ":8400 : "2j$="202021":p$="50000q0 ":8400 : "/j$="4020":p$="400000 ":8400 : "4j$="202020":p$="5000000 ":8400 : "6j$="20111020":p$="500s000 ":8400 : "/j$="3031":p$="5000qc0 ":8400 : "/j$="4120":p$="4m0000 ":8400 : "2j$="202021":p$="50000c0 ":8400 : "/j$="4020":p$="400000 ":8400 : "-j$="2041":p$="400cc0 ":8400 : "9j$="2110101010":p$="5c00000 ":8400 : ":tsn=12 j$="90":p$="30000 . ":8940 " ""tsd=2j$="60":8937" " j$="80" "p$="400000 " "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# #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 &Hd(10 ):9810R& &Rf.14~\(,.08}# =,.26R,.43\(,.62Q,1,1.34+,2.1fff,2.867 =p,4.36  &\"x=110 :z:d(x)=z:x &f &z~:8,5;"DO YOU WANT THE NOTES";10 ,10 ;"TO BE PLAYED";12 ,3;"AS WELL AS DISPLAYED ? y/n" &i$=:i$=""9860& &39980&:i$"n"i$"y"2200:9860& & x$=i$:: & x$="n" &?n=1̱d$:d(d$(n)+1),3:1:1:n & & x$="n" &!n=1(d$-1)2 &Hd(d$(n)+1),2-480*d$(n+1):1:1:n & &:cod=i$:cod>90Zi$=(cod-32 *(cod>96`)) & &+cod=i$:cod<97ai$=(cod+32 ) ' ZTh2PROGATh4 T .X]V 60424:236066\,0:236077\,60<:23675{\,88X:23676|\,255:1:7:0:7:0: M39',16:0,159:216,16:0,159 `x=56820016:x,175:0,-39':x,16:0,40(:x (V4,5;"______________________";14,5;"______________________" 2Gx=1172:x,0;"_____";x,27;"_____":x < 70F F6,8,10 ,14,16,20,22,24,1,3,7,9 ,11 ,15,17 P<0:x=18:c:l=01717 Z)z=02:l+z,c;"":z:l:x d3y=17:l:c=02929 n;z=02:l,c+z;"";l+1,c+z;"":z:c:y ]""," "," "," " ^" "," "," "," " 31:p=613 :p$:p,5;p$:p _7;20,0;" " .0:7:7:19,0 "Th4CODE" 19,0 "Th4PROG" PRTh4CODE P .R$$6666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|0000ffff<fff<ckk6f<<~ 0~ p 00<~~A]Q]À!"l\!}͗"!fͭ!lͭk ̀!2@! @ͅ! @;*ͯ6*ͮ"m!"s*m"wÝ"o;}\(*oH*s#"s[wR|"q;*qH! !2!{\6!|\6!`ͭ!rͭ!"s!"w!"y|P!"u!"{2*s*ux>> *u#"u[{R@|*s[yz"s[w R`| !"u!"{!"}|!"s!"wå*s*ux>> *s#"s[wR|*u[}z"u[{ R||! !x > !`ͭ!!x!!x !!x !!x !!x!!x > ! !x ! !x ! !x > !!x !!x !!x !!x > !X'N#F#T] < *l\^#V#"l\DM=Ϳ5~(;#~5*2~5"e\##^#VU0Se\U0Se\Ϳ5n4ʹ3_ULGö*_|(ULGö**e\ T] >U">U">U">U">{}>Kv\+-474A218͢-Cv\~(wDM!^#Vz #B(##^#Vp "l\CE\2@<@kF@P@ Z@Gd@n@x@/@{@@0            ,          (     (   $      -        *     !"l\!}͗"!ͭ!ͭ!ͭk !!!!> !"!"u*!>*!>!*!>!>!*!>*!>> M *#"[R| !!!!!!!!!!!! !!  !! > M !!!!YOUR!!  SUCCESS RATE! !  FOR THIS RUN! !IS!!!!>%> M !X'N#F#T] < >U">U">U">{}>}>|;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33!"l\͹|}͗"͹|ͭ͹|ͭk ͹|͹|͹|͹|g ERROR! - RE-START ͹ |͹ |g IN 5 SECONDS > M ͹L͹͹L͹͹|s!X'N#F#T] < DM=Ϳ5~(͹#~ijͨ2~5"e\##^#V;0Se\Ϳ5n4ʹ3*e\ T] >U">U">U">U">{}> ~BBB? !9턷$$6666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff11 )CLSP:BOX:4,22;"PUT THE";6,21;"BASS NOTE";8,21;"AN OCTAVE";10 ,23;"LOWER!":30:PRES:CLSP:INST2:160 9L(3)>13 L(1)<15WPN:160 8X=14:.6,R(X):5:X:35# +.035|\(,R(1):X=117 "\.015zu\,R(4):.015zu\,R(2):.015zu\,R(4):.015zu\,R(3) ,X:.06|u\,R(1) 6,X=14:T(X)=R(X):580D:X @MX=14:T(1)=C(CHK,X)T(1)+12 =C(CHK,X)B$="1" JX TX=24 ^yT(X)=C(CHK,1)T(X)+12 =C(CHK,1)T(X)-12 =C(CHK,1)Q(1)=Q(1)+1:390 hMM=0(T(X)=C(CHK,2)T(X)+12 =C(CHK,2)T(X)-12 =C(CHK,2))Q(2)=Q(2)+1:AX=X*(CHD=-1):390 r(MMCHD=-1)(T(X)=C(CHK,3)T(X)+12 =C(CHK,3)T(X)-12 =C(CHK,3))Q(2)=Q(2)+1:390 |yT(X)=C(CHK,4)T(X)+12 =C(CHK,4)T(X)-12 =C(CHK,4)Q(3)=Q(3)+1:390 X (Q$=Q(1)+Q(2)+Q(3) AB$="0"Q(1)+Q(2)+Q(3)=3ONW:160 <B$="1"Q(1)+Q(2)+Q(3)=3410 !B$="0"Q$="111"ONW:160 AB$="1"Q(1)+Q(2)+Q(3)=2ONW:160 WRONG:160 hT(1)C(CHK,1)T(1)+12 C(CHK,1)V$="THE ROOT":W$="BASS":BTW:160 T(4)C(CHK,TN-(TN=3AX0))T(4)-12 C(CHK,TN-(TN=3AX0))T(4)+12 C(CHK,TN-(TN=3AX0))V$="AS ASKED":W$="TOP ":BTW:160 0PS=1L(2)>13 NPS:160 DOUB:Q$"111"160 PS=1L(2)-L(4)>61:CLSP:BOX:3,21;"RIGHT HAND";5,21;"NOTES MUST";7,23;"BE IN";9 ,23;"CLOSE";11 ,22;"POSITION":25:PRES:0:CLSP:INST2:160 0PS=2L(2)<15NPS:160 :PS=2L(2)-L(3)<6XTA:160 ,PS=2(R(3)-R(2)>9 R(4)-R(3)>12 R(2)<-10 R(2)-R(1)<4R(1)<-10 )1:CLSP:BOX:4,22;"NOT WELL";6,23;"SPACED";9 ,23;"ADJUST":30:PRES:0:CLSP:INST2:160 AX=0550& T(AX)=C(CHK,2)T(AX)+12 =C(CHK,2)T(AX)-12 =C(CHK,2)1:CLSP:BOX:4,21;"ACCIDENTAL";6,23;"BEFORE";8,22;"LEADING-";10 ,23;"NOTE ?":AX=0:502:PRES:0:CLSP:INST2:160 &RIGHT:100d D-T(X)<1T(X)=T(X)+12 :580D N X%:10 ,10 ;"WAIT PLEASE" bSETUP  OP1<3PS=OP1:670 PS=(*2)+1 $OP2=1MM=1:690 MM=(+.5) !OP3<3SGN=OP3:710 SGN=(*2)+1 "CC=8+4*(SGN=1) KEY=(*18)+1 DMM(KEY<4+7-KLIMKEY>18-7+KLIM)720 EMM(KEY<1+7-KLIMKEY>15-7+KLIM)720 CHD=(*3)-1 +KEY<4CHD=-1KEY=KEY+7  CHK=KEY+CHD  TN=(*4)+1 *TN=2(MMCHD=-1)TN=3  )TN=3MMCHD>-1TN=2 *: 4B2:PS=217,0;"IN S.A.T.B.,":840H >"17,0;"PIANO STYLE," H3SGN=217,15;"NO ";:860\ R17,13 ;"WITH "; \"KEY SIGNATURE." f"18,0;"THE KEY IS "; p 0 z7K$(KEY-7*(KEY>7)-7*(KEY>14)); KEY<6" SHARP"; KEY>12 " FLAT"; MM" MAJOR.":940  " MINOR."  N(29):O(29):E(15):J(3):K(3):L(4):R(4):T(4):LL=10 :PC=0:AX=0:NC=0:CN=0:B$="0":Q$="000":X=129:F(X)=21:X   2 !19,0;"WRITE THE "; #0;N$(CHD+2,1); ("TRIAD WITH";20,0;"THE "; 0;N$(CHD+2,TN); " AT THE TOP." $?4;21,0;"R=READY X=NEXT QUESTION Q=QUIT" . 0 B L0,20;"MOVE CURSOR";1,20;"WITH ";2;"6";0;" AND ";2;"7";2,21;0;"OR ARROWS";4,20;"TO PRINT ANY";5,20;"NOTE PRESS ";2;"P";0;6,20;"(";2;"D";0;" TO ERASE)" V8,20;"PRESS ";2;"S";0;" FOR";9 ,20;"p u y";10 ,20;"q, ";2;"F";0;"=v, ";2;"N";0;"=z";11 ,20;"r p{" [12 ,20;"TO ERASE q,";13 ,20;"u y r";14,20;"v OR z USE ";2;"E";0;15,25;"{" `G6;0;7,CC-6;"X__";7,CC+4;"__X" j|X=016:0;6;1;X,11 +4*(SGN=1);" ":X:PC=(PC-1)*(PC-1):CUR t d0:1,0;"_`"'"_a"'"_b"'"cd"'"ef"'"g ";10 ,0;"__"'"hi"'"jk"'"l_"'"__" L0;0,4;" ";1,4;" ";15,6;" " "L=15:1250:L $L=10 14:1250:L  1:  L,2;"_________________" 1L1L7L10 L,18;"^"  uCN=1:BC=0:4;3,23;"X=NEXT";4,22;"QUESTION";7,23;"Q=QUIT" p23658j\,8:"WILL THE KEY SIGNATURE BE FLATS,SHARPS OR EMPTY? (F,S,E) ";R$:23658j\,0:CLSP (+R$="E"I=0:FS=0:1400x 2 R$="F"FS=1:1380d < R$="S"FS=2:1380d FR$="X"100d PR$="Q"QUIT ZBEEP:1310 dh23658j\,8:"HOW MANY? ";S$:23658j\,0:S$<"1"S$>"7"űS$>1BEEP:1380d n I=S$:KSG2 xFFS=S(KEY-3*MM,1)I=S(KEY-3*MM,2)1530 ATT=ATT+1:CLSP:BOX \3,22;"NOT THE";5,21;"RIGHT KEY";7,21;"SIGNATURE!" 4R$="E"9 ,21;"NOT EMPTY:":1490 *FS=S(KEY-3*MM,1)1470 9 ,21;"NOT "; R$="S""SHARPS":1490 " FLATS":1490 GI>S(KEY-3*MM,2)9 ,22;"TOO MANY":1490  9 ,21;"NOT ENOUGH" !11 ,21;"TRY AGAIN!"  65A PRES CLSP:SETUP:ST:1300 CN=0:PC=0: SGN1  C=1I "AC=C+1 ,%PRFS:BC=10 :PRFS:BC=0 6C:LL=10 :PC=0: @R$="" JR$=:R$=""1610J T0CAPS:N=113 :R$=Z$(N)1640h ^N:BEEP:1610J h3R$="6"R$=10 AP=0:DOWN:1600@ r%R$="7"R$=11 UP:1600@ w8(R$="F"R$="N"R$="S")E(LL)0BEEP:1600@ |MLL=8PC(R$="D"R$="E"R$="F"R$="N"R$="P"R$="S")BEEP:1600@ R$="D"R$="P"CLASH  R$="F"FLT  R$="S"SHP  R$="N"NAT  R$="E"ERA 5R$="R"NC4ATT=ATT+1:TMN:1600@  R$="R"ATT=ATT+1:0;7,CC-6;" ";7,CC+4;" ":X=15:0;X,CC+3;"_";X+5-(X=5),CC+3;" ";X+9 ,CC+3;"_":X:0;0,CC+3;" ";15,CC+3;" ";16,CC+3;" ": R$="X"100d R$="Q"QUIT FILE:1600@  LN=B() tR$="P"(F(LN)21F(LN-1*(LN>1))21F(LN+1*(LN<29))21)BEEP:1600@ )R$="D"F(LN)=21BEEP:1600@ "SEM:R$="D"F(LN)=21:ERA  LL=A(FS,C)+BC  PC=B(FS,C) "1860D+40(*(FS=2) & :OLAP D/PCLL-1,AC;"w";LL,AC;"x":1880X NLL-1,AC;"u";LL,AC;"v" X ALTER: bOLAP l/PCLL-1,AC;"s";LL,AC;"t":1920 v2LL-1,AC;"p";LL,AC;"q";LL+1,AC;"r"  ALTER: OLAP /PCLL-1,AC;"|";LL,AC;"}":1960 2LL-1,AC;"y";LL,AC;"z";LL+1,AC;"{"  ALTER: LL>71982 -X=13:J(X)=01976 X:1992 AC=CC-X:J(X)=LL:E(LL)=X ,K(X)0K(X)-J(X)<31994  -X=13:K(X)=01986 X:1992 AC=CC-X:K(X)=LL:E(LL)=X ,J(X)0K(X)-J(X)<31994  ȧCLSP:BOX:4,22;"YOU ARE";5,22;"MUDDLING";6,23;"ME UP:";8,21;"LET'S TRY";9 ,23;"AGAIN!":1996 ʾCLSP:BOX:4,21;"THIS ISN'T";5,22;"GOING TO";6,22;"BE RIGHT:";8,21;"LET'S HAVE";9 ,22;"A FRESH";10 ,23;"START!" ]ATT=ATT+2-1*(ATT>0):25:PRES::SETUP:ST:SGN=1CN=1 %KSG2:PRQU:INST1:INST2:160 LL=76,CC;"___" ?LL=8LL=9 PC8,CC;"___";9 ,CC;"___" 2LL=9 PCLL=10 PC9 ,CC;"___" 5PCLL-1,CC+1;"n";LL,CC+1;"o": LL,CC+1;"m": E(LL)=0 )LN=B():EC=CC-E(LL):E$="___":0 4LL>4LL<9 LL>13 E$(1)=" " 5LL>5LL<10 LL=15E$(2)=" " 4LL=1LL>6LL<11 E$(3)=" " !PCLL+1,EC;E$(1) /LL,EC;E$(2);LL-1,EC;E$(3) 9E(LL)=0:X=13:J(X)=LLJ(X)=0 K(X)=LLK(X)=0 X:1: LL=15PC  +LL<16DEL:LL=LL+(PC=0):CUR  4 LL>1DEL:LL=LL-PC:CUR > RJ0;6;1;LL,CC+3;" ";LL-1,CC+3;" " \ f?PC2;6;1;LL,CC+3;"\":2170z pJ2;6;1;LL-1,CC+3;"[";LL,CC+3;"]" zPC=(PC-1)*(PC-1)   LN=B() &R$="P"F(LN)=P(LN):NC=NC+1: &R$="D"N(LN)=O(LN):NC=NC-1: 6(R$="S"R$="F")N(LN)0BEEP:ERA:1600@ -R$="N"N(LN)=0BEEP:ERA:1600@ R$="N"N(LN)=0: R$="S"N(LN)=1: R$="F"N(LN)=-1: R$="E"N(LN)=O(LN): CN +LN=B():ALT=1-2*(FS=1) N(LN)=ALT:O(LN)=ALT /LN>0LN<7LN=212370B $;LN=8LN=9 LN>22LN<302380L .%LN=222370B :2380L 8 B(N(LN+7)=ALT:O(LN+7)=ALT: L(N(LN-7)=ALT:O(LN-7)=ALT: ` CLSP:BOX eNC>44,22;"TOO MANY";6,23;"NOTES:";8,21;"FOUR ONLY";10 ,22;"PLEASE !" jGNC<45,21;"NOT ENOUGH";8,23;"NOTES!" oPRES:CLSP:INST2 t ~1:CLSP:BOX:4,21;"ONE WRONG";6,23;"NOTE :";8,21;"CHECK AND";10 ,23;"CHANGE":30:PRES:0:CLSP:INST2: Q$="111" 1:CLSP:BOX Q$="012"4,21;"THE CHORD";5,22;"IS RIGHT";7,23;"BUT IT";8,21;"IS BETTER";9 ,21;"TO DOUBLE";10 ,22;"THE ROOT" Q$="021"Q$="120"4,21;"YOU SHOULD";5,23;"AVOID";6,22;"DOUBLING";7,21;"THE THIRD:";9 ,22;"THE ROOT";10 ,22;"IS BEST" Q$="210"J$="5TH":2530 )Q$="201"Q$="102"J$="3RD":2530 -X=13:Q(X)=32520 X:2540 3,21;"THIS CHORD";4,22;"HAS THE";5,21;"SAME NOTE";6,22;"TOO MANY";7,23;"TIMES.";9 ,21;"LET'S TRY";10 ,23;"AGAIN!":30:PRES::0:SETUP:ST:SGN=1CN=1 KSG2:PRQU:INST1:INST2: Z5,21;"THIS CHORD";7,21;"HAS NO ";J$;9 ,23;"IN IT." (35#:PRES:0:CLSP:INST2: 1:CLSP:BOX 3,21;"THE RIGHT";4,21;"CHOICE OF";5,21;"CHORD BUT";6,23;"NOT IN";8,22;"LAY-OUT:";10 ,21;"RE-ARRANGE" PS=22590 +7,22;"""PIANO""":2600( "7,21;"""S.A.T.B.""" ((40(:PRES:0:CLSP:INST2: 2 CLSP:BOX 4ATT=4 SUC=SUC+5-ATT:4,21;"";5,21;"";6,21;"";7,21;"";10 ,21;"WELL DONE!" TP=17:BM=21:CLR ^4;18,3;"PRESS X FOR NEXT QUESTION";21,8;"PRESS Q TO QUIT" R$="" "R$= ,R$=""2850" 6'CAPS:R$"Q"R$"X"BEEP:2850" @R$="Q"QUIT J 0:: TDN=TPBM:0;N,0;" ":N ^ h0:63360:2;6;12 ,12 ;"IS ABOUT";7;1;15,14;(SUC*100d/QUS+.5):200:6:6:2::8,11 ;"GO AGAIN?";11 ,3;"(CHANCE TO CHANGE OPTIONS)" r,236066\,9 :236077\,235 w2"y/n ";R$:CAPS:R$"Y"R$"N"BEEP:2935w |R$="N"2990 :5,3;"PRESS C TO CLEAR THE SCORE"''" AND BEGIN A FRESH ASSESSMENT"''6;"OF YOUR SUCCESS RATE"''''7;"PRESS ANY OTHER KEY"''7;"TO KEEP IT RUNNING" R$=:R$=""2960 (CAPS:R$="C"SUC=0:QUS=0 6:3,9 ;"CHANGE OPTIONS":OPTS:100d Z0:7:7:4::10 ,12 ;"GOODBYE!":135:0 <X=015:X,20;0;" ":X  X=02 163+X,75K+X J0,80P:88X,0:0,-80P:-88X,0 X  L.07}\(,5:.07}\(,3:.07}\(,5:.09}8Q,8 & N514,20;1;4;"PRESS A KEY" X10 :0 b 0:7,0;"OPTION A: You can choose whether to make yourchords inpiano style (3 notes in righthand, close position, bass notein left hand) OR in S.A.T.B. (2notes on each stave) OR both." 14,0;"To be tested in PIANO STYLE ONLY";12 ;"Enter 1";17,0;"To be tested in S. A. T. B. ONLY";12 ;"Enter 2";20,0;"To be tested in BOTH";25;"Enter 3" 1R$:R$>1R$<"1"R$>"3"BEEP:3220 OP1=R$ 7,7;"B: The chords set may be in any key, majoror minor, with key signature orwithout. " TP=11 :BM=12 :CLR "14,16;"MAJOR KEYS " TP=17:BM=18:CLR 20,31;"2" 1R$:R$>1R$<"1"R$>"2"BEEP:3290 OP2=R$ 7,7;"C: All keys are used in this program. You canchoose to limit the keys tothose with not more than 5sharps or flats, or those withnot more than 6." cTP=13 :BM=20:CLR:15,0;"Please enter 5 or 6, or (for thefull range) 7." 1R$:R$>1R$<"5"R$>"7"BEEP:3330 KLIM=R$:7,7;"D: You may be asked to put in the key signa-ture, or to do without one andto supply the chord with all itsaccidentals. " TP=12 :BM=15:CLR 14,0;"For exercises WITH key signature";0;"ONLY";25;"Enter 1";15;17,0;"For exercises using ACCIDENTALS";0;"ONLY";25;"Enter 2";20,0;"for BOTH types";25;"Enter 3" *1R$:R$>1R$<"1"R$>"3"BEEP:3370* 4 OP3=R$ >U236066\,86V:236077\,251:1:7:7:0:: H/0:6:6:0:2: R0,4;"WRITING OF ROOT POSITION";1,6;"CHORDS ON TWO STAVES";2,2;"(INTENDED FOR LEVEL 5 ONLY)" \,236066\,9 :236077\,235 f: z4,0;"NOTE 1: You cannot, and should not need to, use anyleger lines above the treble orbelow the bass stave." `9 ,0;"NOTE 2: ";0;"The lowest note you can use below the treblestave is B.";2;" Any chord positionsneeding a note below B must goup an octave in piano style, orbe re-arranged if in S.A.T.B. Amarker will be put in to remindyou. On leger lines above thebass stave you can go up to F(in S.A.T.B. only)." 18,21;0;"Leger lineswill appear when you print notesthat require them.";2;1;21,19;"(PRESS A KEY)" 110 :0:TP=4:BM=21:CLR  "R$>90ZR$=(R$-32 )  %64106j::20 O