TRIPLE &7:7:7:1: "" 1,0; ""triface"56000,6912 (1,0; 2 "triface" triple &7:7:7:1: "" 1,0; ""triface"56000,6912 (1,0; 2 "triface" logo @gÿûソソソaÁýÃÿýÁÃÇ}スǻLJ㻇ュýス߻ϻオaׇû߻ﻻケ諒׿ﻇ߻Á۽ýÿ۽ýÿǻǻyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|xxxxxxxxxxxxxxxxxxxxx||||||||||||||||||xxxxxxxxxxxxxx||||||||||||||||||||xxxxxxxxxxxx|||||||||||||||||||||xxxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx|||||||||||DDDDDD|||||xxxxxxxxxx|||||||||||D||xxDDDD||xxxxxxxxxx|||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzz88888888888888888888888888888888888888888888888888888888888888886triface B@ < rprpB@888h888B  Bx0TD `0@0 ` 00  BD<Tx8 P PzzZDDT@@?@?  p$D< 8T<p8x8 @ @ rprp <  2A<6AA=AA-1 $B>2B<6BB=BB-1 $D>2D<6CC=CC-1 A=12 AA=AA-2 B=12 BB=BB-2 D=12 CC=CC-2 %A<12 A>8AA=AA+2 %b<12 b>8BB=BB+2 %D<12 D>8CC=CC+2 AA<1AA=AA+480 BB<1BB=BB+480 CC<1CC=CC+480 AA>480AA=AA-480 BB>480BB=BB-480 CC>480CC=CC-480 0Q=(*3)+1:Q=1R=A:RR=AA1 Q=2R=B:RR=BB1 Q=3R=D:RR=CC1 REMOVE TRAILING SPACES & PRINT TIME N=161-1 %(R$(C$(R),N))32 280 N L=61-1 &(R$(A$(RR),L))32 295' "L 'r6300, )u1;2;19,12 -((c$(r)(n))+a$(rr)(l)+1)/2;C$(R)(N);" ";A$(RR)(L);" o'clock" * 400 ,j1;2;19,16-((c$(r)(n))+a$(rr)(l)+1)/2;C$(R)(N);" ";A$(RR)(L) DRAW NEW HANDS 45-,123{:S(A),C(A) !45-,123{:h(AA),j(aa) .25~,15 3125},67C:S(B),C(B):.25~,10 !125},67C:H(BB),J(BB) 4205,123{:S(D),C(D):.25~,15 $205,123{:H(CC),J(CC) GET ANSWER&EVALUATE IT =""500 )Q$=:Z=(Q$):Z<97aZ=Z+32 FZ<97aZ>99c.1}L,3:.1}L,0:500 ZQ+96`600X /RIGHT ANSWER TEXT 0a5:19,3;"Well done, that's correct!";20,3;"Try another one...." 5ri=ri+1 :1.1}L,0:.1}L,10 :1995 WWRONG ANSWER TEXT X{5:19,2;"That's not right, I'm afraid.";20,2;"The correct answer is (";(q+64@);")." ]wr=wr+1 b1.1}L,10 :.1}L,0:1995 no.of goes routine P1:200:r(m-1)=r(m-1)+ri:w(m-1)=w(m-1)+wr j2::0,0:255,0:0,175:-255,0:0,-175 U8,4;"That's 10 goes so let";9 ,4;"someone else take over." .5,10 P1:ri=0:wr=0:1:200::62200:100d LOOP BACK ri+wr=10 700 \1:200:s=62200:15,29;ri;16,29;wr:200 X"five","four","three","two","one","twelve","eleven","ten","nine","eight","seven","six" 4"Twenty five past","Twenty past","A quarter past","Ten past","Five past","Exactly","Five to","Ten to","A quarter to","Twenty to","Twenty five to","Half past" r33!,192,218,17,00,64@,01,480,24,237,176,201 18,-26,27,-13 ,32 ,0,27,13 ,18,26,0,32 ,-16,26,-27,13 ,-32 ,0,-27,-13 ,-18,-26,0,-32 0,2,6,9 ,12 ,15,18,21,22,24,25,26,27,26,25,24,22,21,18,15,12 ,9 ,6,2,0,-2,-6,-9 ,-12 ,-15,-18,-21,-22,-24,-25,-26,-27,-26,-25,-24,-22,-21,-18,-15,-12 ,-9 ,-6,-2 v-27,-26,-25,-24,-22,-21,-18,-15,-12 ,-9 ,-6,-2 E0,2,6,9 ,12 ,15,18,21,22,24,25,26,27,26,25,23,20,20,18,17,11 ,9 ,6,2,0,-2,-6,-9 ,-12 ,-15,-18,-21,-22,-24,-25,-26 @:u=1m-1 J"______________________" K#"_______________________________" T n$(u): U1;n$(u): ^"Right....";r(u) _"Right....";r(u) h"Wrong....";w(u) i"Wrong....";w(u) m23692\,100d ru | m Ε gg00? ? M five   ? CLOCK i&7:7:7:1: "logo" 1,0; "clock"56000 (1,0; 2"set" cock &7:7:7:1: "logo" 1,0; "clock"56000 (1,0; 2"set" logo @gÿûソソソaÁýÃÿýÁÃÇ}スǻLJ㻇ュýス߻ϻオaׇû߻ﻻケ諒׿ﻇ߻Á۽ýÿ۽ýÿǻǻyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|xxxxxxxxxxxxxxxxxxxxx||||||||||||||||||xxxxxxxxxxxxxx||||||||||||||||||||xxxxxxxxxxxx|||||||||||||||||||||xxxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx|||||||||||DDDDDD|||||xxxxxxxxxx|||||||||||D||xxDDDD||xxxxxxxxxx|||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzz88888888888888888888888888888888888888888888888888888888888888886clock <@<|Bx B@@<<@888@8(BB888B(((8B8x@8x  (FB ~@ >`>8 B< @D< 0~@ @@ @@  @@  @< < @<0| |@|@@B B  B@B8B8888@8B<@8 B   <(|D  |DxD`B0Dx >  BHBD  Bx<Dx |DD  B@B~BD @B@DD@D2I<6RH=RH-1 I=12 RH=RH+2 %I>8I<12 RH=RH+1 !J=1I=5RH=1 RH>480RH=RH-480 5500| T$=M$+" "+H$ CH=(31-T$)/2 I=7:J=21 ,BMH=17;2;1;2,1;"MINUTE" @20,CH;T$ J*FLAG1=1FLAG1=0:2500 TCOUNTER=COUNTER+5 ^ 7 DRAW NEW HANDS 5127,100d:C(I),D(I):.008zn,10 -16,29;WR;15,29;RI  127,100d:A(J),B(J) Z=130:Z SCAN KEYBOARD %="B"Ŧ="b"BT=1:2500 3COUNTER>5COUNTER<7.1}L,0 18,tab;" " nBT=1COUNTER=COUNTER+1.5@:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 TAB<9 2600( +="5"I=I+1:6100:300, ="M"Ŧ="m":550& +="8"I=I-1:6100:300, 4="H"Ŧ="h"6000p:s=62200:300, =(13 )500  415 I=RM1500:1000 '1600@:S=62200:300, & MENU +_0,0:255,0:0,175:-255,0:0,-175 0+1;2,10 ;"****MENU****" :A1;7,4;"1":7,10 ;"Set the time" DD1;10 ,4;"2":10 ,10 ;"Name the time" N,1;13 ,4;"Choose 1 or 2" X=""600X ]K$= _(k$="r"k$="R"8000@::550& bUK$<"1"K$>"2"O=12:L=15:.05|L,O+L:L:O:600X g K=(K$) lK=1:160 vK=2:7000X CK=12:L=15:.3,L:L:K:600X  REPEAT FOR HOUR HAND  MH=0 s=62200 [2,1;" ":MH=07;2;1;2,1;"HOUR" 20,CH;T$ *FLAG1=1FLAG1=0:2500 COUNTER=COUNTER+3 5127,100d:C(I),D(I):.008zn,10  -16,29;WR;15,29;RI  127,100d:A(J),B(J) nBT=1COUNTER=COUNTER+1.5@:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 BT=118,TAB;" " TAB<9 2600( ,="5"J=J+1:62008:1005 3COUNTER>5COUNTER<7.1}L,0 ,="%"J=J+2:62008:1005 ="M"Ŧ="m":550& $,="8"J=J-1:62008:1005 %,="("J=J-2:62008:1005 .5="H"Ŧ="h"6000p:s=62200:1010 8=(13 )1100L B 1046 LJ=RH2000 V(1600@:S=62200:1010 TICK FOR CORRECT ANSWER T14,1;" ";15,1;" ";16,1;" " -X=18:12 +X,557-X:X .X=120:20+X,47/+X:X &1;17,1;"Correct" ^1:200:s=62200:16,1;"Clock":17,1;" ": @X FOR WRONG ANSWER EWR=WR+1 FT14,1;" ";15,1;" ";16,1;" " J.X=120:15+X,65A-X:X T.X=120:15+X,44,+X:X ^-2;1;17,1;"Wrong" c0RI+WR>10 1:200:3000 hL1:150:17,1;" ":16,1;"Clock": ROUTINE FOR ALL CORRECT 720:2,1;" ":7:2: *1;10 ,10 ;"Well done!" IRI+WR+1>9 1:200:7:1:3000 :1;10 ,2;"Well done! Try another one." ډCOUNTER=0:BT=0:RI=RI+1:MH=1:TAB=23:1:200:7:1::S=62300\:210 hBT=11;18,9 ;"BEAT THE CLOCK":Z=23TAB-1:18,Z;" ":Z: (OUT OF TIME S/ROUTINE )7:2: * W$="You have run out of time!" +FI=010 :I,4;W$:.01z# =,30-i:10 :I ,vI=020:.01z# =,20-i:I,4;" ":I<10 I+10 ,4;W$ - 5:I 6<7:1:ri+wr>8wr=wr+1:3000 7u:1;10 ,10 ;"Try again...":1:100d:10 ,10 ;" ":S=62300\ <`MH=1:FLAG1=0:BT=0:WR=WR+1:TAB=23:COUNTER=0:210 NO.OF GOES ROUTINE ri=ri+1 <r(n-1)=r(n-1)+ri:w(n-1)=w(n-1)+wr ^:10 ,4;"You've had ten goes, so";11 ,4;"let someone else take over" 1:250::13  X"five","four","three","two","one","twelve","eleven","ten","nine","eight","seven","six" r33!,192,218,17,00,64@,01,480,16,237,176,201 r33!,192,218,17,00,64@,01,480,24,237,176,201 0,5,11 ,16,20,26,30,33!,36$,41),43+,44,,45-,44,,43+,41),36$,33!,30,27,22,16,11 ,5 0,-5,-11 ,-16,-20,-26,-30,-33!,-36$,-41),-43+,-44,,-45-,-44,,-43+,-41),-36$,-33!,-30,-26,-20,-16,-11 ,-5 -45-,-44,,-43+,-41),-36$,-33!,-30,-26,-20,-16,-11 ,-5,0,5,11 ,16,20,26,30,33!,36$,41),43+,44, 45-,44,,43+,41),36$,33!,30,26,20,16,11 ,5,0,-5,-11 ,-16,-20,-26,-30,-33!,-36$,-41),-43+,-44, "Half past","Twenty five past","Twenty past","A quarter past","Ten past","Five past","Exactly","Five to","Ten to","A quarter to","Twenty to","Twenty five to" p0,27,45-,502,45-,28,0,-26,-40(,-502,-44,,-25 p-524,-44,,-26,0,26,44,,524,44,,25,0,-26,-44, |>X=161-1:C$(I,X)(32 )5520 X M$=C$(I)(1X) =X=61-1:A$(J,X)(32 )5550 X H$=A$(J)(X)  phelp page ua:0,0:255,0:0,175:-255,0:0,-175 z?1;1,5;;"KEY";1,17;"FUNCTION" ?3,4;"->";3,12 ;"Move hand clockwise" X5,4;"<-";5,12 ;"Move hand";6,17;"anti-clockwise" =7,4;"ENTER";7,12 ;"Enter the time" ;9 ,4;"'M'";9 ,12 ;"Return to menu" @11 ,4;"'H'";11 ,12 ;"Help! (this page)" Z13 ,4;"'B'";13 ,12 ;"Try and beat the";14,17;"clock" w16,4;"You set the minute hand";17,4;"before going on to the";18,4;"hour hand." 1:150 81;20,3;"PRESS ANY KEY TO CONTINUE" $0:BT=1FLAG1=1 /20,3;" " =""6098 s=62300\: check pos'n of hands i<1I=12 I>12 I=1 s=62200: 8check pos'n of hands BJ<1J=480 LJ>480J=1 V X# BEAT THE CLOCK  Z% ARNOLD-WHEATON S/WARE \WRITTEN BY DEREK WILSON ^BASED UPON AN IDEA BY  ` MARTIN SMITH.  a NAME THE TIME  b1:7:1: d:BT=0:COUNTER=0:TAB=23:FLAG1=0 f 7026r hABT=120,1;" ": j318,1;" " l319,1;" " n520,1;" ": pDRAW SCREEN rDONEFLAG=17072  MH=1 nA$(13 ,6):A(480):B(480):Q(12 ):C$(13 ,16):C(60<):D(60<) +1;10 ,10 ;"Please wait" I=112 :A$(I):I 1I=112 :Q(I):62199+I,Q(I):I 1I=112 :Q(I):62299[+I,Q(I):I I=1480:A(I):I I=1480:B(I):I I=112 :C$(I):I I=112 :C(I):I I=112 :D(I):I DONEFLAG=1  *:62300\:3,1;" " RANDOM TIME 2I=(*12 )+1:J=(*12 )+1 RM=I:RH=4*j+1 I<3RH=RH-2 $I>2I<6RH=RH-1 I=12 RH=RH+2 %I>8I<12 RH=RH+1 !J=1I=5RH=1 RH>480RH=RH-480 RT=J:RT=RIGHT HOUR i=1:j=1 C&D ARE THE MINUTE HAND "127,100d:c(rm),d(rm) A&B ARE THE HOUR HAND "127,100d:A(rh),B(rh) CMH=17;2;1;2,1;"MINUTES" @15,23;"Right ";RI:16,23;"Wrong ";WR (7262^:REMOVE TRAILING SPACES  7016h CH=CH+(H$/2) 1;20,CH;M$ *FLAG1=1FLAG1=0:7236D &BT=1COUNTER=COUNTER+10 Z=130:Z SCAN KEYBOARD %="B"Ŧ="b"BT=1:7236D 3COUNTER>5COUNTER<7.1}L,0 BT=118,TAB;" " lBT=1COUNTER=COUNTER+1:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 TAB<9 7238F BT=1COUNTER=COUNTER+1 1;20,CH;M$ ,="5"I=I+1:7336:7104 ,="8"I=I-1:7336:7104 N="H"Ŧ="h"7306:s=62200:3,1;" ":7096 =(13 )7148 ="M"Ŧ="m":550&  7122 I=RM7198:7152 7210*:7104 REPEAT FOR HOUR HAND  MH=0 "127,100d:C(RM),D(RM) "127,100d:A(RH),B(RH) BT=17236D v2,1;" ":MH=07;2;1;2,1;"HOURS":3,1;" " 7262^:7016h %BT=1counter=counter+6 20,CH;T$ *FLAG1=1FLAG1=0:7236D -16,29;WR;15,29;RI 20,CH;1;T$ kBT=1COUNTER=COUNTER+1:COUNTER>8COUNTER=0:TAB=TAB-1:.1}L,10  BT=118,TAB;" "  TAB<9 7238F ,="5"J=J+1:7344:7162 3COUNTER>5COUNTER<7.1}L,0 ,="8"J=J-1:7344:7162 ="M"Ŧ="m":550& N="H"Ŧ="h"7306:s=62200:3,1;" ":7152 =(13 )7194  7174 J=RT7226: 7210*:7162 TICK FOR CORRECT ANSWER  T14,1;" ";15,1;" ";16,1;" " "-X=18:12 +X,557-X:X $.X=120:20+X,47/+X:X &&1;17,1;"Correct" (^1:200:s=62200:16,1;"Clock":17,1;" ": *X FOR WRONG ANSWER ,WR=WR+1 .T14,1;" ";15,1;" ";16,1;" " 0.X=120:15+X,65A-X:X 2.X=120:15+X,44,+X:X 4-2;1;17,1;"Wrong" 6RI+WR=10 7256X 81:150:13 ,1;" ";17,1;" ":14,1;"'B' for";15,1;"Beat the";16,1;"Clock": :ROUTINE FOR ALL CORRECT <97016h:2,1;" ":7:2: >*1;10 ,10 ;"Well done!" ?YRI+WR+1=10 ri=ri+1:1:200:7:1:7256X @91;10 ,2;"Well done! Try another one" BCOUNTER=0:BT=0:RI=RI+1:MH=1:TAB=23:1:200:7:1::S=62300\:3,1;" ":7074 DhBT=11;18,9 ;"BEAT THE CLOCK":Z=23TAB-1:18,Z;" ":Z: FOUT OF TIME S/ROUTINE H7:2: J W$="You have run out of time!" LFI=010 :I,4;W$:.01z# =,30-I:10 :I N`I=020:I,4;" ":I<10 I+10 ,4;W$ P".01z# =,20-I:5:I R7:1 S2ri+wr+1>9 wr=wr+1:7256X Tu:1;10 ,10 ;"Try again...":1:100d:10 ,10 ;" ":S=62300\ VaMH=1:FLAG1=0:BT=0:WR=WR+1:TAB=23:COUNTER=0:7074 XNO.OF GOES ROUTINE Y"r(n-1)=ri:w(n-1)=wr Z^:10 ,4;"You've had ten goes, so";11 ,4;"let someone else take over" \ 1:250::13 ^ 7292| `T$=M$+" "+H$ bCH=(31-T$)/2 d f hX"five","four","three","two","one","twelve","eleven","ten","nine","eight","seven","six" jr33!,192,218,17,00,64@,01,480,16,237,176,201 lr33!,192,218,17,00,64@,01,480,24,237,176,201 n0,5,11 ,16,20,26,30,33!,36$,41),43+,44,,45-,44,,43+,41),36$,33!,30,27,22,16,11 ,5 p0,-5,-11 ,-16,-20,-26,-30,-33!,-36$,-41),-43+,-44,,-45-,-44,,-43+,-41),-36$,-33!,-30,-26,-20,-16,-11 ,-5 r-45-,-44,,-43+,-41),-36$,-33!,-30,-26,-20,-16,-11 ,-5,0,5,11 ,16,20,26,30,33!,36$,41),43+,44, t45-,44,,43+,41),36$,33!,30,26,20,16,11 ,5,0,-5,-11 ,-16,-20,-26,-30,-33!,-36$,-41),-43+,-44, v"Half past","Twenty five past","Twenty past","A quarter past","Ten past","Five past","Exactly","Five to","Ten to","A quarter to","Twenty to","Twenty five to" xp0,27,45-,502,45-,28,0,-26,-40(,-502,-44,,-25 zp-524,-44,,-26,0,26,44,,524,44,,25,0,-26,-44, |>X=161-1:C$(I,X)(32 )7296 ~X M$=C$(I)(1X) =X=61-1:A$(J,X)(32 )7302 X H$=A$(J)(X)  help page a:0,0:255,0:0,175:-255,0:0,-175 ?1;1,5;;"KEY";1,17;"FUNCTION" Y3,4;"->";3,12 ;"Advance subtitle";4,17 ;"reading" W5,4;"<-";5,12 ;"Reduce subtitle";6,17;"reading" =7,4;"ENTER";7,12 ;"Enter the time" ;9 ,4;"'M'";9 ,12 ;"Return to menu" @11 ,4;"'H'";11 ,12 ;"Help! (this page)" Z13 ,4;"'B'";13 ,12 ;"Try and beat the";14,17;"clock" }16,4;"You set the minute reading";17,4;"before going on to the";18,4;"hour reading." 1:150 81;20,3;"PRESS ANY KEY TO CONTINUE" $0:BT=1FLAG1=1 /20,3;" " =""7332 s=62300\: check pos'n of hands .1}L,30 i<1I=I+12 I>12 I=I-12  -.1}L,30:check pos'n of hands BJ<1J=12 LJ>12 J=1 V ,.1}L,30:J<1J=J+12 J>12 J=J-12  @:u=1n-1 J"_________________________" K""______________________________" T n$(u): U1;n$(u): ^"Right....";r(u) _"Right....";r(u) h"Wrong....";w(u) i"Wrong....";w(u) m23692\,100d ru | n oneflaountealagbk, jsS five four three two one twelveeleventen nine eight seven six 0 !$)+,-,+)$! 0 !$)+,-,+)$! ? !@0 Half past Twenty five pastTwenty past A quarter past Ten past Five past Exactly Five to Ten to A quarter to Twenty to Twenty five to /<-2-/<,4, WYou have run out of time!K1M Half pastHtenT Half past tenΕ k ggDIGITAL }}{&1:7:7:7: "" 1,0; ""56000 (1,0; 2"" logo @GÿûソソソaÁýÃÿýÁÃÇ}スǻLJ㻇ュýス߻ϻオaׇû߻ﻻケ諒׿ﻇ߻Á۽ýÿ۽ýÿǻǻyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxx|x||||||||||||||||||x||||||||||||||||||||x||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||DDDDDD||||||||||||||||D||xxDDDD|||||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzz88888888888888888888888888888888888888888888888888888888888888881digital <@@@R?<<<@@@@@R<<<@@888@8@@@8x@<<b@<@~(xDx@>>>@D<~?(B((>~(B@D@@>>>@DDDD@(FB><~? 0<< D<@@D? BH@>? PBH|@@<<B? 0<B~B<@8@<<B<B~B0Dx@BB<<B<|DD@BB<<<B<D9 I<24RH=RH-1 I>535RH=RH-2 &I>39'I<546RH=RH-3 &I>31I<40(RH=RH-4 RH>480RH=RH-480 O5500|:FLAG2=1:7;0;1;9 ,26;B$(1);10 ,26;B$(22);9 ,27;M$(1);10 ,27;M$(22);9 ,21;R$(1);10 ,21;R$(22);9 ,22;H$(1);10 ,22;H$(22) I1;0;7;9 ,24;"";10 ,24;"" I=31:J=21 ,AMH=17;2;1;3,22;"HOUR" 6)FLAG2=1FLAG2=0:330J @87;0;1;9 ,26;B$(1);10 ,26;B$(22);9 ,27;M$(1);10 ,27;M$(22);9 ,21;R$(1);10 ,21;R$(22);9 ,22;H$(1);10 ,22;H$(22) E.9 ,24;"";10 ,24;"" J*FLAG1=1FLAG1=0:2500 TCOUNTER=COUNTER+5 DRAW NEW HANDS <72H,96`:1;C(I),D(I):.008zn,10 -17,26;WR;15,26;RI '72H,96`:1;A(J),B(J) SCAN KEYBOARD %="B"Ŧ="b"BT=1:2500 3COUNTER>5COUNTER<7.1}L,0 20,tab;" " lBT=1COUNTER=COUNTER+1:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 TAB<9 2600( +="5"j=J+1:62008:300, +="%"J=J+4:62008:300, ="M"Ŧ="m":550& +="8"J=J-1:62008:300, +="("J=J-4:62008:300, 4="H"Ŧ="h"6000p:s=62200:300, =(13 )500  415 J=RH1500:1000 '1600@:S=62200:300, & MENU (FMH=1:FLAG1=0:BT=0:TAB=23:COUNTER=0 +_0,0:255,0:0,175:-255,0:0,-175 0+1;2,10 ;"****MENU****" :D1;7,4;"1":7,10 ;"Digital to Dial" DF1;10 ,4;"2":10 ,10 ;"Dial to Digital" N,1;13 ,4;"Choose 1 or 2" X=""600X ]K$= _<k$="r"k$="R"8000@:1:500::550& bUK$<"1"K$>"2"O=12:L=15:.05|L,O+L:L:O:600X g K=(K$) lK=1:150 vK=2:7000X CK=12:L=15:.3,L:L:K:600X  REPEAT FOR HOUR HAND 'MH=0:BT=1FLAG1=1 s=62200 ^3,20;" ":MH=07;2;1;3,22;"HOUR" .9 ,24;"";10 ,24;"" 87;0;1;9 ,26;B$(1);10 ,26;B$(22);9 ,27;M$(1);10 ,27;M$(22);9 ,21;R$(1);10 ,21;R$(22);9 ,22;H$(1);10 ,22;H$(22) 8FLAG1=1FLAG1=0:TAB=23:2500 COUNTER=COUNTER+3 <72H,96`:1;C(I),D(I):.008zn,10  -17,26;WR;15,26;RI '72H,96`:1;A(J),B(J) nBT=1COUNTER=COUNTER+1.5@:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 BT=120,TAB;" " TAB<9 2600( ,="5"I=I+1:6100:1005 3COUNTER>5COUNTER<7.1}L,0 -="%"I=I+10 :6150:1005 ="M"Ŧ="m":550& $,="8"I=I-1:6100:1005 %-="("I=I-10 :6150:1005 .5="H"Ŧ="h"6000p:s=62200:1010 8=(13 )1100L B 1046 LI=RM2000 V(1600@:S=62200:1010 TICK FOR CORRECT ANSWER 14,19;" ";15,19;" ";16,19;" ";17,19;" ";18,19;" " .X=18:210+X,557-X:X /X=120:218+X,47/+X:X '1;17,24;"Correct" @1:200:17,24;" ":62300\: @X FOR WRONG ANSWER E2WR=WR+1:w(n-1)=w(n-1)+1 F14,19;" ";15,19;" ";16,19;" ";17,19;" ";18,19;" " J/X=120:210+X,65A-X:X T/X=120:210+X,44,+X:X ^.2;1;17,25;"Wrong" c0RI+WR=10 1:150:3000 hL1:150:17,25;" ":62300\:2500 : ROUTINE FOR ALL CORRECT 720:2,1;" ":7:2: ԃ1;10 ,10 ;"Well done!":RI+WR+1=10 1:ri=ri+1:150:7:1:3000 91;10 ,2;"Well done! Try another one" ڬCOUNTER=0:BT=0:RI=RI+1:r(n-1)=r(n-1)+1:MH=1:TAB=23:1:200:7:1::S=62300\:210 hBT=11;20,9 ;"BEAT THE CLOCK":Z=23TAB-1:20,Z;" ":Z:  (OUT OF TIME S/ROUTINE )7:2: * W$="You have run out of time!" +FI=010 :I,4;W$:.01z# =,30-i:10 :I ,vI=020:.01z# =,20-i:I,4;" ":I<10 I+10 ,4;W$ -75:I:tab=23:bt=0:counter=0 2ERI+WR+1=10 7:wr=wr+1:1:3000 67:1 7u:1;10 ,10 ;"Try again...":1:100d:10 ,10 ;" ":S=62300\ <`MH=1:FLAG1=0:BT=0:WR=WR+1:TAB=23:COUNTER=0:210 NO.OF GOES ROUTINE ^:10 ,4;"You've had ten goes, so";11 ,4;"let someone else take over" "w(n-1)=wr:r(n-1)=ri ri=0:wr=0 1:250::30  ="05","04","03","02","01","12","11","10","09","08","07","06" r33!,192,218,17,00,64@,01,480,16,237,176,201 r33!,192,218,17,00,64@,01,480,24,237,176,201 0,4,10 ,13 ,18,22,26,30,32 ,36$,38&,38&,38&,36$,36$,34",30,30,26,22,18,14,8,4 0,-4,-10 ,-13 ,-18,-22,-26,-30,-32 ,-36$,-38&,-38&,-38&,-36$,-36$,-34",-30,-30,-26,-22,-18,-14,-8,-4 -38&,-38&,-36$,-36$,-32 ,-30,-25,-22,-18,-14,-10 ,-4,0,6,10 ,14,17,24,28,30,32 ,36$,38&,38& 38&,38&,36$,36$,33!,30,25,22,18,14,10 ,4,0,-6,-10 ,-14,-17,-24,-28,-30,-32 ,-36$,-38&,-38& -"30","29","28","27","26","25","24","23","22","21","20","19","18","17","16","15","14","13","12","11","10","09","08","07","06","05","04","03","02","01","00","59","58","57","56","55","54","53","52","51","50","49","48","47","46","45","44","43","42","41","40","39","38","37","36","35","34","33","32","31"  0,5,10 ,15,19,24,29,33!,37%,40(,44,,46.,47/,491,491,502,491,491,47/,46.,44,,40(,37%,33!,29,24,19,15,10 ,5 )0,-5,-10 ,-15,-19,-24,-29,-33!,-37%,-40(,-44,,-46.,-47/,-491,-491,-502,-491,-491,-47/,-46.,-44,,-40(,-37%,-33!,-29,-24,-19,-15,-10 ,-5 -502,-491,-491,-47/,-46.,-44,,-40(,-37%,-33!,-29,-24,-19,-15,-10 ,-5,0,5,10 ,15,19,24,29,33!,37%,40(,44,,46.,47/,491,491 502,491,491,47/,46.,44,,40(,37%,33!,29,24,19,15,10 ,5,0,-5,-10 ,-15,-19,-24,-29,-33!,-37%,-40(,-44,,-46.,-47/,-491,-491 |fz=0:q=062:""+q,(15616=+(8*(c$(RM)(1)-32 ))+z) }U""+q+1,(15616=+(8*(c$(RM)(1)-32 ))+z):z=z+1 ~q cq=172:""+q-1,(15616=+(8*(c$(RM)(1)-32 ))+z) P""+q,(15616=+(8*(c$(RM)(1)-32 ))+z):z=z+1:Q uz=0:q=062:""+q+1,(15616=+(8*(c$(RM)(22)-32 ))+z) T""+q,(15616=+(8*(c$(RM)(22)-32 ))+z):z=z+1 q jq=172:""+q-1,(15616=+(8*(c$(RM)(22)-32 ))+z) T""+q,(15616=+(8*(c$(RM)(22)-32 ))+z):z=z+1 q  b$=""+""  M$=""+"" (QUICKFLAG=1QUICKFLAG=1: .A$(RH1)(1)="0"A$(RH1)(1)=" " .A$(RH1)(1)="0"A$(RH1)(1)=" " gz=0:q=062:""+q,(15616=+(8*(A$(RH1)(1)-32 ))+z) V""+q+1,(15616=+(8*(A$(RH1)(1)-32 ))+z):z=z+1 q dq=172:""+q-1,(15616=+(8*(A$(RH1)(1)-32 ))+z) Q""+q,(15616=+(8*(A$(RH1)(1)-32 ))+z):z=z+1:Q vz=0:q=062:""+q+1,(15616=+(8*(A$(RH1)(22)-32 ))+z) U""+q,(15616=+(8*(A$(RH1)(22)-32 ))+z):z=z+1 q kq=172:""+q-1,(15616=+(8*(A$(RH1)(22)-32 ))+z) U""+q,(15616=+(8*(A$(RH1)(22)-32 ))+z):z=z+1 Q  R$=""+""  H$=""+""  phelp page r 2 ua:0,0:255,0:0,175:-255,0:0,-175 z?1;1,5;;"KEY";1,17;"FUNCTION" ?3,4;"->";3,12 ;"Move hand clockwise" X5,4;"<-";5,12 ;"Move hand";6,17;"anti-clockwise" =7,4;"ENTER";7,12 ;"Enter the time" ;9 ,4;"'M'";9 ,12 ;"Return to menu" @11 ,4;"'H'";11 ,12 ;"Help! (This page)" Z13 ,4;"'B'";13 ,12 ;"Try and beat the";14,17;"clock" w16,4;"You set the hour hand";17,4;"before going on to the";18,4;"minute hand." 1:150 81;20,3;"PRESS ANY KEY TO CONTINUE" $0:BT=1FLAG1=1  1: s=62300\: check pos'n of hands i<1I=60< I>60<I=1 62200:  i<1 i=i+60<  i>60 <i=i-60< 62200: 8check pos'n of hands BJ<1J=j+480 LJ>480J=j-480 Q62200 V X# BEAT THE CLOCK  Z% ARNOLD-WHEATON S/WARE \WRITTEN BY DEREK WILSON ` MARTIN SMITH.  a NAME THE TIME  b1:7:1: dFmh=1:BT=0:COUNTER=0:TAB=23:FLAG1=0 f 7026r hABT=120,1;" ": l319,1;" " n520,1;" ": vDIM BITS wDONEFLAG=17070 xmA$(60<,2):A(480):B(480):Q(12 ):C$(60<,2):C(60<):D(60<) y+1;10 ,10 ;"Please wait" zI=112 :A$(I):I |1I=112 :Q(I):62199+I,Q(I):I ~1I=112 :Q(I):62299[+I,Q(I):I I=1480:A(I):I I=1480:B(I):I I=160<:C$(I):I I=160<:C(I):I I=160<:D(I):I  DONEFLAG=1 :62300\ RANDOM TIME 2I=(*60<)+1:J=(*12 )+1 *rm1=I:RM=I:RH=4*j+1:RH1=J I<9 RH=RH-2 %I>8I<24RH=RH-1 I=60<RH=RH+2 &I>38&I<60<RH=RH+1 :J17090:I>23I<39'RH=1 RH>480RH=RH-480 4RT=J:I>31RT=RT+1:RT=RIGHT HOUR C&D ARE THE MINUTE HAND +72H,96`:1;c(rm1),d(rm1) A&B ARE THE HOUR HAND )72H,96`:1;A(rh),B(rh) UI=31:j=5:7338:7346:RM=31:RH1=5:5500| ]MH=17;2;1;3,22;"HOURS":4,22;" " .9 ,24;"";10 ,24;"" @15,20;"Right ";RI:17,20;"Wrong ";WR +72H,96`:1;c(rm1),d(rm1) )72H,96`:1;A(rh),B(rh) 87;0;1;9 ,26;B$(1);10 ,26;B$(22);9 ,27;M$(1);10 ,27;M$(22);9 ,21;R$(1);10 ,21;R$(22);9 ,22;H$(1);10 ,22;H$(22) *FLAG1=1FLAG1=0:7236D %BT=1COUNTER=COUNTER+6 SCAN KEYBOARD %="B"Ŧ="b"BT=1:7236D 3COUNTER>5COUNTER<7.1}L,0 BT=120,TAB;" " lBT=1COUNTER=COUNTER+1:COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10 TAB<9 7238F ,="5"j=J+1:7336:7104 ,="8"J=J-1:7336:7104 O="H"Ŧ="h"7306:s=62200:4,22;" ":7096 =(13 )7148 ="M"Ŧ="m":550&  7122 J=RT1500:7152 21600@:4,22;" ":7104 REPEAT FOR HOUR HAND tab=23:MH=0 +72H,96`:1;C(RM1),D(RM1) )72H,96`:1;A(rh),B(rh) BT=17236D |3,21;" ":MH=07;2;1;3,21;"MINUTES":4,22;" " .9 ,24;"";10 ,24;"" 87;0;1;9 ,26;B$(1);10 ,26;B$(22);9 ,27;M$(1);10 ,27;M$(22);9 ,21;R$(1);10 ,21;R$(22);9 ,22;H$(1);10 ,22;H$(22) *FLAG1=1FLAG1=0:7236D -17,26;WR;15,26;RI %BT=1counter=counter+1 SBT=1COUNTER>10 COUNTER=0:TAB=TAB-1:.1}L,10  BT=120,TAB;" "  TAB<9 7238F ,="5"I=I+1:7344:7162 -="%"I=I+10 :7344:7162 3COUNTER>5COUNTER<7.1}L,0 -="("I=I-10 :7344:7162 ,="8"I=I-1:7344:7162 ="M"Ŧ="m":550& O="H"Ŧ="h"7306:s=62200:4,22;" ":7152 =(13 )7194  7174 I=RM17226: 1600@:7156 :ROUTINE FOR ALL CORRECT <97016h:2,1;" ":7:2: >tRI+WR+1=10 1;10 ,10 ;"Well done!":1:150:7:1:7256X @91;10 ,2;"Well done! Try another one" BCOUNTER=0:BT=0:RI=RI+1:r(n-1)=r(n-1)+1:MH=1:TAB=23:1:200:7:1::S=62300\:7074 DhBT=11;20,9 ;"BEAT THE CLOCK":Z=23TAB-1:20,Z;" ":Z: FOUT OF TIME S/ROUTINE H7:2: J W$="You have run out of time!" LFI=010 :I,4;W$:.01z# =,30-I:10 :I N`I=020:I,4;" ":I<10 I+10 ,4;W$ P".01z# =,20-I:5:I QERI+WR+1=10 7:wr=wr+1:1:7256X R7:1 Tu:1;10 ,10 ;"Try again...":1:100d:10 ,10 ;" ":S=62300\ VaMH=1:FLAG1=0:BT=0:WR=WR+1:TAB=23:COUNTER=0:7074 XNO.OF GOES ROUTINE Z^:10 ,4;"You've had ten goes, so";11 ,4;"let someone else take over" \Zw(n-1)=wr:r(n-1)=ri:wr=0:ri=0:1:250::30 ^ 7292| `T$=M$+" "+H$ bCH=(31-T$)/2 d f help page  2 a:0,0:255,0:0,175:-255,0:0,-175 ?1;1,5;;"KEY";1,17;"FUNCTION" Y3,4;"->";3,12 ;"Advance subtitle";4,17 ;"reading" W5,4;"<-";5,12 ;"Reduce subtitle";6,17;"reading" =7,4;"ENTER";7,12 ;"Enter the time" ;9 ,4;"'M'";9 ,12 ;"Return to menu" @11 ,4;"'H'";11 ,12 ;"Help! (this page)" Z13 ,4;"'B'";13 ,12 ;"Try and beat the";14,17;"clock" }16,4;"You set the hour reading";17,4;"before going on to the";18,4;"minute reading." 1:150 81;20,3;"PRESS ANY KEY TO CONTINUE" $0:BT=1FLAG1=1  1: s=62300\: 9.1}L,30:7346:check pos'n of hands i<1I=i+60< I>60<I=I-60< %RM=I:QUICKFLAG=1:5500|  9.1}L,30:7338:check pos'n of hands BJ<1J=12 LJ>12 J=1 V J<1J=12 J>12 J=1 RH1=J:5600  @:u=1n-1 J"_________________________" K""______________________________" T n$(u): U1;n$(u): ^"Right....";r(u) _"Right....";r(u) h"Wrong....";w(u) i"Wrong....";w(u) m23692\,100d ru | n* oneflaodeuickflaountealagk<jhD|lagTsbWYou have run out of time!m9}<05040302 112111009 80706 0  $&&&$$"0  $&&&&$$! ? !@0}<302928272625242322212019181716151413121110090807060504030201005958575655545352515049484746454443424140393837363534333231/< !%(,./11211/.,(%! /< !%(,./11211/.,(%! K2BMRHΕ gg