ZXTape! 0Created with Ramsoft MakeTZXa5  1` 3a5 USING THE APOSTROPHE 1983  Eve Gorton  65023 2:2:7: Dn=214:0;7;n,8;" ":n (Jn=1517:4;n,10 ;".";n,17;".":n -Jn=1820:4;n,10 ;"";n,17;"":n 2*4;17,11 ;"" <0;7;4,8;" BLACKBOARD ";5,8;" SOFTWARE ";8,8;" USING THE ";10 ,8;" APOSTROPHE";13 ,8;"SPECTRUM 48K" A$20,0;" STILL LOADING" P"b"65024,512 U|5:5:0::line=5:column=557:height=2:width=1:w$="THE APOSTROPHE":9999' ZOline=45-:column=1:w$="This program has examples and":9999' _Oline=60<:column=1:w$="exercises with a game to play":9999' `Pline=75K:column=1:w$="when you have 10 right answers":9999' aMline=95_:column=1:w$="You can alter the exercises":9999' b>line=110n:column=1:w$="if you wish":9999' c#20,0;"STILL LOADING" d"c" 5:"a5"10:"b"65024,512:.5,1:"a5":"b"65024,512 'x=23306 [:x,column:x+1,line:x+2,width:x+3,height:x+4,8:x=x+4:w=w$:n=1w:x+n,w$(n):n:x+w+1,255:w=65024: -<b ="![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P P PMP6P \Wq !v>??o?0xx<????<~~~<Z~< 0<~@G<<<<<<` c VUYeV apostrophe 9a5  1983 Eve Gorton  the use of the apostrophe (@23561 \,0:23562 \,0:236099\,80P 2<t=0:s=0:wrong=0:y=0:6000p <4:7:0: A 1000 F0:paper=(*8):paper:paper:9 ::1;10 ,5;" Please type your name ";11 ,5;" and then press ENTER ":b$ Gb$=""70F H=b$(1)97ab$(1)=(b$(1)-32 ) J'b$16b$=b$(115) K0:7:0::yy=1:x=1:1:w$="The Apostrophe":8000@:1:x=1:yy=40(:w$="Hello, "+b$:8000@ L1;0;7;11 ,2;"You must answer ten questions correctly with less than 30 tries to go on to play the Grub Game.":5;0;20,8;" Press 1 to go on " M"1"77M P*z(20):0:0:7: UWk=06:5;0;k,0;" ":k V9k=031:7;0;7,k;" ":k WXk=810 :4;0;k,0;" ":k Xz11 ,0;" When the worm in the birds beak is over the right place for the apostrophe, press 6. " Z|0,4;15,0;"Press 5 to go left,8 to go right";17,0;" 6 can only be pressed 30 times" \J20,0;"Right answers=";s;20,17;"No.of tries=";t dstart nm.025{L,0:5;0;5,0;" ";2;" ";0;6,0;" " xwrong=0 }s=10 7000X a=(*20)+1 z(a)=1130 z(a)=1:5000+a l=a$ >7;7,0;" " moving arrow '7;0;7,0;a$ c.025{L,1-y:5;0;5,y;" ";2;" ";0;6,y;" " ="8"y=y+1 ="5"y=y-1 ="6"200 y>27y=27 y<0y=0 +20,14;s;20,29;t 160 check answer t=t+1 t=307000X y+4=z3000 y+4z4000 +23561 \,35#:23562 \,5 150 lesson 4:7:1:0::xx=5:xs=1:ys=2:yy=5:w$="When do we use the apostrophe?":8000@ E2:yy=35#:w$= "1. To show that letters":8000@ 8yy=557:w$=" have been missed out.":8000@ 7yy=85U:w$="2. To show that someone":8000@ 8yy=105i:w$=" possesses something.":8000@ ;4:yy=150:w$="Press 1 to go on.":8000@ $"1"1060$ ) .H2:xx=502:yy=5:w$="1. MISSING LETTERS.":8000@ 3Jxx=1:yy=35#:w$="They can be simply missed out:":8000@ 8A0:9 ,0;" I am going out.":100d =Tn=010 :.125},6:3;1;9 ,11 ;"a":n BHn=09 :3:7,n;" ":.012zD,n-20:n G7,9 ;" ";8,9 ;" ":.125},5:.125},13 :8,9 ;" ";9 ,11 ;" " Ln=9 29:3:7,n;" ";3;1;8,n+2;"a";0;8,n+1;" ":.012zD,n-20:n Nh7,30;" ";8,31;" ":.5,24:.5,19:.5,14 Qln=3011 -1:3:0;7,n;" ";8,n;" ":.012zD,n-20:n V7,11 ;" " [Zn=89 :3:n,11 ;"":.25~,5:8,11 ;" ":n `[n=11 0-1:3:0;7,n;" ":.012zD,n-20:n eY0:7,0;" ";9 ,0;" Im going out. ":100d jQ2:yy=95_:xx=1:w$="or letters can be missed out":8000@ t6yy=115s:w$="and the word changed:":8000@ ~E0;20,1;" I will not go out tonight.":100d cn=010 :.125},15:0;6;1;20,5;"ill no":n \n=308-1:3:0;17,n;" ":.012zD,n-20:n Nn=1820:n,8;"":.05|L,n-30:n,8;" ":n dn=010 :6;2;1;20,5;"******":.125},-25:n  30 20,5;" " "0;17,7;" " Yn=1820:0;n,8;"on ":.125},n:n,8;" ":n $0;20,8;"on " ;0;20,0;" I wont go out tonight." 9.5,24:.5,19:.5,14 vn=80-1:.025{L,n:0;17,n;" ":n:.125},20:17,0;" " b23659k\,1:4;0;22,8;"Press 1 to go on":23659k\,2 "1"1220 M:2:xx=502:yy=3:w$="2. SHOWING POSSESSION.":8000@ Uxx=1:yy=30:1:w$="ADD ""'s"" TO THE OWNER'S NAME:-":8000@ (Y0;12 ,1;"This is John book.":.5,10 :.5,16 *mn=3013 -1:3:0;6,n;" ";7,n;"s ":.012zD,n-20:n +pn=712 :.05|L,n-30:0;n,13 ;"s":.05|L,n-30:n,13 ;" ":n -30;12 ,1;"This is John's book." 2kn=13 29:3:0;6,n;" ":.012zD,n-20:n:6,30;" " 7s.25~,20:.25~,14:.25~,8:0;20,1;"Mr. Smith car is white." <.5,10 :n=3010 -1:3:0;13 ,n;" ";14,n;"s ":.012zD,n-20:n An=1420:.05|L,n-30:0;n,10 ;"s":.05|L,n-30:n,10 ;" ":n:n,10 ;" " B80;20,1;"Mr. Smith's car is white." Fmn=10 29:3:0;13 ,n;" ":.012zD,n-20:n:13 ,30;" " Gb23659k\,0:4;0;22,8;"Press 1 to go on":23659k\,2 H"1"1352H IFj=421:j,0;" ":j Jk23659k\,0:4;0;0;22,8;" ":23659k\,2 KF1:yy=25:w$="IF THE WORD ALREADY ENDS IN s":8000@ PT1:xx=1:yy=40(:w$="THEN ADD THE APOSTROPHE ONLY:- ":8000@ U;12 ,1;0;"The trees leaves are green." Vf16,1;0;"Today is James birthday.";20,1;"Where is Mrs. Jones house." Wcn=3010 -1:0;7,n;" ";8,n;" ":.012zD,n-20:n XLn=812 :n,10 ;"":.02{# =,5:n,10 ;" ":n Y;12 ,1;0;"The trees' leaves are green." Zqn=10 4-1:3:0;7,n;" ":.01z# =,n-20:n:7,4;" " [\n=713 :3:0;n,4;"":.02{# =,5:n,4;" ":n \[n=413 :0;13 ,n;" ";14,n;" ":.01z# =,n-20:n ]Vn=1416:3:n,15;"":.02{# =,5:n,15;" ":n ^80;16,1;"Today is James' birthday." _\n=13 28:0;13 ,n;" ";14,n;" ":.01z# =,n-20:n `5:n=13 17:3:0;n,29;" ";n+1,29;" ":.02{# =,n:n,29;" ":n adn=2920-1:0;17,n;" ";18,n;" ":.01z# =,n-20:n bMn=1819:n,20;"":.02{# =,5:n,20;" ":n c:0;20,1;"Where is Mrs. Jones' house?" dln=201-1:0;17,n;" ":.012zD,n-20:n:17,0;" " iEj=37:j,0;" ":j nM502:1:yy=25:xx=5:w$="You can write ":8000@ oQxx=5:2:yy=45-:w$=" ""James's"" or ""Jones's""":8000@ pG1:yy=65A:w$="but the second S isn't needed.":8000@ qIcr=.25~:mi=.5:qu=.125}:cro=.375?:mio=.75@ rcr,9 :cr,7:cr,5:mio,12 :cr,10 :cr,9 :cr,7:mio,14:cr,12 :cr,9 :cr,17:mi,16:cr,14:mi,19:cr,17:mi,16:cr,12 : u100d:502 S1:7:0::7;1;" THE UNCORRECTED EXERCISES "  2500   w=120:2300 ="2"2066 A7;9 ,0;" Press 1 to alter the sentence." v7;13 ,0;" Press 2 to see the next one.";17,0;" Press 3 to go back to start."  "1"Ʀ"2"Ʀ"3"2080  *="1"2200 /&="3"0:0:6:: 4J1;7;4,0;" ":w > :502 1:7::1;0,0;"1. Press N: Edit your line in the usual way - see Ch.2 of SPECTRUM manual." Q4,0;"2. Max. length of sentence=30 characters and/or spaces." 7,0;"3. VARIABLE Z: count the number of characters before the apostrophe and let z equal that number + 1." /12 ,0;"4. ENTER your new line." `0:13 ,1;" " 5:5000+w  21004 print sentences 1 at a time $5000+w .*1,0;"UNCORRECTED EXERCISES" 8L5;0;4,0;w;7;0;4,2;a$ B w=120 5000+w ;4;0;w,0;w;" ";7;w,2;a$ w G6;0;21,0;" A to alter, R to run program " %"a"Ʀ"A"Ʀ"r"Ʀ"R"2575 ="r"Ŧ="R"2590 )1:7:1::2010 0:0:6:: right answer u5;0;5,y+3;" ";6,y+3;"":.5,10 :5;6,y+3;" " F7;0;7,0;a$(1z-1);"'";a$(zl) +.125},12 :.125},12 : ="6"3070  s=s+1 '.125},12 :.5,0 -5;5,y;" ";6,y;" "  fly bird &b=z0-1:5;0;2,b;" ":.02{# =,-20:5;0;2,b;" ":.02{# =,-18 +b 0!5;2,0;" " 5s=11 7000X y=0:100d wrong answer wrong=wrong+1 H9 ,y;"No!":.5,2:4:4;9 ,y;" " 6="6"41506 @wrong=54500 Ewrong=10 4600 h 5 errors on 1 sentence Mu=56:5;u,0;" ":u gu$=" You have made 5 mistakes on this sentence. Read it again carefully and try once more. " c=200:4700\ 0,4;15,0;"Press 5 to go left,8 to go right";17,0;" 6 can only be pressed 30 times";11 ,0;" When the worm in the birds beak is over the right place for the apostrophe, press 6. "  !10 errors made on same sentence Mu=56:5;u,0;" ":u gu$=" 10 mistakes in one sentence! You are having trouble, aren't you? Here is the right answer."  c=502:4700\ 4&w$=a$(1z-1)+"'"+a$(zl) >P7:2:xx=5:xs=1:ys=2:yy=120x:8000@ H&21,0;"Press 0 to go on" M"0"4685M R 80P \T14,0:j=1̱u$:.02{# =,-20:6;0;u$(j);:j py=0:200 uR14,0:j=1̱u$:0;7;" ";:.02{# =,-15:j  = When you have finished editing, type GOTO 9999 & ENTER 0a$=" Im trying very hard. ":z=6: 1a$="Youre not doing very well. ":z=4: *a$="Thats better! ":z=5: 2a$="We're going but well be back.":z=19: pa$="Therell be a new moon tonight.":z=6:: When you have finished editing type GOTO 9999 and ENTER 1a$="That was silly, wasnt it? ":z=21: 2a$="Susan doesnt like custard. ":z=12 : 0a$="""I cant do it,"" said Ann. ":z=7: /a$="Bob is here and hes tired.":z=19: ja$="Whats the time? ":z=5:: When you have finished editing, type GOTO 9999 & ENTER 3a$="That is Johns book. ":z=13 : 3a$="Is that Susans pen? ":z=14: 3a$="Where is the dogs collar? ":z=17: 2a$="Paris is Frances capital. ":z=16: ga$="The red car is Davids.":z=21::When you have finished editing typeGOTO 9999 and ENTER *a$="Londons buses are red.":z=7: .a$="Write down all boys ages.":z=20: 2a$="It's not mine or Stephens. ":z=25: .a$="Is it yours or Jennys? ":z=21: ra$="The childrens rooms are open.":z=13 ::When you have finished editing type GOTO 9999 and ENTER game _1:flower=0:eaten=0:h=0:e$="":r$="":f$="":o$="":l$="":n$=""  4:1:7:0::1,8;"THE GRUB GAME";5,1;" Type the character shown in the box to save the flower from the grub.";12 ,1;" You may have to use the CAPS SHIFT or SYMBOL SHIFT. " .20,1;"Press any key":0:  \f=2153:3;f-1,15;"";4;f,15;"":f Pj=1621:6;j,0;" ":j  c$="" Cm=2153:4;m,0;c$;m,28;c$ (m Pgame Q v(10 ) UO.5,12 :j=1621:6;j,20;" ":j Z6;0;17,1;"SAVED ";7;3;f$;4;18,7;l$;6;0;20,1;"EATEN ";e$;21,7;r$ _o=110 ngrub=(*10 )+1 sv(grub)=15230n }h=110 v(h)=05265 h o  5900   5300 v(grub)=1  5350 grub55700D grub65750v  5256 0:for choosing letter and fixing line for grub e6;18,25;" ";6;19,25;" ":c=(*90Z)+33! &grub=1grub=6m=2 &grub=2grub=7m=5 &grub=3grub=8m=8 'grub=4grub=9 m=11 (grub=5grub=10 m=14 .c=91[c=92\c=93]c=90Z  :to print SHIFT instructions ac65Ac90Z6;0;18,25;"CAPS ";19,25;"SHIFT" Vc46.0;6;18,25;"SYMBOL";19,25;"SHIFT" ac58:c64@0;6;18,25;"SYMBOL";19,25;"SHIFT"  Oc=94^c=95_18,25;"SYMBOL";19,25;"SHIFT"   butterfly f$=f$+o$:l$=l$+n$ " m,j;" " 1j26j=25 6j4j=5 Jq$="":p$="" ^l=m1-1:5;l-1,j+1;q$;5;l,j+1;p$:.005y# =,l:l-1,j+1;" ";l,j+1;" ":l r6;0;17,1;"SAVED ";7;3;f$;4;18,7;l$;6;0;20,1;"EATEN ";e$;21,7;r$ w 5256 |eat the flower e$=e$+o$:r$=r$+n$ flower=flower+1  Dgrubs move (1) IY7:0:xx=160:yy=140:xs=3:ys=3:w$=c:8000@ NYj=011 :4;m,j;" ":.05|L,j:4;m,j;" ":12 -j S=c5400 Xj ] 5500| b4;m,12 ;" ";m-1,14;"":1,-20:3;m,12 ;" ";m-1,14;"":.5,-25:4;m,14;" ";m-1,14;" " gvj=11 0-1:3;m,j;" ":.03{u\,-30:3;m,j;" ":.03{u\,-30:j l$7;3;m,0;"" p6;0;17,1;"SAVED ";7;3;f$;4;18,7;l$;6;0;20,1;"EATEN ";e$;21,7;r$ q 5256 vgrubsmove(2) wY7:0:xx=160:yy=140:xs=3:ys=3:w$=c:8000@ {cj=2817-1:4;m,j;" ":.05|L,j:4;m,j;" ":j-16 =c5400 j  5500| 4;m,17;" ";m-1,16;"":1,-20:3;m,17;" ";m-1,16;"":.5,-20:4;m-1,16;" ";m,16;"" mj=1727:3;m,j;"":.03{u\,-30:3;m,j;" ":.03{u\,-30:j &7;3;m,28;" " flower10 5700D 6;0;17,1;"SAVED ";7;3;f$;4;18,7;l$;6;0;20,1;"EATEN ";e$;21,7;r$ flower10 5700D  5256 flower flower=flower+1 flower10 5900    end &.5,10 :.5,15 d6:0:xx=1:yy=110n:xs=1:ys=2:w$=b$+", you have":8000@ usemiquaver=.12}u[:crotchet=.45ffff:dcrotchet=.73333:quaver=.2~L:dquaver=.37=p:triplet=.15~  crotchet,9 :dcrotchet,0:quaver,2:dcrotchet,5:quaver,2:triplet,4:triplet,7:triplet,2:dquaver,4:semiquaver,7:dcrotchet,12 %crotchet,9 :dcrotchet,0:quaver,2:dcrotchet,5:quaver,2:triplet,4:triplet,7:triplet,2:dquaver,4:semiquaver,7:dcrotchet,12 >Pj=1621:6;j,0;" ":j CN18,1;"Press 1 to run again";20,1;"Press 0 to stop" H"1"Ʀ"0"5960H M="1"1 R="0"5999o o p0:0:0:6::xx=20:yy=10 :xs=1:ys=2:w$="THE USE OF THE APOSTROPHE":8000@ 8,2;" PRESS:";10 ,2;" 1 to do the exercises";12 ,2;" 2 to see examples of how to use the apostrophe" f15,2;" 3 to see the exercises or to put in your own exercise sentences" "3"Ʀ"1"Ʀ"2"6032 ="1"70F ="2"60< ="3"6100  6035 &vocab chec & editing instructions 1:1:7:  2000 X end routine Y&1:7:0::0 ZQe$="********************************":0,0;e$;21,0;e$ =021:e,0;"*";e,31;"*":e \>e$=e$(5̱e$):2,2;e$;19,2;e$ ]7e=219:e,2;"*";e,29;"*":e `g0:yy=25:xs=1:ys=2:xx=(255-(b$*8))/2:w$=b$:8000@ a~yy=502:xs=1:ys=2:w$=" scored "+s+" with "+t+" tries":xx=(255-(8*w$))/2:8000@ gt217200  lt10 7230> q#t11 t2072204 xayy=100d:xs=1:ys=2:xx=(255-(8*w$))/2:2:8000@ {>:17,8;" Press any key ":0::7100 game=15100 7100d::19,2;"Press R to run again" "r"Ʀ"R"7060  G4;0;0,0;" THE CORRECT ANSWERS " j=120 $4;0;j,0;j;" " 5000+j .005y# =,j ,a$=a$(1z-1)+""+a$(ẕa$) 0;j,2;a$ j C21,0;" Press any key to go on ":0   t21w$="Not so good!" %game=1 *t=30game=0 / 4w$="Good":game=1: > w$="Excellent":game=1:  3:0;10 ,1;" END OF PROGRAM": @i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=w$:n=1w:i+n,w$(n):n:i+w+1,255:w=65024: #( 65023 #2"a"65024,512 #< #F:"a"9000:"a"65024,512 '8:"b"65024,512:"c"1:"b"65024,512:"c"1:"c":"c" ':21004 tsrony i[w@ WTHE USE OF THE APOSTROPHE