clock I*32255}:7:7:0: d7,9 ;"SET THE CLOCK";12 ,10 ;"is loading";17,10 ;"PLEASE WAIT" $0,0:7:"":"" time ,~{.![~#"[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(// Pvclock Dclock2 yo=:i=:b=i+i:c=b+i:d=b*b:e=d+i:f=b*c:g=f+i:h=d*b:q=h+i:t=e*b:ib=t+b:co=c*t:fo=f*t:hd=t*t:k=t*hd:cl 9 bscy=b:scx=27:wty=o:wtx=o:nty=o:ntx=27:m1y=19:m1x=o:m2y=21:m2x=o Th$="123456789":sf=7.5p:tf=10.625*:bp=.03{u\:bc=950:bl=bc+t `i:i:d:o::n=bco-i:g,n;"":n:n=hib:n,b;"";n,co-i;"":n:n=bco-i:ib+i,n;"":n cn=te*h:bp,n:n:xs=b:ys=d:yy="68":p$="STOP THE TAPE":i:bc+b:o:n=e*ht-i:bp,n:n:b*fo b*k f ""hd n =""hd+t xu$=: -p$=" ":bc: .#i;i,o;" ": i:d,q;"":n=eg:n,f;"":n:n=ht+i:n,e;"":n:ib,f;"":n=ib+ib*g:n,f;"":n:e*c,q;"" o: d i e*t,"83":"75",o,2.3333 e*t,"84":"75",o,1.43333 /"76","124":-e*e,o,i:hd-i,"124":e*e,o,-i .fo+q,"126":-b*t,o,i:hd+f,"126":b*t,o,-i fo+c,"111",f:ذ"111","111",f fo+c,hd+q,b:ذ"111",hd+q,b o:b: i 6"52","61":fo+t,o,-b:"52","61":"70",o,-i:o: ,+#i;i,o;"press a key to go on ":o: n=i+f*(t(i)-(t(b)co)) n=n^(n<72H) a$=w$(nn+e) $a$(a$)=" "a$=a$(̱a$-i):"530" t(b)a$=a$+ " o'clock": &-n=(t(b)>co):a$=" past to "(i+n*ef+n*c)+a$ 0t(b)=coa$="half"+a$: :n=oc @R (co-t(b))=25-e*nn$=x$(i+n*d)(d):a$=w$((n$(b))̰(n$(c)))+a$:n=c Dn N=(co-t(b))=ea$=w$(80P)+"-"+w$(2528)+a$ T Z87W,96` bang=*(c*e-aim)/co lov;hl*ang,hl*ang v s$=t(b):s$x$="2528555773798085" Ht(b) L$h(b):h(i)=31:h(b)=45- Rchk=o:clface="170":del2="160":ukey=hd:happy=b*hd:sad=250:wordtime=e*hd:drawhand=f*hd:numtime=g*hd:deslash=730 \Oagainmus=k:delete="150":pressB0=k-hd:press0=920:qkpress0=924 p4k$(b,ib):k$(i)="that's right":k$(b)="well done!" Vib,o;"' ' to set the little hand only (o'clocks)":#i;i,o;"to set both hands." 9ukey:bp,i:ib,i;i;"*":c12=(u$="y"):c12ib,i;" " It+d,o;"' ' for a 24 hour clock":#i;i,o;"for a normal 12-hour clock." ;ukey:bp,i:b*g,i;i;"*":c24=(u$="y"):c24b*g,i;" " Et+f,o;"' ' for the reward":#i;i,o;"to skip the reward. " 9ukey:bp,i:t+f,i;i;"*":rw=(u$="y"):rwt+f,i;" " ?t+h,o;"' ' for a white clock":#i;i,o;"for a black clock. " ?ukey:bp,i:b*q,i;i;"*":paper=(u$="y"):paperb*q,i;" " Gb*t,o;"' ' to exit or change choices":#i;i,o;"to run the program." ,ukey:bp,i:exit=(u$="y"):exit:"8500" `sc=o  !papero:o:i::ink=b:pap=o paperg:g:o::ink=o:pap=g ( "1500" *t(i)=(24*):c24t(i)=i+(ib*) t(i)=chkc*k t(b)=e*(ib*) c12t(b)=o chk=t(i) $Qc24p$=" ":xs=i:ys=b:xx=b:yy=152:bl &c24wordtime:p$=a$:d:bl 06numtime:p$=s$:ys=b:xx="212":yy="152":d:bl:b D stage=o mx=ib-c24+ib*(c24(t(i)ib)) uhr=ib*(mxib):umin=o:aim=o  "8060" ov=i:drawhand uhr=uhr+i-ib*(uhr=mx)  aim=aim+e ,ov=o:drawhand:trymesspress0:trymess=o  "8200" ov=i:aim=e*uhr:drawhand c12"5820" 4p$="No, the hand should be like this":bc:rwsad ov=o:aim=e*t(i):drawhand c*hd:delete:del2  stage=i aim=o  "8060" |#aim=umin:ov=i:hl=h(b):drawhand 'aim=t(i)*e+umin/ib:hl=h(i):drawhand  umin=umin+e-fo*(umin=557) ov=o aim=umin:hl=h(b):drawhand Eaim=t(i)*e+umin/ib:hl=h(i):drawhand:trymessqkpress0:trymess=o  "8200" Oov=i:aim=umin:hl="46":drawhand:aim=t(i)*e+umin/ib:hl=31:drawhand 3p$=" No, hands should be like this ":bc:rwsad Rov=o:aim=t(b):hl=46.:drawhand:aim=t(i)*e+t(b)/ib:hl=31:drawhand c*hd p+delete:del2:p$="Another go? (y/n)":bc vukey z'u$="y"againmus:clface:delete:c*k u$"n""6006" X "8500" |wg=o  trymess=o hl=h(stage+i) ov=o:drawhand pressB0:press0 ukey *u$=" "bp,e:"920":4500+stage*k u$"0""8200" &.5,b*t lc12(uhrt(i))"8600" v2((stage)(uhrt(i))stage(umint(b)))"8600" (delete:del2:p$=k$(stage+1):bc #c12sc=sc+i:d:stage=i:"8420" stagepapersc=sc+t:f stagepapersc=sc+e:b s$=sc:deslash:scy,scx;s$ rwstagehappy c*hd:rwstagepaperg rwstagepapero clface pap ! k*(e+stage) !4 !6kxs=i:ys=b:xx="44":yy=h*h:p$="Another game? (y/n)":bl:xx=g*h:yy=hd+t:p$="Press 'Y' for menu":bl !>="y"Ŧ="Y"del2:b*k !HJ="n"Ŧ="N":p$="Bye!":xs=b:ys=d:xx="92":yy=h*h:bl:o:o:o:b*k !R "8502" ! rwsad !Gdelete:wg=wg+i:wg,y+v:o,c*ei,*c/d:o,-c*ei,*c/d:x+e*t,y+b:ei,t:x+ei*ei,y+b:f,t:ei,-t:o: a=ie:e/h,c*t:e:a: n=ie a=ei+b*n-(n=i):a=a+(a=t+ei) Xm$="to learn the coins":n>im$="for sums up to "+"5p Op`2 "(g-c*(n=c)-f*(n=b))(c) u$="R":n>iu$=(n-i) a,e;b;u$;a,t;o;m$ n (b*t,t;"by mental arithmetic":d*h+c*t ,)n=c*ct:j=o31:n,j;" ":j:n: -c*h:f,o;"SPACE to rub out; 1 to finish": Ig:g:o::b,i;"How hard do you want it to be?";f,b;"press--":"230" u$=:u$="""430" u$="r"u$="R"lv=o:"480" ((u$)-50.5J)>b"430"  lv=u$: mx=i:lvc bi:b*t,29-((r$+i)/b);r$:o:su=tt:f*h:r$=x$:b*t,29-((r$+i)/b);r$:(c*c)*h: * j=i̱x$ .a=ib 40x$(j)="01"(a)x$=x$(j-i)+"O"(a)+x$(j+i̱x$) >a Hj R /207,o:o,d*f:f*ei,o:o,-d*f:-f*ei,o: "236099\,e*t:n=o:sc=o:tr=o :at=o:cn=n n=(*q)+i:n=cn"2020" 4y=e*t:m=ei*t:neim=w(n) >%x=b^g-m-c*t:l=((x+m)/ei):tr=tr+i Ri;b,f;"how many pennies?";b;f,ei;"press h for ";g,o;"press SPACE to change figure";ei,c;"press ENTER when ready";o:h+t*n:i;t+c,l+b;"= ";i;"?";o V!i/c,26-g*(c(n^(nei))+i) \ k$="":cr=o ^"""2142" `u$=:u$="""2144" f.b*t,b*t;b$;b$:u$=13 u$="p""2214" j,u$=" "Ʊk$k$=k$(̱k$-i):cr=o:b*h*(t+i) pcrűk$c"2142" zu$="h"u$="H"u$="":cr=i u$="i"u$="l"u$="1" u$="o"u$="O"u$="0" !u$""(u$<"0"u$>"9")"2144" k$=k$+u$ i/t,b*t:x$=k$:ei*h %i;t+c,l+e;b$;t+c,l+e;x$:"2142" $i/t,c*t:i;t+c,l+e+x$;"p":su=o k$=o"2140" %k$(k$)=""su=i/b:k$=k$(i̱k$-i) k$>osu=su+k$ i/t>(su-c(n^(nei)))b,f;b$;b$;b$;b$;f,ei;b$;b$;b$;g,o;b$;b$;b$;b$;b$;b$;ei,c;b$;b$;b$;b$;b$:b*t:sc=sc+i:2300-46.*(sc13 ) 1atcy=o $j . "4240" lo:o:f::i;t,t+c;"MONEY":o:ei*t:ei+t,b;" G.R. Sampson 1 Oct. 1983":f*t:b*t,e;s$:o:g:g:o: w(c*c):n=ic*c:w(n):n 0+d*ei,d*t,d*ei,d*t,d*ei,d*t,d*ei,c*ei,t*ei : c(ei):n=iei:c(n):n h,h/b,b*t,t,e,b,i,i/b +69E,101e,151,80P,47/,73I,105i,95_,68D,74J,217,5,226,44,,524,228,73I,69E,87W,145,136,112p,200,7,34",66B,201,17,34",28,38&,192 n=o31:s:"q"+n,s:n ,n=og:s:"h"+n,s:"i"+n,ei*(n>on tr=o:sc=o HUe$(ei):st=(*19):n=iei:e$(n)=(96`+st+n):n:tr=tr+i:vi=i:r$="": zg(ei):pa=i:lf=(>i/b):cn=o n=mxei po=(*ei)+i:lvf(in$=b$(c-sc)+sc+" r"+n$(f)  ei,o;b$;b$;b$'"Well done!";n$ f*t:"4110" vi=o:su=(tt-co):f*h m$="little":tt>com$="much" Jc*c,o;"No, that is ";x$;" too ";m$;".";t,o;"Change the money":"3750" t,t+c;"Play again? (y/n)" f*t "k$= ,k$="y""3400" 6k$"n""4130" Jfb=(f*sc/tr) Tfb=fb-(t-tr)*(trt) ^ fbh:g;o;b*t,i;"Press any key for another game":o:"3386" oibc@de f@g`t phHkzp quv@w0@  y 큀x@l , ijklmnopR+@@@H1 @ @ NKnXSpress any key to startB 0 @ +HH Mfor sums up to `2 U