ZXTape! a6 B #D /a6 CAPITAL LETTERS 1983  Eve Gorton  65023 2:2:7: Fn=214:0;7;n,7;" ":n (Jn=1517:4;n,10 ;".";n,17;".":n -Jn=1820:4;n,10 ;"";n,17;"":n 2*4;17,11 ;"" <0;7;3,8;" BLACKBOARD ";4,8;" SOFTWARE ";6,8;" PUNCTUATION";8,8;" PROGRAM 2";10 ,8;" CAPITAL ";11 ,8;" LETTERS";13 ,8;"SPECTRUM 48K" A$21,0;" STILL LOADING" P"b"65024,512 U}5:5:0::line=5:column=557:height=2:width=1:w$="CAPITAL LETTERS":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:"a6"10:"b"65024,512:.5,1:"a6":"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: ' innolumeighidtx[wW if you wishob P(![~#"[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 88 MO=O\GWq !v>UUUU ~~+++||իի~~~???<<<<15a$=a$(115) 8=a$(1)97aa$(1)=(a$(1)-32 ) BPline=70F:co=1:ht=2:wh=1:w$="Hello, "+a$:8000@ G>21,0;" Press any letter to go on ":0 H 1:7:3:  dline=1:col=2:ht=2:wh=1:w$="CAPITAL LETTERS ARE USED FOR:-":8000@ .5,14:10 aline=16:col=2:ht=2:wh=1:w$="1 The start of a sentence.":8000@ o0;4,3;" The cat is black. ":20:0;1;4,4;"T":7000X eline=42*:col=2:ht=2:wh=1:w$="2 Proper nouns - names of ":8000@ `line=568:col=2:ht=2:wh=1:w$=" people,places,days,etc.":8000@ 0;10 ,1;" Jane went to Paris on Monday.":20:0;1;10 ,2;"J";10 ,15;"P";10 ,24;"M":7100 Bline=88X:w$="3 Letter ""I"" when it means me.":8000@  }0;14,1;" Tomorrow I will go shopping,":20: 0;1;14,11 ;"I":7200  Aline=122z:w$="4 Letters after people's names":8000@ 1line=140:w$=" or initials.":8000@ 0;20,1;"The speaker was John Smith,M.P.":20:0;1;20,28;"M";20,30;"P":7300 S4;0;21,0;" Press any key to go on":0:500 "s=0:t=0: ' 21004: ,epaper=4:q=0:k=11 21:paper;k,0;" " .k12 paper=0 /k 1[20,0;"Score:";s;21,0;" 5=left 8=right 6=put in capital" @exercises J3v=(*20)+1:z(v)=11610J Lz(v)=1 ORwrong=0:j=0:5;0;20,0;"Score:";s T2000+v YS0:7:col=9 :line=130:ht=2:wh=1:8000@ ^$6;15,j-1;" " c.025{L,-40( d$6;15,j-1;" " e.025{L,-40( h="6"1700 m="5"j=j-1 r="8"j=j+1 wj30j=30 |j1j=1  1630^  1610J w=(*5)+1 ="6"1700  t=t+1 jz1900l j=z1800  K15,1;"*CORRECT*":.25~,12 :.25~,12  s=s+1 2000+v e7:1:col=z*8:ht=2:wh=1:w$=x$:line=130:8000@:0 505;0;20,0;"Score:";s :J.25~,20:.25~,20:.25~,20:4100+s ?s10 6000p Dtk=1150:k:k=12 19:0;k,0;" ":k:1690 lwrong answer owrong=wrong+1 qwrong41950 v=.5,6:15,1;"WRONG! TRY AGAIN!" @g=0100d:g:15,0;" "  1630^ d.5,6:.5,1:1,-6:15,1;"WRONG! THE ANSWER IS" 2000+v I1,3:7:0:w$(z)=x$:line=130:8000@ wrong=0 k=0250:k Pk=12 19:0;k,0;" ":k  1600@ sentences/words /z=1:w$="he went to find it.":x$="H": .z=1:w$="today is Saturday.":x$="T": e z=10 :x$="T":w$="Careful! there's a car coming."::when editing, GOTO 3300 to go on  9z=1:x$="A":w$="a policeman stopped the cars.": 5z=15:x$="H":w$="This is Jack. he is ten.": lz=22:x$="E":w$="He wrote a letter to edward."::when editing, GOTO 3300 & ENTER to go on  :z=4:x$="M":w$="On monday, she went to London.": 3z=19:x$="M":w$="My birthday is in may.": cz=25:x$="R":w$="My parents live in Dale road."::when editing, GOTO 3300 to go on  3z=18:x$="S":w$="My dog is called shep.": =z=23:x$="I":w$="""What are you doing?"" i asked.": 8z=8:x$="I":w$="I know i will pass the test.": jz=4:x$="I":w$="If i have time, I'll go today."::when editing, GOTO 3300 & ENTER to go on ;z=16:x$="I":w$="The nurse says i'm better now.": -z=6:x$="I":w$="Yes, i like dogs.": ;z=28:x$="C":w$="I watched the program on BBc2.": cz=14:x$="A":w$="Ian Jones, B.a., is a teacher.":: when editing, GOTO 3300 to go on  7z=23:x$="C":w$="My father works for I.c.I.": ;z=23:x$="J":w$="The letter is from Mr.j.Smith.": 5z=21:x$="V":w$="The soldier won the v.C.": =when editing, type GOTO 3300 & ENTER to go on 4 instructions 71000:0:0::paper=1:j=021:j,0;paper;0;" " 9%j9 j11 paper=4 ;j12 paper=6 >j C$q=.2~L:c=.4L:m=.8L Hx7;0;12 ,0;" For each right answer the tree will grow an apple  ":4000 INq,-1:q,1:q,2:q,4:q,6:q,2:c,6 Rt7;0;15,0;" You must get 10 right answers to complete the program. ":4010 VBq,5:q,1:c,5:q,4:q,0:c,4 \T7;0;18,0;" Key 5 = go left, 8 = go right ":4020 ]T7;0;20,0;" Press 6 to put in the capital. ":4030 a-q,-1:q,1:q,2:q,4 g-q,6:q,2:q,6:q,11 h7q,9 :q,6:q,2:q,6:m,9 p^#1;0;7;0;0,0;" PRESS ANY LETTER TO GO ON ": ug0:#1;0;0;0;0,0;" PRESS ANY LETTER TO GO ON ": z editing instructions paper=(*8):23561 \,0:23562 \,0:paper:paper:9 ::line=10 :col=1:ht=2:wh=2:w$="CAPITAL LETTERS ":8000@ yline=502:col=1:wh=1:w$="Press:-":8000@:line=85U:w$="1 to see the examples":8000@ Qline=105i:col=1:wh=1:w$="2 to do the exercises":8000@ Xline=125}:col=1:wh=1:w$="3 to see/alter the sentences":8000@ "1"Ʀ"2"Ʀ"3"3040 ="2"1570" ="1"1500 K1:1:7::0,2;"THE UNCORRECTED EXERCISES" !="1"3105! &w=120 +2000+w 0@4;0;w,0;w;7;0;w,2;w$ 5w :D6;0;21,0;"Press A to alter,R to return" ?%"A"Ʀ"a"Ʀ"r"Ʀ"R"3135? D="R"Ŧ="r"10 Ig=1502:g N:w=120 S2000+w X31,0;"UNCORRECTED EXERCISES:CAPITALS" ]L5;0;4,0;W;7;0;4,2;w$ ^="2"3156T b7;9 ,0;" Press 1 to alter the sentence";11 ,0;" Press 2 to see the next one";13 ,0;" Press 3 to go back to start" g"1"Ʀ"2"Ʀ"3"3175g l="1"3200 q="3"500 v1;7;4,0;" ":w:18,0;"Press S to save your program";19,0;"Press R to return to menu" w%"R"Ʀ"r"Ʀ"S"Ʀ"s"3191w x="R"Ŧ="r"500 y="S"Ŧ="s"9999' z 500 { 500 alteration routine C:0,0;"1. Press L then N: ready to EDIT" 2,0;"2. Make sure that your sentence has less than 30 characters.";5,0;"3. Variable z = the position of the missing capital letter";8,0;"4. x$ = the missing capital." T10 ,0;"5. ENTER your new line. Then GOTO 3300 & ENTER to go on" "L"Ʀ"l"3225 $6:0:2000+w 3190v )1:1:7::3190v   tree Ej=10 8-1:2;4;j,14;"":j: I1:4;5,10 ;"";4;" ";1;"" I1:4;6,10 ;"";4;" ";1;"" I1;4;7,10 ;"";4;" ";1;""  G1;4;3,11 ;"";4;" ";1;"" G1;4;4,11 ;"";4;" ";1;""  F1;4;2,11 ;" ";4;" ";1;"" F1;4;1,11 ;" ";4;" ";1;"" E1;4;0,13 ;"";4;" ";1;"":  APPLES  in the tree o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;2,13 ;"": o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;2,15;"": o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;4,12 ;"": o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;4,14;"":  o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;4,16;"":  o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;6,11 ;"":  o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;6,13 ;"":  o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;6,15;"":  o.05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;6,17;"": .05|L,s:.05|L,s+1:.05|L,s-1:.05|L,s:2;4;0,14;"":1,20:  game  e(10 ) jcaught=1:paper=4:l=12 21:paper;l,0;" " l16paper=7 l |7;0;18,0;"Press the letter printed above ";19,0;"to save the falling apple " p4;0;12 ,3;"";0;6;21,0;" Press 1 to go on " "1"5040 Pl=1821:7;l,0;" ":l 7q=0:i$="":h$="":f$="":g$="":x=10 ;7;0;18,0;"SAVED";2;f$ R7;0;20,0;"SQUASHED";21,0;2;h$ start of loop 23658j\,8 z=110 Cj=10 8-1:2;4;j,14;"":j  5700D a=0c=10  a=2z=9 c=9  a=2z=8c=8 #a=4c=(*3)+5 #a=6c=(*4)+1 e(c)=15110 5800+c h=(*26) .5,0:7:0:line=120x:col=120x:ht=2:wh=2:4:w$=" ":8000@:7:w$=(65A+h):8000@  %U=0(35#-(z*3)):U  <4:f=a11 :1;2;8;f,b;"" #(11 -z)/100d,20-f %1;4;8;f,b;"" #=(65A+h)5300 <f Acaught=05400 B 5200P Fz K 5900  P apple lands U4;2;13 ,b-1;"";7;0;15,12 ;"Splat!";16,12 ;" ":2,-30:4;15,12 ;" ";16,12 ;" ";12 ,x;" "  h$=h$+i$ <7;0;18,0;"SAVED ";2;f$ R7;0;20,0;"SQUASHED";21,0;2;h$  5190F  catch apple 8;2;f,b;"" caught=0 ""5301 Xq=q+1:r=2b-1:0;4;12 ,r;" ";:.005y# =,r:r #0;4;12 ,b;"" 8;f,b;" "  APPLE CAUGHT ROUTINE " f$=f$+g$ '2;8;11 ,b;"";12 ,b;"":4:11 ,b;" ":k=b3-1:2;0;12 ,k;"";4;" ":.005y# =,k:k 1r2;0;12 ,3;"":.25~,2:4;2;12 ,2;"";0;"" 6bk=12 17:8;2;k,2;"":.005y# =,-k:8;k,2;" ":k ;7:2:k=14+q:.05|L,2:17,k;" ":.05|L,4:17,k;" ":.05|L,5:17,k;" ":.05|L,7:17,k;" ":k @S17,k-1;" ":.125},-20:4:17,k-1;" " c[7;0;20,0;"SQUASHED";21,0;7;2;h$ h>7;0;18,0;"SAVED ";2;f$ m,0;4;12 ,0;" " rcaught=1:5190F D select line N z1z4a=6 X z5z7a=4 b z=8z=9 a=2 gz=10 a=0 v $dropping apples - random selection "e(1)=1:b=11 : "e(2)=1:b=13 : "e(3)=1:b=15: "e(4)=1:b=17: "e(5)=1:b=16: "e(6)=1:b=14: "e(7)=1:b=12 : "e(8)=1:b=15: "e(9 )=1:b=13 : #e(10 )=1:b=14:  end  'm$="** Press R to RUN ** S to STOP *" *(7;0;15,0;m$ 4m$=m$(2)+m$(1) H="R"Ŧ="r"1 M="S"Ŧ="s"5999o R.125},7 f 5930* o pend u zPd=12 21:0;d,0;" ":d Vline=100d:col=1:ht=2:wh=1:w$=a$+" has scored":8000@ Zline=120x:col=502:ht=2:wh=1:w$=s+" right answers":8000@ Zline=140:col=502:ht=2:wh=1:w$="with "+t+" tries":8000@ score=1000/t 7score491score30w$="***NOT SO GOOD***" -score29w$="***HAVE ANOTHER TRY***" 6score69Escore502w$="***A GOOD TRY***" &score70Fw$="***VERY GOOD***" 'col=(255-(8*w$))/2 %line=160:7:8000@ score296100 1:n=17::n:100d:5000 2:7000X:7100:7200 :7300 200::1000 Xtune b bp=13 l.5,14,.0625|,16,.0625|,14,.0625|,12 ,.25~,11 ,.25~,7,.25~,7,.25~,9 ,.25~,2,.25~,2,.25~,11 ,.25~,7,.25~,7  7800x   bp=11 .5,14,.0625|,16,.0625|,14,.0625|,12 ,.25~,11 ,.25~,7,.25~,7,.25~,9 ,.25~,2,.25~,2,1,7  7800x  * bp=12 4.25~,9 ,.25~,2,.25~,2,.25~,11 ,.25~,7,.25~,7,.25~,9 ,.25~,2,.25~,2,.25~,11 ,.25~,7,.25~,7 > 7800x R  bp=11 .5,14,.0625|,16,.0625|,14,.0625|,12 ,.25~,11 ,.25~,7,.25~,7,.25~,9 ,.25~,2,.25~,2,1,7  7800x  xn=1bp }p,q p,q n  @i=23306 [:i,col:i+1,line:i+2,wh:i+3,ht:i+4,8:i=i+4:w=w$:n=1w:i+n,w$(n):n:i+w+1,255:w=65024: #' #(.65023:"bytes"65024,512: '@:"b"65024,512:"c"1:1,10:"b"65024,512:"c"1:"c":"c" ':"Saving program":"caps"9000(#:"Saving bytes":"bytes"65024,512:"REWIND TAPE AND PRESS PLAY":"Verifying program":"caps":"Verifying bytes":"bytes"65024,512:"Switch off tape": tsronapein}oi[w@ gW3 to see/alter the sentencesj