reader uYlύu!lines=19:words=117u h=0:300, !"Simon the Snail has a friend." $"His friend is Lucy the Ladybird." #"Simon has a little house in the" "garden.Lucy likes to go" "and see Simon.Lucy has some" $"little cakes for tea.Simon likes" ""the cakes.Simon has some toys." !"He has a toy ball.The ball is" "red and blue.Lucy likes her" "friend Simon.Lucy likes the" ""toy ball.She plays with it and" #"Simon eats the cakes.They go to" #"the pond with the ball.Lucy and" "Simon see the red and blue"  "flowers at the park.Lucy and" !"Simon see a friend.The friend" $"has a boat.The boat and the ball"  "are in the pond.They see the" "ball and the boat." 2A7:2:2:0:0:0:0: 7zs$="(wh)i(ch) op(sh)un (dd)(ou) y(ouu) wan(tt)":1:2,3;:c$="Which option do you want ?":9200# ";d$:d$="y":470 d$"n"442 1,1: ח8,0;:c$="Would you like instructions on how to change the program so that you can put your own stories in? (y/n)":9200# .5,5:">";d$ d$="y"5000 d$"n"d$"y"472  G"Lucy","has","a","friend.","Her","friend","is","Simon","the","snail." g"Simon","has","a","little","house","in","the","garden.","Lucy","likes","to","go","and","see","Simon." 3"Lucy","has","some","little","cakes","for","tea."  "Simon","likes","the","cakes." ;"Simon","has","some","toys.","He","has","a","toy","ball." '"The","ball","is","red","and","blue." ("Lucy","likes","her","friend","Simon." $"Lucy","likes","the","toy","ball." ?"She","plays","with","it","and","Simon","eats","the","cakes." 4"They","go","to","the","pond","with","the","ball." R"Lucy","and","Simon","see","the","red","and","blue","flowers","at","the","park." *"Lucy","and","Simon","see","a","friend." ""The","friend","has","a","boat." :"The","boat","and","the","ball","are","in","the","pond." /"They","see","the","ball","and","the","boat." lx$(words,15):wac=0:wdo=21:rac=0:rdo=0:yer=1:r=0:w=0 4480:7:2:0::7000X  %4,0;1;7;"RIGHT (press r)";17,15;1;7;"WRONG (press w)":12 ,8;7;" ";9 ,8;7;" ";10 ,8;7;" ";11 ,8;7;" " n=1words a$ 0@10 ,(31-a$)/2;0;7;1;a$ 5""5655 :$"r"Ʀ"w"Ʀ"R"Ʀ"W"570: D="r"Ŧ="R"s$="(rr)(ii)(tt)":1:r=r+1:rdo,rac;"":rac=rac+1:rac=32 rac=0:rdo=rdo+1 E="w"Ŧ="W"s$="(rr)o(ng)":1:w=w+1:x$(yer)=a$:yer=yer+1:wdo,wac;"":wac=wac+1:wac=32 wac=0:wdo=wdo-1 N/10 ,8;7;" " XZn:s$="pl(ee)s w(ay)(tt)":1:10 ,14;0;7;1;"WAIT" ]+6900::1:1:7: ^}10 ,0;:c$=" Would you like a printout of all the words that were read wrongly? (y/n)":9200# `.5,2:">";d$ ad$="y"650 bd$"n"608` l 3000  ]s$="p(rr)in(tt)(er) a(tt) w(or)(ck)":1:10 ,8;1;"PRINTER AT WORK" n=1words $x$(n)=" "690 x$(n)  d$="y" n M:5,0;:c$="Would you like another printout?(y/n)":9200# .5,6:">";d$ +d$="y"n=15::n:670 d$"n"700  3000 :7:2:2: n=0lines-1 a$ !n,0;7;2;a$ n {s$="press en(ee) k(ee) (tt)(ou) continy(ouu)":1:21,0;:c$=" PRESS ANY KEY TO CONTINUE":9200# $""1060$ .=""1070. 3.5,5 8es$="pl(ee)s w(ay)(tt)":1:21,0;" PLEASE WAIT ":62008: B 502 :7:1:1: as$="p(rr)in(tt)(er) a(tt) w(or)(ck)":1:::10 ,8;1;"PRINTER AT WORK" n=1lines a$ a$  n  1050 7:0:0: ws=w:rs=r 13 ,2;2;1;" " 14,12 -ws;w 1,4;4;1;" " 2,8-rs;r per=(r/(r+w))*100d per=per x=11 :y=1 Gper<33!be=.025{L:y$="":u$="":h$="":j$="" Iper33!per<66Bbe=.05|L:y$="":u$=" ":h$="":j$=" " Fper66Bbe=.01z# =:y$="":u$="":h$="":j$=" " )per<20g$="NEEDS TO KEEP TRYING" 5per20per<40(g$="NEEDS MORE PRACTICE" 5per40(per<60<g$="MADE A FAIR ATTEMPT" 0per60<per<80Pg$="READ VERY WELL" 5per80Pg$=8+"'s READING IS EXCELLENT" gll=(31-(z$+g$+1))/2:9 ,9 ;per;"% CORRECT.";20,ll;z$;" ";g$;"."  4000 n=127 g,oo 8oo=-1oo=0x,y;k$;l$:x-1,y;i$;o$ ,oo=1x,y;h$;j$:x-1,y;y$;u$ $be,y:x,y;" ":x-1,y;" " x=x+g:y=y+oo n &n=12:.1}L,11 :.1}L,11 :.4L,14:.05|L,13 :.05|L,18:.05|L,11 :.05|L,16:1,22 'n 0G#1;2;7;1;" PRESS ANY KEY TO CONTINUE " :""3130: D=""3140D I%.5,5:per>h8000@ N 502 +year=0:7:0:0: G9 ,0;"Could you please give me the following details?" s$="(wh)a(tt) is (dth)(er) (ch)(ii)l(dd)'s n(aa)m":1:"The child's name (max 10 chars) >";z$:z$>10 3502 52,0;"________________________________" }9 ,0;" ":4,0;"Child's name is ";z$ s$="en(tt)(er) (dd)(aa)(tt) (or)f (bb)(er)f":1:6,0;"Enter date of birth as day/month/year(e.g.6/12/68)":200 !7,0;1;"day" $s$="(dd)(aa)":1:"Day>";day .7,0;"day/";1;"month" 's$="mon(th)":1:"Month>";month /7,0;"day/month/";1;"year" 's$="(yy)(ear)":1:"Year>";year #7,0;"day/month/year" U6,0;" " F6,0;1;"Date of birth is ";day;"/";month;"/";year es$="is (dth)is (ck)u(rr)e(ck)(tt) w(ii) (or) en":1:"Is this correct ? (y/n) >";d$ d$="n"3500 d$"y"3515 `6,0;0;"Date of birth is ";day;"/";month;"/";year:reac=13546 58,0;"________________________________" vs$="en(tt)(er) (dd)(aa)(tt)":1:10 ,0;"Enter today's date as day/month/year":100d "11 ,0;1;"day" %s$="(dd)(aa)":1:"Day>";tday +11 ,0;"day/";1;"month" (s$="mon(th)":1:"Month>";tmonth 011 ,0;"day/month/";1;"year" (s$="(yy)(ear)":1:"Year>";tyear V10 ,0;" " I10 ,0;1;"Today's date is ";tday;"/";tmonth;"/";tyear es$="is (dth)is (ck)u(rr)e(ck)(tt) w(ii) (or) en":1:"Is this correct ? (y/n) >";d$ d$="n"3527 d$"y"3540 10 ,0;0;"Today's date is ";tday;"/";tmonth;"/";tyear:s$="press en(ee) k(ee) (tt)(ou) continy(ouu)":1:21,0;2;7;1;" PRESS ANY KEY TO CONTINUE " ""3544 =""3545 tyear=year+1900l:tyear=tyear+(1900lreac=0):bdays=(year*365m)+((month-1)*30)+day :tdays=(tyear*365m)+((tmonth-1)*30)+tday adays=tdays-bdays age=(adays/365m) .age=age*10 :age=age:age=age/10  0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1 0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1 A0,1,0,1,0,1,0,1 !0,1,0,1 u"to","is","he","at","up","for","and","of","his","or","sun","went","just","big","my","that","girl","day","pot","one" "boys","no","water","some","told","wet","things","sad","carry","now","nurse","quickly","love","scramble","village","shelves","return","terror","known","journey","beware" "twisted","luncheon","explorer","obtain","tongue","steadiness","projecting","serious","commenced","scarcely","domineer","labourers","fringe","nourishment","belief","trudging","exhausted","formulate" "overwhelmed","universal","circumstances","urge","destiny","glycerine","motionless","events","reputation","perambulating","melodrama","apprehend","ultimate","humanity","contemptuous","atmosphere","perpetual" "theory","excessively","emergency","philosopher","autobiography","economy","binocular","fatigue","exorbitant","champagne","melancholy","physician","efficiency","influential","attrocious","terminology","mercenary","renown","refrigerator","encyclopaedia","constitutionally","unique" "contagion","palpable","hypocritical","fallacious","phlegmatic","microscopical","eccentricity","subtlety","alienate","ingratiating","poignancy","phthisis" X4100:xer=1:r=0:w=0:counter=0:w$(110n,16) 7:0:0: 0::3,8;"RIGHT (press r)";18,8;"WRONG (press w)":9 ,6;0;" ";10 ,6;0;" ";11 ,6;0;" ";12 ,6;0;" " q=1110n a$:a$=" "+a$+" ":9 ,((31-(a$))/2);1;""(̱a$):11 ,((31-(a$))/2);1;""(̱a$) @10 ,(31-a$)/2;7;0;1;a$ ""4125 e=1200 "="r"Ŧ="w"4139+ #e $29 ,6;2;" YOU RAN OUT OF TIME" %Ie=623:10 ,e;" ":11 ,e;" ":.1}L,e:e &@12 ,3;:c$="I'VE EATEN THE WORD. HIC!":9200# '11 ,20;0;" ":w=w+1:counter=counter+1:1,-10 :1,-20:1,-30:w$(xer)=a$:xer=xer+1:8,6;0;" ":12 ,3;0;" " +c="w"s$="(rr)o(ng)":1:w=w+1:counter=counter+1:w$(xer)=a$:xer=xer+1 ,A="r"s$="(rr)(ii)(tt)":1:r=r+1:counter=0 1counter=64600 2~9 ,0;0;" " 6q ;rage=(r/10 )+4 @L0::5,0;:c$=z$+"'s reading age is "+rage:9200# J@10 ,0;:c$=z$+"'s actual age is "+age:9200# O'''' P r=rage-age hs$="(wh)(oo)(dd) y(ouu) l(ii)(ck) (aa) p(rr)in(tt)(ow)(tt) ov y(ou)r s(ck)(or)":1:20,0;:c$="Would you like a printout of your score? (y/n)":9200# i"ANSWER>";d$ jd$="y":10 ,8;1;"PRINTER AT WORK":::"NAME:";z$:::"READING AGE=";rage::"ACTUAL AGE=";age::"DATE: ";tday;"/";tmonth;"/";tyear:4230 kd$"n"4201i 0:5:5: s$="(wh)i(ch) op(sh)un (dd)(ou) y(ouu) wan(tt) press (dth)(er) (nn)um(bb)(er) y(ouu) wan(tt) (nn)(ow)":1:1,3;"Which option do you want?" A3,0;"(1)Printout of words wrongly read." I7,0;"(2)Screen listing of words wrongly read." :11 ,0;"(3)Printout of all words in test" )14,0;"(4)Repeat test." 17,0;"(5)Exit from the reading test.":20,0;"Press the number you want ";1;"now":0,23:0,134:255,0:0,-134:-255,0 ""4182V =""4283 +"1"Ʀ"2"Ʀ"3"Ʀ"4"Ʀ"5"4283 ="1"44000 ="2"4450b ="3"4360 ="4"4900$ ="5"502 s$="p(rr)in(tt)(er) a(tt) w(or)(ck)":1::10 ,8;1;"PRINTER AT WORK":4100:n=15::n:n=1110n  a$:a$    n  4230 3s$="p(rr)in(tt)(er) a(tt) w(or)(ck)":1::10 ,8;1;"PRINTER AT WORK":n=15::n:n=1(xer-1) 4w$(n) 5 6n 7 4230 b:n=1(xer-1) c w$(n) dn es$="press en(ee) k(ee) (tt)(ou) continy(ouu)":1:#1;2;7;1;" PRESS ANY KEY TO CONTINUE " g""4455g h=""4456h i 4230 :c$=z$:8,(31-c$)/2;:9200#:10 ,0;:c$=" has read 6 consecutive ":9200#:'':c$=" words wrongly.":9200# s$="press en(ee) k(ee) (tt)(ou) continy(ouu)":1:21,0;2;7;1;" PRESS ANY KEY TO CONTINUE "  ""4620  =""4630  4155; $reac=1:3500 B 4116  "c$="The story is located in two" S9200#:c$="lots of DATA statements these are in two parts of the program." .9200#:c$="(1). Between lines 6 to 49." 39200#:c$="And (2).Between lines 480 to 518" 19200#:c$="The first section is the story" 39200#:c$="in lines.You will have to delete" +9200#:c$="this and enter your own." 09200#:c$="In line 1 change the variable" 19200#:c$="'lines' to the number of lines" !9200#:c$="in your story."  9200# gc$="Next delete the DATA statements in the lines 500 to 519 and insert your own story (in words)"  09200#:c$="In line 1 change the variable" A9200#:c$="'words' to the number of words in your story."  9200# /"Do you want a printout of this? (y/n) >";d$ ('1,1:d$="y":5180< 2d$"n"5150 < P&7:0:0::1 QQ2,10 ;:c$="Hi there!!":9200#:s$="H(ii) (dth)(aer)":1 Rd4;0,71G:4;255,0:n=030:.01z# =,15-n:n S 2,10 ;" " Te5,8;:c$="Meet the gang!!":9200#:s$="m(ee)t (dth)(er) (ggg)a(ng)(ggg)":1 U+n=1302:.1}L,n:n Vf20,8;:c$="Simon the Snail":9200#:s$="s(ii)ma(ng) (dth)(er) s(ng)(ay)l":1 Wn=029 XI11 ,n;1;4;" ";12 ,n;4;1;" " Y.15~,-*20:n:1;0,71G:1;255,0:11 ,0;" ":20,0;" " Z0,77M:255,0:20,7;:c$="Lucy the Ladybird":9200#:s$="(ll)(ouu)s(ee) (dth)(er) (ll)(aa)(dd)(ee)(bb)(err)(dd)":1 [n=029 \111 ,n;" ";12 ,n;1;"" ]'12 ,0;" ":.05|L,n:n ^11 ,0;" ";20,0;" " _q20,7;:c$="Sherlock the shark":9200#:s$="(sh)(er)(ll)o(ck) (dth)(er) (sh)(ar)(ck)":1 `10 ,0;1;" ":n=028 a&11 ,n;5;1;" " b.1}L,-*40(:n c10 ,0;" ";20,0;" " dH20,14;:c$="":9200#:s$="(ee)'(tt)(ee)":1 e0,71G:255,0:n=110 :1;6;40(,115s,n:1;7;(*255),(*20)+100d:n:n=030 f511 ,n;6;" ";12 ,n;6;" " g.1}L,*20:n h11 ,0;" ";12 ,0;" " i91,-10 :1,-20:1,-30 j o  6500d:n=111 z=029 %o(n)-1,z;" ";o(n),z;" " .002xn,*10 z Zo(n)-1,0;" " n  8 6500d:n=111 Bz=029 L%o(n)-1,z;" ";o(n),z;" " V.002xn,*20 `z bZo(n)-1,0;" " en j  6500d:n=111 s=029 Bo(n)-1,s;2;" ";0;"";o(n),s;0;" " .002xn,5 s Zo(n)-1,0;" " n   6500d:n=111  z=029 %o(n)-1,z;" ";o(n),z;" " .002xn,11 (`z:o(n)-1,0;" ":n )%1,8:1,11 : 2 d u(21) e!o(11 ):n=111 n0fa=(*11 ):fa=fa*2:fa=fa+1 xu(fa)=16510n o(n)=fa:u(fa)=1 n   6500d:n=111 s=029 7o(n)-1,s;4;" ";o(n),s;4;" " .002xn,5 &`s:o(n)-1,0;" ":n 0: XOn=021:n,0;0;" ":n  J_:s$="y(ouu) (hh)av (bb)(ee)(tt)en (dth)(er) (hh)(ii) s(ck)(or) (GGG)(RR)(AY)(TT)":1 T0,7;2;1;" " ^ h-8;:c$="HAVE BEATEN THE":9200# r |2;1;" " 2':c$=" YOUR HI-SCORE IS "+per:9200# h=per *':c$=" GREAT!!!!":9200# m85004!:v=127:(*2)+19,*31;1;((*2));"*":ge,hr:ge,hr v  6400  !4.4L,9 ,.15~,11 ,.15~,13 ,.15~,9 ,.15~,10 ,.15~,11 ,.15~,13 ,.05|L,15,.05|L,14 !>.4L,9 ,.15~,11 ,.15~,13 ,.15~,9 ,.15~,10 ,.15~,11 ,.15~,13 ,.05|L,15,.05|L,14 !H.4L,9 ,.15~,11 ,.15~,13 ,.15~,9 ,.15~,10 ,.15~,11 ,.15~,13 ,.05|L,15,.05|L,14 #(!9000(#:n="a""u"+7 #2 a:n,a:n #7 #