ZXTape! 0Created with Ramsoft MakeTZXT ;7:w:7 ::  f(7)  v(20) X 2800 vY1;''"The computer will organise a competition for you in the form of a race." 4''"It will display a map of Englandand Wales." f''"It will then present you with a series of questions involving the location of towns on the map" @3;''"When you are ready to continue, press any letter." =""700  2800 $''"Up to 4 players can take part." n''"You will be asked questions in turn. If your answer is right you will advance; if wrong, youretreat." :''"To answer a question, press a key from 1 to 6." 9''"Now tell me how many players?"'''3;x$;4  2900T d=-480 d4770  n$(d,8):e(d):h(d) * 2800 4$l;''''" Who is going to play?" 9n=od >*8,l;"Enter the name of player ";n C&''"(max. 8 letters) and press ENTER" Hn$(n):e(n)=18 Mn R 2800 \n=od a-5,w;"Choose a colour please, ";n$(n) c'''"Press:","0 for Black",,"1 for Blue"',"2 for Red"',"3 for Magenta",,"4 for Green"',"5 for Cyan"',"6 for Yellow" f 2900T ph(n)=-480 uh(n)m880p wn z n=od 'h(n);0,2*n+23;"O" q=o17 !h(n);q,2*n+23;"." q (h(n);18,2*n+23;"*" 2h(n);20,2*n+23;(n+64@) n s=od c=1+(*2) n=o+(*80P) p=o20 n=v(p)960 p f(o)=n ct=n-10 ct<1ct=1 ct>60<ct=60< p=lm f(p)=ct+(*20)  q=op-o f(q)=f(p)1010  L(c$(f(q))-c$(f(p)))<16ƽ(b$(f(q))-b$(f(p)))<81010 q p $ q=o8 . g=o+(*m) 8 p=o+(*m) Br=f(g) L f(g)=f(p) Vf(p)=r `q ~ 2300 1900l+100d*c p=o19  v(p)=v(p+o) p v(20)=n q=-480 qm1200 f(q)=n1300 e(s)=e(s)+1 e(s)>18e(s)=18 $21,11 ;"Sorry; it's "; r=om  f(r)nr r  &h(s);e(s)-1,s*l+23;"."  h(s);e(s),s*l+23;"*"  2900T  1370Z e(s)=e(s)-2 21,16;"Correct" (e(s)<0e(s)=0 2,h(s);e(s)+2,2*s+23;"" <,h(s);e(s)+1,2*s+23;"" F$h(s);e(s),2*s+23;"*" Pe(s)=01400x Zs d 950 x 2900T } 2300 Hh(s);9 ;12 ,5;"Victory for";14,6;n$(s) @20,w;"Press: 0 for a new race"'7;"Space to stop" ="0"500  =" "  1430 61,15;"Turn of:";3,15;n$(s) l;20,10 ;d$(n) q=om  x=c$(f(q))  y=b$(f(q))  2350.  q  4 x=c$(n) > y=b$(n) H 2400` M&(x>557y>120x)2200 R818,16;"Turn of:";19,16;n$(s) \q=16 a$q-1,10 ;q;" ";d$(f(q)) fq p 61,15;"Turn of:";3,15;n$(s) q=16 %q+14,10 ;q;" ";d$(f(q)) q  q=w21 Dq,w;6;1;1;a$(q+1);7;"  " q  .i=21-(y/8) 8"j=1+((x+2)/8) Bi,j;9 ;q `i=-22 j1;x+i,y t1;x,y+i ~i   &" ";w;m;"FUN WITH GEOGRAPHY"  Tq=1120x ^q h # X.To specify your choice, press a key from 1 to cdgNowmlQ L1:11::1JP Penzance Plymouth Exeter Taunton Weymouth Bournemouth Bath Bristol Salisbury Southampton Portsmouth Brighton Hastings Folkestone Dover Canterbury Maidstone Guildford London Windsor Reading Chelmsford Hertford Oxford Buckingham Banbury Gloucester Hereford Monmouth Cardiff Swansea Aberystwyth Holyhead Bangor Caernarvon Chester Shrewsbury Stafford WolverhamptonBirmingham Coventry Warwick Worcester Northampton Bedford Milton KeynesCambridge Colchester Ipswich Lowestoft Norwich Peterborough Leicester Derby Nottingham Lincoln Hull Sheffield Huddersfield Leeds Bradford Halifax Manchester Liverpool Southport Blackpool Preston York Lancaster Scarborough Whitby MiddlesbroughBarrow Douglas Kendal Carlisle Newcastle Sunderland Durham Keswick SP *,!$&'&%---565<>9>7.2Jha_aSUNKJFCEA4770  n$(d,8):e(d):h(d) * 2800 4$l;''''" Who is going to play?" 9n=od >*8,l;"Enter the name of player ";n C&''"(max. 8 letters) and press ENTER" Hn$(n):e(n)=18 Mn R 2800 \n=od a-5,w;"Choose a colour please, ";n$(n) c'''"Press:","0 for Black",,"1 for Blue"',"2 for Red"',"3 for Magenta",,"4 for Green"',"5 for Cyan"',"6 for Yellow" f 2900T ph(n)=-480 uh(n)m880p wn z n=od 'h(n);0,2*n+23;"O" q=o17 !h(n);q,2*n+23;"." q (h(n);18,2*n+23;"*" 2h(n);20,2*n+23;(n+64@) n s=od c=o+(*2) n=4+(*38&) p=o20 n=v(p)960 p f(o)=n ct=n-6 ct<4ct=4 ct>29ct=29 p=lm f(p)=ct+(*12 )  q=op-o f(q)=f(p)1010 q p $ q=o8 . g=o+(*m) 8 p=o+(*m) Br=f(g) L f(g)=f(p) Vf(p)=r `q ~ 2300 1900l+100d*c p=o19  v(p)=v(p+o) p v(20)=n q=-480 qm1200 f(q)=n1300 e(s)=e(s)+1 e(s)>18e(s)=18 521,0;2;6;"Sorry; it's "; r=om  f(r)nr 2;6;r  &h(s);e(s)-1,s*l+23;"."  h(s);e(s),s*l+23;"*"  2900T  1370Z e(s)=e(s)-2 /21,5;2;6;"Correct" (e(s)<0e(s)=0 2,h(s);e(s)+2,2*s+23;"" <,h(s);e(s)+1,2*s+23;"" F$h(s);e(s),2*s+23;"*" Pe(s)=01400x Zs d 950 x 2900T } 2300 Hh(s);9 ;12 ,5;"Victory for";14,6;n$(s) @20,w;"Press: 0 for a new race"'7;"Space to stop" ="0"500  =" "  1430 66;0;0,1;"Turn of: ";n$(s) !2010+(5ƥ>.5) 'l;2,9 ;d$(n):2020 l;2,9 ;e$(n) q=om  j=c$(f(q))  i=b$(f(q)) i,j;9 ;q  q  4 j=c$(n) > i=b$(n) Hi,j;1;1;"?" M!i<7j>52200 RJ6;0;12 ,16;"Turn of:";13 ,16;n$(s) W"2140\+(30ƥ>.5) \q=16 a#q-1,7;q;" ";d$(f(q)) fq p zq=16 #q-1,7;q;" ";e$(f(q)) q  66;0;0,1;"Turn of: ";n$(s) "2220+(40(ƥ>.5) q=16 $q+14,7;q;" ";d$(f(q)) q  q=16 $q+14,7;q;" ";e$(f(q)) q  q=w21 Fq,w;6;1;1;a$(q+1);7;" " q   &" ";w;m;"FUN WITH GEOGRAPHY"  Tq=1120x ^q h # X.To specify your choice, press a key from 1 to cdgowmlQ L1:11::1Jx3y` jI ĕ) Iceland Norway Sweden Finland Russia Denmark Eire United Kingdom Holland Belgium Luxembourg West Germany Liechtenstein France Switzerland Austria Gibraltar Portugal Spain Andorra Italy Greece Turkey Albania Bulgaria Yugoslavia Rumania Hungary Czechoslovakia Poland East Germany Crete Sicily Sardinia Corsica Balearic Isles Monaco San Marino ŕ) Reykjavik Oslo Stockholm Helsinki Moscow Copenhagen Dublin London Amsterdam Brussels Luxembourg Bonn Vaduz Paris Bern Vienna Gibraltar Lisbon Madrid Andorra la VellaRome Athens Ankara Tirane Sofia Belgrade Bucharest Budapest Prague Warsaw East Berlin Iraklion Palermo Cagliari Ajaccio Palma Monaco San Marino ,)   ,)          &!$"#g#&$   1111 {