ZXTape! 0Created with Ramsoft MakeTZXSTAFF1 ##y# . STAFF1 (P)By CHALKSOFT 16  "UDG1" TRIP=0:20 TRIP=1 1:1: s$=" ":r$=" ":t(13 ):o(13 ):p(13 ):a(16):c$(16):TRIP=064502:TRIP06500d #:6600 (Z236099\,100d:23658j\,8:23561 \,255:23562 \,255 2100d:8,0;"Hello and welcome to the program":100d:''"The purpose of this lesson is to"''"teach you all about the five"''"line grid called the STAFF, and" 20m$="SCORES":90Z 2t$="N"c$="T"120x <:23692\,255:5755{:6000p:10 ,0;"Hello. Please type in your name,"''"and then press ENTER." Fm$:m$=""70F K m$>20m$=m$(20) Pt$="N"l$="T":130 Zm$="SCORES"w=w-1:5700D:w=20''"Too many pupils."''"Note their scores then re-start test...":m$="":6100:30 db$="N"390 nb$="Y"b$="":40( /:23692\,255:5800:502 t$="N"c$="T"160 i''"In this test notes are printed"''"on the staff and you have to"''"name them.":c$="R"250 ''"You may now chose the speed at"''"which the test is taken."''" 1) Slow"'" 2) Moderate"'" 3) Fast"''" Press 1,2 or 3 "; 's$=:s$="1"s=1000:210 s$="2"s=700:210 s=200:s$"3"180 #6600:s$:t$="Y"240 Z''''"You have a choice of taking this"''"test in the BASS or TREBLE" l$=:l$"T"l$"B"230 6600 t$="N"c$="T"260 6100 &:6400:5200P::25 p$(w)=m$:r(w)=right: "+2,7;"THE STAFF - Part two" 6right16330J @i5,9 ;1;"CONGRATULATIONS":m$""7,(32 -m$)/2-1;7;m$ Jw11 ,4;"Your final score was ";right;12 ,11 ;"out of 20":6000p:150 Tw=2040( ^dc$="R"16,1;6;"Please ask the next pupil to come in.":250:40( hEc$="T"20,0;"Like to take the test again ? (Y/N)" r$a$=:a$="Y"w=1:120x |a$"N"370r c6500d:23561 \,35#:23562 \,5:236099\,0:23658j\,0: +"STAFF2"510:"UDG""a",480: "": G6:l$="B"8030^:x=111 :a,b,x$:b,a;x$:x: 48020T:x=115:a,b,x$:b,a;x$:x x=03:24+x,40(+x:0,88X:x:x=03:36$+x,119w:-28,-40(:x: st K6:x=60<124|16:0,x:255,0:x: Ptt ZGz=0:right=0:c=0:5600:75K:8010J dl$="T"8000@ n(x=113 :n$(x),t(x),p(x):x xWz=120:r=(*13 )+1:d=(*20)+7:r=c5240x +t(r)4t(r)16t(r),d;"" .t(r)=44,d-1;"" 0t(r)=1616,d-1;"" A.4L,p(r):s/2:a$=:t(r),d;4;a$:5300 4t(r),d-1;" ":5100:5620:z: an a$=n$(r)5400: 5500|: ye "x18,0;" WELL DONE! ":p(r)>11 x=p(r)p(r)-37%-5:0.1}L,x:x ,=p(r)<12 x=p(r)p(r)+37%5:0.1}L,x:x 6cright=right+1:21,7;"You have ";right;" out of ";z:75K: |no 21,7;"You have ";right;" out of ";z:1,-5:a$=""18,0;" Time up. The note is '";n$(r);"' ":125}:5530 ]18,0;" Wrong - The note is '";n$(r);"' ":502:6100 z>19 :6400:5600: sc &:5800:5000:5100 z<2121,7;"You have ";right;" out of ";z;18,0;" What is this note ? ": Dre N1:1::" NAME";24;"SCORE"'':n=1w:7:3;p$(n);29-(r(n));r(n):n X='"Do more pupils need the same"'"test ? (Y/N) "; b1b$=:b$="Y"b$="N"b$:6600:75K: l 5730b v#3,9 ;"By D.B.Riddell" {-#0;"Published (P) 1983 by CHALKSOFT " ti 0,0;" ---------------------------- READING THE STAFF - Part two ----------------------------  By D.B.Riddell":25:   ptu z.8040h:x=19 :a,b:b,a:x: ca *#0;" Press SPACE BAR" b$=:b$" "6120 6600: 8te Bu:23692\,255:5800:6,0;"Is this program being used by a teacher ?  (Y/N) "; L!t$=:t$"N"t$"Y"6220L VA6600:6;t$:100d:100d:t$="N"c$="T": `=11 ,0;"Treble or Bass clef ? (T/B) "; t!l$=:l$"T"l$"B"6260t ~6600:6;l$:100d:''''" Please decide how you wish to use this program.":502:''" As a teaching program for one" p"pupil.  (Type 'T')"''" As a repeating test for a"'"number of pupils. (Type 'R')" !c$=:c$"T"c$"R"6290 !6600:100d:c$="T" 9'''" Choose the speed at which the test is taken." Z''" 1) Slow"'" 2) Moderate"'" 3) Fast"''" Press 1,2 or 3 "; (s$=:s$="1"s=1000:6370 !s$="2"s=700:6370 s$"3"6330  s=200 }6;s$:6600:100d:c$="R"'''" At the end of each test the pupil is asked to fetch the nextpupil." ''" After each pupil's turn you may read the results by typing 'SCORES' when the computer asks for the pupil's name.":6100: is  l$="T"6440( :5800:5,0;"An easy way to read the Bass Clef is to read the notes as if they were in the TREBLE clef andthen add on TWO letters." ''"For example. If the note would be 'A' in the Treble clef, the same note would be 'C' in the Bass clef."'''"It really is very easy and will become clear with practice.":6100 (:5000:5100:5800:19,0;"These are the notes used in the test. Study them carefully.":8010J:l$="T"8000@ 2d$,t,p:16,14;4;d$;"":d$,t,p:15,6;4;d$;" ":a=8142:d$,t,p <t,a;4;d$;" ":a Fn=16242:d$,t,p:t,n;4;d$;"":n:d$,t,p:t,16;4;d$;" ":d$,t,p:t,26;4;d$;"" P6100: Z%:3,9 ;"By D.B.Riddell" dco i n0,0;"*********************************** N O T E I N V A D E R S ***********************************  By D.B.Riddell":6600:150 xv''''" THE STAFF - Part two":6600:100d:e=1:#0;"Published (P) 1983 By CHALKSOFT" 6000p:275:: be =x=(*15)+8:0.2~L,x:0.3,x+3: @"C",16,0,"D",15,2,"F",13 ,5,"A",11 ,9 ,"C",9 ,12 ,"E",7,16,"E",14,4,"G",12 ,7,"B",10 ,11 ,"D",8,14,"F",6,18,"G",5,20,"A",4,22 J"E",16,-8,"F",15,-7,"A",13 ,-3,"C",11 ,0,"E",9 ,4,"G",7,7,"G",14,-5,"B",12 ,-1,"D",10 ,2,"F",8,5,"A",6,9 ,"B",5,11 ,"C",4,12 T93,12 ,"",2,12 ,"",2,11 ,"",3,11 ,"",4,11 ,"",4,12 ,"",4,13 ,"",3,13 ,"",2,13 ,"",1,13 ,"",1,12 ,"",3,5,"",4,5,"",4,6,"",2,16,"" ^1,8,"",1,7,"",2,7,"",3,7,"",3,8,"",3,9 ,"",3,10 ,"",3,11 ,"",2,11 ,"",4,8,".",4,9 ,"." h21,.2~L,23,.2~L,24,.2~L,26,.2~L,24,.2~L,21,.2~L,24,.4L,28,.4L,29,1 UDG 0Xx2<~~<<<