ZXTape! 0"PADDINGTON'S EARLY VISIT (Collins)0Program 1 - Way UpWAYUP ` "CLOCK" <:21,0;" PLEASE LEAVE THE TAPE RUNNING " 1,10 :"" (21,0;::"" SVISIT @SS P?   |B<<>  P BBDDbBBb@@BB@DB@( ( 0 BBBBR@BR<|BB@(B<(?( |~BBJNBJ@~|@BP (@BDDFBBFBx@BD@$B@` 0@Bxx>B<<>@ @  Pp @  @`@??@x  P8 D@? @?(|@@?( @ D |8 @ ?   |?  ??@? ?p??? 0>/@???=?￿?0 ~#|~;}((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((..............((((((((>>>>>>>>>(.888888888888.((((((((>(((((((>(.888888888888.((((((((>(((((((>(..............((((((((>(((((((>(((((((((((((((((((((((>(((((((>(((((((((((((((((((((((>(((((((>((>>>>>>(((((((((((((((>(((((((>((>((((>(((((((((((((((>(((((((>((>((((>(((((((((((((((>>>>>>>>>((>((((>((((((((((((((((((((((((((>((((>((((((((((((((((((((((((((>>>>>>((((000000000(((((((((((((((((((((((000000000(((((((((((((((((((((((0000000000((((((((((((((((((((***22000000(((((((((((((((((((((****222222**(((((((((((((((((((**************((((((((((((((((((**********:****(((((((((((((((((**********:****(((((((((((((((((***************(((((((((8888888888888888888888888888888888888888888888888888888888888888uWAYUP  "WAYUP" >>  MACBRIDE 1983 << T1,0:21,0;" PRESS ANY KEY WHEN READY ":0 (1:10 ,5;" ONE MOMENT PLEASE " 2s$(32 ):5000 <&5:7:0:0: Fz1,10 ;" WAYUP? ";3,2;"How can you tell if a clock";5,2;"is the right way up ?" HR0,0;" Please  ENTER  your name ";n$:n$=""72H J+n$>90Zn$(1)=(n$-32 ) K n$>12 n$=n$(12 ) L"8,2;"Hello ";n$;"." P1,10 :11 ,2;"Paddington wouldn't have got";13 ,2;"up so early if he had looked";15,2;"carefully at the hour hand." Za18,2;"Would you like some examples";20,2;"or go on to the exercises?" dl.5,25:0,0;" Please  ENTER  1 for examples or 2 for the exercises ";a$ na$<"1"a$>"2"100d xa$(1)="2"1000 7: Ml=117:.1}L,30:l,1;6;s$(17):l Ar=64@65A:.5,10 :76L,100d,r:r Vr=502568:a=0̧*2ͧ/(24/(4-(3r>557))) 7.01z# =,0:76L+r*a,100d+r*a:a:r t=20:m=0 .5,10 :550& Imq$=m$(m)+((t/4)+(m=3)+(12 t<3)):220 <q$=" "+((t/4)+(12 t<4))+" o'clock " ܆3,18;7-M;s$(14);4,18;q$;5,18;s$(14):bl=1:bc=20:4000 r175,152:80P,0:0,-24:-112p,0:0,24:16,0 .5,0 @8,19;"Look at the";9 ,19;"Hour hand." _152,112p:89Y,0:0,-18:-90Z,0:0,18 170,84T:20,0:18,0,2:8,0:208,84T:-18,0,2 q13 ,19;7-m;"The hour hand";14,19;u$(m+1);15,19;v$(m+1) `151,72H:104h,0:0,-26:-104h,0:0,26 hl19,2;"Press  E  for the exercises";21,2;"or  ENTER  for more examples" r="e"Ŧ="E"1000 |=13 400  370r _1:550&:0:t=t+1:m=m+1-(4m=3):0:190 &76L,100d:v(m)*1.3&fff,w(m)*1.3&fff:x=(x(t)*1.5@):y=(y(t)*1.5@):76L,100d:x,y:x,y,2 0Px*.5,y*.5:76L+x*2,100d+y*2:-x,-y,2: ug=0:s=0:4::l=113 :c=21715:l,c;5;s$(13 ):c:l mX=68D188120x:.5,0:R=491502:.25~,10 :X,116t,R:R VR=39'43+:A=0̧*2ͧ/(24/(4-(3R>42*))) 4.01z# =,20:X+R*A,116t+R*A:A:R:X ?14,8;6;1;14,23;2 L>g=g+1:4900$:BL=15:BC=3:4000 V3T=(*480)+1:M=T-(T/4)*4 `T(2):M(2) jjN=12:T(N)=T+12 *N-(480T>480-12 *N):M(N)=M+N-(4M>4-N):N o(R=(*2)+1:T(R)=T:M(R)=M t 4500 *H=(T/4):H=H+(12 H=0) |7:1,15:18,2;"They both tell the same time";20,2;"Which is the right way up?" K.5,25:0,0;("  ENTER  1 or 2 ,"+n$);a$ .a$"1"a$"2"1,-10 :1190 A=A$ JC=27+(15A=2):4100:.2~L,10 :C 4200h:4900$ +18,3;"Paddington says it is" lPT=(T(A)/4):PT=PT+(T(A)-PT*4=3):PT=PT+(12 PT=0):M(A)=41260 !Q$=M$(m(A))+PT+".":1270 Q$=PT+" o'clock." 20,3;q$ y.5,25:0,0;("Is he right "+n$+"?"+s$(19-n$)+"Please  ENTER  yes or no ");a$  a$=""1280  4900$ -a$(1)="y"a$(1)="Y"1320( -a$(1)="n"a$(1)="N"13302 (a=R1,10 :18,3;"You are right,";N$;19,3;"and so is Paddington.":s=s+1:1400x 2'M(R)=4m(r)=01340< 7Q$=M$(m(R))+h:1350F <Q$=h+" o'clock" F61,-10 :18,3;"It is ";q$;"." xe1,20:C=7+(15A=2)3-1:4300:.3,10 :C }820,2;" Press  S  to stop or press " A21,2;"  ENTER  for another problem":0 ="s"Ŧ="S"1600@ 13 1410 4500:1100L @_4900$:18,2;n$;"'s SCORE ";g;" tries.";19,11 +n$;s;" right." 721,2;" Press  R  to RUN it again." ="r"Ŧ="R"60<  1700 =BL,BC;8;"";BL+1,BC;"";BL+2,BC;""  A15,C;8;" ";16,C;" ";17,C;" ": h.15,C;8;"";16,C;"": 015,C;8;" ";16,C;" ": Y1:N=12:68D+120x*(N-1),116t:V(M(N)),W(M(N)) kX=X(T(N)):Y=Y(T(N)):68D+120x*(N-1),116t:X,Y:X,Y,1.8ffff:X/2,Y/2 ]68D+120x*(n-1)+2*x,116t+2*y:-X,-Y,1.8ffff:N:0: $Nl=1721:.1}L,30:l,1;6;s$(30):l . :5000:n=117:g$:r=07:b g$+r,b:r:n "A",11 ,63?,63?,62>,60<,25,1,22,"B",32 ,160,192,96`,144,72H,6,6 "C",31,127,191,63?,127,127,127,127,"D",112p,192,224,240,240,248,248,248 "E",4,5,3,4,9 ,18,480,480,"F",208,252,252,124|,60<,152,128,104h "G",6,3,7,31,31,63?,63?,63?,"H",248,254,253,252,254,254,254,254 Ğ"I",7,568,557,31,31,24,18,480,"J",128,192,227,252,144,80P,16,144 Τ"K",88X,78N,159,63?,127,255,247,251,"L",32 ,32 ,248,252,254,254,255,255 "M",248,116t,36$,24,0,0,0,0,"N",7,7,7,15,23,557,513,568,"O",224,224,224,252,232,236,204,28 "P",28,7,28,63?,127,127,127,127,"Q",568,224,568,252,254,254,254,254 =X(T%)=12 *(/24*(T-(480T480))) =Y(T%)=12 *(/24*(T-(480T480))) $V(M)=32 *(/2*M)  $W(M)=32 *(/2*M) kM$(4,13 ):U$(4,13 ):V$(4,13 ):N=14:M$(N),U$(N),V$(N):N Z"Quarter past","points right","at the hour"," Half past","is just past","the hour line" (W" Quarter to","is hafway to","the next hour","o'clock","is nearly at","the next hour" P +b$Iڢ~ t m[sxyH|gsxh# GQ9 Quarter past Half past Quarter to o'clock 9 points right is just past is hafway to is nearly at 9 at the hour the hour linethe next hourthe next hourN Frederick  % QQuarter past 3.Ayes0Program 2 - FiguresFIGURES s "CLOCK" <:21,0;" PLEASE LEAVE THE TAPE RUNNING " 1,10 :"" (21,0;::"" SVISIT @SS P?   |B<<>  P BBDDbBBb@@BB@DB@( ( 0 BBBBR@BR<|BB@(B<(?( |~BBJNBJ@~|@BP (@BDDFBBFBx@BD@$B@` 0@Bxx>B<<>@ @  Pp @  @`@??@x  P8 D@? @?(|@@?( @ D |8 @ ?   |?  ??@? ?p??? 0>/@???=?￿?0 ~#|~;}((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((..............((((((((>>>>>>>>>(.888888888888.((((((((>(((((((>(.888888888888.((((((((>(((((((>(..............((((((((>(((((((>(((((((((((((((((((((((>(((((((>(((((((((((((((((((((((>(((((((>((>>>>>>(((((((((((((((>(((((((>((>((((>(((((((((((((((>(((((((>((>((((>(((((((((((((((>>>>>>>>>((>((((>((((((((((((((((((((((((((>((((>((((((((((((((((((((((((((>>>>>>((((000000000(((((((((((((((((((((((000000000(((((((((((((((((((((((0000000000((((((((((((((((((((***22000000(((((((((((((((((((((****222222**(((((((((((((((((((**************((((((((((((((((((**********:****(((((((((((((((((**********:****(((((((((((((((((***************(((((((((8888888888888888888888888888888888888888888888888888888888888888uFIGURES x z "FIGURES"  T21,0;" PRESS ANY KEY WHEN READY ":1,10 :0 :5000 &7:6:0:0: #4000:1,0 (7:3,2;" FIGURES ":12 ,155:7:80P,0:0,-16:-80P,0:0,16 2g10 ,157:84T,0:0,-20:-84T,0:0,20:0 4R0,0;" Please  ENTER  your name ";n$:n$=""524 5.n$(1)>"a"n$(1)=(n$-32 ) 6 n$>12 n$=n$(12 ) 7217,2;" Hello ";n$;s$(20-n$) <18,2;" There are figures on this ";19,2;" clock,but I can make them ";20,2;" vanish like magic! " FS0,0;" Shall I remove them all now ?  ENTER  yes or no ";a$ P"A$=""1,0:70F Z~A$(1)="Y"A$(1)="y"F=1:4200h:PC=7:T=112 :4300:T:4220|:110n d+A$(1)"N"A$(1)"n"70F n;X(T )=8*(/6*(T-(12 T=12 ))) x;Y(T )=8*(/6*(T-(12 T=12 ))) T=3:44000 0L=1720:L,0;6;S$:L H(12 ) N=120 2T=(*12 )+1:H(T)=0220 N<12 170 8Q=0:J=112 :H(J)=0Q=1 0J:Q=0N=20:t=3:340T 170 [H(T)=1:44000:18,1;"What's the time,";n$;"?";s$(13 -n$) 7g=-1:z=0:j$=" in numbers from 1 to 12 " A(" Please  ENTER  the hour "+(j$z=1));a$ 0a$=""1,-10 :z=1:230 Mj=1̱a$:a$(j)<"0"a$(j)>"9"1,-10 :z=1:230 Ij:a=a$:a<0a>12 1,-10 :z=1:230 g=g+1:a=tr=r+1:PC=6:4200h:4300:4220|:18,1;" Well done ";n$;".";s$(13 -n$);" ":3106 atg<2g:4350:0:18,1;" Try Again ";n$;s$(15-n$):.5,-20:230 "9H(T)=0:w=w+1:6:4350:7 ,S18,1;" It's ";t;" o'clock ";n$;s$(14-n$-(t>9 )) 6600X:szn=20 J0l=1820:l,0;6;s$:l T44000:n ^@18,1;" SCORE - ";r+w;" goes and ";r;" right." cOr>9 20,1;" Well done ";n$;".";s$(15-n$);" " d 700 h\0,0;("Would you like to try some more ";n$;"  yes  or  no  ");a$ ra$=""360h |,a$(1)="y"a$(1)="Y"400 ,a$(1)="N"a$(1)="n"500  360h r<10 450 Ef=1:18,0;" Let's turn the lights out. " !r=0:w=0:600X +0:0::4000:130 E18,0;" Try again with the figures on. ":600X 8f=0:r=0:w=0:4000:130 @20,1;" Goodbye for now ";n$;s$(13 -n$)  510 X=sz=0:19,5;" Press  S  to stop " ];20,5;" Press  G  to go on " b="G"Ŧ="g" g="S"Ŧ="s"sz=1: l 610b >700:n=134":t,p:t>10 t:705 t,p n Ơ1,0,.75@,2,.25~,2,.353333,4,.15~,5,.30,4,.58zG,5,.12}u[,4,.5,5 {1,9 ,1,-1,.25~,10 ,.5,2,.25~,10 ,.5,2,25,0 ڎ1,9 ,.75@,2,.25~,2,.353333,9 ,.15~,7,.30,9 ,.703333,7,.5,4 .5,2,18,0,.15~,0,.5,2,18,0,.15~,0,.2~L,2,.2~L,2,.2~L,0,.5,2,502,0   0 Z.2~L,10 :L=115:L,13 ;1+(f=1);s$(15):L Z.2~L,20:L=214:L,14;5-(5f);s$(13 ):L #12 ,12 ;1+f;" " S.2~L,30:4020:7+f:L=313 :C,N:L,C;S$(N):L 18,5,17,7,16,9 ,15,11 ,15,11 ,15,11 ,15,11 ,15,11 ,16,9 ,17,7,18,5 .5,0:9 :164,108l:0,20:164,108l:8,0:8,0,2:-8,0,2 uH=2830:A=0̧*11 /6ͧ/6:.01z# =,0:164+H*A,108l+H*A:A:H F4100 #t=112 :4350:t BL=10 :BC=5 8:9 :BL,BC;"";BL+1,BC;"";BL+2,BC;"";BL+3,BC;"":BC/2=(BC/2)BL+4,BC;"":  BL+4,BC;2;"": 6i8:BL,BC;" ";BL+1,BC;" ";BL+2,BC;" ";BL+3,BC;" ";BL+4,BC;" ": hVB=48:BC=B:41506:BC=B+1:4100:.1}L,-10 :B r.5,0: |sB=9 5-1:BC=B:41506:BC=B-1:4100:.1}L,0:B:.5,-10 : O.25~,10 :P(t,1),P(t,2);PC;" ":.25~,-10 : SP(t,1),P(t,2);(t+480+(97at>9 )):.5,0: 0u1:164,108l:X(T),Y(T):X(T),Y(T),2:-X(T),-Y(T),2:.5,20:0: 65000:18,5;" One moment please" .n=116:g$:r=07:b g$+r,b:r:n "A",0,7,15,62>,61=,27,27,27,"B",0,128,128,64@,228,248,240,240 "C",14,8,24,40(,12 ,6,15,31,"D",136,12 ,4,40(,16,568,252,254 "E",63?,63?,63?,63?,63?,47/,47/,557,"F",255,255,255,127,191,191,223,223 Ĝ"G",3,253,249,249,255,252,96`,0,"H",557,59;,62>,63?,63?,63?,63?,63? "I",254,158,30,62>,254,254,254,254,"J",30,30,30,31,15,0,0,0,"K",120x,120x,120x,126~,126~,0,0,0 "N",0,78N,209,65A,66B,68D,72H,239,"M",0,66B,198,66B,66B,66B,66B,231,"L",0,70F,201,73I,73I,73I,73I,230 ݗ"O",30,60<,120x,124|,28,0,0,0,"P",120x,123{,63?,62>,30,0,0,0 /S$(32 ):F=0:r=0:w=0 U5100:P(12 ,2):N=112 :P(N,1),P(N,2):N: P4,23,6,24,8,25,10 ,24,12 ,23,13 ,20,12 ,17,10 ,16,8,15,6,16,4,17,3,20 pM(23730\+256*23731\)-(23653e\+256*23654f\) #"|fwJc 8Ni   gzpGP# }      NFredq? J in numbers from 1 to 12 Ano0Program 3 - DigitalDIGITAL p "CLOCK" <:21,0;" PLEASE LEAVE THE TAPE RUNNING " 1,10 :"" (21,0;::"" SVISIT @SS P?   |B<<>  P BBDDbBBb@@BB@DB@( ( 0 BBBBR@BR<|BB@(B<(?( |~BBJNBJ@~|@BP (@BDDFBBFBx@BD@$B@` 0@Bxx>B<<>@ @  Pp @  @`@??@x  P8 D@? @?(|@@?( @ D |8 @ ?   |?  ??@? ?p??? 0>/@???=?￿?0 ~#|~;}((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((..............((((((((>>>>>>>>>(.888888888888.((((((((>(((((((>(.888888888888.((((((((>(((((((>(..............((((((((>(((((((>(((((((((((((((((((((((>(((((((>(((((((((((((((((((((((>(((((((>((>>>>>>(((((((((((((((>(((((((>((>((((>(((((((((((((((>(((((((>((>((((>(((((((((((((((>>>>>>>>>((>((((>((((((((((((((((((((((((((>((((>((((((((((((((((((((((((((>>>>>>((((000000000(((((((((((((((((((((((000000000(((((((((((((((((((((((0000000000((((((((((((((((((((***22000000(((((((((((((((((((((****222222**(((((((((((((((((((**************((((((((((((((((((**********:****(((((((((((((((((**********:****(((((((((((((((((***************(((((((((8888888888888888888888888888888888888888888888888888888888888888uDIGITAL c e "DIGITAL"  >>  MACBRIDE 1983 <<  V:1,0:21,0;" PRESS ANY KEY WHEN READY ":0 (;:10 ,6;" ONE MOMENT PLEASE ":5000 24s$(32 ):2:7:0:0: <1,9 ;2;6;"";2,9 ;" DIGITAL ";3,9 ;2;"":L=10 :C=27:1000 F,11 ,8;6;"Who's there ?" Pe.5,25:0,0;" Please  ENTER  your name ";n$:n$=""80P Z+n$>90Zn$(1)=(n$-32 ) d n$>12 n$=n$(12 ) n;11 ,4;6;" Hello ";n$;s$(13 -n$) xV13 ,2;"Mrs.Bird has a digital";15,2;"clock in her kitchen." S17,2;"Can you help Paddington";19,2;"to use it ";n$;"?" st=0:1500 A4:6::9 ,0;5;s$;s$;s$;s$;s$;s$ 500 2,8;2;s$(11 );3,8;s$(11 );4,8;7;2;"";5,8;" ";6,8;"";2;7,8;s$(11 );8,8;s$(11 ) 8,19;"" #l=3:c=21:1000 s=0 .h(3):m(3):p$(3,22) Cn=13:h(n)=(*12 )+1:m(n)=(*60<) 0t=((m(n)+2)/5):t1=m(n)-t*5 "d$=" ":t1<0d$="nearly " t1>0d$="just gone " !t=0t=12 260 Fz=10 :q=110 :t$(t,q)="x"z=q-1:q=10 q q$=t$(t,z) Op$(n)=d$+q$+(h(n)+(t>6)-(12 h(n)=12 t>6)):270 *p$(n)=d$+(h(n)+(t=12 ))+" o'clock" n r=(*3)+1 "@h=h(r):m=m(r):f$=("0"h<10 )+h+":"+("0"m<10 )+m ,5,11 ;f$ 6-16,2;"What's the time ";n$;"?" @7n=13:17+n,3;n;" ";p$(n):n E*23672x\,0:23673y\,0 J].5,25:0,0;("  ENTER  1,2 or 3 "+n$+s$(14-n$));a$ Ta$<"1"a$>"3"330J ^a=a$(1) h 500 m4ti=(23672x\+256*23673y\)/502 rKa=rs=s+1:16,4;"Right in ";ti;" seconds ":400 |"16,3;"It is ";p$(r) #st=1:1490:500 N7,19;"";8,19;"":.5,10 Rn=h0-1:5,11 ;("0"n<10 );n:.2~L,20:n Rn=m0-1:.1}L,30:5,14;("0"n<10 );n:n 97,19;" ";8,19;""  190 =l=1620:l,1;7;s$(30):l: A8:l,c;" ";L+1,C;" ";L+2,C;" " L+3,C;1;" ";L+4,C-1;"";L+5,C-1;"";L+6,C;" ";L+7,C;" "  L+8,C;2;" "  ;18,8-n$/2;" Press  S  to stop " \1,10 :20,6-n$/2;"  ENTER  to go on ";n$:0 =13 st(="s"Ŧ="S")1600@  1510 @500:16,3;n$;"'s score ";s;18,3;" You can make this clock";20,3;"keep time if you like." J.5,25:0,0;" Would you like to see it work? Please  ENTER  yes or no ";a$:a$=""1610J T-a$(1)="y"a$(1)="Y"1700 ^-a$(1)="n"a$(1)="N"1650r h 1610J r9500:18,10 -n$/2;"Goodbye ";n$ |:20,3;"Press  R  to run again ":0 "r"Ʀ"R"1670  502 i500:17,3;"Find a proper clock and see";19,3;"what the time really is." `.5,25:0,0;" Please  ENTER  the hour ";a$:a$=""1710 &q=1̱a$:a$(q)>"9"1710 "q:h=a$:h>12 1710 c.5,25:0,0;" Please  ENTER  the minutes ";a$:a$=""1740 &q=1̱a$:a$(q)>"9"1740 "q:m=a$:m>60<1740 @s=0:500:18,5;"Press  E  to End" =5,11 ;("0"h<10 );h;":";("0"m<10 );m /7,12 ;7;("0"s<10 );s 1s=s+1:s>59;s=0:m=m+1 $m>59;m=0:h=h+1 w=160<:w !.2~L,10 &="e"Ŧ="E"1650r 0 1780 :0(23672x\+256*23673y\)/502  :5000:N=118:G$:R=07:B G$+R,B:R:N 1"A",0,0,1,1,3,3,3,3,"B",3,135,143,15,15,7,7,143,"C",192,248,252,254,255,255,255,255,"D",0,0,0,0,224,248,252,252 ;"E",1,1,0,1,6,24,224,224,"F",151,243,249,28,6,27,19,1,"G",255,255,255,127,31,7,129,192,"H",252,248,248,240,240,224,224,32 "I",224,128,64@,502,12 ,3,1,0,"J",240,254,127,127,63?,63?,15,227,"K",0,28,254,254,254,252,248,128 "R",1,0,0,0,0,0,0,95_,"L",1,3,7,15,31,63?,127,127,"M",192,224,224,240,240,248,248,248 ė"N",0,0,0,0,7,25,127,199,"O",255,143,255,103g,31,0,0,0 ΢"P",0,0,15,31,63?,127,127,127,"Q",238,238,224,223,191,127,127,127 5t$(11 ,10 ):n=111 :t$(n):n |"5 past x","10 past x","1/4 past x","20 past x","25 past x","half past ","25 to x","20 to x","1/4 to x","10 to x","5 to x" P @bcstz h m2a] =pGQs 5 past x 10 past x 1/4 past x20 past x 25 past x half past 25 to x 20 to x 1/4 to x 10 to x 5 to x # N Frederfderfe 2Gnearly half past 9 10 to 10 half past 7 D Q half past F09:50Ano0Program 4 - ClockCLOCK b "CLOCK" <:21,0;" PLEASE LEAVE THE TAPE RUNNING " 1,10 :"" (21,0;::"" SVISIT @SS P?   |B<<>  P BBDDbBBb@@BB@DB@( ( 0 BBBBR@BR<|BB@(B<(?( |~BBJNBJ@~|@BP (@BDDFBBFBx@BD@$B@` 0@Bxx>B<<>@ @  Pp @  @`@??@x  P8 D@? @?(|@@?( @ D |8 @ ?   |?  ??@? ?p??? 0>/@???=?￿?0 ~#|~;}((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((..............((((((((>>>>>>>>>(.888888888888.((((((((>(((((((>(.888888888888.((((((((>(((((((>(..............((((((((>(((((((>(((((((((((((((((((((((>(((((((>(((((((((((((((((((((((>(((((((>((>>>>>>(((((((((((((((>(((((((>((>((((>(((((((((((((((>(((((((>((>((((>(((((((((((((((>>>>>>>>>((>((((>((((((((((((((((((((((((((>((((>((((((((((((((((((((((((((>>>>>>((((000000000(((((((((((((((((((((((000000000(((((((((((((((((((((((0000000000((((((((((((((((((((***22000000(((((((((((((((((((((****222222**(((((((((((((((((((**************((((((((((((((((((**********:****(((((((((((((((((**********:****(((((((((((((((((***************(((((((((8888888888888888888888888888888888888888888888888888888888888888uCLOCK  =) "CLOCK"  >>  MACBRIDE 1983 <<  T1,0:21,0;" PRESS ANY KEY WHEN READY ":0 (/:10 ,6;" ONE MOMENT PLEASE " 2 5000 <7:7:0: Fr7,9 ;6;1;S$(13 );8,9 ;" CLOCK MAKER ";9 ,9 ;S$(13 ) ZvX(9 )-2,Y(3)+10 :108l,0:0,-28:-108l,0:0,28 d#L=2:C=12 :4000 n12 ,2;"Can you find all the figures";14,2;"for your clock before";16,2;"Paddington finds all of his?" xf.5,25:0,0;" Please  ENTER  your name ";n$:n$=""120x +n$>90Zn$(1)=(n$-32 ) n$>12 n$=n$(12 ) Q18,6-n$/2;6;"Ready when you are ";n$;".":4610 :6:6: ?23672x\,0:23673y\,0:23674z\,0 tZ=31815:W=515:W,Z;4+(z=18);S$(11 ):.1}L,10 :W:Z #l=0:c=24:4000 *3,8-n$/2;7;n$ & 4110 04h(2):h(1)=3:h(2)=3 D"p=12:4200h:p Np=1:4300 X4700\:16,1;7;" Point to where it should go.";17,0;"Press  1  to move the hour hand " b|19,0;7;"  2  if you have got it already ";21,0;"  3  when hand is in right place" l="1"4180T:620l v+="2"4900$:650-(502q) {"3"620l Lx=0:4700\:h(1)=r44000:4500+(x):650  4600 Jp=2:4700\:17,2;"Now it's Paddington's turn."  4300 *f$(2,r)=" "44000:690 ?n=h(2)r-1+(12 r.34320 n=1r:4380:n 51,r*2-1;1;f$(3,r): =1,n*2-1;f$(3,n):.1}L,10 &+1,n*2-1;7;" ": 0f$(p,r)" "4450b NMx=1:18,0;" That one has already been found":4610 bHd(r,1),d(r,2)+(15p=2);6;f$(3,r) l f$(p,r)=" " v"f$(p)=" "1000  X.5,34":.4L,22:17,3;"That's right ";n$:4610  P1,-10 :4700\:17,3;" Sorry,that's wrong ";n$ N.5,10 :20,4;" Press  G  to go on ":0  ="g"Ŧ="G"  4620  \016,0;6;s$;s$;s$;s$;s$;s$: $q=0:4700\:f$(p,r)=" "18,0;"Better luck next go ";n$:.4L,20:.8L,8:4610 .Hq=1:18,0;" You haven't got it ";n$;:4610  :5000:N=118:G$:R=07:B G$+R,B:R:N "A",0,1,3,7,7,7,15,15,"B",63?,127,255,255,255,255,255,255,"C",224,248,254,255,255,255,254,254 "E",0,0,0,0,3,7,7,15,"F",31,63?,127,255,252,241,129,192,"G",255,255,255,128,0,0,128,12 "H",255,255,255,63?,31,79O,99c,1,"I",0,0,128,128,192,224,240,252 "J",15,7,3,1,3,7,15,31,"K",128,224,192,240,248,254,255,255,"L",12 ,0,16,12 ,0,0,0,224 ę"M",0,0,0,0,3,1,7,127,"N",252,60<,124|,568,224,128,192,224 Τ"O",31,31,63?,63?,63?,127,127,127,"P",224,240,240,248,252,254,254,254 "Q",0,70F,201,73I,73I,73I,73I,230,"R",0,66B,198,66B,66B,66B,66B,231,"S",0,70F,201,65A,65A,66B,68D,239 9x(c)=(c)*8:y(l)=(17-l)*8 GD(12 ,2):n=112 :D(N,1),D(N,2):N j7,10 ,8,11 ,10 ,12 ,12 ,11 ,13 ,10 ,14,8  d13 ,6,12 ,5,10 ,4,8,5,7,6,6,8 S$(32 ) ;s(h)=8*(/6*(h-(12 h>12 ))) (;c(h)=8*(/6*(h-(12 h>12 ))) P pM(23730\+256*23731\)-(23653e\+256*23654f\) *1blc,DxySzmsAnGS}      # NFedD CK*REKAM*CLO) 123456 8912345 789 123456789  0Program 5 - StopwatchSTOPWATCH { "STOPWATCH" <:21,0;" PLEASE LEAVE THE TAPE RUNNING " 1,0:"" (:21,0;:"" tVISIT @S P?   |B<<>  P BBDDbBBb@@BB@DB@( ( 0 BBBBR@BR<|BB@(B<(?( |~BBJNBJ@~|@BP (@BDDFBBFBx@BD@$B@` 0@Bxx>B<<>@ @  Pp @  @`@??@x  P8 D@? @?(|@@?( @ D |8 @ ?   |?  ??@? ?p??? 0>/@???=?￿?0 ~#|~;}((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((..............((((((((>>>>>>>>>(.888888888888.((((((((>(((((((>(.888888888888.((((((((>(((((((>(..............((((((((>(((((((>(((((((((((((((((((((((>(((((((>(((((((((((((((((((((((>(((((((>((>>>>>>(((((((((((((((>(((((((>((>((((>(((((((((((((((>(((((((>((>((((>(((((((((((((((>>>>>>>>>((>((((>((((((((((((((((((((((((((>((((>((((((((((((((((((((((((((>>>>>>((((000000000(((((((((((((((((((((((000000000(((((((((((((((((((((((0000000000((((((((((((((((((((***22000000(((((((((((((((((((((****222222**(((((((((((((((((((**************((((((((((((((((((**********:****(((((((((((((((((**********:****(((((((((((((((((***************(((((((((8888888888888888888888888888888888888888888888888888888888888888uSTOPWATCH   "STOPWATCH"  >>  MACBRIDE 1983 <<  T21,0;" PRESS ANY KEY WHEN READY ":1,0:0  5000 (25:7:0:0::4000 2510 ,11 ;"STOPWATCH":1,0 90Zp$(1)=(p$-32 ) P p$>12 p$=p$(12 ) Z;18,12 -p$/2;" Hello ";p$:5300 d:0,10 ;" STOPWATCH ";2,2;"Use this stopwatch to time";4,2;"yourself and your friends at";6,2;"different activities." nV8,2;"e.g. How long does it take ";10 ,2;"to count to 100 ?" s12 ,2;"The results are all stored in";14,2;"a special table.";16,2;" TOTALS are done for you. " xW18,2;"Would you like to see how";20,1;"this works ";p$;"?" 5400 z2000 h7::10 ,3;"Please tell me about the";12 ,2;"activities and the people." b0,0;" How many activities ? (No more than 4 please)";a$:a$=""170 5700D:q170 ac=a$:ac>4170 0D$(ac+1,5):D$(AC+1)="TOTAL" T:2,2;"The Activities":n=1ac:3+2*n,2;n:n N=1AC S0,0;(" Activity No.";n;" - ( no more than 5 letters please)");D$(N) "3+2*N,4;D$(N) 5800:Z220 N:5300 +:1,2;"And now the people.." ]0,0;"How many people are you timing? (No more than 15) ";a$:a$=""270 5700D:q270  pn=a$:pn>15270 ""n$(pn,7):a(ac+1,pn) ,@:0,0;"Their names please...":n=1pn:n:n 6n=1pn @M0,0;("Name no.";n;" - (no more than 7 letters please ");n$(n) E,n,3;n$(n):5800:z320@ Jn:5300 ^ 5350 r:5,2;"How do you want to do this?";7,2;"Take 1 person at a time  1  ";9 ,2;"Take 1 activity at a time  2 " |60,0;" Please  ENTER  1 or 2 ";a$ a$="1"500 a$="2"600X  380| i=1pn:j=1ac 2900T :j:i  620l Xj=1ac:i=1pn b2900T :i:j l7000X:620l 66::0,5;" RESULTS ANALYSIS " VN=1AC+1:2,1;"ACTIVITY";2,10 ;8-N;D$(N) ~AV=0:S=0:Z$="":F=100d:F$="":T=1PN:A(N,T)A(N,T)>SS=A(N,T):Z$=N$(T):6,1;"SLOWEST ";Z$ :M=A(N,T):ST=A(N,T)-M:AV=AV+M*60<+ST*100d:T :av=(av/pn+.5):m=(av/60<):se=av-60<*m 98,1;"AVERAGE TIME ";m;" mins ";se;" secs " . 5300 821,0;S$:N L  4: ڡ2,2;"The Browns are finding out ";4,2;"who is the fittest.";6,2;"They have timed three ";8,2;"activities -" 10 ,2;"Knees bend 10 times (knees)";12 ,2;" Run 100 metres (run)";14,2;"Touch toes 10 times (toes)" g2000:d$(4,5):n$(6,8):a(4,6):n=14:d$(n):n ;n=16:n$(n):t=14:a(t,n):t:n "knees","run","toes","TOTAL","Jonathan",0.08}# =,0.12}u[,0.21~W =p,0.41Q,"Judy",0.07}\(,0.14~\(,0.19~B\),0.40L  "Mr.Brown",0.15~,1.10 ,0.28\(,1.53C =,"Mrs.B.",0.13~R,0.22~aG,0.27 =p,1.02\),"Mrs.Bird",0.353333,0.45ffff,0.38B\(,1.52B\),"P.Bear",1.14,5.541G,10.0 ,17.08 A17,0;"Do you want to see the results?":5400  'zac=3:pn=6:3500 *7:19,0;"Do you want a Results Analysis?" 45400:Z1000 \5300: T 3000 : ^+18,0;s$;s$;s$;s$:5350 r )7:7:0::4000 9 :s=0:m=0:4100:0,1;"ACTIVITY ";8-j;d$(j);0,17;7;"PERSON ";8-i;N$(I);10 ,12 ;"00:00" E19,1;"Press  1  to start  2  to stop":0 "1"3020 s=s+1:4100 $s=60<s=0:m=m+1 >10 ,12 ;("0"m<10 );m;":";("0"s<10 );s 9.2~L,0:w=136$:="2"3100 w:3030 >A(J,I)=M+S/100d:A(AC+1,I)=A(AC+1,I)+A(J,I) & y9 ::n=1ac:20+480*n,0:0,175:0,3+6*n;8-n;d$(n):n n=1pn:546,168-8*(n*(1+(pn<10 ))):200,0:n*(1+(pn<10 )),0;8-(n-(n/5)*5);n$(n):n Wn=1ac:t=1pn:t*(1+(pn<10 )),3+6*n;a(n,t):t:n 5300 =N=112 :F(N,1),F(N,2);N*5:N 6R=57959;2:120x,92\,R:R ^H=5025462:A=0̧*2(/30*(1+(4h<535))) $120x+H*A,92\+H*A:A:H  51:120x,92\:x(s),y(s):0:  %X(S)=480*(/30*S) %Y(S)=480*(/30*S) S5000:F(12 ,2):N=112 :F(N,1),F(N,2):N 3,19,6,22,10 ,23,14,22,17,19,18,14,17,9 ,14,6,10 ,5,6,6,3,9 ,2,14 s$(32 )  /21,5;" Press  G  to go on" ="g"Ŧ="G"  5310 C19,1;"Do you want to see the table?":5400 z3500  K0,0;"Please  ENTER  yes or no ";a$:a$=""5400 "9z=0:a$(1)="y"a$(1)="Y"z=1: ,#a$(1)="n"a$(1)="N" 6 5400 D0q=0:z=1̱a$:a$(z)>"9"q=1 Nz: 16,3;" ! CHECK ! IS THAT RIGHT ?":1,0:18,4;" Press  C  to Change ";20,2;" any other key to go on.":0 #z=0:="c"Ŧ="C"z=1 $16,0;s$;s$;s$;s$;s$: Xa:5,1;"What now ";p$;"?";8,0;"Press  1  for the RECORD TABLE" lj10 ,5;"  2  for RESULTS ANALYSIS";12 ,5;"  3  to set up a new table" q\14,5;"  4  to run again";16,5;"  5  for a fond farewell" va$= a$="1"3500 : a$="2"1000: a$="3"160  a$="4" a$="5"8000@  7030v @n=07:n:7-n:n::5,3;"Lovely to work with you";7,1;"Please come again ";p$;10 ,10 ;"Goodbye":1,n*3:n J 8010J @=;86LiكIڢ}VwODs}# =f}# =m}# =q}     # PFredrunn TOTAL fred }# =}# =$ Ffred Zfred A5A