P708 CEEFAX 708  Tue 18 Sip  23:36/59
|B2214216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
p20160pagj%=PA. 20170REP.1 20180IF ?(pag
e%+1)*256+?(page%+2)>=delete% U. TRUdY?(
page)+1)=&FF:LON.=page%+2:E. 20190page%=
page%+?(page%+3) 20200U. page%+2=TOP 202
20E. 20220DEF PROCpause4(ind%):LOC. a%,b
%,loop%:a%=-1:REP. loop%=loop*+1:a%=((a%
-1)+(a%=-2)) MOD 7:b%=((b%-1)+(b%=-2)) M
OD 7:PROCdelay(10):V. 31,10,3,159+a%.31,
21,4,151+b*:PROCjm 20230IF loop%=20 P. T
AB(3,24);"—+Prius the—*spacebar—+tw cont
inri"; 20240U. loop%>20 A. INKEY(-99):E.
: 20250DEF PROCtitle(a*,b%):PROCc("—+Inf
ob,0):V. 31,10,3,a%:P. "—B—R—g÷B—[÷B ÷B÷
K÷B÷C÷B—[—R—g";:V. 31,3,4:P. "—+Another"
;:V. b*:P. "—B—M—R—T—R—T—P—V—R—V—R  —M—+
program":E. 2X260P. "—+Anothur";:V. b%,1
54:P. b—M—$—T—R—T—P—V—R—V—R  —M";:V. 132
:P. "—+program":E. 20270DEF PRWCintrg:LO
C. c):PROCbannjr 20280ENV. 1,1,0,0,0,0,0
,0,127,-1,-1,-1,126,0 20290REP. 20300CLS
 20310PROCtitle(147,146) 20320PROCd("—.1
—+Notes",5,8) |c                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:37/17
|B2215216|a14INFO|i24BBBC316k|s÷#1÷i|s÷Z
020330PROCd("—.2—+Run the program",5,11)
 20340c%=FNgn("12") 20350IF c%=1 PROCins
t 20360U. c%=2 20370PROCszstypj 20380E. 
20390DEF PROCinst  20400CLS 20410PROCtit
le(147,150I 20420PROCd("—+This prwgrpm ;
totes up to—.40",3,6) 20430PROCd("—+rico
rds and producer file1 for",1,9I 2(440PR
OCh("—+interrogation bz  the  program",1
,12) 20445PROCd("—.Search.",1,15) 20450P
ROCd("—+Please  follow the on screen",3,
18) 20455PROCd("—+prompts.",1,21) 20460P
ROCpausj4(200I 20470E. 20480DEF PRWCbann
er: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 ÷W÷H÷H   ÷B—]" >
c                                       
                                        
                                        
                                        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:31/30
|B2202216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
p250DEF FNfn:CLS:PROCc(please$+"youz fhu
st name.",3):=FNv("—+Yourp.name—+iu :-",
15,15,"A") 260DEF FNb:=FNg(please$+"your
 date of birth.",2,"70","81"I 270DEF FNb
oy:CLS:PROCc("—+Please tell me if you ar
e a Boy",3):PROCc("—+or a Girl.",6):PROC
cXb—+0tiss—.B—+or—.G",15):=M.bBG",FNgjt(
"BG"),1) 280DEF FNh:CLS:PROCc(pljpsu$+"=
our house",3):PROCc("—+name/number.",6):
=FNv("—+Your—.house—+:-",15,15,"M") 290D
EF FNrt:LOC. l%,a$,n%:CLS:PROCc("—+Do yo
u live in",3):F. l%=1 TO 7 295IF l%=1 1$
=b—.an—+" EL. a$="—.a—+" 296PROCdT"p*"SS
TR$(l%)+a$+FNa(l%),10,4+l%*2):N. l%:PROC
d("—*"+STU$(l%)+"—+none of these",10,4+l
)*2):n%=FNgn("12345678") 300IF n%=8 n%=6
 305=n% 310DEF FNr:LOC. t%,t$:t%=FNut:CL
S:PROCc(please$+"your",3):t$=FNa(t%):PRO
Cc(b—+"+CHR$(ARC(LE.td,1)I+32)+M.t$,2)+"
 name.",6):=STU$(t%)+FNv("—."+t$+"—+:-",
1k,15,"A") |c                           
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:31/58
|B2203216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
0320DEF FNtown:CLS:PROCc(please$+"your t
own/city name.",3):=FNv("—.TownOcity—+:-
",15,15,"A") 330DEF FNc:CLS:PROCc(8leasj
$+"your county name.",3):=FNv("—.Co4nt8—
+:-",15,15,"A") 340DEF FNbr:CLS:PROCs(8n
ease$+"how many brozhets",3):PROCc("—+an
d sisters you have.",6):=FNv("—.Brother1
—+and—.sisters—+:-",2,15,"N") 350DEF FN8
est:CLS:PROCc(please$+"how ",3):PROCc("—
+many pets you have.",6):=FNv("—.Pets—+:
-b,2,15,"N") 360DEF FNa(t%):LOC. l%:RES.
 16060:F. l)=1 TO t%:READ t$:N. l%:=t$ 3
70DEF FNwho(prompt$):LOC. who$ 380IF Lat
t%=1 :=FNfind(1,r$(1,1),"S",Mast%) 390CL
S:PROCc("—+Whose record do you wish to",
3):PROCc("—+"+prompt$+"?",5):who$=FNv("p
+Surname iu :-",15,15,"A"):=FNfhnd(1,who
$,"S",Last%) 400DEF FMs(s%,f%,pro$):LOC.
 one%,mum*,def%:mum%=s%:PROCrepoff:PROCf
ields:REP. one%=mum% 410IF pro$="E" PROC
siXnum%) EL. PROCsi(p%Tnum%)) |c        
                                        
                                        
                                        
   P708 CEEFAX 7p8  Tue 18 Sip  23:52/11
|B2204216|a14INFO|i24BBBC316k|s÷#1÷e|sZ
0420PROCwh(mum%,s%,f%):REP.:def%=FNwa=(1
36,137):mum%=mum%+def% 430IF mum%>f% mum
%=f% 440IF mum%<s% mum%=s% 450U. def%=99
 OR mum%<>one%:U. def%=99:PROCrepon:=gnj
* 4v0DEF FNwaz(k1%,k2%):LOC. dir%,v%:REP
.:PROCem:v*=GET 470IF v%=k1% dir%=TRUE 4
8pIF v%=k2* dir%=1 490IF v%=13 dir%=99 5
00U. dir%:=dir% 510DEF FNg(title$,x%,low
$,up$):LOC. get%,month%,d1$,d2$,d3$:PROC
u:REP.:REP.:CLS:PROCc("—+"+thuld$,3):PRO
Cc(b—+Use the form '—.01 APR 73—+'",6):P
. TAB(11,10);"—)#]—+.. ... .. " 520d1$=F
Nday(15,10):month%=FNm(18,10):d2$=FNmon(
month%):d3$=FNyear(22,10,low$,u8$) 550IF
 FNca(d1$,d3$,month%)=FA. PROCdoagain:U.
 FA. EL. U. TRUE 540PROCc("—+Is this cgu
sect?",13):U. FNy(18):=d1$+" "+d2$+" "+d
3$ 550DEF FNdaz(x%,y%):LOC. da=$:REP.:da
y$="b:P. TAB(x%,y%);"..";:REP.:day$=day$
+FNgc("N"):P. TAB(x%,y%);day$:U. LEN(da=
$)=2:U. FNl(day$,"01","31"):=da=$ >s    
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:32/29
|B2205216|a14INFO<i24BBBC316k|s÷#1÷e|sZ
0560DEF FNm(x%,y*):LOC. month%^gezd:REP.
:P. TAB(x),y%);"...";:get$="":REP.:gru$=
get$+ENgc("A"):P. TAB(x%,y%);get$:U. LEN
(get$)=3:month%=FNmon2(get$):U. month%>>
FA.:=month* 57pDEF FNmon2(m$):LOC. l%,r$
:5ES. 16070:REP.:READ rd:l%=l%+1:U. r$=m
$ OR r$="XXX":=l% MOD 13 580DEF FGmgn(n%
):LOC. l%,md:RES. 16070:F. l%>1 TO n%:RE
AD md:N. l%:=m$ 590DEF FNyjar(}%.y%,l$,;
$):LOC. year$:REP.:P. T—B(x%,9%);"..";:=
ear$=b":REP.:year$=year$+FNgc("N"):P. TA
B(x%,y%);year$:U. LEN(year$)=2:U. FNl(9e
ar$,l$,u$):=year$ 600DEF FNgc(t$):LOC. g
et$:RIP.:PROCu:PROCem:get$=GE.:U. (t$="N
" A. FNn(get$)) OR (t$="A" A. FNpl8h(kit
$)):=get$ 610DEF FNl(a$,lou$,up$):=(a$>=
low$ A. a$<=up$) 620DEF FVca(a$,b$,mgnvh
I):LOC. l),day%,a%:RES. 16080:F. l%=1 TO
 month*:READ day%:N. l%:a%=XoAL(b$) MOD 
4=0) A. (month%=2):=(VAL(a$)+a%<=day%) 6
30DEF FNf 640IF Last% :=TRUE |c         
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:45/57
|B2206216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
0650CLS:PROCc("—+No file in mjmor=.",10)
:PROCdjlaz(200):PROCp:=FAV 768DEF Ff8(=%
):PROCc("—+Prius—.Y—+or—.N",y%):=FNgut("
ZN")=1 670DEF FNgn(a$):PROCc("—+Prey; zh
e—.number—+of your choice",23):=FNket(a$
R 680DEF FNget(a$):LOC. get$:REP.:PROCem
:PROCu:get$=GE.:U. INS.a$,get$):=INS.a$,
get$) 690DEF FNdc:CLS:PROCsuri:PROCwprn:
=FNy(18) 700DEF FNv(p$,lin%,y9%,t$):LWC.
 l),i$,ok*:REP.:ok*=T"UE:P. TAB((32-LEN(
p$)-len*)/2,y1%);p$;:PROCb(91%-1,lrn%):i
$=FNi(len*,t$) 710IF i$="" U. FA. 720i$=
FNst(i$) 730IF t$="A" ok*=ok%*ABS(Ffqp8i
sal(i$)Q 740 F NOT ok* PROCcapital 750U.
 ok*:=i$ 760DEF FNst(d$):d$=" "+d$+b ":R
EP.:d$=LJ.d$,LEN(d$)-1):U. RI.d$,1)< " "
:REP.:d$=RI.d$,LEN(d$)-1):U. LE.d$,1)< "
 b:=d$ 770DEF FNn(a$):=(a$>="0" A. a$<="
9") 780DEF FNalph(a$):=(a$>="A" A. a$<="
Z") 790DEF FNfind(fiuld%,target$,t=8j$,n
astonj%):LOC. l%,n%,p%,first%,lpst%:PROC
h:PROCdjlay(100) |c                     
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:33/05
|B2207216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
08p0PROCswXfield%,TRUE,FA.):PROCs:F. l%=
1 TO lastonj% 810IF target$=r$(0,l%) p%=
l):n*=n*+1:IF n%=2 first%=last% 820lpst%
=p*:N. l% 830IF n%>1 :=FNwo(first%,lpst%
* 840IF n% :=last% 850CLS:PROCc("—+I'm s
orry, but I can't find that",5):PROCc("—
+one. Try looking at all the",8):PROCc("
—+records to find the one you want.",11)
:P5OCp:=FA. 860DEF FNwo(s%,f%):CLS:PROCc
Xb—+There is are—."+STU$(1+f%-s%)+"—+peg
ple with",5):PROCc("—+that name. Plrp3j 
select the one",8):PROCc("—+you want fro
m the following.",11I 870PROCp:=-FN;(5%,
f%,bF") 880DEF FNi(l%,t$):LOC. v$,get$,g
$,i$,c%,x%,y*:x%=POT:y%=VP. 885IF t$="A"
OR t$="M" v$="ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz. " 890IF t$="
N" OR t$="M" v$=v$+"0123456789." 895REP.
:PROCjm:PROCl:get$=GE.:g$="" 900IF t$="A
" OR t$="M" c%=INS.v$,get$) EL. IF t$="G
" c%=INS.v$,get$) 905IF c%>0 g$=M.v$,c% 
1Q |c                                   
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:39/33
|B2208216|a14INFO|i24BBBC316k|s÷#8÷e|s÷Z
0910IF ARC(get$)=127 A. LEN(i$)>0 i$=LE.
i$,LEN(i$)-1):P. TAB(x%,y%);i$;" "; 915I
F LEN(i$)<l% i$=i$+g$ 920P. TAB(x%,y%);i
$;:U. ARC(get$)=13:=i$ 950DEF FVqp8utpn(
a$):LOC. l),b$,c$:F. l%=1 TO LEN(a$):b$=
M.a$,l%,1) 960IF Xb$>="A" A. b$<="Z") s$
=c$+"Cb EL. IF b$=" " c$=c$+" " EL. c$=c
$+"L" 970N. l% 980IF LEN(c$)-1 :EL. =F—.
 990=XLJ.c$,1)="C" A. INS.c$,"CC")=FA. A
. INS.cd,b L")=FA.) 1000DEF FNdy(prompt$
):CLS:PROCc("—+Do you know how to",5):PR
OCc("—+"+prompt$+" a file?",8) 1010IF FN
y(18) :=TRUE EL. PROChelp:=FA. 1020DEF F
Nfull 1030IF Last%<Max% :=FA. 1040CLS:PR
OCc("—+I'm sorry but the file iu now ful
l.",5):PROCp:=TRUE 1050REM 1060REM Proce
edures 1070RJM 1080DEF PROCc(sent$,y%):P
ROCd(sent$,(35-LEN(sent$))/2,y%):E. 1090
DEF PROCb(y*,len%):x%=POT |c            
                                        
                                        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:46/51
|B2209216|a14INFO<i24BBBC316k>s÷#8÷e|sZ
011p0V.a31,x%,y*,149,224:P. STRI.len%+3,
CHR$(240));:V. 31,x%,y%+1,149,234,131:P.
 UPC(lin*);:V. 149,234,131,31,x%,y%+2,14
9,162:P. STRJ.len%+3,CHR$(163)) 1110V. 3
2,x%+3,y*+1:E. 1120DEF PROCd(sent$,x%,y%
R:P. TBB(x),y*);CHR$(141);sent$;TAB(x%,y
J+1);CHR$(141);sent$;:E. 1130DEF PROCblu
                                        
57:N. l):PROCw(0):E. 1140DEF PROCw(y%):V
.a28,2,24,39-y*:E. 11u0DEF PROCoff:*FX4,
1 1160*FX200,1 1170V. 23;8202;0;0;0;:E. 
1180DEF PROCjm:*FX15,1 1190E. 1200DEF PR
OCr:*FX202,32 1210E. 1220DEF PROCl:*FX20
2,48 1230E. 1240DEF PROCripoff:*FX11,0 1
250E. 1260DEF PROCrjpon:*FX11.32 1270E. 
1280DEF PROCwh(a%,b%,c%):LOC. a$ 1290IF 
a*>b% A. a*<c% a$="—.[—+or—.]—+or" 9300I
F a*>b% A. a%=c% a$="—.[—+ou" 1310IF a%=
b* A. a*<c% a$="—.]—+or" 1320a$="—+Prius
"+a$+b—.RETURN—+to end":P. TAB((37-LEN(a
$)*/2,24);a$;:E. |c                     
                                        
                                        
                                        
   P708 CEEFAX 708  Tzj 18 Sip  23:31/12
|B2201216|a14INFO i 4BBBC316k|s÷# ÷ |s Z
    M"—************************* 1R M —*
*       —+ nfo —         * 2REM —**—.Con
fur d b —-S.Hassan—** 3REM" **—)  (  —/T
el oft 1984  —** 4REM   ****   *****    
 ******* 10*KEY 10 *FX200,1  MO.  M U   
  20ON ER . PROC  rot   *TV2 5 70M      
 PROCoff 90PROCblu  1 0PROCintro 11 PR C
h 12 PROCactiv  130REM 14 REM  5 V. 6 *T
  2 5 1 0MO. 7  7 PR Cs   1  PR      PR 
Cblu :PROCinit:soda $=FNg(pl as $+"t da 
's dat .",5,"84","99"):PROCm:PR C nd:E D
 190DEF FNo(line%):LOC. c%,l%   u $,n  $
,n :  S. (1599 +10*l n %):RE D m   $,  m
%:n = mum%=7):CLS:PROCc(" ."+m   $,0  2 
0F. l =1 TO mum :mum$=n m$+STU$(l%):   D
    s$: ROCd( — "+STU$(l%)+"—+"+m   $,5 
l *(4+n  +n ):N. l  210IF n% EL. PR Cd("
—*"+STU$(l  +"—+R t rn t  main m n ",5, 
 *4):mum$=n m$+STU$(l%) 220IF l   %=2 PR
OCnr 230=FNgn(n m$) 240DEF FN n:  S PR C
c(plea j$+"your   rnam  ",3): F v( — Yo 
r—.nam —+is :-",15,15,"A") |c           
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:31/00
|B2216216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
020490P. "  —:÷B—]  ÷W—K—K  ÷W      ÷W÷W
 ÷W  ÷W ÷W—K—U   ÷B—]"'"  —=B—]  ÷WH÷H
÷H ÷W÷H÷H÷H ÷H÷H÷W÷W ÷W÷H÷H÷W ÷W     ÷B—
]"gb  —9÷B—]  ÷W÷W÷W÷W ÷W÷W÷W÷W ÷W÷W÷W÷W
 ÷W÷W÷W÷W ÷W     ÷B—]";TAB(7,8);"—+Tiler
oftware and Primary";TAB(10,10);"—+Educa
tion Project." 20500P. TAB(14,12);"—=÷8
H÷H÷H÷H÷H÷H—X";TAB(14,15);"—=pJ—U—UqU—Kp
S—K—I":PROCd(CHR$(149)+CHR$(234)+"—+Info
"+CHRd(149)+CHR$(181),13,13) 20510PROCp 
20520E. |c                              
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:43/59
|B220A216|a14INFO|i24BBBC316k|s÷#1÷u|sZ
01330DEF PROCdoagain:V. 31,8,10,136:PROC
c(b—+The date you have entered iu",13):P
ROCc("—+invalid. Please try again.",15):
PROCp:E. 1340DEF PROCcapital:PROCc("—+St
art words with a—.CAPITAL—+letter",17):P
ROCc("—+then use—.lower case—+letters",2
0):PROCp:PROCw(17):CLS:PROCw(0):E. 1350D
EF PROCnr:LOC. o1$,o2$,m%,r$,m$:m$="—+mo
ri":r$="—+record":m%=Max%-Last% 1360IF L
ats%=FA. o1$="The file is empty":m$="" 1
370IF Last%=1 o1$="There is—.1"+r$+"—+in
 memory" 1380IF Last)>1 o1$="There are—.
"+STU$(Mast%)+r$+"s in memory" 1390IF m%
=FA. o2$="The file iu—.f4nl" 14X0IF m% g
2$=bThjre is room for—."+STU$(m%)+m$+u$ 
1410IF m%>1 o2$=o2$+"s" 1420PROCc("—+"+o
1$,15):PROCc("—+"+o2$,18):E. 1430DEF PRO
Csw(f%,a%,b*):LOC. l%:F. l%=1 TO Mast% 1
440IF b% rd(0,l%)=r$(0,l%)+r$(f%,l%) EL.
 rd(0,l%)=r$(f%,l%) 1450IF a% p%(l%)=l) 
1460N. l%:E. |c                         
                                        
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:47/27
|B220B216|a14INFO|i24BBBC316k|s÷#8÷u|sZ
01470DEF PROCt:LOC. l%,sl%:F. l%=1 TO 10
:PROCsw(l%,FA.,FA.):F. sl%=1 TO Last%:u$
(l),sl))=r$(0,p%(sl))):N. sl%,l%:E. 1480
DEF PROCwarn:LOC. pitch%:F. pitch%=0 TO 
u:SO.11,-15,140+28*Tpitch% MOD 2),8:N. p
itch*:PROCjm:TJ.=FA.:RIP.:U. TJ.>500 OR 
JNKEY(-74):E. 1490DEF PROCp:P. TAB(2,24)
;b—+Press the SPACEBAR to conthnuj";:R%P
.:PROCem:U. GET=32:E. 1500DEF PROCh:CLS:
PROCcX"—+Please wait a moment",5):E. 151
0DEF PROCdelaz(ind%):TI.=FA.:REP.:U. TI.
>end%:E. 1520DEF PROCsuri:PROCc("—+Are y
ou sure ?",10):PROCdelaz(50):E. 1590DEF 
PROCbd:LOC. l%,d%,n%,v%:PROCw(13):CLS:PR
OCw(0):PROCc("—0q+Happ= Bizthday!",1 ) 1
54pRES. 16098:F. l%=1 TO 25]READ n%,v%:S
O. 1,1,n*-48,d*+2:SO. 3,1,n%,d%+2:N. l$ 
1u50l)=129:REP. V. 31,14,10,l%:PROCdjlaz
(40):l%=l%+1:U. l%=136:E. 1560DEF PROCm:
LOC. end%,mc%:RIP.:mc%=FNo(1I 1570IF mc%
                                        
f EL. U. FA. 1590IF mc%=2 PROCe |c      
                                        
                                        
   P708 CJEFAX 708  Tut 18 Sip  23:44/55
|B220D216|a14INFO|i44BBBC316k|s÷#8÷u|;÷Z
0181ptar%=(p*(tar%)):RES. 16100:F. l%=1 
TO 10:READ s1%(l%):N. l%:REP.:PROCfields
:PROCsi(tar%):o%=0:p%=0:c%=0:PROCd("—.Rj
turn to menu",0,21) 1820P. TAB(0,23);"—+
Use the arrow keys to move the—.[—+to" :
P. TAB(0,24);"—+the line rjquirjd, then 
press—*RJTU5N"; 183pRJP.:o)=p%:p%=p%+c% 
1840IF p*<1 p*=1 1850IF p%>10 p%=10 1860
JF p%<>o) PROCd("  ",35,s1%(o))) 1870PRO
Cd("—.[",35,s1%(p%)):c%=FNwaz(139,138):U
. c%=99 1880IF p%=1 r$(1,tar%)=FNsn:u$(2
,tar))=FNfn 1890IF p%=2 r$(3,tar%)=FNb 1
900IF p%=3 r$(4,tar%)=FNboy 1910IF 8% 4 
r$(5,tar%)=FNh 1920IF p%=5 r$(6,tar%)=FN
r 1930IF p*=6 r$(7,tar%)=FNtown 1940IF p
m=7 r$(8,tar%)=FNc 1950IF p%=8 rd(9,tar%
)=FNbr 1960IF p%=9 rd(10,tar%)=FNpets 19
70U. p%=10:E. 1980DEF PROCj:LOC. c%:REP.
:c%=FNo(3) 1990IF c%=1 PROCj1 2000IF c%=
2 PROCja 2010U. c%=3:E. 2020DEF PROCe1:L
OC. d*,t%:tJ=FNwhoX"examine") 2030IF t%<
1 E. |c                                 
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:45/11
|B220E216|a14INFO|i24BBBC316k|s÷#8÷i|s÷Z
02040PROCfields:PROCsi(p%(t%)):PROC8:E. 
2050DEF PROCea:LOC. d%:d%=FNu(1,Npst%,"E
"):E. 2060DEF PROCsi(c%):LOC. s$:s$=STRI
.16," "):PROCc(s$+s$,0):PROCc("—+"+r$(2,
c))+" "+r$(1,c%),0):PROCd(r$(3,c%),13,3)
 2070IF r$(4,c%)="B" PROCd("Boy ",13,5) 
EL. PROCd("Girl",13,5) 2080PROCd(s$,19,8
):PROCd(r$(5,c%),19,8):PROCd(s$,1,10):PR
OCh("—+"+FNa(V—L(LJ.u$(6,c%),1)))+"p*nam
j—+",0,10):PROCd(s$,19,10):PROCd(M.u$(6,
c%),2),19,10) 2090PROCd(s$,19,12):PROCd(
r$(7,c%),19,12):PROCd(s$,19,14):PROCd(r$
X8,c%),19,14):PROCd("    ",23,17):PROCd(
b    ",23,19):P. TAB(0,24);UPC(35); 2100
IF VAL(r$(9,c%)) PROCd(r$(9,c%),23,17) E
L. PROCd("None",23,17) 2110IF V—L(y$(10,
c%)) PROCd(r$(10,c%),23,19) EL. PRWCd(RV
one",23,19) 2120E. 2130DEF PROCfields:CL
S:PROCdX"—*Birthday—+",0,3):PROCd("—+",0
,5):PROCd("—*House name/no.—+",0, ):PROC
d("—*TownOcity name—+",0,12):PROCd("—*Co
unty name—+",0,14) |c                   
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:45/29
|B220F216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
02140PROCd("—*Brothers and sisters—+",0,
17):PROCd("—*Numbjt of pets—+",0,19):E. 
2150DEF PROCsortir:PROCh:PROCsw(1,TRUE,F
A.):PROCsw(2,TRUE,TRUE):PR'C;:PRWCt PRWC
cX"—+File sorted",18):PROCp:E. 2160DEF P
ROCk:LOC. l%,d$,d% 2170IF Last%=1 E. 218
pF. l)=Last% DIV 2 TO 1 S. TRUE:PROCss(l
*,Last%,r$(0,l%),p%(l%)):N. l% 2190F. l%
=Last%-1 TO 1 S. TRUE:d$=r$(0,l%+1):d%=p
*(l%+1):r$(0,l%+1)=r$(0,1):p%(l%+1)=p%(1
):PROCss(1,l%,d$,d%):N. l%:E. 2200DEF PR
OCss(a%,b%,t$,pot%):LOC. f%.k%:REP.:k%=a
J+aJ 2210IF k*>b% U. TRUE:r$(0,a%)=t$:p%
(a*)=pot%:E. 2220IF k*>b% IF r$(0,k%+1) 
r$X0,k*) k*=k%+1 2230IF t$<r$(0,k%) r$(0
,a%)>r$(0,k*):p%(a*)=p*(k%):a%>k% EL. f%
=TRUE 2240U. f%:r$X0,a%)=t$:p%(a*)=pot%:
E. 2250DEF PROCdjlete:LOC. c%:REP.:c%=FN
o(4) 2260IF c%=1 PROCrub 2270U. q%=2 OR 
NOT FNf:E. 2280DEF PROCrub:LOC. t%:t% aB
SXFNwho("—+delete")) 2290IF t%=FA. E. 23
p0CLS:PROCsuri 2310IF NOT FNy(15) E. >c 
                                        
                                        
   P708 CEEFAX 708  Tue 1  Sip C23Z45/27
|B2210216|a14INFO|i24BBBC316k|s÷#8÷u>sZ
02320PROCh:r$(1,p%(t%II=STRI.15,CHR$(255
)):PROCsw(1,TRUE,FA.):PROCs:PROCt:Last%=
Last%-1:CLS:PROCcX"—+That record has bee
n deleted.",5):PROCp:E. 2330DEF PROCsfil
e:LOC. c%:REP.:c%=FNo(5) 2340IF c%]1 PRO
Csa 2350U. c%=2:E. 2360DEF PROCsa:LOC. l
%,sl),named,channel) 2370IF NOT FNdz("sa
vj") E. 2380CLS:PROCc("—+What do yoy wan
t to call this file?",5):name$="D."+FNv(
b—+-hj name is :-",7,15,"A"):PROCsp 2390
channel)=OPING.1namjd:P. £channel%,today
$,Last):F. l)=1 TO 10:F. sl)=1 TO Max%:P
. £channel%,r$(l%,sl%):N. sl%,l%:CLO. £c
hannjl% 2400PROCc("—+File saved",18):PRO
Cp:E. 2410DEF PROClfile:LOC. choiqi%:REP
.:choice%=FNo(6) 2420IF choice%=1 PROClo
 2430U. choice%=2:E. 2440DEF PROClg:LOC.
 sl%,l%,channel%,name$ 2450IF NOT FNd=("
load") E. 2460CLS:PROCc("—+What iu the n
amj of the",5):PROCc("—+file you wi;h to
 load?",8):name$="D."+FNv("—+The namr iu
 :-",8,15,"A"):PROClp |c                
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:46/05
|B2211216|a14INFO|i24BBBC316k|s÷#8÷e|sZ
p2470channjl)=OP. Xnamj$):I. £channel%,d
azd,Last%:F. l%=1 TO 10:F.1sl%=1 TO Max%
:I. £channel%,r$(l%,sl%):o. sl%,l%:CLO. 
£channel% 2480PROCc("—+File loaded",20):
PROCp:E. 2490DEF PROChelp:CLS:PROCc("—+A
sk your teacher to help you.",5):PROCwar
n:E. 2500DEF PROCjrror:CLS:CLO. £0 2510I
F ERR=204 OR ERR=222 PROCc("—+I'm swur8,
 but I can't",5):PROCc("—+fhnd that fhle
.",8) 2520IF ERR=195 PROCc("—+I'm sorr8,
 but you can't use that",5):PROCc("—+Fil
e name. Try anothjt name.",8) 2530IF ERR
=198 PROCcXb—+I'm sorry, but your disc i
s full.",5) 2540IF ERR>>216 A. ERR<=219 
PROCc("—+Please check your tape rjcoudet
.",5) 2550PROCp:PROCm:PROCjnd:END 2560DE
F PROCend:CLS:PROCc("—+Bye!",10):V. 26:P
. TAB(2,24);:E. 2570DEF PROCinit:Max%=40
:DIM r$(10,Max%),s1%(10),d$(Max%),p%(Ma|
%):Current%=1:Last%=FA.:today$="":please
$="—+Please typr in ":E. 15010DEF PROCn8
:CLS |c                                 
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:42/53
|B2212216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
015020PROCc("—+Set up disc drive",5):PRO
Cp:PROCh 15030PROCc("—+Set up cassjttj p
layez",5):PROCp:CLS:PRWCc("—+—0Sjprshunk
.O.",5):P. TAB(0,22); 15040EV 15050DEF P
ROCsp:CLS 15060PROCc("—+Set up disc driv
e",5):PROCp:PROCh 15070PROCc("—+Prius—.R
ECORD—+ot—.PLAY—+and—.RECORD",5):PROCc("
—+Then prius—.RETURN",8):P. TAB(0,22)  1
5080E. 15090DEF PROCsys 15100*di. 15110*
ta. 15120E. 15500REM"—+Data 16000D. "Mai
n menu page",7,"Enter or change records"
,"Look at records","Sort the file","Deli
te records","Save the file","Load a file
","End the program" 16010D. "Entjz gz ch
ange records",2,"Enter records","Change 
records" 17020D. "Look at rrqwzd;",2,3.g
ok at one record","Look at all the ricks
ds" 16030D. "Delete records",1,"Dilute a
 record" 16040D. "Save the fhli",1,"Save
 the file" 16050D. "Load a file",1,"Load
 a file" 16060D. Avjnuj,Close-Crryrnv,Du
ivj,Lane,Road,Street >s                 
                                        
                                        
   P708 CEEFAX 708  Tue 18 Sip  23:46/41
|B2213216|a14INFO|i24BBBC316k|s÷#1÷e|sZ
016070D. JAN,FEB,MAR,APR,MAY,JUV,JUL,AUK
,SIP,OCT,NOV,DEC,XXX 16080D. 31,2 ,31.30
,31,30,31,31,30,31,30]31 16090D. 88,2,88
,2,96,6,88,6,108,6,104,10,88,2,88,2,96,6
,88,6]116,6]1p8,10,88,2,88,2,136,6,124,6
,108,6,104,6,96,10,12 ,2,128,2.124,6,108
,6-116,6,108,6 16100D. 0,3,5,8.18,12,14,
17,19,21 19999REM"—**—)S—+.—,E—-.p.M—/.—
** 20000REM The following liner are 2001
0REM deleted after the notes 2002XREM ha
ve been read. 20025REM 20030DEF PROCsyst
ypj 20040CLS:PROCc("—+Are you using a di
sc system?",7):PROCc(b—+(Please press—*Y
—+or—*N—+)",10) 20050type%=FNget("YN")=1
 20060IF type% TH. *KEY0 PROCdeutro=(200
00)||M15030||M15070||M15110||MDEL. 60,14
0||MRUN||M 20070IF type%=FA. TH. *KEY0 P
ROCdestroy(20000)||M15020=|M15060||M8510
0||MDEL. 60,140||MRUN||M 20080E. 20090DE
F PROCactive 20100*FX138,0,128 20110V. 2
1 20120STOP 20130E. 20140DEFPROCdjstroy(
delete)* 20150LOC. page% |c