time $ $ & 32255}:6:6::0:7,7;"TELLING THE TIME";12 ,10 ;"is loading";17,9 ;"PLEASE WAIT" 0,0;:"":"":#1;0,10 ;"STOP THE TAPE":100d:#1;1,10 ;"Press any key":0::xs=2:ys=2:yy=0:p$="TELLING THE TIME" :2:80P:3,3;0;"Telling the time has been";5,1;"divided into separate programs";7,3;"to minimise loading times.";9 ,0;"Each program will load the next.";11 ,0;"To load a particular program you";13 ,0;"must start by loading the first";15,0;"two sections at the beginning of";17,1;"the tape, then set the tape to";19,2;"the beginning of your program";21,4;"and type LOAD """" ENTER." '0::2:80P:3,0;0;"For learning on your own:-";4,2;"LOAD ""easytime""";6,0;"For simple o'clock times:-";7,2;"LOAD ""o'clocks""";9 ,0;"For quarters, halves & o'clocks";10 ,2;"LOAD ""quarters""" !12 ,0;0;"For five minute intervals:-";13 ,2;"LOAD ""everytime""";15,0;"For spelling the words of time";16,2;"LOAD ""timewords""";18,0;"To set the hands of the clock";19,2;"Turn over tape & LOAD ""clock""" 0:2::80P:0:7,3;"Instructions for using the";9 ,1;"programs are printed on screen";11 ,4;"whenever they are needed.";15,3;"Pauses can be cut short by";17,8;"pressing a key.":0  2::80P:0:3,0;"As children using these programs";5,2;"have a wide range of reading";7,3;"speeds, no instructions are";9 ,2;"cleared from the screen until";11 ,2;"the child has had a chance to";13 ,0;"read them. At each point in the";15,3;"program where a message is";17,0;"printed in BLUE ink the Spectrum";19,1;"waits for the child to press a";21,5;"key before continuing." 0::2:80P:0:6,6;"Press ""Y"" to see the";8,7;"instructions again";13 ,3;"Press ""L"" to load EASYTIME" ="y"Ŧ="Y"3 ="l"Ŧ="L"xx=24:yy=144:p$="START THE TAPE":1:2:80P:0:0::21,5;"EASYTIME is now loading":6:10 ,0;:"" 9 F10:20,0;:0:0: P'xx=(256-xs*8*p$)/2 Zi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~ c  & A@dHD ̭dA D & FadI(DFdDDA '!`A@dHD ̭A '!`FadI(DFDDAtime ,~$.![~#"[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(// PvPoppy @p>>d @@@JN`:<>F  "@@@JNw><> ~@@>B<n@@@FBԖ4.@~@@>B<@@@FBF<4@@@@bB ̀~~~>B<B`x@@@@@bB L@~~~>B<"D|| |@@R@ f  5L|$0|@@R@* 5 P VE@`B@ ` @3B@ @f863B~B@ @>B~@@B@0|6Ѐ"!B~f@B@ D>B~@B@ <g"0B@`B~ Ff@>B~#B@ `B~ Bf@>B~0a@~|`0  bZ| \`~|  0 "Z| @x@@DX`B@ @ @#B@`@@@σ>> >|π<8|πxpLJ<ǀ<0`|ρx`pp`<ǁxp`>x|>xx@ǟǏ<>ǀ/x?g`ϟǟ>>x>ox? >Gx?`ǀ>x000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000easytime Yo=:i=:b=i+i:c=b+i:fr=b*b:ee=c+b:f=ee+i:g=f+i:j=g+i:q=j+i:t=q+i:el=t+i:v=b*f:th=v+i:si=b*j:s=b*t:r=s-i:p=s+i:w=b*v:ty=c*t:h=t*t:bl=f*t:bk=h/b:k=t*h:li=255:u=128:d=h:vg=u-i:l="9800" ch=o:xs=i:ys=b:fl=o:sma=o:e$="":e=o:small=o:Qq=o:q$="":sma1=o:sma2=o:bi1=o:bi2=o:move=o:tt=o:xx1=o:yy1=o:xx=o:yy=o:c$="":d$="":a$=""::kk=o:ll=o:hj=c _i:i:fr:o::n=bty-i:g,n;"":n:n=jv:n,b;"";n,ty-i;"":n:n=bty-i:v+i,n;"":n Un=tee*j:.03{u\,n:n:xs=b:ys="4":yyp=68D:p$="STOP THE TAPE":i:bk:o n=229:g,n;"":n:n=8v:n,2;"";n,29;"":n:n=229:13 ,n;"":n:n=ee*jt-1:.03{u\,n:n:c*h :xs=c:ys=f:yyp=w:p$="EASY TIME":bl:b*g,v;"1983 ";v,t;"S.R.Holland":xs=i:ys=b:yyp=155:p$="PRESS ANY KEY":bk  h:o:t g "c:g:c::i;e,13 ;"MENU" "i;j,o;"1";o;j,c;"Hours only" .i;t,o;"2";o;t,c;"Half and quarter hours" 1i;v,o;"3";o;v,c;"All five minute intervals" Er,i;"Press 1,2 or 3 to make a choice":#i;i,g;"Press 'X' to exit" ="1"a=(*13 ):c*t  ="2"ee*j ="3"ch=c:h:ee*h:j*k ="x"9910& s *h:i:n=w+ḭ"175":o,n:li,o:n:o:f*k (]h:ee:n=s+c̰"71":o,n:vg,o:n:c:n="72"vg:o,n:vg,o:n:ee:n=ṵ"175":o,n:vg,o:n *[i:n=s+c̰"71":u,n:vg,o:n:c:n="72"vg:u,n:vg,o:n:i:n=ṵ"175":u,n:vg,o:n:o ,i;j,o;"quarter";t,i;"to";b*q,b*g;"half";j,w+i;"quarter";t,w+c;"past";o,th;"o'clock":o:g*k 2xxp=(256-xs*j*p$)/b <ii=23306 [:ii,xxp:ii+i,yyp:ii+b,xs:ii+c,ys:ii+fr,j:ii=ii+fr:ww=p$:n=iww:ii+n,p$(n):n:ii+ww+i,li:ww=32256~: do:g:g::h$="123456789" i!ch=co,i;"TO";o,"27";"PAST" nm=iq:yyp=7*((9.5-j*(m/f*))):xs=1.25 :ys=2.25:xxp=g*((17.625 +j*(m/f*))):p$=h$(m):bl:m pNyyp=7.5p*((9.5-j*(t/f*))):xxp=j*((si+j*(t/f*))):p$="1O":bl qVyyp=7.5p*((9.5-j*(el/f*))):xxp=j*((si+j*(11 /f*))):p$="11":bl rPyyp=7.5p*((9.5-j*(v/f*))):xxp=(j*(si+j*(v/f*)))-g:p$="12":bl Un="-45"̰"45":y=(45-*45-)-(n*n):y=y:n+u,y+(198/b):o,-(b*y):n i:o;u,d,"65"  n=s+c̰"39":o,n:li,o:n i:n=ee*jg*q:o,n:li,o:n b:n=j*j̰"87":o,n:li,o:n !c:n="88"̰"119":o,n:li,o:n b:n=v*t̰"143":o,n:li,o:n &i:n=v*v̰"159":o,n:li,o:n 0!o:n=b*j*t̰"175":o,n:li,o:n :i;o,th;"o'clock";c,b;"five";ee,o;"ten";q,o;"quarter";th,o;"twenty";si,ee;"five";b*q,b*g;"half";c*ee,o;"twenty";c*ee,s+f;"twenty";si,s+c;"five";th,s+f;"twenty";q,w+i;"quarter";ee,s+q;"ten";c,s+f;"five": u,d:i;o,42* 3a=t/ty*:sx="35"*a:sy="35"*a:u,d:i;sx,sy xuu=ee*a:o(c):e(c):i;u,d:trt=((uu+move+mave)/ty*):x1="35"*trt:y1="35"*trt:i;u+x1,d+y1:n=bc:n=bdd=c n=cdd=-c Gf1=((uu+dd+move+mave)/ty*):o(n)=p*f1:e(n)=p*f1:i;u+o(n),d+e(n) n=bi;x1-o(b),y1-e(b) n=ci;x1-o(c),y1-e(c) n *i;u+o(c),d+e(c):i;o(b)-o(c),e(b)-e(c)  qKmove=o:mave=o:o:a=(*v):aaa=ee*a:bbb=aaa/ty*:xx=p*bbb:yy=p*bbb tl:l+t zu,d:o,"38" |u,d:xx,yy ~l:c*k l-c*h !l:b$=" o'clock":l-b*h:o:l-h ,xxp=o:p$="It is "+a$+" "+b$:i:c*s:l:o Eee*t:#i;o,o;"Press any key to try again":o:l-h:l:"8200":f*k 8$hj=hj+i:hj/b=(hj/b)i:c*k:o: 9 c*k:o: Xmave=o:cer=o:l:o:a=(*v) bqu=(*c)+i:l:l+t gqu=c"7070" l topa=(*b) vtopa=od$="to " topa=id$="past " qu=ic$="quarter " l qu=btopa=ic$="half " %qu=btopa=oc$="half ":d$="past " l %qu=cd$=" o'clock":c$="":"7120" ;qu=id$="past "u,d:kk=39':ll=o:kk,ll:move=i:l 4qu=id$="to "u,d:kk=-ee*j:ll=o:kk,ll:move=fr 0c$="half "u,d:kk=o:ll=-ee*j:kk,ll:move=c 2d$=" o'clock"u,d:kk=o:ll=ee*j:kk,ll:move=o 2tt=((a*ee)+move)/ty*:xx1=r*tt:yy1=r*tt:c*k o:u,d:xx1,yy1 move=frd$="to "a=a+i l-c*h l-b*h:o:l-h::l "d$=" o'clock"a$="twelve"cer=i =c$="half "xxp=o:p$="It is "+c$+" "+d$+" "+a$:i:c*s:o  @c$="quarter "xxp=o:p$="It is "+c$+" "+d$+" "+a$:i:c*s:o 8d$=" o'clock"xxp=o:p$="It is "+a$+" "+d$:i:c*s:o <#i;o,o;"Press any key to try again":o:l-h:"8200":g*k @?fl=o:move=o:cadg=o:l:e=(*th):a=(*v):a=ve=vcadg=i Jbig=(e*ee)/ty* K&bi1=38&*big:bi2=38&*big T l+h:l+t We=oe=vmave=o Xe=oe=vl-c*h Ye=oe=vfl=i Ze=oe=v"8110" [l |e=ie=be=cmave=i e=fre=eemave=b e=oe=vmave=o l e=fe=ge=jmave=c e=qe=te=elmave=fr efeoq$="past" e>fq$="to"  l-c*h:l  a=tha=i Asma=((a*ee)+mave):small=sma/ty*:sma1=p*small:sma2=p*small c*k u,d:bi1,bi2:u,d:sma1,sma2  "9600" o o:l-h:fl=i"8160" q$="to"a=a+i  a=tha=i  l-c*h:l ?e=oe=vxxp=o:p$="It is "+a$+" o'clock":i:c*s:o:"8174" 0xxp=o:p$="It is "+e$+" "+q$+" "+a$:i:c*s:o /ee*t:#i;o,o;"Press any key to try again":o l-h:"8200":j*k fr,v+c;"";ee,th;"";f,v;"":n=iee:f+n,el;" ":n:v,v;"";th,th;"";b*g,b*g;"": "g:g:o:o:o:o:o:: %a=ia$="one": %a=ba$="two": %a=ca$="three": %a=fra$="four": % a=eea$="five": %!a=fa$="six": %"a=ga$="seven": %#a=ja$="eight": %$a=qa$="nine": %%a=ta$="ten": %&a=ela$="eleven": %'a=va=oa$="twelve": %Jyyp=155:xxp=o:p$="What time is it? Press any key":i:c*s:o: %oyyp=155:xxp=o:p$=" ":c*s:#i;o,o;" ": &H0#i;i,o;b;"Press-'0' for menu,'x' to exit":o &I ="0":t &J="x""9910" &K &Rn=ib:u,d,n:n: &e=ie=ele$="five": &e=be=te$="ten": &e=ce=qe$="quarter": &e=fre=je$="twenty": &e=eee=ge$="twenty five": &e=fe$="half": &e=oe$="o'clock": &2l-h:o;s,o;"Another game (y/n) ?":o:o:o:o &="y"l-h: &="n":xs=2:ys=2:yyp=80P:p$="START THE TAPE":502:yyp=136:xs=1:p$="""O'clocks"" now loading":502:o,o;g;;:"" & 9910& oibcfgjq t v srpwhd<HkuddlH& memalmamaiiovxy< yx`[a nEQCDAH 123456789P1o'clocks X5ys=2:xs=1:2:6:2: <yy=30:p$="This program is designed to ":1300 ;yy=502:p$="teach the user very simple ":1300 .=yy=70F:p$="""o'clock"" times. Children ":1300 B=yy=90Z:p$="should use the numbers on the":1300 V@yy=110n:p$="clock face to help them to read":1300 j<yy=130:p$="and input the correct time.":1300 ~5yy=170:p$="HAVE FUN !!":4:1300 2:0,0; 1n=40(9 -1:.03{u\,n:n:"" 'xx=(256-xs*8*p$)/2 Fi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:.0175{\(,n:i+n,p$(n):n:i+w+1,255:w=32256~: "7:7:0:: (i[w P HAVE FUN !!]clock f2ho=:i=:b=i+i:c=b+i:e=c+b:f=e+i:g=f+i:j=g+i:q=j+i:t=e*b:v=b*f:r=t+q:p=r+b:h=t*t:d=h-b:u="131":bl="3050":bk="3100":l="9810" sc=o:hh=o:i$="":ro=o:no=34":chk=34":try=o:fl=o:sma=o:e$="":ee=o:small=o:qq=o:q$="":sma1=o:sma2=o:bi1=o:bi2=o:move=o:tt=o:xx1=o:yy1=o:xx=o:yy=o:c$="":d$="":a$=""::kk=o:ll=o i:i:ٰ"4"::n=b29:g,n;"":n:n=jv:n,b;"";n,29;"":n:n=b29:v+i,n;"":n:n=te*j:.03{u\,n:n:xs=b:ys="4":yyp=68D:p$="STOP THE TAPE":i:bl:o !n=e*jq-i:.03{u\,n:n:b*h 5:5:6::"":n=ob*t:n,o;"";n,31;"":n:"" ji:yyp=22:p$="O'clocks":bl:4:yyp=82R:xs=i:ys=b:p$="S.R.Holland........1983":bl ^i:p$="Press 'R' to run the program":yyp="120":bl:p$="Press 'X' to exit":yyp="140":bl ="r"Ŧ="R"ch=i:h ="x"Ŧ="X""9940" t+i dg:g:o:o:o:o: fF212,175:o,-32 :43+,o:b;i,27;"score" hh$="123456789" nm=iq:yyp=(7.5p*(9.5-j*(m/f*)))-i:xs=1.25 :ys=2.25:xxp=(7.5p*(17.625 +j*(m/f*)))-c:p$=h$(m):bk:m p_yyp=7.75x*((9.5-j*(t/f*))):xxp=(7.5p*(16+j*(t/f*)))-i:p$="1O":bk rnyyp=(7.5p*(9.5-j*(11 /f*)))-i:xxp=(7.5p*(16+j*(11 /f*)))-i:p$="11":bk tcyyp=(7.5p*(9.5-j*(v/f*)))-b:xxp=g+(7.75x*(16+j*(v/f*)))-g:p$="12":bk [n=-491491:y=(491*491)-(n*n):y=y:n+u,y+(198/b):o,-(b*y):n i;u,d,72H 7i:b:n=25175:o,n:255,o:n:o:o xs=i:ys=b:yyp=156:p$="The little hand is short and fat":bl:yyp=175:p$="and shows you the hours.":bl:m=if:b*h:m h:b*b*h yyyp=155:p$="The big hand is long and thin":bl:yyp=175:p$="and shows you the minutes":bl:m=if:c*h:m zb*b*h:yyp=155:p$="It is always o'clock when":i:bl:yyp=175:p$="the big hand points straight up.":bl:o u,d:o,39':e*h b*b*h:l:h:l:"6000" a=(*v):a=chkb*h n=ib:u,d,n:n Maaa=e*a:bbb=aaa/30*:xx=r*bbb:yy=r*bbb:u,d:xx,yy:"4000":e*t $i:u,d:xx,yy:chk=a:o:"5000": ,xmin=(*v)+i:mha=(min*e)/30*:xmin=39'*mha:ymin=39'*mha:u,d:xmin,ymin:e*t:u,d:i;xmin,ymin: kn=rp:n,o;" ":n:n=oi:#i;n,o;" ":n:  l:"6000" xxp=(256-xs*j*p$)/b ii=23306 [:ii,xxp:ii+i,yyp:ii+b,xs:ii+c,ys:ii+4,j:ii=ii+4:ww=p$:n=iww:ii+n,p$(n):n:ii+ww+i,255:ww=32256~: suu=aaa:o(c):e(c):i;u,d:trt=((uu/30*)):x=40(*trt:y=40(*trt:i;u+x,d+y:n=bc:n=bdd=c  n=cdd=-c Cfl=((uu+dd)/30*):o(n)=p*fl:e(n)=p*fl:i;u+o(n),d+e(n) n=bi;x-o(b),y-e(b) n=ci;x-o(c),y-e(c) n ,i;u+o(c),d+e(c):i;o(b)-o(c),e(b)-e(c): rubout (hh=hh+i:hh/b=(hh/b)i:"4000":o: "4000":o: q o:o:a=(*v):a=chk"6001" zl:n=ib:u,d,n:n Zl:aaa=e*a:bbb=aaa/30*:xx=r*bbb:yy=r*bbb:u,d:xx,yy:"4000":u,d:o,e*q:l "9500":a=oa=v l b$=" o'clock" {l:xxp=o:yyp=155:p$="The little hand points ?":i:bk:l:t:#i;o,o;o;"Key in the number and ";b;"ENTER":o  "9900" noatryb:p$=" No, try again ":xxp=o:i:bk:o:#i;o,o;"Key in the number and ";b;"ENTER ";i,28;" ":l:try=try+i:"6061" Kl:try>bnoa"9700":p$="It is ":i:"3100":p$=a:p$="10"p$="1O" mtry>bnoaxxp=64@:b:"3100":p$=b$:xxp=72H+(8*a):i:"3100":o:u,d:o,e*q:"6068" Hl:no=a"9700":p$="Yes, it is "+a+b$:a=tp$="Yes, it is 1O"+b$ i:bk:o:u,d:o,e*q zsc=sc+i:p$=sc:b:i,27;" ":xs=i:ys=b:yyp=8:xxp=224:6:bk:yyp=155:xxp=o:o:g #i;o,o;"Press any key":o l:"9700":chk=a::i try=o:u,d:xx,yy:a=chk a=vu,d:o,e*g o:"5000":"6001"  "6000" "g:g:o:o:o:o:o:: %a=ia$="one": %a=ba$="two": %a=ca$="three": %a="4"a$="four": % a=ea$="five": %!a=fa$="six" %"a=ga$="seven" %#a=ja$="eight" %$a=qa$="nine" %%a=ta$="ten" %&a="11"a$="eleven" %'a=oa=v:a$="twelve" %(a=va$="twelve" %) %yyp=152:ys="4":xs=i:p$=" ":#i;o,28;" ";#i;i,28;" ":bl:ys=b:yyp=155: &R.#i;i,o;b;"Press 'X' to Exit " &X="x""9950" &Y &z"""9850" &="""9860" &u$=:.2~L,i: &i$="" &xxp=232:yyp=155 &!"9850":u$<"0"u$>"9""9910" &i$=i$+u$:p$=i$:"3100" & "9850":u$=13 "9926" &u$<"0"u$>"9""9910" &#i$=i$+u$:p$=i$:p$="10"p$="1O" & "3100" & "9850" &i$b"9926" &5u$13 #i;o,22;b;i;"ENTER":"9924" &no=i$ &-no>vxxp=232:p$=" ":bk::"9900" &yyp=155: & &=p$="Another game (y/n) ?":xs=i:ys=c:yyp=524:bl:o & ="y"e &4="n":p$="START THE TAPE":yyp=h-t:bl:"9970" & "9954" &8p$="""Quarters"" now LOADing":ys=b:yyp=160:bl & 7:0,0;:"" g #i;o,o;"Press any key":o l:"9700":chk=a::i try=o:u,d:xx,yy:a=chk a=vu,d:o,e*g o:"5000":"6001"  "6000" "g:g:o:o:o:o:o:: %a=ia$="one": %a=ba$="two": %a=ca$="three": %a="4"a$="four": % a=ea$="five": %!a=fa$="six": %"a=ga$="seven": %#a=joibcefgjq t v rphddbu  lR&"h"rmmalmamaiiovxy y x=0[ nyaabIڢrIڢxi hmimiϨϷOͅ 慟 B o'clockU IEQCDAH 123456789P3quarters oqq5ys=2:xs=1:3:5:3: >yy=30:p$="Quarters introduces the minute":1300 ?yy=502:p$="hand and the approximate times ":1300 .@yy=70F:p$="""quarter to"", ""quarter past""":1300 B2yy=90Z:p$="and ""half past"".":1300 V?yy=110n:p$="As before the child writes the":1300 j:yy=130:p$="time using the keyboard. ":1300 -n=40(9 -1:.03{u\,n:n  3:0,0;:"" 'xx=(256-xs*8*p$)/2 Fi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:.01z# =,n:i+n,p$(n):n:i+w+1,255:w=32256~: "7:7:0:: `i[w Ptime using the keyboard. quarters 90Z:i:i:4:o:o:o:o::n=b29:7,n;"":n:n=8v:n,b;"";n,29;"":n:n=b29:v+i,n;"":n k=o:ko=o:h=b:i$="":ro=o:no="34":ch=o:chk="34":try=o:fl=o:sma=o:e$="":e=o:small=o:qq=o:q$="":sma1=o:sma2=o:bi1=o:bi2=o:move=o:tt=o:xx1=o:yy1=o:xx=o:yy=o:c$="":d$="":a$="":l=o: yn=t̰"40":.03{u\,n:n:p$="STOP THE TAPE":xs=b:ys="4":yyp="68":i:bk:n="40"q-i:.03{u\,n:n:o:"150" 6:6:4::xs=3:ys=5:yyp=s:p$="QUARTERS":bk:i:xs=i:ys=b:yyp=88X:p$=" S.R.Holland 1983":bk nyyp="127":p$="Press 'R' to run the program":xxp="8":b:bk:yyp="160":p$="Press 'X' to exit":bk:sc=o  ="r"t*t ="x""9990"  6 Zks="8020":o=:i=:b=i+i:c=:q=c*c:t=q+i:v=t+b:s=b*t:u=127:d=t*t:et="8000":bk="3050":bl="3100":li=255: dclock e7:7:o: fh$="123456789" om=19 :yyp=7*((9.5-8*(m/6*))):xs=i:ys=b:xxp=7*((17.625 +8*(m/6*))):p$=h$(m):bl:m pryyp=7.5p*((9.5-8*(t/6*))):xxp=8*((16+8*(t/6*))):p$="1O":bl qyyp=7.5p*((9.5-8*(11 /6*))):xxp=8*((16+8*(11 /6*))):p$="11":bl rtyyp=7.5p*((9.5-8*(v/6*))):xxp=7.5p*((16+8*(v/6*))):p$="12":bl `x="-44"44,:y=(44,*44,)-(x*x):y=y:x+128,y+(198/b):o,-(b*y):x Qu,d,64@:214,175:o,-24:41),o:i,27;"score" i ,4:n=2363?:o,n:li,o:n 45:n=64@136:o,n:127,o:n 6i:n=64@136:128,n:127,o:n .3:n=137175:o,n:li,o:n o:i;o,13 ;"o'clock";11 ,i;"to";11 ,26;"past";7,o;"quarter";18,11 ;"half past";7,25;"quarter";o 0 "7000" uu="5"*a:o("3"):e("3"):i;u,d:trt=((uu+mave)/"30"*):x="35"*trt:y="35"*trt:i;u+x,d+y:p=b3:p=bdd="3" p="3"dd="-3" Mfl=((uu+dd+mave)/"30"*):o(p)="21"*fl:e(p)="21"*fl:i;u+o(p),d+e(p) p=bi;x-o(b),y-e(b) &p="3"i;x-o(3),y-e(3) p Bi;u+o(3),d+e(3):i;o(b)-o(3),e(b)-e(3)  xxp=("256"-xs*"8"*p$)/"2" ii="23306":ii,xxp:ii+i,yyp:ii+b,xs:ii+"3",ys:ii+"4",8:ii=ii+"4":w=p$:n=iw:ii+n,p$(n):n:ii+w+i,li:we=32256~: _no="7"n=ob:219+n,"7":o,t:214,"11"+n:6,"6":6,-6:n: ]no="6"n=ob:"219"+n,6:o,v:214,v-n:6,"-6":6,6:n: jno="8"n=ob:"214",8+n:"14",o:"228+n",q:-5,"-5":228+n,q:-5,"5":n: lno="5"n=ob:"224",8+n:"-14",o:211-n,q:"5",-5:211-n,q:5,"5":n: 8$h=h+i:h/b=(h/b)i:"3000":o: 9"3000":o: X_mave=o:tt=o:move=o:ko=o:ro=o:try=o:o:o:a=(*v):n=ḭ"3":u,d,n:n:"6000":"9500" b qu=(*3)+i:topa=(*b) lDaaa="5"*a:bbb=aaa/"30"*:xx="19"*bbb:yy="19"*bbb:"7024" n131,98b:xx,yy p u,d:xx,yy vtopa=od$="to " topa=id$="past " qu=ic$="quarter " qu=btopa=ic$="half " %qu=btopa=oc$="half ":d$="past " xs=i:ys=b:p$="The little hand points to ?":xxp=o:yyp="156":i:bl:o:#i;i,o;"Key in the number then ";b;"ENTER";o "9900":"9700" Unoatrycp$="No, look again ":i:bk:o:ks:try=try+i:"7062" rno=ap$="Yes the little hand points to ":xxp=o:i:bl:xxp="240":p$=a:"9960":bl:"8020":"9700":try=o noaxxp=o:p$="The little hand points to ":i:bl:p$=a:"9960":xxp="28"*"8":bl:o:ks:p$="Let's try another ":xxp=o:i:bl:o:ks:"9700":u,d:i;xx,yy:"6200":"7000" (qu="3"d$=" o'clock":c$="":"7117" 1qu=id$="past "u,d:k="40":l=o:k,l:move=i Cqu=id$="to "u,d:k="-39":l=o:k,l:move="4":a=a+i:"9500" 0c$="half "u,d:k=o:l="-41":k,l:move="3" /d$=" o'clock"u,d:k=o:l="41":k,l:move=o T"9700":xxp=o:p$="The big hand points ?":i:bl:o:#i;o,o;"Press an arrow key" ko=i:"9940" $"5000":no="5"k="-39""7129" no="6"l="-41""7129" no="7"l="41""7129" no="8"k="40""7129" try=try+i:trycro=i Ttrycp$="No, look again ":i:bl:o:ks:try=try+i:"7118"  "9700": ro=oo,27;c;"";i,27;"";b,27;"":sc=sc+b:yyp="5":xxp="232":p$=sc:"9960":c:bl:o:yyp=156 @d$=" o'clock"ro=oxxp=o:p$="Yes, it is "+a$+" "+d$:"7300" ;d$=" o'clock"ro=ixxp=o:p$="It is "+a$+" "+d$:"7300" @c$="half "ro=oxxp=o:p$="Yes, it is "+c$+" "+d$+" "+a$:bl :c$="half "ro=ixxp=o:p$="It is "+c$+" "+d$+" "+a$:bl  ?qu=iro=otopa=ixxp=o:p$="Yes it is "+c$+" "+d$+" "+a$:bl  ;qu=iro=itopa=ixxp=o:p$="It is "+c$+" "+d$+" "+a$:bl ?a=oro=oxxp=o:p$="Yes, it is "+a$+" "+d$+" ":bl :a=oro=ixxp=o:p$="It is "+a$+" "+d$+" ":bl Hqu=iro=otopa=o"9500":xxp=o:p$="Yes it is "+c$+" "+d$+" "+a$:bl Dqu=iro=itopa=o"9500":xxp=o:p$="It is "+c$+" "+d$+" "+a$:bl >topa=oqu=ia=a-i ?u,d:i;xx,yy:"6200" @:tt=((a*"5")+move)/"30"*:xx1="19"*tt:yy1="19"*tt H%u,d:o;xx1,yy1:mave=move:"6200" Ju,d:o;k,l:et 1i:bl:et:o:ks:et:"9700":"8010":"7000" @#i;i,o;"Press 'x' to exit" B="x"Ŧ="X"4 D J4,15;"";5,13 ;"";6,v;"":n=711 :n,11 ;"":n:v,v;"";13 ,13 ;"";14,15;"": TRo:#i;o,o;"Press any key to continue":o:#i;o,o;" ": "C7:7:0:0:0:0:0:: %a=ia$="one": %a=ba$="two": %a="3"a$="three": %a="4"a$="four": % a="5"a$="five": %!a="6"a$="six": %"a="7"a$="seven": %#a="8"a$="eight": %$a=qa$="nine": %%a=ta$="ten": %&a="11"a$="eleven": %' a=oa=v %(a=va$="twelve": %)a="13"a$="one": %Dxs=b:ys="5":yyp="156":p$=" ":bk:xs=i:ys=b: &i$="" &!"9970":u$<"0"u$>"9""9902" &!i$=i$+u$:p$=i$:p$="0"p$="O" &xxp=232:bl & "9970":u$=13 "9918" &u$<"0"u$>"9""9908" &i$=i$+u$:p$=i$:"9960":bl &>"9970":u$13 #i;i,23;b;i;"ENTER":"9916" &no=i$ &no="00"no="0"no=o &"novp$=" ":bl:"9900" & &i$="" &8"9970":u$<"5"u$>"8"#i;o,q;i;b;"arrow":"9942" &i$=i$+u$:no=i$: &p$="10"p$="1O" &p$="00"p$="OO" & &"""9970" &="""9972" &u$=:.2~L,o: '0:p$="Again? (y/n)":xs=i:ys="3":bk '="y":4 'B="n":p$="START THE TAPE":yyp="80":xs=i:ys=b:bk:"9994" ' "9991" ' 0p$="""Everytime"" now loading":yyp="150":bk ' 0,0;:"" Toibcq t v sudd@   kh"h"rmemalmamaiiovxylye.x`[w o|v,y ava 2r'61 opa2b'61U72T, yXe vIEQCDAH 123456789P4everytime 7ys=2:xs=1:3::6:3: =yy=20:p$="Everytime teaches children to":1300 :yy=40(:p$="read big hands set at five":1300 .?yy=60<:p$="minute intervals using digital-":1300 B;yy=80P:p$="style time which is written":1300 T?yy=100d:p$="round the clock face. When the":1300 VAyy=120x:p$="right answer is given the little":1300 j<yy=140:p$="hand is redrawn to show its":1300 Ayy=160:p$="correct appearance on the clock.":1300 -n=40(9 -1:.03{u\,n:n  3:0,0;:"" 'xx=(256-xs*8*p$)/2 Fi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:.01z# =,n:i+n,p$(n):n:i+w+1,255:w=32256~: "17:7:0:0:0:: i[w P correct appearance on the clock.everytime vo=:i=:b=i+i:c=:e=b+c:f=e+i:g=f+i:j=g+i:q=c*c:t=q+i:v=t+b:h=t*t:d=h-b:u=h+i+e*f:li="255":k=t*h*f:s=b*t:r=s-i:p=s+i:w=b*v li:i:o:b*b::n=b29:g,n;"":n:n=jv:n,b;"";n,29;"":n:n=b29:v+i,n;"":n n=tb*s:װ".02",n:n ni;q,c;" ";t,c;" S T O P T H E T A P E "; t+i,c;" " &c*s:n=b*st-i:װ".02",n:n:o:t*s "4":ڰ"4":i: :f,g;"E A S Y T I M E 4";t,c;" S.R. Holland.....1983" Pg;c*e,b;"P R E S S 'R' T O P L A Y";r-b,b;"P R E S S 'X' T O E X I T " o:="x""9990" ="r":v q dg:g:o:o: nsc=o:no=c*v-b:ch=o:chk=c*v-b:try=o:fl=o:sma=o:e$="":ee=o:small=o:qq=o:q$="":sma1=o:sma2=o:bi1=o:bi2=o:move=o:tt=o:xx1=o:yy1=o:xx=o:yy=o:c$="":d$="":a$=""::kk=o:ll=o:mave=o:hr=t:hh=o xUn=iv:9 -7.375l*(n/6*),16+7.375l*(n/6*);n:n [n=-44,44,:y=(44,*44,)-(n*n):y=y:n+u,y+(198/b):o,-(b*y):n i:u,d+i,"67" o,b*j;"OO";b,j;"55";e,e;"5O";q,4;"45";13 ,e;"4O";16,j;"35";18,b*j;"3O";16,23;"25";13 ,26;"2O";q,27;"15";e,26;"1O";b,23;"5" "220,b*v:o,b*v:35#,o o:n=ib*q:o,p+i+n:li,o:n i:n=ib*q:o,e*j+n:li,o:n #b:n=is+j:o,58:+n:li,o:n #c:n=if*f:o,86V+n:li,o:n "b:n=iw:o,122z+n:li,o:n &$i:n=ib*g:o,146+n:li,o:n 0$o:n=iv+c:o,160+n:li,o:n :i;i,o;"TO";i,p+g;"PAST" D "7000" vlm=e*a:o(c):m(c):i;u,d:trt=((lm+move)/30*):x7=(e*g)*trt:y7=(e*g)*trt:i;u+x7,d+y7:n=bc:n=bdd=c n=cdd=-c If2= ((lm+move+dd)/30*):o(n)=s*f2:m(n)=s*f2:i;u+o(n),d+m(n) n=bi;x7-o(b),y7-m(b) n=ci;x7-o(c),y7-m(c) n ,i;u+o(c),d+m(c):i;o(b)-o(c),m(b)-m(c): p(hh=hh+i:hh/b=(hh/b)i:"3000":o: q"3000":o: XUmave=o:move=o:f$="":i$="a":wr=o:inp=o:o:a=(*v)+i:n=ib:u,d,n:n:"9500" Y \:k:tt=(a*e)/"30"*:xx1=18*tt:yy1=18*tt: ^o:u,d:xx1,yy1 b"9700":uu=(*g):qu=e*uu l topa=*b vtopa=od$="to " topa=id$="past "  "9600" br,o;"Where does the little hand point":#i;i,o;"Key in the number then";b;i,24;"ENTER"  "8910" )Ca=inp"9700":p,o;i;"Yes the hand points to ";inp:o:"7220" /xwrVr,o;"The big hand points to?":t:#i;i,o;"Key in the number then";b;i,w;" ENTER" H "9000"  "9700" Dinp=oqu=o:"9612":"9701":#i;i,q;i;a$;" ";q$;:t*f:"7321" qu=inp:"9600" Oqu>c*ta=a+i:"9500":"9701":#i;i,q;i;q$;" ";d$;" ";a$:a=a-i:"9500" .quc*t"9701":#i;i,q;i;q$;" ";d$;" ";a$ o Dinp=qvinp=op,o;i;"Yes it is ";a$;" o'clock":"9701":"7332" [inp=qvinpc*tqu=qv:"9600":p,o;"Yes, ";q$;" ";d$;" ";a$:"9701":"8200":"7332"  7330 #k=inpt=((a*"5")+mave)/"30"*:x1="19"*t:y1="19"*t:131,"98":x1,y1:move=mave:"6000":"100":#;,;" ";#1;,;" ":131,98b:޼;x1,y1:"131",98b:1;x,y:"6000":7000X uinp=qvinp>c*tqu=qv:"9600":a=a+i:"9500":p,o;"Yes, ";q$;" ";d$;" ";a$:a=a-i:"9701":"8200":7332 Binp=qvsc=sc+c:17,29;f;o;sc;:inp=oo:"7600" 7inp=qvp,o;i;"Yes, ";q$;" ";d$;" ";a$:o:"7600" Xwrc*t"9700":qu=qv:"9600":a=a+i:"9500":p,o;i;"It is ";q$;" ";d$;" ";a$:a=a-i:"8200":o:"7600" 4,16;"";e,13 ;"";f,13 ;"":n=o5:g+n,12 ;"":n:9 ,11 ;"";9 ,21;"";13 ,13 ;"";14,16;"" @ "9700" AF#i;i,o;"Again? (y/n)":="y"Ŧ="Y"#i;i,o;" ":"7000" B="n"Ŧ="N":f C "8001" u,d:i;xx1,yy1:k ]tt=((a*e)+mave)/"30"*:x1=18*tt:y1=18*tt:u,d:x1,y1:move=mave:"3000": !p$="0"p$="O" !p$="00"p$="OO" !p$="60"p$="6O" ! !"""8700" "="""8710" "u$=:.2~L,o: "C7:7:0:0:0:0:0:: "kk=ikk=bmave=i "kk=ckk="4"kk=emave=b "kk=fkk=gkk=jmave=c "kk=qkk=tkk=t+imave="4" " "i$="" ",i;p,o;"The hour is ? " "!"8700":u$<"0"u$>"9""8914" "&i$=i$+u$:p$=i$:"8600":p,p;b;p$ " "8700":u$=13 "8926" "u$<"0"u$>"9""8918" "&i$=i$+u$:p$=i$:"8600":p,p;b;p$ "V"8700":#i;i,b*v;b;o;" ENTER ":u$13 #i;i,b*v;b;i;" ENTER ":"8924" " inp=i$ "i$="0"i$="00"inp=o " #(i$="" #*p,o;i;"The minute is ?" #,!"8700":u$<"0"u$>"9""9004" #.&i$=i$+u$:p$=i$:"8600":p,p;b;p$ #0 "8700":u$=13 "9014" #2u$<"0"u$>"9""9008" #4&i$=i$+u$:p$=i$:"8600":p,p;b;p$ #6V"8700":#i;i,b*v;b;o;" ":u$13 #i;i,b*v;b;i;" ENTER ":"9014" #: inp=i$ #<i$="00"i$="0"i$="60"inp=o #>]inp=einp=tinp=c*einp=sinp=s+einp=c*tinp=e*ginp=e*jinp=e*qinp=e*tinp="55"inp=o #@#inp=o:p,s;" ":9000(# %a=ia$="one": %a=ba$="two": %a=ca$="three": %a="4"a$="four": % a=ea$="five": %!a=fa$="six": %"a=ga$="seven": %#a=ja$="eight": %$a=qa$="nine": %%a=ta$="ten": %&a=t+ia$="eleven": %'a=va=oa$="twelve": %(a=v+ia$="one": %) %qu=eq$="five":d$="past": %qu=tq$="ten":d$="past": %#qu=c*eq$="quarter":d$="past": % qu=sq$="twenty":d$="past": %)qu="25"q$="twenty five":d$="past": %"qu="30"q$="half":d$="past": %&qu="00"qu=oq$="o'clock":d$="": %'qu="35"q$="twenty five":d$="to": %"qu="40"q$="twenty":d$="to": %#qu="45"q$="quarter":d$="to": %qu="50"q$="ten":d$="to": % qu="55"q$="five":d$="to": %qu=oq$="o'clock":d$="": % %hr,o;" " %.#i;i,o;" ": 'Op,o;" ";p,i;"A n o t h e r G a m e ? (y/n)" ' o:="y"s ' ="n"4:4::6:t,8;"START THE TAPE";s,4;"""timewords"" NOW LOADING":4:0,0;:"" ' "9992" oibcefgjq t v hddbukpsrpw x"h"rmmalmamaiiovxyav yn#a <rSr]- %ݕIڢ(op  x,(r1h湱XFI35P35U <^qV EQCDAqtimewords ??IA*32716:0:0:6: 3,0;"In Timewords the child is asked";5,2;"to read a clock and type in";7,1;"the time in words. If spelling";9 ,0;"is difficult, use the prompts at";11 ,1;"the bottom of the instructions." 13 ,3;"Press 0 to erase mistakes.";15,1;"A wide range of ways of naming";17,0;"the time and of punctuation are";19,1;"accepted, but spelling must be";21,12 ;"correct!"  0:0,0;:"" timewords 5 "time"  G.R. Sampson 1982 100d:"3500"  d$(12 ,6)  n=112  d$(n) ( n 2Y "one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve" < e$(6,10 ) F n=16 P e$(n) Z n d6 "five","ten","quarter","twenty","twentyfive","half" n f$(4,7) x n=14  f$(n)  n $ "twenty","thirty","forty","fifty" Fm$(a$z ,s,l)=a$(s(s+l-1)*(a$(s+l-1))) d(34",2) n=134" d(n,1):d(n,2) n 129,98b,129,99c,129,100d,129,101e,129,102f,130,97a,130,103g,131,96`,131,104h,132,96`,132,104h,133,96`,133,104h,134,96`,134,104h,135,97a,135,103g,136,98b,136,99c,136,100d,136,101e,136,102f,130,99c,130,100d,130,101e,131,98b,131,102f,132,98b,132,102f,133,98b,133,102f,134,99c,134,100d,134,101e  k$="Look at the ":l$=" hand." R"a",0:"a"+1,94^:"a"+6,94^:"a"+7,0 n=25 "a"+n,82R n $"b",0:"b"+7,0 n=16 "b"+n,36$ n "c",0:"c"+1,94^:"c"+2,66B:"c"+3,68D:"c"+4,72H:"c"+5,80P:"c"+6,94^:"c"+7,0 L:"Hello, what's your name?",s$:tims=0:sucs=0:scor=0  ini=s$ =ini>96`ini<123{s$=(ini-32 )+s$(2) D:20:20,1;"Let's tell the time, ";s$:40( &h$="123456789" 0 3210 :n=112 :G9 -8*(n/6*),16+8*(n/6*);h$(n) Dn N hr=1+(*12 ) min=5*(*12 ) mang=min/30* #hang=(hr/6+min/360h)* .min=0r$=d$(hr)+" o'clock":780  =min30r$=e$(min/5)+" past "+d$(hr):780  hr=12 hr=0 5r$=e$((60<-min)/5)+" to "+d$(hr+1)  n=1 r$ "3210" n=122 td(n,1),d(n,2):34"*hang,34"*hang:d(n,1),d(n,2):-5*hang,-5*hang n n=2334" td(n,1),d(n,2):524*mang,524*mang:d(n,1),d(n,2):-8*mang,-8*mang n Q"2100":20,1;"What's the time? ":trys=0:tims=tims+1 %"3100":"2100":trys=trys+1 #20,18;"I'm thinking"  n=1  n>u$"1280"  x=(u$(n)) H x>64@x<91[u$=u$(n-1)+(x+32 )+u$(n+1) xx>47/x<58:"2100":20,1;"Please write the time in words,"'"not figures. Try again!":"970" / x>96`x<123{n=n+1:"1220" , u$=u$(n-1)+u$(n+1):"1220" I m$(u$,1,13 )="fiveandtwenty"u$=e$(5)+u$(14) /m$(u$,1,2)="aq"u$=u$(2)  uhr=0:umin=0 1 u$="noon"u$="midnight"uhr=12 :"1720" (m=112 2 j$=d$(m) <-j$(j$)=" "j$=j$((j$)-1):"1340" F)u$=j$u$=j$+"oclock"uhr=m:m=12 Pm Zuhr<1"1390" d "1720" x ts=0 zn=1̱u$ ~?m$(u$,n,7)="minutes"u$=u$(n-1)+u$(n+7) Z m$(u$,n,2)="to"side=-1:t$=u$(n-1):v$=u$(n+2):ts=1 [ m$(u$,n,4)="past"side=0:t$=u$(n-1):v$=u$(n+4):ts=1  n ts=1"1450"  "1530"  ts=0 m=112 Cv$=m$(d$(m),1,(v$))uhr=m+side:m=12 :ts=210  m 1700-ts  ts=0 n=16 vt$=m$(e$(n),1,(t$))umin=(5*n+side*60<):(umin=30side=-1)ts=20:n=6 n  1700+ts  ts=0 m=112  a$=d$(m) , a$(a$)=" "a$=a$(̱a$-1):"1560" "Wm$(u$,1,a$)=a$uhr=m:u$>a$u$=u$(a$+1):ts=110n:m=12 , m 61710-ts @umin=0 Bm=14 D b$=f$(m) F.b$(b$)=" "b$=b$(̱b$-1):1606F HSm$(u$,1,b$)=b$umin=10 *(m+1):u$=u$(b$+1):m=4 Jm Lu$="five"umin=umin+5 Nu$="ten"umin=10 T u$="fifteen"umin=15 ^ umin>01720 hIu$4u$(u$-3)="five"umin=5:u$=u$(̱u$-4) r ts=0 v m=14 |Sm$(f$(m),1,u$)=u$umin=umin+10 *(m+1):ts=10 :m=4  m 1710+ts rtrys>221004:20,1;"The answer is ";r$;".":60<:21,15;"More? (y/n)" Ttrys2"2100":20,1;"I don't understand. Try again!":"970" $"3000":y$="y":"3300":"560" y$"n""1714" "2100":"2200" uhrhruminmin"1730" "2100":sucs=sucs+1:19,1;"Yes, ";r$;"."'"Well done. ":"3300":100d:21,0;"More? (y/n)" "3000":y$="y":"560" y$"n""1724"  "1718" *"2100":trys>240(:"1710" *uhr=hr20,1;k$;"minute";l$ *umin=min20,1;k$;"hour";l$ 340(:21,10 ;"Try again!":"970" >n=031 H20,n;" " R21,n;" " Wn \ C:""'" You got ";sucs;" out of ";tims'" right, ";s$;".":60< Otims<5""'""'" Why not have some more tries next time?":2250 fsucs/tims>0.5""'""'" You are advancing in the "'" mysteries of was and will be!":"2250" sucs/tims0.5""'""'" You are learning, but you still need more practice.":40(:""'" Let's play again soon" '60<:""'""'" Bye bye!":60< F20,1;"Press any key for another game":0::"10" y$=:y$="""3000"  u$="" &c$=:c$="""3110" (.01z# =,0 0"(c$)=13 c$="":"3200": :M((c$)=480Ʊ(u$)>0)u$=u$(̱(u$)-1)+(128):"3150" D u$=u$+c$ N'#1;0,1;u$:0 X>(u$)>0(u$((u$)))=128u$=u$(̱(u$)-1) b "3110" 2n=031:#1;0,n;" ":n: sucs<1 4 0,0;"" &n=̺:n,ç;"";n,6;"":n 4,ç;ݼ;" SCORE " *ç H2,;" " R)spc=((sucs/5)-(sucs/5)=ç) \$2*spc;spc;2,;sucs f f6:7:0:0:0:0:0::5,8;"TELLING THE TIME" p40(:14,0;" G.R. Sampson 16 November 1982":40(:20,6;"Press S to start" "s""3520" ::6:7:0 "10" "7:7:0: imucconkH 123456789 i-ananD߆ryxeh mi- pAeightBthirtyidRquarter to twelveCUquartertotwelveJtwelveTquarterVtwelveYnSKkkk M one two three four five six seven eight nine ten eleventwelveA five ten quarter twenty twentyfivehalf !twenty thirty forty fifty Y"bcdefag`h`h`h`hagbcdefcdebfbfbfcdeK Look at the L hand.