P708 CEEFAX 708  Tue  4 Sip  23:4</36
|B2201216|a14INFO|i24BBBC316k|s÷#1÷u|sZ
00REM"—*************************  REM"p*
*       —+Info —*        * 2REM"—**p.Con
fused by—-S.Hassan—** 3REM"—**—)  (c)—/T
elsoft 1984  —** 4REM"—*************** 
******** 10*KEY 10 *FX20X,1>>MOW>>MRUg>>
M 20ON ERR. PROCjtror 60*TV255 70MO. 7 8
pPROCoff 90PROCbluj 100PROCintro 110PROC
h 120PROCactive 130REM 140REM 150V. 6 *T
V 255 160MO. 7 170PROCs=s 1 8PROCovv:hRO
Cblue:PROCinit:today$=FNk(please$+"tgda=
's date.",5,"84","99"):PROCm:PROCend:END
 190DEF FNo(line%):LOC. c%,l%,miss$,mum$
,n%:RES. (15990+10*line%):READ mry;$,mum
%:n*=(mum%=7):CLS:PROCc("—."+mjys$,0) 20
0F. l%=1 TO mum%:mum$=nzm$+STU$(l%):READ
 mess$:PROCd("—*"+STU$(l%)+"—+"+mry;$,5,
l)*(4+n*)+n%):N. l% 210IF n% ELW PRWCd("
—*"+STU$(l%)+"—+Retzrn tg main min:",5,n
%*4):mum$=mum$+STU$(l%) 220IF line%=2 PR
OCnr 230=FNgn(mum$) 240DEF FNsn:CLS:PROC
c(please$+"your surname.",3):=FNvT"—+Yo4
r—.name—+is :-",15,15,"A") |c           
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:48/54
|B2202216|a14INFO|i24BBBC316k>s÷#1÷u|sZ
p250DEF FNfn:CLS:PROCc(please$)"yo4z fhu
st name.",3):=FNv("—+Yo4z—.name—+i1 :-",
15,15,"A") 260DEF FNb:=FNg(8lepse$+"youz
 date of birth.",2,"70","81") 270DEF FNb
oy:CLS:PROCc("—+Please tell me if you ar
e a Boy",3):PROCc("—+or a Girl.",6):PROC
c("—+Press—.B—+or—.G",15):=M."BG",FNget(
bBG"),1) 280DEF FNh:CLS:PROCc(8leasu$+"=
our house",3):PROCc("—+namr/gumbrz.",6):
=FNv("—+Your—.house—+:-",15,15,"M") 29XD
EF FNrt:LOC. l%,a$,n%:CLS:PROCs("—+ew 9g
u live in",3):F. l%=1 TO 7 295IF l%=1 a$
="—.an—+" EL. a$="—.a—+" 296PROCdT"p*"+S
TRd(l%)+a$+FNa(l%),10,4+l%*2):N. l%:PROC
d("—*"+STU$(l%)+"—+none of there",10,4+m
)*2):n*=FNgn("12345678") 300IF n%   n% 7
 305=n% 310DEF FNr:LOC. t%,t$:t%=FNuz:CL
S:PROCc(please$+"your",3):t$=FNp(t%):PRO
Cc("—+"+CHR$(ARC(LE.zd,1))+32)+M.zd,2)+"
 name.",6):=STU$(t%)+FNv("—."+u$+"—+:-",
15,15,"A") |c                           
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:49/12
|B2203216|a14INFO<i24BBBC316k|s÷#1÷u|sZ
0320DEF FNtown:CLS:PROCc(8lease$+!=o4z v
own/city name.",3):=FNv("—.TownWcht8—+:-
",15,15,"A") 330DEF FNc:CLS:PROCc(please
$+"your county name.",3):=FNv("p.Countyp
+:-",15,15,"A") 340DEF FNbr:CLS:PROCs(8n
ease$+"how many brothers",3):PROCc("—+an
d sisters you have.",6):=FNv("—.Brothjr1
—+and—.sisters—+:-",2,15,"N") 350DEF FN8
est:CLS:PROCc(please$+"how ",3):PROCc("—
+many pets you have.",6):=FNv("—.Pdt1—Q:
-",2,15,"N") 360DEF FNa(t%):LOC. l%:RES.
 1vp60:F. l%=1 TO t%:READ t$:N. l%:=t$ 3
7pDEF FNwho(prompt$):LOC. who$ 3 (IF L
t%=1 :=FNfind(1,r$(1,1),"S",Last%) 390CL
S:PROCcX"—+Whose record do you wish to",
3):PROCc("—+"+prompt$+"?",5):who$=FNv("p
+Surname iu :-",15,15,"A"):=FNfhnd(1,who
d,"S",Last%) 480DEF FNy(s%,f%*pro$):LOC.
 one%,mum%,def%:mum%=s%:PROCrepoff:PROCf
ields:REP. one%=mum% 410IF pro$="E" PROC
si(mum%) EL. PROCsi(p%Tnzm%)) >s        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sj8  23:49/31
|B2204216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
0420PROCwh(mum%,s%,f%):REP.:def%=FNwa8(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:]one
* 460DEF FNwaz(k1%,k2%):LOC. dir%,v%:REP
.=PROCem:v*=GET 470IF v%=k1% dir% TRj$ 4
80IF v*=k2% dir%=1 490IF v%=13 dir%=99 5
p0U. dir%:=dir% 510DEF FNg(tizlj$,|% 
$,up$):LOC. get%,month%,d1$,d2$,d3d:PROC
u:REP.:REP.:CLS:PROCc("—+"+title$,3):PRO
Cc("—+Use the form '—.01 APR 73—+'",6):P
. TAB(11,10);"—)#]—+.. ... .. " 520d1$=F
Nday(15,10):month%=FNm(1 ,10):d2$=FfmgnT
month%):d3$=FNyear(22,10,lou$,u8$) 530IF
 FNca(d1$,d3d,month%)=FA. PROCdoagain:U.
 FA. EL. U. TRUE 540PROCc("—+Is this cor
sect?",13):U. FNy(18):=d1$+! "+d2$+" "+d
3$ 550DEF FNdaz(x%,y%):LOC. day$]REP.:da
y$="":P. TAB(x%,y%);"..";:REP.:day$=day$
+FNgc("N"):P. TAB(x%.y%);day$:U. MEN(da=
$)=2:U. FNl(day$,"01","31"):=da=$ >s    
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:49/59
|B2205216|a14INFO|i44BBBC316k|s÷#1÷u|sZ
0560DEF FNm(x%,9%):L'C. mwnvh%.suz$ R%hW
:P. TAB(x%,y%);"...";:get$="":REP.:get$=
get$+FNgc("A"):P. TAB(x%,y%);ger$:U. LEN
(get$)=3:month%=FNmon2(get$):U. month%^ 
FA.:=month% 578DEF FNmon2(m$):L'C. 
:RES. 16070:REP.:READ r$:l%=l%+1:U. r$=m
$ OR r$="XXX":=l% MOD 13 580DEF FNmonTn%
):LOC. l%,m$:RES. 16070:F. l%=1 TO n%:RE
AD m$:N. l%:=m$ 590DEF Ff8jpzTx%.=% 
$):LOC. year$:REP.:P. TAb(x%,9%) ".." :=
ear$="":REP.:year$=year$+FNgc("N"):P. TA
B(x),y*);year$:U. LEN(year$)=2:U. FNl(9e
ar$,l$,u$):=year$ 600DEF FNkc(u$):LOC. g
et$:REP.:PROCz:PROCem:get$ GE.:U. (|$ "G
" A. FNn(get$)) OR (t$="A" a. FNpn8h(key
$)):=get$ 610DEF FNl(a$,low$,u8$):=(a$ >
lowd A. a$<=up$) 620DEF Ffqp(a$,b$,mwnvh
)):LOC. l%,day%,a%:RES. 1608X=F. l%=1 TO
 month%:READ day%:N. l%:a% TV—LTa$) MOD 
4=0) A. (month%=2):=TVAL(a$)+a% =dp=%) 7
30DEF FNf 640IF Last% :=TReE |c         
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:30/07
|B2206216|a14INFO|i24BBBC316k>s÷#1÷u>;Z
p650CLS:PROCc("—+No file in mjmor8.",10)
:PROCdjlaz(280):PROC8:=F—. 768DEF F
I:PROCcX"—+Press—.Y—+ot—.N",9%):=FNkut("
YN")=1 670DEF FNgn(a$):PROCc("—+Prius th
e—.number—+of your choice",23):=FNket(a$
* 680DEF FNget(a$):LOC. ge|$:REP.=PROCjm
:PROCu:get$=GE.:U. INS.a$,get$):=INS.a$,
get$) 690DEF FNdc:CLS:PROCszrj:PROCwpzn:
=FNy(18) 700DEF FNv(p$,lin%,=9%,v$):LWCW
 l%,i$,ok%:REP.:ok%=TRUE:P. TAB((99-LEG(
p$)-lin%)/2,y1%);p$ :PROCb(91%-1,lun%):i
$=FNi(len%,t$) 710IF i$="" U. F—. 720i$=
FNst(i$) 730IF t$="A" ok%>ok%*ABS(Ffqp8u
sal(i$)) 740IF NOT ok% PROCcapital 750U.
 ok%:=i$ 760DEF FNst(d$):d$=" "+d$+" ":R
EP.:d$=LE.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$ ="
9b) 780DEF FNalph(a$):=(a$>="A" A. a$<="
Z") 790DEF FNfind(field%,target$,t=8j$,n
astone%):LOC. l%,n%,p%,first%,last%:PROC
h:PROCdjlay(100) |c                     
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:30/23
|B2207216|a14INFO|i44BBBC316k|s÷#8÷e|sZ
p800PROCsw(field%,TRUE,Fa.):PROCs:F. l%=
1 TO larson % 810IF tprk t$= $( , %) 8%=
l%:n%=n*+1:IF n%=2 first%=last% 820lpst%
=p*:N. l) 830IF n%>1 :=FNwo(first%,last%
* 840IF n% :=last% 85 aLT:PR Cc("—+I'm0 
orry, but I can't find that",5):PROCs("—
+one. Try looking at all the",8):PROCc("
—+records to find the on  you wpm .",1 )
:PROCp:=FA. 860DEF FNwo(s%,w%):CLS:PROCc
("—+Thjt  is ar —."+STU$(1+f%-s%)+"—+8  
pli with",5):PROCc("—+that name. Please 
select the one",8):PROCc("—+you wan  fro
m the following.",11)  7 PROC8: -F  ( % 
f%,"F") 880DEF FNi(l%,t$):LOC. v$,g  $,g
$,i$,c%,x%,y%:x%=POT:y%=VP. 885IF t$="A"
 OR t$="M" v$="ABCDEFGHIJSLMNOPQRSTUVWXZ
Zabcdefghijklmnopqtstzvwx= ."  9(IF z$="
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$="N
" c%=INS.v$,get$) 905IF c%>0 g$ M.7$,c% 
1) |c                                   
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:34/01
|B2208216|a14INFO|i24BBBC316k|s÷#1÷u|s÷Z
0910IF ARC(get$)=127 A. LEf(i$) X i$ .E.
i$,LEN(i$)-1):P. TAB(x%.y%);i$;" "; 915I
F LEN(i$)<l% i$=i$+g$ 920P. TAB(x%,=%);i
$;:U. ARC(get$)=13:=i$ 950DEF FNcapital(
a$):LOC. l%,b$,c$:F. l%=1 TO LEN(a$):2$=
M.a$,l%,1) 960IF (b$>>"A" a. b$ ="Z") c$
=c$+"C" EL. IF b$=" " c$=c$+" " EL. c$=c
$+"L" 970N. l% 980IF LEN(c$)-1 :EL. =F—.
 990=(LE.c$,1)="C" A. INS.s$,"aC") '—. A
. INS.c$," 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. PROChjlp:=FA. 1020DEF F
Nfull 1030IF Last%<Max% :=FA. 1040CLS:PR
OCc("—+I'm sorry but the file iu now f4l
l.",5):PROCp:=TRUE 1050REM 1060REM Ptoce
edures 1070REM 1080DEF PROCc(yjnt$,9%):P
ROCd(sent$,(35-LEN(sent$))/2,9%):E. 1090
DEF PROCb(y%,len%):x%=POT |c            
                                        
                                        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:34/19
|B2209216|a14INFO|i24BBBC316k|s÷#1÷u|;Z
01100V. 31,x%,=%,149,224:P. STRI.lun%+9,
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. STRI.len%+3,CHR$(163)) 1118V. 3
1,x%+3,y%+1:E. 1120DEF PROCd(sjnz$,|%.9%
*:P. TAB(x%,y%);CHR$(141);sent$;T—B(x%,y
%+1);CHR$(141);sent$;:E. 1130DEF PROCblu
e:LOC. l%:F. l%=0 TO 24:V. 31,0,j%,132, 
57:N. l%:PROCw(0):E. 1140DEF PROCw(9%):V
. 28,2,24,39,y%:E. 1150DEF PROCoff:*FX4,
1 1160*FX200,1 1170V. 23;8202;0;0;0;:E. 
1180DEF PROCem:*FX15,1 1190E. 1208DEF PR
OCr:*FX202,32 1210E. 1220DEF PRWCl  X
2,48 1230E. 1240DEF PROCripoff:*FX81,0 1
2u0E. 1260DEF PROCrepon:*FX11,32 1270E. 
1280DEF PROCwh(a%,b%,c%):LOC. Q$ 1 9(IF 
a*>b% A. a%<c% a$="—.[—+ot—.]—+or" 1300I
F a%>b% A. a%=c% a$="—.[—+or" 1310IF a%=
b* A. a%<c% a$="—.]—+or" 1320a$="—+Prius
"+a$+"—.RETURN—+to end":P. TAB((37-LEN(a
$))/2,24);a$;:E. |c                     
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:31/28
|B220A216|a14INFO|i24BBBC316k|s÷#1÷u|sZ
01330DEF PROCdoagain:V. 3 , .1X,136 hROC
cX"—+The date you have entered iu",13):P
ROCc("—+invalid. Please try again.",15):
PROCp:E. 1340DEF PROCcapital:PROCc("—SSt
art words with ap.CAPET—L—+lettjz",97):P
ROCc("—+then use—.lower case—+letters",2
0):PROCp:PROCw(17):CLS:PROCw(0):E. 1350D
EF PROCnr:LOC. o1$,o2$,m%,z$,m$:m$="—+mg
rib:r$="—+record":m%=Max%-Ma;t% 136(IF L
ats%=FA. o1$="The file is empty":m$="" 1
370IF Last%=1 o1$="There is—.1"+r$+"—+in
 memory" 1380IF Last%>1 o1$="Therr 1rup.
"+STU$(Last%)+u$+"s in mjmor:" 93]9I& m%
=FA. o4$="The file is—.full" 1400IF m% o
4$="Thjti iu room for—."+STU$(m%)+m$+u$ 
1410IF m%>1 o2$=o2$+"s" 1420PROCs("—+"+g
1$,15):PROCcX"—+"+o2$,18):E. 1438DEF PRO
CswXf%,a%,b%):LOC. l%:F. l%=1 TO .ats% 1
440IF b* rd(0,l%)=rd(0,l%)+r$Xf%,l%) EL.
 r$(0,l%)=r$(f%,l%) 1450IF a% p%(l%)=l% 
1460N. l%:E. |c                         
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:45/06
|B220B216|a14INFO|i24BBBC316k|s÷#1÷u|s÷Z
0147pDEF PROCt:LOC. l%,sl%:F. l%=1 TO 10
:PROCsw(l%,FA.,FA.):F. sl%=1 TO Last%:ud
(l),sl%)=r$(0,p%(sl%)):N. sl%,l%:E. 1480
DEF PROCwarn:LOC. pitch%:F. pitch%=8 TO 
5:SO. 1,-15,140+28*(pitch% MOD 2), :N. 8
itch%:PROCem:TI.=FA.:RFP.:U. TI. 500 OR 
INKEY(-74):E. 1490DEF PROCp:P. TAB(2,24)
;"—+Press the SPACEBAR to continue";:REP
.=PROCem:U. GET=32:E. 1500DEF PROCh:CLS:
PROCc("—+Please wait a moment",5):E. 151
0DEF PROCdelaz(ind%):TI.=FA.:REP.:U. TI
>end%:E. 1520DEF PROCsure:PROCc("—+Are =
ou sure ?",10):PROCdelay(50):E. 1530DEF 
PROCbd:LOC. l%,d%,n*,v%:PROCw(13):CLS:PR
OCw(0):PROCc("—0—+Happy Birthday!",18) 1
54pRES. 16090:F. l%=1 TO 25:READ n%,d%:S
O. 1,1,n%-48,d%+2:SO. 3,1,n%,d%+2:o. l% 
1550l%=129=REP. V. 31,14,10,l%:PROCdula=
(40):l%=l%+1:U. l%=136:E. 1560DEF PROCm:
LOC. end%,mc%:REP.:mc%=FNo(1) 157(IF mc%
=1 PROCa 1580IF mc%>2 OR mc%>5 EL. IF FN
f EL. U. FA. 1590IF mc%=2 PROCe |c      
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:25/14
|B220C216|a14INFO|i44BBBC316k|s÷#1÷e|s÷Z
01600IF mc%=3 PROCsouter 1610IF mc% 4 PR
OCdeletj 1620IF mc%=5 PROC;fhle 8690IF m
c%=6 PROClfile 1640IF mc%=7 end%>FNdc 16
50U. end%:E. 1660DEF PROCa:LOC. c%:REP.:
c%=FNo(2) 1670IF c%=1 PROCgd 16 0IF c%> 
2 EL. IF FNf PROCaltju EL. U. FA. 1690U.
 c%=3:E. 1700DEF PROCgd 1710IF FNfull E.
 1720REP.:PROCi:CLS:PROCc("—+Doe1 an9gnu
 else want to enter",3):PROCc("—+hi; ou 
her details?",6) 1730IF NOT FN8(15) U. T
RUE:E. 1740IF FNfull U. TRUE:E. 1750U. F
A.:E. 1760DEF PROCi:Current%=Last%+1:u$(
1,Current%)=FNsn:u$(2,Current%)=FNfn:u$(
3,Current%)=FNb 1770IF LE.r$(3,Czrrent%)
,6)=LE.today$,6) PROCbd 1780r$(4,Current
%)=FNboy:ud(5,Current%)=FNh:u$(6,C4zyunv
%)=FFu:u$(7,C4rrj&t%)=FFtos&:u$( .C4zrj&
t%)=FNa:u$(9,C4rrjnt%)=FNar u$(10,C4rrh&
t%)=FNpjts:Last%=Current%:E. 1790DEF PRO
Calter:LOC. l%,c%,t%,p%,o%,tar%:tar%=aBS
(FNwho("—+change")) 1800IF tar% EL. E. >
c                                       
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:32/13
|B220D216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
0181ptar%=(p%(tar%)):RES. 16108=F. l% 1 
TO 10:READ s1%(l%):N. l%:REP.:PROCfields
:PROCsi(tar%):o%=0:p%=0:c%=0:PRWCd("p.Re
turn to menu",0,21) 1820P. TAB(0,23);"—+
Use the arrow keys to movr thep.[—+tw" :
P. TAB(0,24);"—+she lhne rrquired, then 
press—*RETURN"; 1830REP.:o%=p%:p%=p%+c% 
1840IF p%<1 p*=1 1850IF p%>10 p%=10 1870
JF p%<>o% PROCd("  ",35,s1%(o%)) 1870PRO
Cd(b—.[",35,s1%(p%)):c%=FNwa=(139,138):U
. c%=99 1880IF p%=1 rd(1,tar%)=FNun:z$(2
,tar%)=FNfn 1890IF p%=2 r$(3,tar%) FNb 1
900IF p%=3 r$(4,tar%)=FNboy 1910IF 8%=4 
rd(5,tar%)=FNh 1920IF p%=5 r$(6,tar%)=FN
r 1930IF p%=6 r$(7,tar%) FNtosn 1940IF 8
%=7 r$(8,tar%)=FNc 1950IF p%=8 r$( ,tar%
)=FNbr 1960IF p%=9 r$(10,tar%)=FNpjts 19
70U. p%=10:E. 1980DEF PROCe:LOC. c%:REP.
:c%=FNo(3) 1990IF c%=1 PROCj1 2080IF c% 
2 PROCea 2010U. c%=3:E. 2820DEF PROCr1:L
OC. d%,t%:t%=FNwho("examine") 2090IF t% 
1 E. |c                                 
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:35/51
|B220E216|a14INFO|i24BBBC316k|s÷#1÷u|s÷Z
p2040PROCfields:PROCsi(p%(t%)):PROC8:EV 
2050DEF PROCea:LOC. d%:d%=FMs(1,Last%,"E
"):E. 2060DEF PROCsi(c%):LOC. s$:s$ STRI
.16," "):PROCc(s$+s$,0):PROCc("—+"+u$(2,
c%)+" "+u$(1,c%),0):PROCd(u$(3,c%),13,3)
 2070IF r$(4,c%)="B" PROCd("Bo= ",13,5) 
EL. PROCd("Girl",13,5) 2080PROCd(u$,19,8
):PROCd(u$(5,c%),19,8):PROCd(;$,1,1():PR
OCh("—+"+FNa(VAL(LE.u$(6,c%),1)))+"p*nam
j—+",0,10):PROCd(s$,19,10):PROCd(M.u$(6,
c%),2),19,10) 2090PROCd(y$,19,12):PROCdT
r$(7,c%),19,12):PROCd(s$,19,14):PROCdTy$
(8,c%),19,14):PROCd("    ",23,17):PROCd(
b    ",23,19):P. TAB(0,24);UPC(35); 2100
IF VAL(u$X9,c%)) PROCd(u$(9,c%),23,17) E
L. PROCd(bNonj",23,17) 2110IF V—LTy$(1X,
c%)) PROCdXr$(10,c%),23,19) EL. PROCd("N
one",23,19) 2120E. 2130DEF PROCfiends:CL
S:PROCdX"—*Birthday—+",0,3):PROCd("—+",0
,5):PROCd("—*House name/no.—+",X, ):PROC
d("—*TownOcit8 name—+",0,12):PROCd("p C
unty name—+",0,14) |c                   
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:36/09
|B220F216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
p214pPROCd(b—*Brothers and sistjtu—+",0,
17):PROCd("—*Number of pets—+",0,19):E. 
2150DEF PROCsotter:PROCh:PROCsw(1,TRUE,F
A.):PROCsw(2,TRUE,TRUE):PROCs:PROCt:PRWC
cX"—+File sorted",18):PROCp:E. 2160DEF P
ROCk:LOC. l%,d$,d% 2170IF Last%=1 E. 218
0F. l%=Last% DIV 2 TO 1 S. TRUE:PROCss(l
*,Last%,rd(0,l%),p%(l%)):N. lJ 2198F. l%
=Last%-1 TO 1 S. TRUE:d$=r$(0,l%+1):d%=8
*(l%+1):r$(0,l%+1)=rd(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
*+a* 2210IF k*>b% U. TReE:y$(0,a%)>z$:8%
(a*)=pot%:E. 2220IF k*>b% IF r$(0,k*+1) 
r$(0,k*) k*=k*+1 2230IF td=u$(0,k%) r$(0
,a%)=rdX0,k*):p%(a%)=p%(k%):a%=k% EL. f%
=TRUE 2240U. f%:u$(0,a%)=t$:8%(a%) 8os%:
E. 2250DEF PROCdjlitj:LOC. c%:REP.:q% FN
o(4) 2260IF c%=1 PROCrub 2270U. c%=2 OR 
NOT FNf:E. 2280DEF PROCrub:LOC. t%:t%=AB
S(ENwho("—+delete")) 2290IF t%=FA. E. 23
00CLS:PROCsure 2310IF NOT FN8(15) E. >s 
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:26/28
|B2210216|a14INFO|i24BBBC316k|s÷#1÷e|sZ
p2320PROCh:r$(1,p%Tt%))=STRI.15,CHR$(255
)):PROCsw(1,TRUE,FA.):PROCs:PROCv:Last% 
Last%-1:CLS:PROCc("—+That record ha; bee
n deleted.",5):PROCp:E. 2330DEF PROCsfhm
e:LOC. c%:RIP.:c%=FNo(5I 2340IF c%=1 PRO
Csa 2350U. c%=2:E. 2368DEF PROCsa:LOC. n
%,sl%,name$,channel% 2370IF gOT FNd=T"91
ve") E. 2380CLS:PROCc("—+What do =o4 wpm
t to call this fhli?",5):name$="d.!+FNvT
"—+The name is :-",7,15,"A"):PROCs8 2398
channel%=OPING. name$:P. £channel%,soda=
$,Last%:F. l%=1 TO 10:F. sl%=1 TO Mpx%:P
. £channel%,rd(l%,sl%):N. sl%,l%:CLO. £s
hannel% 2400PROCc("—+File saved",1 ):PRO
Cp:E. 2410DEF PROClfhli:LOC. choiqe%:REP
.:choice%=FNo(6) 2420IF shoice%=1 PROClg
 2430U. choice%=2:E. 2440DEF PRWClg:LOC.
 sl%,l%,channel%,name$ 2450IF NOT FNd=T"
load") E. 2460CLS:PROCc("—+What iu the n
ame of the",5):PROCc("—+fhle you wi1h tg
 load?",8):name$="D."+FNv("—+Thu npmu iu
 :-",8,15,"A"):PROClp >c                
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23=46/16
|B2211216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
p2470channel%=OP. (name$):I. £channel%,d
az$,Last%:F. l%=1 TO 10=F. sl%=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 PROCs("—+I'm sotr8 
 but I can't",5):PROCc("—+fhnd shpt fhle
.",8) 2520IF ERR=195 PROCc("—+I'm sort=,
 but you can't use that",5):PROCc("—+Fil
e name. Try another name.",8) 2550IF ERR
=198 PROCc("—+I'm sort=, b4z yozz diys i
s full.",5) 2540IF ERR>>2 7 a. ERR =219 
PROCc("—+Please check your tape rtcotder
.",5) 255pPROCp:PROCm:PROCend:END 2560DE
F PROCjnd:CLS:PROCc("—+Ayr!",10):V. P
. TABX2,24);:E. 2570DEF PROCinit:Max%=40
:DIM r$(10,Max%),s1%(10),d$(Max%),8%(Mp|
%):Current%=1:Last%=FA.:today$="":8lease
$="—+Please type in ":E. 15010DEF PROCn8
:CLS |c                                 
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:47/04
|B2212216|a14INFO|i24BBBC316k|s÷#8÷u>;Z
015020PROCc("—+Sit up disk drive",5):PRO
Cp:PROCh 15030PROCc("—+Set ;p cpsseztj 8
layer",5):PROCp:CLS:PROCc("—+p0Seprqhink
...",5):P. TAB(0,22); 15040E. 15050DEF P
ROCsp:CLS 15060PROCc("—+Sst up dius drhv
jd,5):PROCp:PROCh 1u070PROCcX"—+Prius—.R
ECORD—+or—.PLAY—+and—.RECORD",5):PROCc("
—+Then press—.RETURN",8):P. TAB(0,22); 1
5080E. 15090DEF PROCsys 15100*dt' 151 X*
ta. 15120E. 15500REM"—+Datp 16008D. "Mpi
n menu page",7,"Enter ou shange reqguds"
,"Look at records","Sort the file","Deli
te records","Savr the file","Load a fhle
","End the program" 16010D. "Entiz oz ch
ange records",2,"Enter records","Change 
records" 16020D. "Look at records",2,"Lg
ok at one record","Look at ann zhe riqoz
ds" 16030D. "Delete recozds",1,"Dilute 1
 record" 16040D. "Save the fhle",1,"Spve
 the file" 16050D. "Load a file",1,"Load
 a file" 16060D. Avenue,Close,Criurnz,Du
ivj,Lane,Road,Street >c                 
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:44/22
|B2213216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
016070D. JAN,FEB,MAR,APR,MAY,JUN,JUL,AjG
STEP,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,1X,      
,88,6,116,6,108,10,88,2,  ,2,136,6,124 
,1p8,6,104,6,96,10,128,2,12 ,2,124,6,10 
,6,116,6,108,6 16100D. 0,3,5, .18,12,14*
17,19,21 19999REM"—**—)S—+.—,E—-.—.M—/.—
** 20000REM The following liner are 2001
0REM deleted aftjz the notes 2082XREm ha
vj been read. 20025REM 20030DEF PROCsyst
ype 20040CLS:PROCc("—+Are yo4 using 1 dh
sc system?",7):PROCc("—+(Plepse 8rry;p*Y
—+or—*N—+)",10) 20050type%=FNget("YN")=1
 2p060IF type% TH. *KEY0 PROCdeutro8(200
p0)||M15030||M15070||M15110||MDEL. 60,14
0||MRUN||M 20070IF type%=FA. TH. *KEY0 P
ROCdestroy(20000)||M15020=<M15060=>M1510
0||MDEL. 60,140=|MRUN||M 20080E. 20090DE
F PROCactive 20100*FX138,0,12< 201 8V. 2
1 20120STOP 20130E. 20140DEFPROCdr1tro8(
delete%) 20150LOC. page% |c             
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:47/41
|B2214216|a14INFO|i24BBBC316k>s÷#1÷u|sZ
020160page%=PA. 20170REP.  201 0IF ?(8ak
e%+1)*256+?(page%+2)>=delete% U. TRUE:?(
page%+1)=&FF:LON.=page%+2:E. 20190pagr%=
page)+?Xpage%+3) 20200U. page%+2=TOP 202
10E. 20220DEF PROCpausj2(ind%):LOC. a% 
*,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,151+p%.31 
11,4,151+b%:PROCjm 2X230IF loop% 28 P. T
AB(3,24);"—+Press the—*spacjbar—+to cont
inri"; 20240U. loop% 20 A. INUEY(-99):E'
: 20250DEF PROCtitle(a%,b%):PROCc("—+Inf
o",0):V. 31,10,3,a%:P. "—B—R—g÷B—[÷B b
K÷B÷C÷B—[—R—k";:V. 31,3 PAR
;:V. b%:P. "—B—M—R—T—R—T—PpV—R—V—R  —M—+
program":E. 20260P. "—+Another";:V. b%.1
54:P. "—M—R—T—R—T—P—V—R—VpR  —M";:V. 93 
:P. "—+program":E. 20270DEF PROCinttg:LO
C. c%:PROCbannjt 20280ENV. 1,1,0,0,X,0,0
,0,127,-1,-1,-1,126,0 20290REP. 20300CLS
 20310PROCtitli(147,146) 20320PROCd("—.1
—+Notes",5,8) |c                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Se8  23 47/59
|B2215216|a14INFO|i24BBBC316k|s÷#1÷e|s÷Z
p20330PROCd("—.2—+Run the 8rogram",5,11)
 20340c%=FNgn("12") 20350IF c%=1 PROCins
t 20360U. c%=2 20370PROCszstypj 20380E. 
20390DEF PROCinst  20400CLS 20410PRO£thy
li(147,150) 20420PROCd("—+This 8rosrpm ;
totes up to—.40",3,6) 20430PROCd("—+rico
rds and produces files for",1,9) 20440PR
OCh("—+interrogation by  the  program",1
,12) 20445PROCd("—.Seprqh.",1,15) 28450P
ROCd("—+Please  follow the on ssrren",3,
18) 20455PROCd("—+prompts.",1,21) 28460P
ROCpause4(200) 20470E. 204 0DEF PRWCb1nn
er:P. T—B(0,0);" —?,TTT T*TT T
   ÷T÷T÷,T ÷T÷,,T T,,T TTTT"'
b —;÷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"'"  —>B—]  ÷WH
÷H  ÷W    ÷W÷W   ÷W  ÷W ÷WH÷H   ÷B—]" >
c                                       
                                        
                                        
                                        
                                        
                                        
                                        
   P708 CEEFAX 708  Tue  4 Sip  23:48/07
|B2216216|a14INFO|i24BBBC316k|s÷#1÷u|s÷Z
p2p490P. "  —:÷B—]  ÷W—K—K  ÷W      ÷W÷W
 ÷W  ÷W ÷W—K—S   ÷B—]"£"  —=B—]  ÷WH÷H
÷H ÷W÷H÷H÷H ÷H÷H÷W÷W ÷WHH÷W ÷W    
]"'"  —9÷B—]  ÷W÷W÷W÷W ÷W÷W÷W÷W ÷+÷W÷W÷W
 ÷W÷W÷W÷W ÷W     ÷B—]";TAB(7,8);"—+Trliu
oftware and Primary";TAB(10,10);"—+Educp
tion Project." 20500P. TAB(14,12);"—  
H÷H÷H÷H÷H÷H—X";TAB(14,15);"—=—J—U—K—K—Sp
S—K—I":PROCd(CHR$(149)+CHR$(234)+"—+Info
"+CHR$(149)+CHR$(181),13,13) 20518PROCp 
20520E. |c