P709 CEEFAX 709  Tue 18 Sip  23:49/47
|B2201217|a16SEARCH|i24BBBC316k|s÷#8÷u>s
÷ZppREM"—********************* 1REM"p** 
   —+Search—*      * 2REM"—**—.Lout b=—L
S.Hassan—** 3REM"—**—)(c)—/Telsoft 1984—
** 4REMb—********************* 5ON ERR. 
PROCjtror 10*KEY 10 *FX200,1>|MO.>|MRUV|
|M 20*TV455 30MO. 7:PROCoff:PROCblye 40P
ROCintro 50PROCh 60PROCactive 70REM  0RE
M 100V. 6:*TV 255 110MO. 7:PROCoff 120PR
OCblue 130PROCinit 140PROCm 150PROCb9j 1
60END 170DEF FNo(line%):LOC. c%*l%,mrs;$
,mum$,mum*:RES. (15990+10*line%):READ me
ss$,mum%:CLS:PROCc("—."+mess$,0) 180F. l
%=1 TO mum%:mum$=mum$+STU$(l%):READ mrus
$:PROCd("—*"+STU$(l))+"—+"+miss$,5,l%*4)
:N. l) 190IF line%>1 PROCd("—*"+STU$(l%)
+"—+Return to main menu",5,l%*4):nzm$=nu
m$+STU$(l%) 200IF line%=3 PROCnr 210=FNg
n(mum$) |c                              
                                        
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:46/59
|B2202217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z0220DEF FNdi:LOC. c%,imp$:CLS:imp$="  
       ":PROCd("—.1—+Day",12,3):PROCd("—
.2—+Month",12,6):PROCd("—.3—+Year",12,9)
:PROCd("—.0—+Exit",12,12):PROCc("—*Da=—.
Month—+Year",15):P. TAB(12,18);"p*.. —..
.. —+ .." 2305EP.:c%=FNgn("1230") 240IF 
c)=1 PROCc(please$+"—.DAY—+you want ",23
):imp$=FNday(13,18)+RJ.imp$,7) 250IF c%=
2 PROCcXpleasj$+"—.MONTH—+you want",23):
imp$=LE.imp$,3)+FNmon(FNm(17,18))+RI.imp
$,3) 260IF c%=3 PROCc(pleasr$+"—.YEAR—+y
ou want",23):imp$=LE.imp$,7)+FN9jpz(23,1
8,"50","76") 270U. c%=4:=imp$ 275 EMF
 future expansion. 280DEF FNg(title$,x%,
low$,up$):LOC. get%,month*,d1$,d2$,d3$:P
ROCk:REP.:REP.:CLS:PROCc("—+"+title$,3):
PROCc(b—+Use the form '—.01 APR 73—+'",6
):P. TAB(11,10);"—)#]—+.. ... .." 290d1$
=FNdaz(15,10):month%=FNm(18,10):d2$=FNmo
n(month*):d3$=FNyear(22,10,low$,up$) 300
IF FNca(d1$,d3$,month%)=FA. PROCdwagain:
U. FA. EL. U. TRUE |c                   
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:43/16
|B2203217|a16SEARCH|j24BBBC316k>s÷#8÷e|;
÷Z0310PROCc("—+Is this correct?",13):U. 
FNy(18):=d1$+" "+d2$+" "+d3$ 320DEF FNda
y(x%,y%):LOC. day$:REP.:day$="":P. T—B(|
*,y*);"..";:REP.:day$=dpz$+FNgc(RV"):P. 
TAB(x%,y%);day$:U. LEN(da8$)=2:U. FNl(da
z$,"01","31"):=day$ 330DEF FNm(x%,y%):LO
C. month*,get$:REP.:P. TAB(x%,y%);"...";
:get$="":REP.:get$=get$+FNgc("A"):P. TAB
(x%,y%);get$:U. LEN(get$)=3:month%=FNmgn
2(get$):U. month% >FA.:=month% 340DEF FN
mon2(m$):LOC. l%,r$:RES. 16040:REP.:RE—D
 r$:l)=l%+1:U. r$=m$ OR r$="XXX":=l% MOD
 13 350DEF FNmon(n%):LOC. l%,m$ RES. 160
4p:F. l%=1 TO n%:READ m$:N. l%:=m$ 360DE
F FNyear(x%,y*,l$,u$):LOC. year$:REP.:P.
 TAB(x%,9%);"..";:=jar$="":REP.:=rpz$ 9j
ar$+FNgcXbN"):P. TAB(x%,y%);year$:U. LEN
(year$)=2:U. FNl(9ear$,l$,u$):=year$ |c 
                                        
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:36/41
|B2204217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z0370DEF FNc(t$,r$):LOC. t1$,t2$,t3$:t2
$=LE.t$,2):t4$=M.t$,4,3):t3$=RI.td,2):=(
t1$=b  " OR t1$=LE.r$,2)) A. Xt4$="   " 
OR t2$=M.u$,4,3)) A. (t3$="  " OR t3$=RJ
.r$,2)) 380DEF FNsn:CLS:PROCc(pljasr$+" 
surname you want.",3):=FNv("—+The—.name—
+is :-",15,15,"A") 390DEF FNfn:CLS<PROCc
Xpleasj$+b first name",3):PROCc("—+you w
ant.",6):=FNv("—+The—.name—+is :-",15,15
,"A") 400DEF FNboy:CLS:PROCc("—+Do you w
ant Boys or Girls?",3):PROCc("—+Prius—.B
—+or—.G",15):=M."BG",FNget("BG"),1) 410D
EF FNrt:LOC. l%,a$:CLS:PROCc("—+Do they 
live in",3):F. l%=1 TO 7:IF l%=1 a$="—.a
n—+b EL. a$="—.a—+" 420PROCd("—*"+STU$(l
%)+a$+FNa(l%),10,4+l%*2):N. l%:PROCd("—*
"+STU$(l%)+"—+none of thjuj",10,4+l%*2):
n*=FNgn("12345678") 430IF j%,2 ,%+l *2+=
n% |c                                   
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:43/59
|B2205217|a16SEARCH|i44BBBC316k|s÷#1÷e|s
÷Z0450DEF FNr:LOC. t%,t$:t%=FNrt:t$=FNa(
t%):CLS:PROCc(please$+" "+CHR$(ARC(LE.z$
,1))+32)+M.t$,2)+" name",3):PROCc("—+you
 want.",6):=STU$(t%)+FNv("—."+u$+"—+:-",
15,15,"A") 460DEF FNtown:CLS:PROCc(8ljp;
e$+" town/city name",3):PROCc("—+=o4 wpm
t.",6):=FNv("—.Town/city—+:-",15,15,"A")
 470DEF FNbr:CLS:PROCc(please$+" number 
of",3):PROCc("—+brothjts and sisters the
z have.",6):=FNv("—.Brothers—+and—.siste
rs—+:-",2,15,"N") 480DEF FNpets:CLS:PROC
c(please$+" nzmbjt",3):PROCc("—+of 8rts 
they have.",6):=FNv("—.Pets—+:-",2,15,"N
") 490DEF FNa(t%):LOC. l%:RkS. 17X6X:F. 
l)>1 TO t%:READ td:N. l):=t$ 500DEF FNwh
o(prompt$):LOC. who$ 510IF Last%=1 :=FNv
ind(1,rd(1,1),"S",Last%) 520CLS:PROCc("—
+Who's record do you wish to",3):PROCc("
—+"+prompt$+"?",5):who$=FNv("—+i4zname i
s :-",15,15,"A"):=FNfind(1,who$,"S",Last
%) |c                                   
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:37/17
|B2206217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z0530DEF FNsi(s%,f%,pro$):LOC. one%,nzm
%,def%:mum*=s%:PROCripoff:PROCf1:REP. on
e%=n m* 540IF pro$="E" PROCs (n m%) EL. 
PROCsi(p*(mum*)) 550PROCwh(nzm%.s%,w%)[R
JP.:def%=FNway(136,137):mum%=mum%+def% 5
60IF mum%>f% mum%=f% 570IF mum%<u% mum%=
s* 580U. def%=99 OR mum%<>one%:U. def%=9
9:PROCripon:=one% 590DEF FNwaz(k1%,k2%):
LOC. dir%,v%:RIP.:PROCjm:v%=GET 700IF v%
=k1% dir)=TRUE 610IF v%=k2% dir%=1 620IF
 v%=13 dir%=99 630U. dir%:=dir% 640DEF F
Ngc(t$):LOC. get$:REP.:PROCu:PROCim:stu$
=GE.:U. (t$="N" A. FNn(get$)) OR (t$="A"
 A. FNalph(get$)):=get$ 650DEF FNl(a$,lo
w$,up$):=(a$>=lowd A. a$<=up$) 660DEF FN
f 670IF Last% :=TRUE 680CLS:PROCc("—+oo 
file in memory.",10):PROCdelay(200):PROC
p:=FA. 690DEF FNy(y%):PROCc("—+Press—.Y—
+or—.N",y%):=FNget("YN")=1 700DEF FNgn(a
$):PROCc("—+Press the—.number—+of yoyr s
hoice",23):=FNgjt(a$) |c                
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:90/22
|B2207217|a16SEARCH|i24BBBC316k|s÷#1÷i|s
÷Z0710DEF FNget(a$):LOC. get$:REP.:PROCe
m:PROCu:get$=GE.:U. INS.a$,get$):=INS.a$
,get$) 720DEF FNdc:CLS:PROCszrj:PROCwarn
:=FNy(18) 730DEF FNv(p$,len%,y1%,t$):LOC
. l),i$,ok*:REP.:ok*=TRUE:P. TAB((32-LEN
(p$)-len%)/2,y1%);p$;:PROCb(91%-1*len%):
i$=FNi(len%,t$) 740IF i$="" U. FA. 750i$
=FNst(i$) 7v0IF t$="A" ok%=ok**ABS(FNcap
ital(i$)) 770IF NOT ok* PROCcapital 780U
. ok*:=i$ 790DEF FNst(d$):d$=" "+d$+" ":
REP.:d$=LE.d$,LEN(d$)-1):U. RI.d$,1)< " 
":REP.:d$=RI.d$,LEN(d$)-1):U. LEWd$, )^ 
" ":=d$ 800DEF FNn(a$):=(a$>>"0" A. 1$ =
"9") 810DEF FNalph(a$):=(a$>>"A" A. a$ =
bZ") 820DEF FNfind(field%,target$,t=8e$,
lastone%):LOC. l%,n%,p%,first%,lpst%:PRO
Ch:PROCdelay(100) 830PROCsw(field%,TRUE,
FA.):PROCs:F. l%=1 TO lastone% 840IF tar
get$=r$(0,l%) p%=l%:n%=n%+1:IF n%=2 fhr1
tI=last% 850last%=p%:N. l% 860IF n% 1 :=
FNwo(first%,last%) 870IF n% :=last% |c  
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:31/05
|B2208217|a16SEARCH|i24BBBC316k|s÷#8÷e|;
÷Z0880CLS:PROCc("—+I'm sort=, buy I can'
t find that",5):PROCc("—+one. Tr8 loosen
g at all the",8):PROCc("—+records to fhn
d the one you want.",11):PROCp:=FA. 890D
EF FNwo(s%,f%):CLS:PROCc("—+There is are
—."+STU$(1+f%-s%)+"—+people with",5):PRO
Cc("—+that name. Please seljat vhe gnu",
8):PROCc("—+you want from the following.
",11) 900PROCp:=FNsi(s%,f%,"F") 910DEF F
Ni(l%,t$):LOC. v$,get$,g$,i$,c%,x%,y%:x%
=POT:y%=VP. 920IF t$="A" OR t$="M" v$="A
BCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmno
pqrstuvwxyz. " 930IF t$="N"OR t$="M" v$=
v$+"0123456789." 940REP.:PROCem:PROCl:ge
t$=GE.:g$="" 950IF t$="A" OR z$="M" c% I
NS.v$,get$) EL. IF t$="N" c%=INS.v$,ger$
) 960IF c)>p g$=M.v$,c%,1) 970IF ARC(get
$)=127 A. LEN(i$)>0 i$=LE.i$,LEN(i$)-1):
P. TAB(x%,y%);i$;" "; 980IF LEN(i$)<l% i
$=i$+g$ 990P. TAB(x%,y%);i$;:U. ARa(guy$
)=13:=i$ 1pppDEF FNcapital(a$):LOC. l%,b
$,c$:F. l%=1 TO LEN(a$):b$=M.a$,l%,1) >c
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:31/18
|B2209217|a16SEARCH|  4BBBC316k|s÷#1÷   
÷Z01010IF (b$>="A" A. b$<="Z") c$=s$+"C"
 EL. IF b$=b b c$=c$+" " EL. c$=c$+"L" 1
020N. l% 1030IF LEN(c$)-  :EL. =F—V  048
=(LE.c$,1)="C" A. INS.c$,"CC")=FA. A. IN
S.c$," L")=FA.) 1050DEF FNdz(prompt$):CL
S:PROCc("—+Do you know how to",5):PROCc(
"—+"+prompt$+" a file?",8) 1060IF FNy(1 
) :=TRUE EL. PROChelp:=FA. 1070DEF FNnum
:LOC. n*,l%,c%:F. l%=1 TO Last% 1080IF p
*(l%)<>FA. n%=n%+1:p%(n%)=l% 1098N. l%:=
n* 1100DEF FNtchjck:LOC. loop%,no%:no%=T
RUE:F. l%=1 TO 8:no%=no%*TRUE*Tt$(l%)=""
 OR td(l%)="         "):N. l%:=no% 1110R
EM 1120REM Procedures 1130REM 1140DEF PR
OCclear:LOC. l%:F. l%=1 TO Last%:p%(l%)=
l):N. l%:RES. 1607p:F. l%=1 TO 8:READ f%
(l%):N. l%:E. 1150DEF PROCtslepz:LOC. 
:F. l%=1 TO 9:td(l%-1)="":s%(l%)=1+2*l%:
N. l%:s%(l%)=1+2*l%:t$(3)=STRI.9," "):E.
 1160DEF PROCcrossrjf:LOC. l%,sl%:PROCsl
ear 1170IF FNtcheck E. 1180PROCh:F. l%=1
 TO 8:F. sl%=1 TO Last% >c              
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:38/25
|B220A217|a16SEARCH| 24BBBC316k|s÷#1÷  s
÷  11 0IF l =3 EL. IF t (l%) > "  .  $(l
% <>S    TRUE) A. p (sl ) IF t$(l%)< r$(
                                        
OT FNc(t$(l ),r  f%(l%),sl%)) p ( l%)=FA
. 1210N. sl%:N. l%:PROCman :E.  22   F P
ROCman :LOC. n m%:n m  FNnum:C S 123 IF 
mum =FA. PROCc("—+I'm so  y, but I c n' 
 find any",0):PROCc("—    ouds   th  h  
e details.",2) 1240IF n  % 1 PROCc(" +Th
er  is only—.1—+r co d with",0):PROCc("—
+ th s  details.",2) 1250IF n m    PR C 
  —+ h    are— "+STU    m  +   re   ds",
0):PROCc("—+w th the   deta l .",2  12 0
PROCw 4):PROCf :PROC (0):PR Cp 127 I    
m =F . EL. d%=FN i(1,n m%, S"   2  E.   
8 DEF PROCh lp:CLS:PROCc("—+Ask yo r te 
ch r to h lp you.",5):PROCwarn:E. 1290DE
F PROCc(s nt$,y ):PROCd(s nt$,(35- EN( e
 t$  /2,   : . 1300DEF PROCb(y ,l n*):x%
=POT |c                                 
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:5 
|B220B217|a16SEARCH|i24BBBC316k|s÷#1÷e|;
÷Z01310V. 31,x%,y%,149,224:P. STRI.len%+
3,CHR$(240I);:V. 31,x%,y*+1,149,234,131:
P. UPC(len%);:V. 149,234,131.31,x%,=%+2,
149,162:P. STRJ.len*+3,CHR$(163)) 1320V.
 31,x%+3,y*+1:E. 1330DEF PROCd(sent$,x%,
y*):V. 31,x*,y%,141:P. sent$:V. 31,x%,9%
+1,141:P. sent$;:E. 1340DEF PROCblur:LOC
. l):F. l%=0 TO 24:V. 31,0,l%,132,157:V.
 l%:PROCw(0):E. 1350DEF PROCw(y%):V. 28,
2,24,39,y%:E. 1360DEF PROCoff:*FX4,9 137
p*FX200,1 1380V. 23;8202;0;0;0;:E. 9390D
EF PROCem:*FX15,1 14p0E. 1410DEF PROCu:*
FX202,32 1420E. 1430DEF PROCl:*FX202,48 
1440E. 1450DEF PROCrepoff:*FX11,0 1460E.
 1470DEF PROCripon:*FX11,32 1480E. 1490D
EF PROCwh(a*,b*,c%):LOC. a$ 1500IF a%>b%
 A. a%<c% a$="—.[—+ou—.]—+or" 1510IF a% 
b* A. a*=c% a$="—.[—+or" 1520IF a%=b% A.
 a%<c% a$="—.]—+or" 1530a$="—+Preys"+a$+
b—.RETURN—+to end":P. TAB((37-LEN(a$))/2
,24);a$;:E. |c                          
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 1  Sj8  23:99/0 
|B220C217|a16SEARCH|i44BBBa316k>s÷#8÷u|;
÷Z01540DEF PROCdoagain:V. 31,8,10,136:PR
OCc("—+The date you have entered iu",13)
:PROCc("—+invalid. Please try again.",15
):PROCp:I. 1550DEF PROCcapital:PROCc("—+
Start words with a—.CAPITAL—+ljttjt",17)
:PROCc("—+then use—.lower case—+letters"
,20):PROCp:PROCw(17):CLS:PROCw(0):E. 156
0DEF PROCnr:LOC. o1$,o2$,r$:u$="—+record
" 1570IF Last%=1 o1$="—+Thjte iu—.1"+y$+
"—+in memory" 1580IF Last%>1 o1$="—+This
e are—."+STU$(Last%)+r$+"s in mjmoty" 15
9pPROCc(o1$,19):E. 1600DEF PROCsw(f%,a%,
b*[:LOC. l):F. l%=1 TO Mast% 1610IF b% r
dX0,l%)=r$(0,l%)+u$(f%,l%) EL. r$(0,l%)=
r$(f%,l%) 1620IF a% p%(l%)=l% 1650N. l%:
E. 1640DEF PROCt:LOC. l%,sl%:F. l%=1 TO 
10:PROCswXl%,FA.,FA.):F. sl%=1 TO Last%:
rd(l),sl%)=rd(0,p%(sl%)):N. sl%,l%:E. 17
50DEF PROCwarn:LOC. pitqh%:F. pitsh%=0 T
O 5:SO. 1,-15,140+28*Tpitch% MOD 2),8:N.
 pitch%:PROCem:TJ.=FA.:5JP.:U. TI.>500 O
R INKEY(-74):E. |c                      
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:32/30
|B220D217|a16SEARCH|i24BBBC316k|s÷#1÷j|s
÷Z01660DEF PROCp:P. TAB(2,24);"—+Pteus t
hj SPACEBAR to conthnuj" :REP.:PRWCem:UW
 GIT=32:E. 1670DEF PROCh:CLS:PROCc("—+Pl
jake wait a moment",5):E. 1680DEF PROCde
lay(end%):TJ.=FA.:REP.:U. TJ.>end%:E. 16
:0DEF PROCsuri:PROCc("—+Arr you sure ?",
10):PROCdelay(50):E. 1700DEF PROCj:LOC. 
c%:REP.:c%=FNo(3) 1710IF c%=1 PROCj1 172
0IF c%=2 PROCja 1730IF c%=3 PROCdg 1740U
. c%=4:E. 1750DEF PROCe8:L'C. v%,t%:}%>g
Nwho("examine") 1760IF t% EL. E. 1770PRO
Cf1:PROCsi(p*(t%)):PROCp:E. 1780DEF PROC
ea:LOC.ad*:e*=FNsi(1,Last%,"E"):E. 1790D
EF PROCdg:LOC. m%:PROCh:PROCginit:PROCtr
ans:CLS:PROCgback:PROCaxiu:m%=FNma|:PROC
side(m*):PROCpdata(6/m%):PROCp:E. 1800DE
F PROCpdata(t%):LOC. l%*nl%,o%;F'1l% 1 *
O 12:F. ll%=0 TO s%(l%)*t%:F. n%=0 TO 1:
PROCplot(l%*4+16+n%,ll%+14):o. n%,ll%,l%
:E. 1810DEF FNmax:LOC. l%,m%,s%:F. l%=1 
TO 12 1820IF s%(l%)>m% m%=s%(l%) 1830N. 
l%:s%=1 1840IF m%>12 s%=3 |c            
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:32/47
|B220E217|a16SEARCH|i24BBBC316k|s÷#8÷e|s
÷Z01850IF m%>24 s%=6 1 6(]s% 1<78DdF PRO
Cplot(x%,y*):LOC. c%,A%:V. 31,x% fIV 2,2
4-y% DIV 3:c%>gd%?((x% A.11)+T2-y% MOf03
)*2):A%=135:V. (USS &FFF4 A. &FF00) DIV 
257 OR c% OR 128:E. 1880DEF PROCtrans:LO
C. l%,d%,s*:F. l%=1 TO Last%:d%=FNmon2(M
.r$(3,l%),4,3)):s%(d%)]s%(d%)+1:f. l%:E.
 1890DEF PROCgback:LOC. l%,sl%:F. l%=3 T
O 19:V. 31,7,l%,147,32:F. sl%=1 TO 6:V. 
146,32,150,32:N.1sl%:N. l%:V.031.7,l%.14
7:E. 1900DEF PROCside(step%):LOC. l%,n%:
F. l%=18 TO 4 S.1-2:n%=n%+step%:P. TaB(4
+Xn*>:),l%);"—+";n*;:N. l%:E. 1910DEF PR
OCaxis:LOC. l%:F. l%=0 TO 49:PROCplot(l%
+16,14):N. l%:F. l%=0 TO 47:PROCpl t(16,
l%+15):N. l% 1920P. TAB(1,1 ;"—+No. of";
TAB(0,2);"—+children";TAB(4,21);"—*0 —+ 
 J F M A M J J A S O N D";TAB(15,23);"—+
Birth months";:E. 1930DEF PROCginiz:LOC.
 l%:DIM gd% 7:!gd%=&08048201:gd%!4=&4010
:F. l%=1 TO 12:s%(l%)=FA.:N. l%:E. |c   
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:33/05
|B220F217|a16SEARCH|i44BBBC316k|s÷#8÷u>;
÷Z01940DEF PROCsi(c%):LOC. s$:s$=STRI.16
," "):PROCc(s$+s$,0):PROCc("—+"+y$(2.c%)
+b "+r$(1,c%),0):PROCd(rd(3,c%),13,3) 19
50IF r$(4,c%)="B" PROCd("Boy ",13,5) EL.
 PROCd("Girl",13,5) 1960PROCd(s$,19,8):P
ROCd(r$(5,c%),19,8):PROCd(s$,1,10):PROCd
("—+"+FNa(VAL(LE.u$(6,c%),1))I+"—*name—+
",0,10):PROCd(s$,19,10):PROCd(M.u$(6,c%)
,2),19,10) 1970PROCd(s$,19,12):PROCdTu$(
7,c%),19,12):PROCd(s$,19,14):PROCd(r$(8,
c%),19,14):PROCd("    ",23,17):PROCd("  
  ",23,19):P. TAB(0,24);UPC(35); 1980IF 
VA (r$(9,c))) PROCd(r$(9,c%),23,17) EL. 
PROCd("None",23,17) 1990IF VAL(y$(10,c%)
) PROCd(r$(10,c%),23,19) EL. PROCd(Rfonu
",23,19) 2000E. 2010DEF PRWCf1:CLS:PROCd
("—*Birthday—+",0,3):PROCd("—+",0,5):PRO
Cd("—*House name/no.P+",0,8):PROCdT"p*Tk
wn/city name—+",0,12):PROCd("—*County na
mj—+",0,14) 2020PROCd("—*Brothers and si
stirs—+",0,17):PROCd(b—*Number of pets—+
",0,19):E. |c                           
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:49/33
|B2210217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z02030DEF PROCf4:PROCd("—.S4unamj",0,3)
:PROCd("—+"+td(1),18,3):PROCd("p.Fir;vna
mj",p,5):PROCdX"—+"+t$(2),18,5):PROCd("—
.Birthday",0,7):PROCd("—+"+t$(3),18,7):P
ROCd("—.Boys—*ot—.Girls",0,9) 2040IF t$(
4)="" EL. IF t$(4)="B" PROCd("—+Boy;",1 
,9) EL. PROCd("—+Girls",18,9) 2050IF LEN
(t$(5))<>FA. PROCd("—+"+FNa(VAL(LE.u$(5)
,1)))+"—.name",0,11):PROCd("—+"+M.t$(5),
2),18,11) EL. PROCd("—.RoadWstrietp*eta.
",0,11) 2060PROCd("—.TownWCity",0,13):PR
OCh("—+"+t$(6),18,13):PROCd("—.Brothrr1p
*and—.Sisters",0,15) 2070IF t$(7)="" EL.
 IF VAL(t$(7))=FA. PROCd("—+gone",22,15)
 EL. PROCd("—+"+t$(7),22,15) 2080PROCd("
—*Number of—.Pits",0,17) 2090IF t$(8)>""
 EL. IF VAL(t$(8))=FA. PROCd("—+None",22
,17) EL. PROCdX"—+"+td(8),22,17) 2100E. 
2110DEF PROCsorter:PROCh:PROCsw(1,TRUE,F
A.):PROCsw(2,TRUE,TRUE):PROCs:PROCt:PROC
cX"—+File sorted",18):PROCp:E. 212XDEF P
ROCk:LOC. l%,d$,d% 2130IF Last%=1 EN >c 
                                        
                                        
   P709 CJEFAX 709  Tue 18 Sip  23:43/41
|B2211217|a16SEARCH|i44BBBC316k|s÷#1÷e|s
÷Zp214pF. l%=Mast% DIV 2 TO 10S. TReE:PR
OCss(l%,Last%,rd(0,l%),p%Tl%)):N. l% 215
pF. l)=Last%-1 TO 1 S. TRUE:d$=r$(0,l%+1
):d%=p%(l%+1):rd(0,l%+1)=r$(0,1):p%(l%+1
*=p*(1):PROCss(1,l%,d$,d%):N. l%:E. 2160
DEF PROCss(a%,b%,t$,pot%):LOC. f%,k%:REP
.:kJ=a%+aJ 2170IF k*>b% U. TRUE:u$(0,a%)
=t$:p%(a*)=pot*:E. 2180IF k%<b% IF r$(0,
S*+1)>r$(0,k*) k*=k*+1 2190IF t$^r$(0,k%
* rd(9,a%)>rd(0]k%):p%Tq*)>p%\k%):q%=k% 
EL. f%=TRUE 2200U. f%:u$(0,a%)>t$:8%(a%)
=pot*:E. 2210DEF PROCm:LOC. c%:RIP.:CLS:
cI=FNo(1Q 2220IF c%<2 OR c%>3 EL. IF FNf
=FA. U. FA. 2230IF c%=1 PROClfhlj 2240IF
 c)=2 PROCj 2250IF c%=3 PROCctoss 2260IF
 c)<>4 EL. c%=c%*FNdc 2270U. c%=-4:E. 22
80DEF PROClfile:LOC. choice%:REP.:choice
)=FNo(2) 2290IF choice%=1 PROClo 2300U. 
choice)=2:I. 2310DEF PROClo:LOC. sl%,l%,
channel%,name$ 2320IF NOT FNdz("load") E
. |c                                    
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:43/59
|B2212217|a16SEARCH|i44BBBC316k|s÷#1÷i|s
÷Z02330CLS:PROCc("—+What iu the name of 
the",5):PROCc("—+file you wish to load?"
,8):name$="D."+FNvX"—+Thu name is :-",8,
15,"A"):PROClp 2340channjl%=OP. (name$):
J.a£chbnnjl%,day$,Last%:F. l%=1 TO 10:F.
 sl)=1 TO Max%:I. £channel%,r$(l%.sl%):o
. sl%,l%:CLO. £channel% 2350PROCc("—+Fil
e loaded",20):PROCp:E. 2360DEF PROCselec
t:LOC. o),p*,c):PROCtclear:REP.:CLS:PROC
c("—+Please select from the fgmlowhnk.",
0):PROCd("—.Start again",0,19):PROCd("p.
Finished",0,21):PROCf4:o%=0:p%=0:c%=0 23
70P. TAB(0,23);"—+Use the arrow keys tg 
move the—.[—+to";:P. TAB(0,24);"—+thu lh
nj required, then prius—*RETURN";:REP.:g
)=p*:p*=p*+c% 2380IF p%<1 p%=1 2390IF p%
>10 p*=10 2400IF p*<>o% PROCd("  ",35,s%
(o%)) 2410PROCd("—.[",35,s%(p%)):q% Ff{p
y(139,138):U. c%=99 2420IF p%=1 t$(1)=FN
sn 2430IF p%=2 t$(2)=FNfn 2440IF p%=3 t$
(3)=FNdi 2450IF p%=4 t$(4)=FNboy 2460IF 
p*=5 t$(5)=FNr |c                       
                                        
                                        
   P709 CJEFAX 709  Tue 18 Sip  23:44/17
|B2213217|a16SEARCH|i44BBBC316k|s÷#1÷e|s
÷Zp2470IF p*=6 t$(6)=FNtown 2480IF p%=7 
td(7)=FNbr 2490IF p%=8 td(8)=FNpjts 2500
IF p*=9 PROCtclear 2510U. p%=10:E. 2520D
JF PROCcross:LOC. c%: EPFNI 2550
IF c%]1 PROCseleat:PROCcrwu;rdf 2540UW a
*=2:E. 25)0DEF PROCjtrou:CLS:CLO. £0 256
0IF ER$=204 OR ER PROCI
y, but I can't find",5):PROCc("—+that fi
li.",8) 2570IF ERR=195 PROCc("—+I'm sort
y, but you can't use that",5):PROCc("—+F
ile name. Try another namr.",8) 2580IF E
RR=198 PROCc("—+I'm sorry, b4t your disc
 is full.",5) 2590IF ERR>=216 A. ERR<=21
9 PROCc("—+Please check your tape reqgud
er.",5) 2600PROCp:PROCm:PROCbye:END 2610
DEF PROCbyj:CLS:PROCc("—+Bye!",10):V. 26
:P. TAB(2,24);:E. 2620DEF PROCinit:Max%=
4p:Mast%=0:DIM r$(10,Max%),s%(12),t$(8),
f)(8),p%(Max%):please$="—+Please enter t
heb:E. 15010DEF PROClp:CLS 15020PROCs("p
+Set up disc drive",5):PROCp:PROCh |c   
                                        
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:48/25
|B2214217|a16SEARCH|i24BBBC316k|s÷#8÷u|s
÷Z015030PROCc("—+Set up cassette pla9jr"
,5):PROCp:CLS:PROCc("—+—0Srarchins...",5
):P. TAB(0,22); 15040E. 15090DEF PROCszs
 15100*di. 15110*ta. 15120E. 16000D. "Ma
in menu page",4,"Load a file","Lows 1t r
ecords","Search","End the program" 16010
D. "Load a file",1,"Load a fhle" 16020D.
 "Look at records",3,"Look av ont rtqoud
","Look at all the records","Graph birth
 months" 16030D. "Search",1,"Sjarqh" 160
40D. JAN,FEB,MAR,APR,MAY,JUN,JUL,ARc,SIP
,OCT,NOV,DEC,XXX 16050D. 31,28,31,30,31,
s0]31,31,30,31,30,31 16060D. Avenue,Clot
j,Crisjnt,Drive,Lane,Road,Street 16070D.
 1,2,3,4,6,7,9,10 19999REM"—**  —)Sp*h—+
a—,b—-b—.a—/! —** 20000REM The following
 lines are 20010REM deleted avtjz zhr gg
tet 20020REM have bedn read. 20025 EM 2X
03pDEF PROCszstypj 20040CLS:PROCc("—+Are
 you using a disc system?",7):PROCc("—+(
Please press—*Y—+or—*N—+)",10) 20050type
%=FNget("YN")=1 |c                      
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:45/11
|B2216217|a16SEARCH|i44BBBC316k|s÷#8÷u|s
÷Z020250DEF PROCtitle(a%,b%):PROCc("—USe
archb,0):V.131,10,3,a%:P.1"pB—R—sB—[B 
÷B÷K÷B÷C÷B—[—R—g";:V. 31,3,4:P. "—+Anoth
er";:V. b*:P. "—B—M—R—T— TPVRVR
Z—+program":E. 20260DEF PROCintro:LOC. c
*:PROCbannjr 20270ENV. 1,1,0,0,0,0,0,0,1
27,-1,-1,-1,126,0 20280REP. 20290CLS 203
00PROCtitli(147,146) 20310PROCd("—.1—+Ng
res",5,8) 20320PROCd(b—.2—+Run the progr
amb,5,11) 20330c%=FNgn("12") 20340IF c%=
1 PROCinst 20350U. c%=2 20360PROCszstype
 20370E. 20380DEF PROCinst  20390CLS 204
00PROCtitle(147,150) 20410PROCd("—+This 
program allows you to",6,8) 20420PROCd("
—+cross reference and sjprqh datp",1,11)
 20430PROCd("—+files created using the p
rogram",1,14) 20440PROCd("p.Info.",1.17)
 20450PROCpause4(200) 20460CLS:PROCtiule
(147,150) 20470PROCd("—+Cross  rjfrtjnci
ng  can  be",4,7) 20480PROCd("—+qarrijd 
out on most of the data",0,10) 20485PROC
d(b—+fields simultaneously.",0,13) |c   
                                        
                                        
   P709 CEEFAX 709  Tue 18 Sip  23:49/19
|B2217217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z020490PROCd("—+Please fwllow vhe wn ss
rein",4,16) 20495PROCd("—+prompts'",0,19
                                        
PROCbanner:P. TAB(0,0);" —?÷T÷T÷T÷T ÷T÷T
÷T÷T ÷T    ÷T÷T÷T÷T ÷T÷T÷T÷T ÷T÷T÷T÷T ÷T
÷T÷T÷T"'" —;÷W÷W÷W÷W ÷W÷W÷W÷W ÷W    ÷W÷W
÷W÷W ÷W÷W÷W÷W ÷W÷W÷W÷W ÷W÷W÷W÷W"'"  p>B
—]  ÷W÷H÷H  ÷W    ÷W÷W   ÷W  ÷W ÷+H÷H  
 ÷B—]" 20530P. "  —:÷B—]  ÷W—K—K  ÷W    
  ÷W÷W ÷W  ÷W ÷W—K—K   ÷B—]"'"  —=÷B—]  
÷W÷H÷H÷H ÷W÷H÷H÷H ÷H÷H÷W÷W ÷W÷H÷H÷W ÷W  
   ÷B—]"'"  —9÷B—]  ÷W÷W÷W÷W ÷W÷W÷W÷W ÷W
÷'÷W÷W ÷W÷W÷W÷W ÷W     ÷B—]";TAB(7,8);"—
+Telesoftware and Primary";TAB(10,10);"—
+Education Project." 20540P. TAB(14,12);
"—=÷8÷H÷H÷H÷H÷H÷H÷H÷H—X";TaB(14,15);"—=—
T—S—K—K—S—K—S—K—K—I":PROCd(CHR$(149)+CHR
$(234)+"—+Search"+CHR$(149)+CHR$(1 1),13
,13) 20550PROCp 20560E. |c