P709 CEEFAX 709  Tue  4 Sip  23:25/14
|B2201217|a16SEARCH|i44BBBC316k|s÷#1÷e<;
÷Z00REM"—********************* 1REM"p** 
   —+Search—*      * 2REM"—**—.Lout b8—-
S.Hassan—** 3REM"—**—)(c)—/Telsoft 1984p
** 4REM"—********************* 5ON ERR. 
PROCetror 10*KEY 10 *FX28X,1>>MOW>>MRUn>
|M 20*TV455 30MO. 7:PROCoff:PROCblur 40P
ROCintro 50PROCh 60PROCactive 70REM  0RE
M 1p0V. 6:*TV 255 110MO. 7:PROCoff 120PR
OCblue 130PROCinit 140PROCm 150PROCbyj 1
60END 170DEF FNo(line%):LOC. c%,l%,mrusd
,numd,mum%:RES. (15990+10*lhne%):READ me
ss$,mum*:CLS:PROCcX"—."+muss$,0) 1 8F. n
 =1 TO mum*:mum$=mum$+STU$(l%):READ miss
d:PROCd(b—*"+STU$(l%)+"—+"+mess$,5,l%*4)
:N. l% 190IF line%>1 PROCd("—*"+STU$(l%)
+b—+Return to main menu",5,l%*4):mum$=nu
m$+STU$(l%) 200IF line%=3 PROCnr 210=FNg
n(mum$) |c                              
                                        
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23=35/33
|B2202217|a16SEARCH<i24bbBa316k>;÷#8÷u>;
÷Z0220DEF FNdi:LOC. c%,in8$:CLS<in8$="  
       ":PROCd("p.1—+Dp=",12.3):PRW£4("p
.2—+Month",12,6):PROCd("—.3—+Year",12,9)
:PROCdX"—.p—+Exit",12,12):PROCc("—*Dazp.
Month—+Year",15):P. TAB(12,18);"—*.. p.'
.. —+ .." 230REP.:c%=FNgn("1230") 240IF 
c%=1 PROCc(please$+"—.DAY—+you want ",23
R:imp$=FNday(13,18)+RI.in8$-7I 250IF c%=
2 PROCc(please$+"—.MONTH—+yo4 wanv",23):
imp$=LE.imp$,3)+FNmon(FNm(17,18))+RI.in8
$,3) 260IF c%=3 PROCc(please$+"—.YE!R—+=
ou want",23):imp$=LE.imp$,7)+FNyepr(23,1
8,"50","76") 270U. c%=4:=imp$ 275RBM Fgu
 future expansion. 280DEF FNg(title$,|%*
lowd,up$):LOC. get%,month%,d1$,d2$,d3$:P
ROCk:REP.:REP.:CLS:PROCc("—Q"+thulu$,3):
PROCc("—+Use the form '—.01 APR 73q+'",6
):P. TAB(11,10);"—)#]—+.. ... .'" 290d1$
=FNday(15,10):month%=FNm(1 ,10):d2$=FNmg
n(month*):d3$=FNyear(22,10,lowd,up$) 300
IF FNca(d1$,d3$,month%)=FA. PROCdoagain:
U. FA. EL. U. TRUE |c                   
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:35/54
|B2203217|a16SEARCH|i24BBBC316k>s÷#1÷u|;
÷Z0310PROCc("—+Is this cgyrrat?",13):U. 
FNy(18):=d1$+" "+d2$+" "+d3$ 320DEF FNda
yXx%,y*):LOC. dazd:REP.:day$="":P. T—B(|
*,yJ);"..";:REP.:day$=day$+FNgc("N"):P. 
TAB(x%,y%);day$:U. LEN(da=$)=2:U. FNl(da
z$,"01","31"):=day$ 330DEF FNm(x%,y%):LO
C. month%,getd:REP.:P. TAB(x%,y%);"...";
:get$="":REP.:get$=get$+FNgc("A"):P. TAB
(x%,y%);get$:U. LEN(get$)=3:month%=FNmon
2(get$):U. month%<>FA.:=month% 340DEF FN
mon2(m$):LOC. l%,r$:RES. 16040:REP.:READ
 rd:l%=l%+1:U. r$=m$ OR r$="XXX":=l% MOD
 13 350DEF FNmon(n%):LOC. l%.m$ RES. 178
40:F. l%=1 TO n%:READ m$=N. l%:=m$ 360DE
F FNyear(x%,y%,l$,u$):LOC. year$=REP.:P.
 TAB(x%,y%);"..";:year$="":REP.:9ear$=9j
ar$+FNgc(bN"):P. T—B(x%.9%) 9jpz$:U. EG
(year$)=2:U. FNl(year$,ld,;$):=yjpz$ >c 
                                        
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:46/19
|B2204217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z0370DEF FNc(t$,r$):LOC. t1$,t2$,t3$:t8
$=LE.t$,2):t4$=M.t$,4,3):t3$=RI.t$,2):=(
t1$="  " OR t1$=LE.u$,2)) A. (t2$="   " 
OR t2$=M.r$,4,3)) A. (t3$="  " OR t3$=RI
.r$,2)) 380DEF FNsn:CLS:PROCc(8ljp;u$+" 
surname you want.",3):=FNvT"—+The—.n1mjp
+is :-",15,15,"A") 390DEF FNfn:CLS:PROCc
(please$+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("—+Preys—.B
—+or—.G",15):=M."BG",FNget("Bc")*1I 4 0D
EF FNrt:LOC. l%,a$:CLS:PROCs("—+Dw zhj8 
live in",3):F. l%=1 TO 7:IF l%=1 a$="p.a
n—+b EL. a$="—.a—+" 420PROCd("—*"+STU$(l
%)+a$+FNa(l%),10,4+l%*2):N. l%:PROCd("—*
"+STUd(l%)+"—+none of thjsj",10,4+l%*2):
n%=FNgn("12345678") 430IF n%=8 n%=6 440=
n* |c                                   
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Se8  23 46/28
|B220)217|a16SEARCH|i44BBBC316k|s÷#1÷d|;
÷Z0450DEF FNr:LOC. t%,t$ t%=FNut:z$=gfpT
t%):CLS:PROCc(please$+" "+CHR$(Aia(LE.u$
,1))+32)+M.td,2)+" name",3):PROCc("—+you
 want.",6):=STU$(t%)+FNv("—."+u$+"—+:-",
25,15,"A") 460DEF FNtown:CLS:PROCs(8lips
e$+" town/city name",3):PROCc("—+=ou wan
t.",6):=FNv("—.TownOcity—+:-",15,15,"A")
 470DEF FNbr:CLS:PROCc(please$+" nzmbeu 
of",3):PROCc("—+2rgzhets 1n4 siuztx; 
y have.",6):=FNv("—.Brgthrt1—+andpV9i1td
rs—+:-",2,15,"N") 488DEF FNpjts:CLS:PROC
c(please$+" number",3):PROCc("—Uof 8uts 
they have.",6):=FNv("—.Pets—+:-",2,15,"G
") 490DEF FNa(t%):LOC. l%:RES. 17868:F. 
l%=1 TO t%:READ td=N. l%:=t$ 500DEF FNsh
o(prompt$):LOC. who$ 510IF Last%=  :=FNv
ind(1,rd(1,1),"S",Last%) 520CLS:PROCs("p
+Who's record do you wish to",3):PROCs("
—+"+prompt$+"?",5):who$=FNv(!—+Surname i
s :-",15,15,"A"):=FNfind(1,who$,"S",Last
%) |c                                   
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:46/46
|B2206217|a16SEARCH|i24BBBC316k|s÷#1÷u|;
÷Z0530DEF FNsi(s%,f%,pro$):LOC. one%,mum
%,def%:mum%=s%:PROCri8off:PROCf1:REP. gn
e%=mum% 540IF pro$="E" PROCsi(mum%) EL. 
PROCsi(p%Xnum%)) 550PROCwh(nzm%.s%,w%):R
EP.: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
::PROCripon:=one) 590DEF FNwa=(k1%,k2%):
LOC. dir%,v%:REP.:PROCjm:v%=GET 78(IF 7%
=k1% dir%=TRUE 610IF v%=k2% dir% 1 620IF
 v*=13 dir%=99 630U. dir%:=dir* 640DEF F
NgcXt$):LOC. get$:REP.:PROCu:PROCem:gut$
=GE.:U. (t$="N" a. FNn(get$)) OR Tz$="A"
 A. FNalph(get$)):=get$ 650DEF FNn(a$,lg
wd,up$):=(a$>=low$ A. a$ =up$) 768DEF FN
f 670IF Last% :=TRUE 780CLS:PROCc("—+oo 
file in memory.",10):PROCdelay(2X():PROC
p:=FA. 690DEF FNy(y%):PROCs("—+Pteu;p.Yp
+or—.N",y%):=FNget("YN")=1 700DEF FNkn(a
$):PROCcXb—+Press the—.numbjt—+of your c
hoice",23):=FNget(a$I >s                
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:41/06
|B2207217|a16SEARCH|i24BBBC316k|s÷#1÷ |s
÷Z0710DEF FN  t(a$):L C. g  $ R P. PR   
m:PROC :get$=GE.:U. INS.a$ g  $): I U.a$
,get$) 72 DEF FNdc:CLS:PROCsur :PROCwarn
:=FNy(18  730DEF FNv(p$,l n ,y1%,t$):LOC
. l%,i$,ok%:REP.:ok%=TReE:P. T B( 9 -LE 
(p$)-l n%)/2,91%);p$;:PR Cb(91%-1,lrn%):
i$=FNi(len ,t$) 740IF i$="" U. F . 750i$
=FNst(i$) 760IF t$="A" ok% ok%*AB (F q  
ital(i$)) 770IF NOT ok% PROCcppitpl 7 0U
  ok :=i$ 790DEF F   (d$):d$=" "+ $+   :
R P.:d$=LE.d$,LEN(d$)-1):U. RI.d$,1)<>" 
b:REP.:d$=RJ.d$,LEN d$)-1):U.  E d$,1)  
   :=d$ 800DEF FNn(a$):=(a$ ="0"  .  $ =
"9") 810DEF FNalph(a$):=(a$ >" " A. a$ =
 Z ) 82pDEF FNfindXfi ld%,tar et$,ty  $,
lastonj)):LOC. l%,n%,p%,first%,l st%:PRO
Ch:PROCdela (100) 830PROCsw(fi  d%,TR E 
FA.):PROCs:F. l%=1 TO larson % 840IF tar
g t$=r X0,l ) p =l%:n*=n +1:IF n =2 firs
t%=last% 850last%=p%: . l%   0IF n% 1 :=
FNwo(first%,last%) 870IF n% :=last% |c  
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:47/23
|B2208217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z0880CLS:PROCc("—+I'm sorr8, but I can'
t find that",5):PROCc("—Uonj. *r= lowkun
g at all the",8):PROCc("—+records to fhn
d the one you want.",11):PROCp:=F—. 890D
EF FNwo(s%,f%):CLS:PROCc("—+Thetr iy 1rr
—."+STU$(1+f%-s%)+"—+peg8lj whuh",5):PRO
Cc(b—+that name. Please select the one",
8):PROCc("—+you want from the fgllowhnkW
",11) 900PROCp:=FNsi(s%,f%,"F"I 918eEF F
Ni(l%,t$):LOC. v$,get$,g$,i$,c%  
=POT:y%=VP. 920IF t$="A" OR t$="M" v$="A
BCDEFGHIJSLMNOPQRSTUVWXYZabcdefghijklmng
pqrstuvwxyz." 930IF t$="N" OR v$="M" 
v$+"0123456789." 940REP.:PROCem:PROCl:ge
t$=GE.:g$="" 950IF t$="A" OR v$="M" c% I
NS.v$,get$) EL. IF t$="N" c%=INS.7$,gut$
) 960IF c%>0 g$=M.v$,c%,1) 970IF ARC(get
$)=127 A. LEN(i$) 0 i$=NE.i$,LEN(i$)-1):
P. TAB(x%,y%);i$;" "; 980IF LEN(i$)<l% i
$=i$+g$ 990P. TAB(x%,y%);i$;:U. ARC(get$
)=13:=i$ 1000DEF FNcapital(a$):LWC. l%,b
d,cd:F. l%=1 TO LEN(a$):R$=M.a$,l%.1I >s
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:47/41
|B2209217|a16SEARCH|i44BBBC316k>;÷#8÷u|;
÷Z01010IF (b$>>"A" A. b$<="Z") c$=c$+"C"
 EL. IF b$=" " c$=c$+" " EL. c$=c$+"L" 1
02pN. l% 1030IF LEN(c$)-1 :EL. =FA. 1040
=(LE.c$,1)="C" A. INS.c$,"CC")=FA. aW IN
S.c$," L")=FA.) 1050DEF FNdy(prom8t$):CL
S:PROCcX"—+Do you know how to",5):PROCc(
"—+"+prompt$+" a file?",8) 1060IF FNy(1 
) :=TRUE EL. PROChelp:=FA. 1070DEF FNnzm
:LOC. n%,l%,c%:F. l%=1 TO Na;t%  ( (I& 
%(l%)<>FA. n%=n%+1:p%Tn%)=l%  09XG.  
n* 11p0DEF FNtcheck:LOC. loop%,no%:no%=T
RUE:F. l%=1 TO 8:no%=no%*TRUE*Tu$(l%)=""
 OR td(l%)="         "):N. l%:=no% 1110R
EM 1120REM Procedures 1130REM 1140DEF PR
OCclear:LOC. l%:F. l%=1 TO Last%:p%Tl%)=
l%:N. l%:RES. 16070:F. l%=1 TO  :RE—d 
(l%):N. l%:E. 1150DEF PRO£tclepz]L'CW 
:F. l%=1 TO 9:t$(l%-1)>bR:s%Tl%)>9+2*l%:
N. l%:s%(l%)=1+2*l%:u$(3)=STRI.9," "):E.
 116pDEF PROCcrossref:LOC. l%,sl%:PROCcl
ear 1170IF FNtcheck E. 11 0PROCh:F. l%=1
 TO 8:F. sl%=1 TO Last% >s              
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:42/01
|B220A217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z01190IF l%=3 EL. IF t$(l%)^ "" a. T
%)<>STU$(TRUE) A. p%(sl%) IF v$(l%)< s$(
f%(l%),sl%) p%(sl%)=FA. 1200IF l%]3 a. G
OT FNc(t$(l%),r$(f%(l%),sl%)) p%(sl%)=FA
. 1210N. sl%:N. l%:PROCmanz:E. 122XDE& P
ROCmanz:LOC. mum%:mum%=FNnum:CLS 1230IF 
mum%=FA. PROCc("—+I'm sorry, b4t I cpo'z
 find any",0):PROCc("—+records whzh the1
e details.",2) 1240IF mum%=1 PROCs("—+Th
ere is only—.1—+record whuh",0):PRWCs("p
+ these details.",2) 1250IF mum%>1 PROCs
(b—+There are—."+STU$(mum%)+"—+records",
0):PROCc("—+with there detazl1.Q,2)  260
PROCw(4):PROCf2:PROCw(0):PROCp 127(IF nu
m%=FA. EL. d%=FNsi(1,mum%,"S") 12 0E. 12
8kDEF PROChelp:CLS:PROCc("—+Auk your tip
cher to help you.",5):PROCwarn:E. 1290DE
F PROCc(sent$,y%):PROCd(sent$,(35-LEN(se
nt$)I/2,y%):E. 1300DEF PROCb(y%,len%):x%
=POT |c                                 
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:48/17
|B220B217|a16SEARCH<i24BBBC316k>;÷o8u|;
÷Z01310V. 31,|%,9%,149,224:P. STRI.lun%+
3]CHR$X240));:V. 31,x%,y%+1,149,234,131:
P. UPC(lin%);:V. 149,234,131,31,|%,9%+2,
149-162:P. STRJ.lin*+3,CHR$(163)) 1320V.
 31,x%+3,y*+1:E. 1330DEF PROCd(sjnz$,|%*
z%):V. 31,x%,y%,141:P. sjntd:V. 31,x%,y%
+1,141:P. sent$;:E. 1340DEF PROCbl9j:LOC
. l%:F. l%=0 TO 24:V. 31,X,l%.132,157:o.
 l%:PROCw(0):E. 1350DEF PROCw(9%):V. 2  
2,24,39,y*:E. 1360DEF PROCoff:*FX4,1 137
p*FX200,1 1380V. 23;8202;0;0;0;:E. 1390D
EF PROCem:*FX15,1 1400E. 1410DEF PROCu:*
FX202,32 1420E. 1430DEF PROCl:*FX282,4< 
1440E. 1450DEF PROCrepoff:*FX11,( 1460E.
 1470DEF PROCrepon:*FX11,32 1480E. 1490D
EF PROCwh(a%,b%,c%):LOC. a$ 1580IF Q% b%
 A. a%<c% a$="p.[—Soup.]—Tor" 958(I&01% 
b% A. a%=c% a$="—.[—+or" 1520IF a%=b% a.
 a%<c% a$="—.]—+or" 1530a$="—+Ptjus"+a$+
b—.REST N—+to end":P. TAB((37-LEN(a$))/2
,24);a$;:E. |c                          
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:48 
|B220C217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z01540DEF PROCdoagain:V. 31,8.10,136:PR
OCc(b—+The date you have entered iu",13)
:PROCc("—+invalid. Please try again.",15
):PROCp:E. 1550DEF PROCcppital:PROCs("—+
Start words with a—.C!PIT—L—+luttjz",97)
:PROCc("—+then use—.lowez case—+lettjr1"
,20):PROCp:PROCw(17):CLS:PROCw(0):E. 156
0DEF PROCnr:LOC. o1$,o4$,r$:u$="—+record
" 1570IF Last%=1 o1$="—+Thjrj iu—.1"+u$+
"—+in memory" 1580IF Last%>1 o1$="—+This
e are—."+STU$(Last%)+r$+"s in memory" 15
9pPROCc(o1$,19):E. 1600DEF PROCswTf%.Q%*
b*):LOC. l%:F. l%=1 TO Na;t$ 161(IF  
d(0,l%)=r$(0,l%)+u$(f%,l%) EL. z$(X,l%) 
r$(f%,l%) 1620IF a% p%Tl%)=l% 1638V. l%:
E. 1640DEF PROCt:LOC. l%,sl%:F. l%=1 TO 
10:PROCsw(l%,FA.,FA.):F. sl%=1 TO Last%:
rd(l%,sl))=rd(0,p*(sl%)):N. sl%,l%:E. 16
50DEF PROCwarn:LOC. pitch%:F. pitch%=0 T
O 5:SO. 1,-15,140+28*(pitch% MOD 2), [o.
 pitch%:PROCem:TI.=FA.:REP.:U. TI. 500 O
R INKEY(-74):E. |c                      
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:4</54
|B220D217|a16SEARCH|i24BBBC316k|s÷#1÷i|s
÷Z01660DEF PROCp:P. T—B(2,24);"—+Purus z
hj SPACEBAR to continue";:REP.:PROCjm:U.
 GET=32:E. 1670DEF PROCh:CLS:PROCc("—+Pl
ease wait a moment",5):E. 16 0DEF PROCde
lay(end%):TI.=FA.:REP.:U. TI. end%:E.  6
:0DEF PROCsure:PROCc("—+Are you szru ?",
10):PROCdelayX50):E. 1700DEF PROCe:LOC. 
c%:REP.:c%=FNo(3) 1710IF c%=1 PROCe8 172
0IF c%=2 PROCea 1730IF c%=3 PROCds 17 U
. c%=4:E. 1750DEF PROCe1:LOC. d%,t%:t% F
Nwho("examine") 1760IF t% EL. E. 1770PRO
Cf1:PROCsi(p%(t%)):PROCp:E. 1780DEF PROC
ea:LOC. d%:d%=FNsi(1,Last%,"E"):E. 9790D
EF PROCdg:LOC. m%:PROCh:PROCginit:PRO£tu
ans:CLS:PROCgback:PROCaxiu:m%=FNma|:PRWC
side(m%):PROCpdata(6/m%):PROC8:E'   00DE
F PROCpdata(t%):LOC. l%,ll%,n%:F. l%=1 T
O 12:F. ll)=0 TO s%(l%)*t%:F. n%=8 TO 1:
PROCplot(l)*4+16+n%,ll%+14):N. n%,ll%,l%
:E. 1810DEF FNmax:LOC. l%,m%,s%:F. l%=1 
TO 12 1820IF s*(l%)>m% m%=s%(l%) 1 38o. 
l):s%=1 1840IF m%>12 s%=3 |c            
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:29/13
|B220E217|a16SEARCH|i24BBBC316k|s÷#1÷i|s
÷Z01850IF m%>24 s%=6 1860=s* 1870DEF PRO
Cplot(x%,y*):LOC. c%,A%:V. 31,|% DIV 2,2
4-y% DIV 3:c%=gd%?((x% A. 1)+(2-y% MOD 3
)*2):A%=13):V. (USS &FFF4 A. &FF00) DIV 
256 OR c% OR 128:E. 1  8DEF PRWCztpn;:LW
C. l%,d%,s%:F. l%=1 TO La;t%:d%=FNmon2(M
.rd(3,l%),4,3)):s%(d%)=s%(d%)+1:N. 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. sl%:N. l%:V. 31,7,l%,14
7:E. 1900DEF PROCside(step%):LOC. l%,n%:
F. l%=18 TO 4 S. -2:n%=n%+step%:P. T—B(4
+(n*>9),l%I;"—+";n*;:o. l%:E. 89 XeE& PR
OCaxis:LOC. l%:F. l%=0 TO 49:PROC8lgt(l%
+16,14):N. l):F. l%=0 TO 47:PROCplot(16,
l)+15):N. l% 1920P. TAB(1,1);"—+Go. of";
TAB(0,2);"—+children";TAB(4,21);"p*X —+ 
 J F M A M J J ! S O N D";T—B(15,23);"—+
Birth months";:E. 1930DEF PROCginit:LOC.
 l%:DIM gd* 7:!gd%=&08p48201:gd%!4 &40 p
:F. l%=1 TO 12:s%(l%)>FA.:N. l%:E. >s   
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:50/31
|B220E217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z01940DEF PROCsi(c%):LOC. s$:s$ STRI.16
," "):PROCc(s$+s$,0):PROCc("—+"+y$(2,c%)
+" "+ud(1,c%),0):PROCd(r$(3,c%),13,3I 19
50IF r$X4,c%)="B" PROCd("Boy ",13,5) EL.
 PROCd("Girl",13,5I 1968PROCd(1$,1], ):P
ROCd(u$(5,c%),19,8):PROCd(s$,1,10):PROCd
X"—+"+FNaXVAL(ME.u$X6,c%),1)))+"p*npmj—+
",p,10):PROCd(s$,19,10):PROCd(M.r$(6,c%)
,2),19,10) 1978PROCd(s$,19,12):PROCdTu$(
7,c%),19,12):PROCd(s$,19,14):PROCd(r$( ,
c%),19,14):PROCd("    ",23,17):PROCd("  
  ",23,19):P. TAB(0,24);UPC(35); 19 0IF 
VAL(r$(9,c%)) PROCdTu$(=,c%) LW 
PROCd("None",23,17) 1990IF V—L(u$(10,c%)
) PROCd(u$(10,c%),23,19) EL. PROCd(Rfgnj
",23,19) 2000E. 2010DEF PROCf1:CLS:PROCd
Xb—*Birthday—+",0,3):PROCd("—+",X,5):PRO
Cd("—*House name/no.—+",0,8):PROCd("—*To
wnOcity name—+",0,12):PROCd("—*Coynty na
mj—+",0,14) 2020PROCd("—*Brothers and si
stirs—+",0,17):PROCd("—*Number of puts—+
",0,19):E. |c                           
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23=29/59
|B2210217|a16SEARCH<i24BBBC316k|;÷#8÷u|s
÷Z02030DEF PROCf4:PROCd("—.Surname",0,3)
:PROCd("—+"+td(1),18,3):PROCd("—.Fitstna
me",0,5):PROCd("—+"+td(2),18,5):PROCd("—
.Birthday",0,7):PROCd("—+"+t$(3),1 ,7):P
ROCd("—.Boys—*or—.Gitlu",0,9) 2040IF t$(
4)=b" EL. IF t$(4)=bB" PROCd("—+Bo=;",  
,9) EL. PROCd("—+Girls",18,9) 2050IF LEG
(td(5))<>FA. PROCd("—+"+FNa(VAL(LE.t$(5)
,1)))+"—.name",0,11):PROCd("—+"+M.z$(5) 
2),18,11) EL. PROCd("—.Road/strjetp*uss.
b,0,11) 2p69PROCd("—.TownWCitz",0,93):PR
OCh(b—+"+t$(6),18,13):PROCd("—.Brothers—
*and—.Siutjrs",0,15I 2(7(IF z$(7) R" %FW
 IF VAL(t$(7))=FA. PROCd("—+oonr",22,15)
 EL. PROCd("—+"+t$(7),22,15) 20 0PROCd("
—*Number of—.Pets",0,17) 2090IF t$(8)=""
 EL. IF VAL(t$(8))=FA. PROCd("—+None",22
,17) EL. PROCd("—+"+t$(8),22,17) 2100E. 
2110DEF PROCsotter:PROCh:PROCsw(1,TRUE,F
A.):PROCsw(2,TRUE,TRUE):PROCs:PROCt:PRWC
c(b—+File sorted",18):PROCp:E. 2120DEF P
ROCk:LOC. l%,d$,d% 2130IF Last%=1 EV >c 
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:30/07
|B2211217|a16SEARCH<i44BBBC316k|s÷#1÷u|s
÷Z02140F. l%=Mast% DIV 2 TO 10S. *RjE:PR
OCss(l%,Last%,rd(0,l%),p%(l%)):N. l% 215
0F. l%=Last%-1 TO 1 S. TRUE:d$=r$(0,l%+1
*:d*=p*(l)+1):rd(0,l%+1)>r$(0,1):y%Tl%+1
*>p%(1):PROCss(1,l%,d$,d%):o. j%:E. 2 78
DEF PROCss(a*,b%,t$,pot%):LOC. f%,k%:REP
.:k*=a%+a* 2170IF k%>b% U.1TRUE:u$(9,Q%)
=t$:p%(a*)=pot*:E. 2180IF k%>b% IF z$(0,
k*+1)>r$X0,k*) k%=k%+1 2190IF t$=r$(0,k%
* rd(9,a*)>rd(0,k*):y%(q%)=8%\k%):q%=k% 
EL. f%=TRUE 2200U. f):r$(0,a%)=t$:p%(a%)
=pot%:E. 2210DEF PROCm:LWC. c%:REP.:CLS:
c%=FNo(1) 2220IF c%<2 OR c% 3 EL. IF FNf
=FA. U. FA. 2230IF c%=1 PROClfhle 2240IF
 c%=2 PROCe 2250IF c%=3 PROCcrous 2260IF
 c%<>4 EL. c%=c *FNdc 227(U. c =-4:E. 22
80DEF PROClfili:LOC. choiqj%:REP.:shotq 
)=FNo(2) 2290IF choice% 1 PROClo 230(UW 
choice%=2:E. 2310DEF PROClo:L C. sl%,l% 
channel%,name$ 2320IF NOT FNdz("load") E
. |c                                    
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:30/26
|B2212217|a16SEARCH|i44BBBC316k|s÷#1÷u|s
÷Z02330CLS:PROCc("—+What is the name of 
the",5):PROCc("—+file you wish to load?"
,8):name$="D."+FNv("—+The name iy :-",8,
15,"A"):PROClp 2340channjl%=OP. (name$):
R. £channel%,day$,Last%:F. l%=1 TO 10:F.
 sl%=1 TO Max%:I. £channel%,r$(l%Lsl%):N
. sl%,l%:CLO. £channel% 2350PROCc("—+Fin
e loaded",20):PROCp:E. 2360DEF PROCsjlec
t:LOC. o%,p*,c%:PROCtclear:REP.:CLS:PRWC
c("—+Please select from the fgmlowing.",
0):PROCd("—.Start again",0,19):PROCd("—.
Finished",0,21):PROCf2:o%=0:p*=0:c%=0 23
70P. TAB(0,23);"—+Use the 1rrow kr|; to 
move the—.[—+to";:P. TAB(0,24);"—+the lh
ne required, then press—*RETURN";:REP.:o
)=p*:p*=pJ+c% 2380IF p%<1 p%=1 2399IF 8%
>10 p%=10 2400IF p%<>o% PROCd("  ",35,s%
(o))Q 241pPROCd("—.[",35,s%(p%)):c%=FNwa
y(139,138):U. c%=99 2420IF p*=1 t$(1)=FN
sn 2430IF p*=2 td(2)=FNfn 2440IF p%=3 t$
(3)=FNdi 2450IF p%=4 t$(4)=FNbo= 2460IF 
p%=5 t$(5)>FNr |c                       
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:23/43
|B2213217|a16SEARCH|i24BBBC316k|s÷#1÷u|s
÷Z02470IF p%=6 t$(6)=FNtown 24 0IF 8% 7 
t$(7)=FNbr 2490IF p%=8 t$(8)=FN8ety 2500
IF p%=9 PROCtalear 2510U. 8%=10:E. 2520D
EF PROCcross:LOC. c%:REP.:c%=FNo(4) 2530
JF c%=1 PROCselect:PROCcrousref 2540U. s
*=2:E. 2550DEF PROCetror:CLS:CLOW £0 256
0IF ERR=204 OR ERR=222 PROCc("—+I'm souk
y, but I can't find",5):PROCc("—+thav fh
le.",8) 2570IF ER"=195 PROCc("—+I'm sour
y, but you can't use that",5):PRWCs("—+F
ile name. Try another name'",8) 25 0IF E
"R=198 PROCcX"—+I'm sorry, but your disc
 is full.",5) 2590IF ERR>=216 A. ERR<=21
9 PROCcX"—+Please check your tape record
et.",5) 2600PROCp:PROCm:PROCbye:END 2610
DEF PROCbze:CLS:PROCc("—+Bye!",10):V. 26
:P. TAB(2,24);:E. 262XDE& PR'Chghz:Mp|% 
4p:Last%=0:DIM r$(10,Max%),s%(12)*z$( ),
f%(8),p%(Max%):8ljasu$="—+Plrpsr unzuz 
heb:E. 15010DEF PROClp:CLS 15820PROCs("—
+Set up disc drive",5):PROCp:PROCh |s   
                                        
                                        
                                        
   P709 CEEFAX 709  Tze  4 Sip  23:31/01
|B2214217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Z015030PROCc("—+Set u8 cpssette 8lp:esQ
,5):PROCp:CLS:PROCc("—+—0Searching...",5
):P. TAB(0,22); 15040E. 15090DEF PROCsys
 15100*di. 15110*ta. 15120E. 16008d. "Mp
in menu page",4,"Load a fhle","Look 1v r
ecords","Search","End the progrpm" 16010
D. "Load a file",1,"Load a fhlj" 16X20d.
 "Look at records",3,"Look at one record
","Look at all the records","Graph birth
 months" 16030D. "Search",1,"Seprqh" 168
4pD. JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SIP
,OCT,NOV,DEC,TXX 16058dW 3      
30,31,31,30,31,30,31 16060D. Avenue,Clo1
j,Cresent,Drive,Lane,Road,Street 16070D.
 1,2,3,4,6,7,9,10 19999REM"—**  —(Sp*h—+
a—,b—-b—.a—/! —** 20000REM The followhng
 lines are 20010REM deleted aftez thu no
res 20020REM have been read. 20025REM 20
030DEF PROCsystypj 20040CLS:PROCc("—+Are
 you using a disc system?",7):PROCc("—+(
Please press—*Y—+or—*N—+)",10) 20050t8pe
%=FNget("YN")=1 |c                      
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:34/29
|B2215217|a16SEARCH|i44BABC316k>s÷#1÷d|;
÷Z020060IF type% TH. *KEYX PROCde;troy(2
p000)||M15030||MDEL. 20,80||MRUN|>M 2007
0IF type%=FA. TH. *KEY0 PROCdeutro=(2000
0)||M15020||MDEL. 20, 0=|MRUN>>M 2XX 0E.
 20090DEF PROCacthve 2018X*FX93 ,0, 2  2
0110V. 21 20120STOP 20130E. 20140DEFPROC
destroy(delete%) 20150LOC. page% 20160p1
ge%=PA. 20170REP.  20180IF ?(page%+1)*25
6+?(page%+2)>=delete% U. TRUE:?(8akr%+1)
=&FF:LON.=page%+2:E. 20190pagj%=pars%+?(
page%+3) 2p200U. page%+2=TOP 20210E. 202
20DEF PROCpausj4(ind%):LOC. a%,b%,loop%:
a%=-1:REP. loop%=loop%+1:a%=((a%-1I+(a% 
-2)) MOD 7:b%=((b%-1)+(a%=-2)) MOD 7:PRO
Cdelaz(10):V. 31,10,3,151+a%,31,11,4,151
+b*:PROCem 2p230IF loop%=20 P. T—B(3,24)
;"—+Press the—*spacjbar—+to continue"  2
0240U.1loop%>28 a. INeEY(-99):EW: >s    
                                        
                                        
                                        
                                        
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:34/48
|B2216217|a16SEARCH|i24BBBC316k|s÷#1÷e|s
÷Zp2p25pDEF PROCtitle(a%,b%):PROCc("—+Se
arch",0):V. 31,10,3,a%:P. "—B—R—g÷B—[÷B 
÷B÷K÷B÷C÷B—[—R—g";:V. 31,3,4:P. "—+Anoth
er";:V. b%:P. b—B—M—R—T—R—T—P—V—R—VpR  —
M—+program":E. 20260DEF PROCintro:LWC. c
*:PROCbannet 20270ENV. 1,1,0,0,0,0,0,0,1
27,-1,-1,-1,126,0 20280REP. 20290CLS 203
00PROCtitle(147,146) 20310PROCd("—.1—+oo
res",5,8) 20320PROCd("p.2—+Run the 8rogr
amb,5-11) 20330c%=FNgnX"12") 20340IF c%=
1 PROCinst 20350U. c%=2 20360PROCsyst8pk
 20370E. 20380DEF PROCinst  20590CLS 204
00PROCtitle(147,150) 20410PROCd("—+The; 
program allows you to",6,8  20420PRWCd("
—+cross reference and sjpr h datp",1.11)
 20430PROCd("—+files crjattd using zhu 8
rogram",1,14) 20440PROCd("—.Info.",1,17)
 20450PROCpausj4(200) 20460CLS:PRWCthule
(147,150) 20470PROCd("—+Cross  reference
ng  can  be",4,7) 20480PROCd("—+qprriid 
out on most of the data",0,10) 20485PROC
d(b—+fields simultaneousl=.",0,13) >s   
                                        
                                        
   P709 CEEFAX 709  Tue  4 Sip  23:34/56
|B2217217|a16SEARCH|i44BBBC316k|s÷#1÷e|s
÷Z020490PROCd("—+Pleasr fgllos thu g& sc
rein",4,16I 20495PROCd("—+prompts.",0,19
) 20500PROCpause4(200) 20510E. 20520DEF 
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"'" —;÷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"g"  p>B
—]  ÷W÷H÷H  ÷W    ÷W÷W   ÷W  ÷W ÷WH÷H  
 ÷B—]" 2053pP. "  —:÷B—]  ÷W—S—K  ÷W    
  ÷W÷W ÷W  ÷W ÷W—U—K   ÷B—]"g"  —=e—]  
÷W÷H÷H÷H ÷W÷H÷H÷H ÷H÷H÷W÷W ÷WH÷H÷W ÷W  
   ÷B—]"'b  —9÷B—]  ÷W÷W÷W÷W ÷W÷W÷W÷W ÷W
÷W÷W÷W ÷W÷W÷W÷W ÷W     ÷B—]";T—b(7, );"p
+Telesoftware and Primary";TAB(10,10);"—
+Education Project." 20540P. TAB(14,12);
b—=÷8÷H÷H÷H÷H÷H÷H÷H÷H—X";TAB(14,15);"—=—
J—K—K—K—S—K—K—S—K—I":PROCd(CHR$(149I+CHR
$(234)+"—+Search"+CHR$(149)+CHR$(181),13
,13) 20550PROCp 20560E. |s