ZXTape! 2 What's The Time ? - Side BCollins Educational P.K. McBride1983English Educational5.95 ?NoneOriginal Release*TZXed by Andrew Barker ISBN 0 00 197459-9|QUARTERS J!&L! "QUARTERS" >>  MACBRIDE 1983 << =0:1,0:7000X:e=14120 ;:t=6:H=36$:N=1:M=3:8100  15,13 ;" 6.00" 319,1;"15 Minutes are a Quarter Hour" )17,8;"It is 6 o'clock" Kn=60<0-1:m=n/5-9 :m<0m=m+12 n=60<4040 'n/15=(n/15)h=h-1  5050 [8:15,16+(n513);60<-n:n=015,14;"7.00" .1}L,4:8180 gn/15=(n/15)4550-n/15*502:100d:6900:e=1n=0 n 2st=12 ::sC=0:n=1:8100 tp=t "w6,0;"quarter";7,2;"TO";6,23;"quarter";7,24;"PAST" ,n=112 1ssC=46,0;" ";7,2;" ";6,22;" ";7,24;" " 64t=t+(*3)+1:t>12 t=t-12 ;t=tp41506 =Sj=15:Mo=12 :Q$="PAST ":>.5Mo=6:j=16:Q$="TO " @D17,0;"Set hands to quarter ";Q$;t;7;" " E23673y\,0 T 5400 Y=""4200h ^.5,0:8180 h~m=moh=(j-t)*4-(1+(2j=16))m=moh=(j-12 -t)*4-(1+(2j=16))4300 mE23673y\185550+(502mo=6):4320 r 4180T =17,0;" WELL DONE " !sC=sC+1:1,12  0 )6900:e=1st=n:n=12 tp=t n:6000p:4600  0Bq=0:7:17,7;"It is QUARTER PAST 6" :-q$="PAST":h$="right":5000: b8q=0:17,7;"It is HALF PAST 6": gq=0:17,7;"It is QUARTER TO 7":Q$="close TO":h$="left":5000: +17,7;"It is 7 o'clock": 3sc=0:st=12 ::p(2):8100 Un=112 :p(1)=7:p(2)=7:t=(*10 )+2  =m=12 :ts=t:c=1:h=(15-t)*4-1 P>.5m=6:ts=t-1:c=2:h=(16-t)*4-3 h>480h=h-480 38180:14,4;"What's the time? " 4800:go=0  +"  ENTER the answer number ";c$ "c$=""4640  %9c$(1)>513ůc$(1)<4914640  *vgo=go+1:c$(1)=csc=sc+1:14,4;"Good.Try another":1,12 :4670> /Sgo<314,4;"Wrong try again.":1,0:4640  4Xp(c)=4:14,4;"The time was ....":1,-12 :4800 >)6850:e=1st=n:n=12 \/n:6000p:16,10 ;"Goodbye": 716,6;p(1);"Quarter past ";ts;" " q17,6;p(2);"Quarter to ";ts+1;" ":18,6;(*12 )+1;" o'clock" 6a=13:15+a,4;6;a:a  7:6,0;"The small";8,0;"hand is";10 ,1;q$;12 ,0;"the hour" s0,24;"The big";2,24;"hand ";4,24;"points";6,24;h$   7 7a=612 2:a,0;" ":a 5a=062:a,24;" ":a  719,0;"Press H to move the Hour Hand" "921,0;"Press M to move the minute hand" |>m=m-(3Ʀ="m")-(3Ʀ="M"):m0m=m+12 .h=h-(="h")-(="H"):h0h=h+480  8m=12 :H=(15-T)*4-1:5610 +m=6:H=(16-T)*4-3 719,0;"The hands should be like this" H>480H=H-480  8180  pQ17,0;" YOUR SCORE WAS ";SC;" OUT OF ";st;"":6910 >20,0;" Press  E  to End this section " K21,0;" Press  ENTER  to go on. ":0 /e=0:="e"Ŧ="E"e=1:6930 13 6910 Kl=1621:l,0;" ":l: X 7000X ]t=111 :g$ br=07:b g g$+r,b lr:t q"m",0,192,0,192,32 ,32 ,192,0,"n",0,3,4,7,4,4,3,0 vL"r",1,3,7,15,31,63?,127,255 w"t",0,0,0,62>,127,255,255,255,"u",0,28,546,546,252,232,254,255 x"a",1,513,123{,79O,123{,63?,15,15,"b",15,31,31,31,31,31,15,7 y"c",224,240,248,248,248,248,248,240,"d",240,240,252,222,242,222,220,128 z"e",128,128,128,128,128,128,128,128,"f",1,1,1,1,1,1,1,1 5:7:0: -n=1:m=3:h=8:8100 >l=1418:l,9 ;2;" ":l 15,12 ;"QUARTERS" K72H,64@:0,-40(:110n,0:0,40(  7900 =c=05:18,c;" _":.1}L,40(:c %7900:18,6;" " l=141-1 Xl,8;"":l+1,8;"":l+2,8;"":l+3,8;" " .1}L,40(:L K.3,7:.6,12 :.3,12 :.6,11 &l=13:l,8;" ":l c=9 19 )0,c;" _":.1}L,40(:c 1,-10  I.3,11 :.6,9 :.3,9 :.9ffff,7 0,19;" " pl=115:l,23;" ":l+1,23;"":l+2,23;"":l+3,23;"" .1}L,40(:l  .3,7:.3,9 :.3,7:.3,5:.3,4:.3,2:1.5@,0 %H15,23;" ":16,23;" ":17,23;" " *?c=2328:18,c;" _":.1}L,40(:c 4e=0:6900  ܁.3,4:.3,5:.3,7:.3,7:.3,9 :.3,11 :1.5@,12  =l=113 :l,9 ;6;" ":l b72H,167:0,-103g:111o,0:0,103g:-111o,0 ?r=03:1;127,115s,480+r:r s5:2,15;12 ;7,11 ;9 ;7,20;3;12 ,15;"" 7:3,13 ;11 ;3,18;1;5,11 ;10 ;5,19;2;9 ,12 ;8;9 ,19;4;11 ,13 ;7;11 ,18;5 (w=0:S=.51.5 z=012 s Q127+((*z/6)*(24+w)),115s+((*z/6)*(24+w)) z:w=1:s N=18200 Kh1h1:127,115s:xp,yp:xp,yp,2:-xp,-yp,2 +m1m1:127,115s:x1,y1  0 y=((*m/6)*28) x=((*m/6)*28) &yh=((*h/24)*10 ) 0xh=((*h/24)*10 ) :127,115s:x,y ?<127,115s:xh,yh:xh,yh,2:-xh,-yh,2 Dm1=m:x1=x:y1=y Ih1=h:xp=xh:yp=yh N ]b mhw@P yxtڑ脓  tڑ*eqj GfH rightQPAST C2 zMINUTES K',M "MINUTES" >>  MACBRIDE 1983 << &0:1,0:7000X pI:th=10 :tm=0:H=20:M=3:N=1:8100 u 15,13 ;"10.00" we=16130 zW17,0;"It takes 5 minutes for the big hand to move to the next number." p502:19,4;"Can you count in 5's?":502:'"Press  ENTER to start the clock." "0:13 6016 "17,0;z$;z$;z$;z$;z$ 1n=40-1:m=n/5+2 38180:15,17;8;5-n .2~L,4:n X127,170:0,5:30,-10 ,-/6:-3,-5 #0,20;"5 minutes" H17,0;"At first we count the minutes PAST the hour."  200 j1:127,170:0,5:30,-10 ,-/6:-3,-5:0 Pm=m+1:n=111 :6900:e=1n=11 :6130 %62008:6065+n*5:n 6900:6130 D0,20;z$(9 );1,20;"5 PAST 10": &4,22;"10 PAST 10": C7,23;"Quarter";8,24;"PAST 10": '10 ,22;"20 PAST 10": '12 ,21;"25 PAST 10": '14,18;"Half PAST 10" C17,0;"Now we count the minutes"'"TO the hour.": $12 ,2;"25 TO 11": $10 ,1;"20 TO 11": ?7,1;"Quarter";8,2;"TO 11": #4,1;"10 TO 11":  1,7;"5 TO ": $6150:sc=0:s=12 J:8100:th=10 :tm=0:h=20:m=3:8180 n=112 't:n=5n=9 th=th+1 ba$=" PAST "+th:tt=t:t>30a$=" TO "+(th+1-(12 th=12 )):tt=60<-T 719,0;"Make the clock say ";tt;a$;"."  9'" Press  ENTER  to move the hand.":62008 tm=t6170  6150 \.5,10 :sc=sc+1:19,0;" Very good! Try another? " (6900:e=1s=n:n=12  n $k5,20,40(,557,10 ,35#,40(,557,5,25,35#,502 .6800:6300 8=""62008 =5tm=tm+5:m=m-1:m<0m=m+12 >tm60<tm=tm-60< ?"h=h-(tm/15=(tm/15)) B38180:15,13 ;5;th;".";tm D1tm<10 15,16;5;"0";tm G.1}L,4: :SC=0:S=12 ::8100:n=112 t=(*9 )+1 #tm=((*9 )+2)*5 m=(75K-tm)/5 Bh=(15-t)*4-(tm>10 )-(tm>25)-(tm>40() 8180:g=0 n=1te=t:me=tm ,16,7;"What is the time ?" <18,0;"ENTER the hour,then the minutes." %" Hour ? ";a$:a$=""6335 La$(1)<491ůa$(1)>5791,-20:6335 (" Minutes ? ";b$:b$=""6340 20,0;z$ b$<26340 Nz=12:b$(z)<480ůb$(z)>579z=2:z:6340 z $g=g+1:g>26380 4a$(1)=tưb$(12)=tm6390 S1,-12 :20,0;" Wrong! Please try again.":6330 i1,0:18,0;z$;18,6;"The time is ";t;".";tm;" .":6395 [sc=sc+1:1,12 :18,0;" Well done. " (6900:e=1S=N:n=12 n d@6800:16,0;z$;16,11 ;"Good-bye" n I18,0;"Your SCORE was ";SC;" out of ";S;".":6910 B20,0;" Press  E  to End this section. " K21,0;" Press  ENTER  to go on. ":0 /e=0:="e"Ŧ="E"e=1:6940 13 6910 "17,0;z$;z$;z$;z$;z$ & X 7000X ]t=111 :g$ br=07:b g g$+r,b lr:t q"m",0,192,0,192,32 ,32 ,192,0,"n",0,3,4,7,4,4,3,0 vL"r",1,3,7,15,31,63?,127,255 w"t",0,0,0,62>,127,255,255,255,"u",0,28,546,546,252,232,254,255 x"a",1,513,123{,79O,123{,63?,15,15,"b",15,31,31,31,31,31,15,7 y"c",224,240,248,248,248,248,248,240,"d",240,240,252,222,242,222,220,128 z"e",128,128,128,128,128,128,128,128,"f",1,1,1,1,1,1,1,1 5:7:0: ;z$(32 ):M=3:n=1:h=8:8100 ;l=1418:l,9 ;2;z$(14):l  15,12 ;"MINUTES" K72H,64@:0,-40(:110n,0:0,40(  7900 =c=05:18,c;" _":.1}L,40(:c %7900:18,6;" " l=141-1 Xl,8;"":l+1,8;"":l+2,8;"":l+3,8;" " .1}L,40(:L K.3,7:.6,12 :.3,12 :.6,11 &l=13:l,8;" ":l c=9 19 )0,c;" _":.1}L,40(:c 1,-10  I.3,11 :.6,9 :.3,9 :.9ffff,7 0,19;" " pl=115:l,23;" ":l+1,23;"":l+2,23;"":l+3,23;"" .1}L,40(:l  .3,7:.3,9 :.3,7:.3,5:.3,4:.3,2:1.5@,0 %H15,23;" ":16,23;" ":17,23;" " *?c=2328:18,c;" _":.1}L,40(:c 4e=0:6900  ܁.3,4:.3,5:.3,7:.3,7:.3,9 :.3,11 :1.5@,12  :l=113 :l,9 ;6;z$(14):l b72H,167:0,-103g:110n,0:0,103g:-110n,0 ?r=03:1;127,115s,480+r:r 2,15;"12" ,3,13 ;"11";18;"1" *5,11 ;"10";19;"2" -7,11 ;"9";20;"3" )9 ,12 ;"8";19;"4" *11 ,13 ;"7";18;"5" 12 ,15;"" N=18200 Kh1h1:127,115s:xp,yp:xp,yp,2:-xp,-yp,2 +m1m1:127,115s:x1,y1  0 y=((*m/6)*24) x=((*m/6)*24) &yh=((*h/24)*10 ) 0xh=((*h/24)*10 ) :127,115s:x,y ?<127,115s:xh,yh:xh,yh,2:-xh,-yh,2 Dm1=m:x1=x:y1=y Ih1=h:xp=xh:yp=yh N  ]bGf# m0 h# yx&Fq脞߸聧ү0&Fq#үߴ esg-A6B20