P727 CEEFA( 727  Mon 10 Nov  21:09/50
|Bu20121A|b16McBasj|j24BBBC332k|n40000|p
÷e÷X÷b÷r÷L ********************÷e÷X÷l÷r÷
T R*     MCBASE     **÷e÷X÷v÷s÷L ** (C) 
                                        
n **÷e÷X2÷r÷L ********************÷e÷X<÷
d*FX229,1÷e÷XF÷l*KEY 10O.||MRJN||M÷e÷XP÷
vfsp$="New file":file$=ftp$÷e÷XZ÷f÷F —- 
÷= —5TFS÷e÷Xd(÷? —G=&C6 —, —G=&C9 —, —G=
&BF —4 A=7:÷= —5dPB÷e÷Xn1(=1:L=0:T$="on"
:N$="on":LM=0:I=0:MR=0:G%=&200÷e÷Xx÷f*KE
Y0END||M÷e÷X—*÷]÷3÷e÷X—>÷b*FX4T1÷u÷X—H÷m
÷G23;8202;0;0;0;0;÷e÷X—Rn÷Jtitle("McBase
"):START=1:÷I—26,3)—e134;"Enter option:"
:÷I'—1(7)"1. Make new file":÷IW—1(7)"2. 
Load existing file"÷e÷X—\$A=—M-48:÷?A=2—
4÷<—5TZI—3÷?A<>1—4÷G7:÷=—5tt@÷e÷X—f÷f÷?(
<>1—4—5EbB÷e÷X—p÷n÷ START=0 —4 ÷= —5tj@
÷e÷X÷*5÷3:÷I''—1(1)—e134;"How many field
u ";:÷I—e134;:÷@—1(1),F%÷e÷X÷4>÷? F%>10 
—4 ÷G7:÷I''—1(1)—e134;"Too many field;":
QQ=—N(200):÷=—5dR@÷e÷X÷>,F$=—k(E%):÷? —?
(E$)<49 —, —?(F$)>59—4÷G7:÷=—5dR@ ÷e÷X÷H
÷m÷6 no#field$(F%,2)÷e÷X÷ L
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:10/12
|B420221A|b16McBasj|j24BBBC332k|n402CE|p
—|—F*÷e÷Y÷\H÷I''—1(1)—e134;"Name of feel
d";—e133;—1(2I;L;—e134;:÷@—1(1)":"no#fie
ld$(L,2)÷e÷Y÷f$÷?—Q(no#field$(L,2))>Q2—4
÷G7:÷3:÷=—5TDA÷e÷Y÷p@÷I—1(1)—e(134I;"Len
gth of field";—e(134);:÷@—1(3)":"length$
:flag=0÷e÷Y"0÷? —c(length$)>40 —4 ÷G7,11
:÷I—1(40):÷G11,11:÷= —5TXA÷e÷Y,÷u÷; LOOP
=1 —|— —Q(length$)÷e÷Y66QR=—?(—ilingth$,
LOOP,1)):÷? QQ<48 —, QQ>57 —4 flag=1:÷G7
÷e÷Y@÷]÷E÷e÷YJ$÷? flag=1 —4 ÷G11:÷I—1(59
):÷G11:÷= —5TXA÷u÷YTzlength%=—c(length$)
:no#field$(L,0)=—k(length%):one#record%=
one#record%+length%+4:÷I—1(1)—e134;"(N)u
mbjr/(S)sting";—1(2);":";÷e÷Y^;Q$=—f:÷?Q
$="N"—4 no#field$(L,1)="N":÷=—5DrA—3÷?Q$
<>"S"—4 ÷= —5E^A÷i÷Yh÷nno#field$(L,1)="S
"÷e÷Yr£÷ Q$="S"—4 ÷I"String" —3 ÷I"Numb
er"÷e÷Y||÷]÷E÷e÷Y—.'no#records%=—Lfree/(
2.5*one#record%)÷e÷Y—8{÷6 A% (no#records
%-1):÷; L=1 —|— (no#records%-1):A%?L=0:÷
E:÷6 DAT$(no#records%,FR+1):÷6 SD$(nw#re
cords%,F*+1I:÷v S(no#records*)÷e÷Y—B|c  
                                        
                                        
   P727 CJJFA( 727  Mon 10 Nov  21:20/26
|B220321A|a16McBasj|j24BBBC332k|m405BD|p
L÷; L=1 —|— F%:DAT$(no#records*,L)=no#fi
eld$(LT1):DAT$(0,L)=no#field$(LT2):÷E÷e÷
Y—L÷a÷=—5EbB÷e÷Y—V÷g÷5÷Jdatajntry÷e÷Y—|—
÷s÷X=(no#records%-1)—4—5ENB÷e÷Y—jJ÷3:÷I
—1(1)—e134;"Press"+—e929+"f0"+—e934+"to 
finish":÷G28,0,24,39,4:L%=0:÷I'''÷e÷Y—t÷
t÷M:÷3:÷M:L%=L%+1:÷Jalign(L%)÷e÷Y÷.÷u÷I—
21,L%+(L*-1)I;—e133;X÷e÷Y÷8?÷I—24,L%+(L%
-1I);—e135;DAT$(0,L*I;—1(align)" :";:÷@"
 "DAT$(X,L*)÷e÷Y÷B÷u÷? DAT$(X,L%)="END" 
—4 —5TpB÷e÷Y÷LW÷?—?(DAT$(X,L*))>-1—4÷G7:
÷I—24,L*+(L*-1)R;—l—Q(DAT$(0,L*))+align+
2+—Q(DAT$(X,L%))," "):÷=—5dVA÷e÷Y÷VF÷?—Q
(DAT$(X,L*Q)>—c(no#field$(L%,0))—4÷G7:÷I
—24,LJ+(L%-1));—l39," "):÷=—5dVA÷e÷Z÷|—'
FL=0:÷?DAT$(no#records%,L*)="S"—4—5TpB÷e
÷Z÷jO÷;QQ=1—|——Q(DAT$(X,L%)):÷?—?(—iDAT$
(X,LIQ,QQ,1))<48 —, —(—iDAT$(X,L*),QQ,1
))>57—4FL=1÷e÷Z÷t÷#÷EQQ÷e÷Z&'÷?FL=1—4÷G7
:÷I—20,L*+(L%-1));—1(40):÷=—5dVA÷i÷Z0) ÷
UL*=F%—,DAT$(X,L*)="EVD" —, —Lfree<&300÷
e÷Z:÷t÷?DAT$(X,L%)<>"END"—4(=X+1÷e÷Z|c  
                                        
                                        
   P727 CEEFA( 727  Mon 10 Nov  21:10/56
|B220421A|a16McBase|j24BBBC332k|n4089C|p
D.T =L :L*=0:÷U —Lfr e<&300 —, DAT$(X T%
)="END"÷e÷ZNY÷X>=(no#records*-2)—4÷I—29
,15)"Sorry no more room":÷I—210,19)—eQ34
;"Press any key":A=—N(200)÷e÷ZX÷]÷9÷e÷Zb
 ÷L********** MENU ***********÷i÷Zl÷j÷Jt
isle("MEVU")÷u÷Zv÷b*FX4,1÷u÷Z—(—;÷I—1(12
*;"1. Enter data":÷I'—1(12);"2. Amend da
ta":÷I'—1(12);"3. Sort data":÷I'—1(12);"
4. Search data":÷I'—1(12);"5. Diuplaz da
ta":÷I'—1(12);"6. Load data"÷e÷Z—2K÷I+—1
(12I;"7. Save data":÷I'—1(12);"8. Print 
data":÷IW—1(12);"9. Delete data"÷e÷Z—<P÷
I—20,17)—es2;—e12:;—e557;—e931;—1(5*;"Pr
est";—e135;"Escape";—e131;"to leave McBa
sj" ÷e÷Z—Fm÷I'—1(12)"Record file  :"—e13
4;ftp$:÷I—1(12)"Data entered :"—e134;X-1
:÷? —Lftee<&300 —4 ÷I—1(11)—e(129)"No mo
re room"÷e÷Z—P\÷? —Lftie>=&300 —4 ÷I—1(1
1)—e(131I;"Approx jree ";—e(Q35I;":";—e(
13)I;—P(—Lftee/(2.5*one#recordJ))÷e÷Z—Z÷
c*FX15,0÷e÷Z—d£STAR$=0:A=—M-48:÷? A=-21 
—4 ÷= —5tRS÷i÷Z—n÷p÷?A<1 —, A>9—4÷G7|c  
                                        
                                        
   P727 CEEFA( 727  Mon 10 Nov  21:01/31
|B220u21A|a16McBasj|j24BBBC332k|m40B98|p
:÷=—5t||B ÷e÷Z÷(5÷F A ÷<—5ddB,—5TBC,—5TP
D,—5tzD,—utJG,—5TZI,—5T^J,—5dpJ,—5dzO÷e÷
Z÷2÷a÷=—5EbB÷e÷Z÷<÷p÷Jtitle("DATA ENTRY"
)÷e÷Z÷F?÷? —Lfree<&300 —4 ÷I—210,)0)—e(1
29);"Not enough room":QQ=—N(200):÷P÷e÷Z÷
P÷h÷Jdataentry:÷P÷e÷[÷Z÷m÷3:÷Jtitle("AME
ND")÷e÷[÷dX÷I—26,3);—e134;"Enter option:
":÷I'—1(7);"1. Amend jield titles":÷I'—1
(7);"2. Amend records"÷e÷[÷n÷nA=—M-48:÷?
 A=-21 —4 ÷P÷e÷  ÷p÷?A<1 —, A>2—4÷G7:÷=—
5TVC ÷e÷[*6÷? A=2 —( X=1—4 ÷I—210,20)—e1
34;"No data entered":÷= —5TVC÷e÷[4÷l÷?A=
1—4AA%=0:÷=—5EHC÷e÷[>\÷3:÷I'—1(1);—e134;
"Enter record number";:÷@AA%:÷?AA%<1 —, 
AA%>X-1—4÷G7,11:÷I—l40," "):÷G11,11:÷=—5
T|÷C ÷e÷[H÷]÷3÷e÷[R÷b*FX4,0÷e÷[\K÷? A=1 
—4 ÷I'—1(1)—e131;"Current field titles" 
—3 ÷I'—1(1)—e131;"Current record"÷u÷[fN÷
;L=1—|—F%:÷Jalign(L*:÷? A=2 —4 ÷I—1(2);D
AT$(0,L);—1(align);": ";DAT$(AA%,L):÷= —
5EzC÷e÷[p—+÷? A=1 —4 ÷I—e133;L;—e(Q35);D
AT$(0,L);—1(align);":";:÷? DAT$(no#r|c  
                                        
                                        
   P727 CJEFAX 727  Mon 10 Nov  21:01/33
|B220v21A|a16McBasj|j24BBBC332k|m40E6B|p
ecords*,LJ="S" —4 ÷I—230,L+1);—e(133);"S
tring" —3 ÷I—230,L+1)—e(133);"Number"÷k÷
[z÷]÷E÷e÷[—,U÷? A=1 —4 ÷I'''—e134;—1(1);
"Enter new field titles" —3 ÷I'''—e134;—
1(1);"Enter new record"÷e÷[—65÷;L=)—|—F%
:÷Jalign(L*:÷ A=1 —4 ÷I—e(133);L;—e(135
);:÷@""D$÷e÷[—@0÷? A=2 —4 ÷I;—1(2)DAT$(0
,L);—1(align);": ";:÷@""D$÷e÷[—J(÷?—?(D$
)<>-1—4DAT$(AA%,L)=D$:÷LGOTO1010 ÷e÷[—T?
÷? A=2 —4 ÷G11:÷I—1(2);DAT$(0,L);—1(alig
n);": ";DAT$(AA%,L):÷=—5d||C÷e÷[—^)÷? A=
1—4 ÷G11:÷I—e(133);L;—e(135);DAT$(0,L)÷e
÷[—h&÷? A=1 —4 ÷I—229,9+L)—e(133);"]";:D
$=—f ÷e÷[—r÷l÷? —?(D$)=13—4 —5drC÷e÷[÷,"
÷ D$<>"S" —( D$<>"N" —4 ÷G7:÷=—5d@C÷e÷[
÷n6÷? D$="S" —4 ÷I—231,9+LI;"String" —3 
÷I—231,9+LJ;"Number"÷e÷[÷@!DAT$(no#recor
ds%,LR=D$:÷= —5d||C÷e÷[÷JG÷? DAT$(no#rec
ords*,L)="S" —4 ÷I—231,9+LJ;"String" —3 
÷I—231,9+L);"Number"÷k÷[÷T÷]÷E÷e÷\÷^2÷I'
''—1(4)—e134;"Press any key to continue"
:A=—M:÷P÷i÷\÷h@÷Jtitle("SORT"):÷?X=1|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:2Q/54
|B420721A|bQ6McBasj|j44BBBC332k|m41147|p
—4÷I—210,6)—e134;"No data entered":A=—N(
T00):÷P÷e÷\÷r(÷;LF=1—|—F%:÷I—1(10);LF;".
 ";DAT$(0,LF):÷E÷e÷\$+÷I'—1(1)—e134;"Emt
er field number to sort"÷e÷\.÷rSF%=—M-48
:÷ SF*=-21 —4 ÷P÷e÷\8÷t÷?SF%<1 —, SF%>F
*—4÷G7:÷=—5TnD÷e÷\B@S$=—e136+"Sorting"+—
e137+DAT$(0,SF*):M=18-(—Q(S$)/2):÷I—2M,1
5);S$÷e÷\LK÷;B=1—|—F*:SD$(0,B)=DAT$(0,B)
:÷EB:÷;A=1—|—X-1:÷;L=1—|—F%:SD$(A,L)=DAT
$(A,L):÷EL:÷EA÷e÷\V÷n÷;NN=1—|—X-1:÷;V=1—
|—X-2÷e÷\|—'÷ DAT$(no#records*,SF%)="S"
 —4 —5EtD ÷e÷\j/÷ —c(SD$(N,SF*))<—c(SD$
(N+1,SFJ))—4—5tTD —3 —5D|÷D÷e÷\t!÷?SD$(N
TSF%)<SD$(N+1,SF%)—4—5tRD÷e÷\|÷|—÷;L=1—|
—F*:TEMP$=SD$(N,L):SD$(N,L*=SD$(N+1,L):S
D$(N+1,L)=TEMP$:÷? —Lfree<&300 —4 N=X-2:
NN=X-1:L=FJ÷e÷\—0÷^÷EL÷e÷\—:÷b÷EN:÷INN÷e
÷\—DC÷? —Lfree<&300 —4 ÷I —210,10);"Sort
y not enough room to sort":÷= —5tpD÷u÷\—
N:SE=DAT$(0,SF%Q+" now sorted":M=18-(—Q(
S$)/2):÷I—2M,15);S$÷i÷\—X+÷I—210,20)—e13
4;"Press any key":B=—N(400):÷P÷e÷\—b|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:02/42
|B220821A|b16McBasj|j24BBBC332k|m4142C|p
r÷Jtitle("SEARCH"):÷I—26,3);—e134;"Enter
 option:":÷I'''—1(7I;"1. Search original
 data":÷I'—1(7);"2. Search marked data"÷
e÷\—l÷rOPT=—M-48:÷? OPT=-21 —4 ÷P÷e÷\—v?
÷? MR<1 —( OPT=2 —4 ÷G7:÷I—210,15);—e(13
4);"No marked data":÷= —5dDD÷e÷\÷0÷;÷?OP
T<1 —, OPT>2—4÷G7:÷=—5dDD÷e÷\÷:÷]÷3÷e÷\÷
D(÷;LF=1—|—FJ:÷I—1(10);LF;". ";DAT$(0,LF
):÷E÷e÷\÷N.÷I'—1(1I;—e134;"Enter field n
umber to search"÷e÷]÷X"A$=—f:÷?—c(A$)<1 
—, —c(A$)>F*—4—5dbD ÷e÷]÷b÷cF=—c(A$)÷e÷]
÷l÷aNUM=0÷e÷]÷v—*÷3:÷I—26,3)—e134;"Enter
 option:":÷I'—1(2)"1. Search (full turin
gJ":÷I'—1(2)"2. Search (part string)":÷I
'—1(2)"3. Search between numbers"÷e÷](÷r
A=—M:A=A-48:÷? A=-21 —4 ÷P÷e÷]20÷?A<1 —,
 A>3—4÷G7:÷= —uThE —3 ÷F A ÷= —5T||E,—5T
DF,—5T\G ÷e÷]<,÷I''—1(1I;—e134;"Enter st
ring";—e135;:÷@""S$ ÷e÷]F÷]÷3÷e÷]P÷g÷?OP
T=2—4—5tLE÷e÷]Z£÷I''—1(1);—e130"Searchin
g for ";S$÷e÷]d÷c÷;NN=1—|—X÷e÷]nV÷?DAT$(
NN,F)=S$—4NUM=MUM+1:S(MUM)=NN:÷I—23,|c  
                                        
                                        
   P727 CJEFAX 727  Mon 10 Nov  2):12/44
|B220921A|a16McBasj|j24BBBC332k|m41705|p
10)"Number of repetitions of ";S$;" = ";
MUM÷e÷]x÷]÷E÷e÷]—*÷a÷=—5tjE÷e÷]—4+÷I''—1
(1);—e130"Searching for ";S$:÷;NN=1—|—X÷
e÷]—>2÷?A%?NN=1 —4 ÷? DAT$(NN,F)=S$—4NUM
=MUM+1:S(MUM)=NN÷e÷]—H8 ÷I—23,10)"Number
 of repetitions of ";S$;" = ";MUM:÷INN÷e
÷]—R8÷?MUM=0—4÷I''—1()2)—e134;"Prius an=
 key":A=—N(1000):÷=—5dzE ÷e÷]—\'÷I''—1(1
);—e134;"Display found data ?"÷e÷]—f$A=—
M:÷?A=78—4RETURVELSEIFA<>89—4—5t|÷E÷e÷]—
p÷d÷;Z=1—|—MUM÷e÷]÷*÷v÷3:÷I—22,0);"Recor
d No.";S(U)÷e÷]÷4B÷;F=1—|—F%:÷Jalign(E):
÷I—1(2);DAT$(0,F);—1(align*;": ";DAT$(S(
Z),F):÷E÷e÷]÷>8÷I—25,21)—e134;"Press TET
URN to finish":B=—M:÷B=13—4Z=MUM÷e÷]÷H÷
]÷E÷e÷]÷R÷]÷P÷e÷^÷\1÷I''—1(1);—e134;"Emt
er part string";—e135;:÷@""PS$÷e÷^÷f!÷?—
?(PS$)=-1—4÷G11,11:÷I:÷G11:÷=—5TDF÷u^÷p
7÷3:MUM=0:÷I''—1(1I;—e130"Searching for 
";PS$:LPS=—Q(PS$)÷e÷^"÷j÷? OPT=2 —4 —5tZ
F÷e÷^,÷e÷;LOOP=1—|—X÷e÷^6÷t÷;LOOP1=1—|——
Q(DAT$(LOOP,F))÷u÷^@7÷?—iDAT$(LOOP,F|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:03/04
|B420A21A|a16McBase|j24BBBC332k|m419D9|p
),LOOP1,LPS)=PS$—4NUM=MUM+1:S(MUM)=LOOP÷
e÷^J8÷I—23,10)"Number of repetitions of 
";PS$;" = ";MUM:÷E:÷E÷e÷^T9÷?MUM=0 —4÷I'
W—1(12)—e(134)"Press any key":A=—N(1000)
:÷=—5tPF÷e÷^^(÷3:÷I—1(1)—e(134I;"Display
 found data ?"÷e÷^h$A=—M:÷?A=78—4RETU*VE
LSEIFA<>89—4—5DhF÷e÷^rf÷;Z=1—|—MUM:÷3:÷I
—22,0);"Record No.";S(Z):÷;F=1—|—F%:÷Jal
ion(F):÷I—1(2)DAT$(0,F);—1(alignI;": ";D
AT$(S(U),FI:÷EF÷i÷^||8÷I'''—1(1);—e(134)
;"Return to finish":A=—M:÷?A=13 —4Z=MUM 
÷e÷^—.÷]÷E÷e÷^—8÷]÷P÷e÷^—B÷h÷; LOOP=1 —|
— X÷e÷^—L÷n÷ A%?LOOP=0 —4 —5dVF÷e÷^—V÷w
÷; LOOP1=1 —|— —Q(DAT$(LOOP,F))÷e÷^—|—9÷
 —iDAT$(LOOP,F),LOOP1,LPS)=PS$—4 MUM=NU
M+1:S(MUM)=LOOP÷k÷^—j4÷I—23,10)"NumRjr o
f repetitions of ";PS$;" = ";MUM÷e÷^—t÷]
÷E÷e÷^÷.÷]÷E÷e÷^÷89÷?MUM=0 —4÷I''—1(12)—
e(134)"Press any key":A=—N(1000):÷=—5tPF
÷e÷^÷B(÷3:÷I—1(1)—e(134);"Display found 
data ?"÷i÷^÷L"A=—M:÷?A=78 —4 ÷P —3 ÷? A<
>89 —4 —5dtF÷e÷^÷Vf÷;Z=1—|—MUM:÷3:÷I|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:03/50
|B220B21A|a16McBasj|j24BBBC332k|m41CB3|p
—22,0);"Record No.";S(Z):÷;F=1—|—F%:÷Jal
ion(E*:÷I—1(2)DAT$(0,F);—1(align);": ";D
AT$(S(Z),F):÷EF÷e÷#÷|—7÷I'''—1(1I;—e(134
R;"Return to finish":A=—M:÷?A=Q3 —4Z=MUM
÷e÷#÷j÷#÷E:÷P÷e÷#÷t!÷?DAT$(no#records%,F
)="S"—4—5TTE÷e÷#&N÷I+—e134;—1(1);"Enter 
lower limit";:÷@LL:÷I'—e134;—1(1);"Enter
 higher limit";:÷@HL÷e÷#0:A=1:÷3:÷I''—1(
1);—e130;"Searching between ";LL;" and "
;HL ÷e÷#:÷s÷;L=1—|—X-1:V=—c(DAT$(L,F))÷e
÷#D(÷? V>=LL —( V<=HL —4 MUM=MUM+1:S(MUM
)=L÷e÷#N,÷I—23,10)"Number of repetitions
 = ";MUM:÷EL÷e÷#X'÷I—22,21);—e134;"Displ
!y found data ?"÷k÷#b÷jA$=—f:÷?A$="N"—4÷
P÷e÷#l[÷3:÷;Z=1—|—MUM:÷I'—1(37);S(U):÷;F
=1—|—F%:÷Jalign(E*:÷I—1(2);DAT$(0,F);—1(
alignJ;": ";DAT$(S(U),F):÷EF÷e÷#v2÷I—212
,21)—e134;"Return to finish":B=—M:÷?B=13
 —4Z=A÷e÷#—(÷b÷3:÷EZ:÷P÷e÷#—2÷r÷Jtitle("
DISPLAY DATA")÷e÷#—<÷c*FX15,0÷e÷#—F÷c*FX
21,0÷e÷#—P÷I—26,3);—e134;"Enter option:
":÷I''—1(7)"1. Display original data|c  
                                        
                                        
   P727 CEEFA( 727  Mon 10 Nov  21:03/16
|B220C21A|a16McBasj}j24BBBC332k|m41F9F|p
":÷I'—1(7)"2. Display sorted data":÷I'—1
(7)"3. Display marked data"÷e÷#—Z3÷?X=1—
4÷I—210,20)—e134;"No data jnteted":QQ=—N
(400):÷P÷e÷#ad÷nA=—M-48:÷? A=-21 —4 ÷P÷e
÷#—n÷o÷?A<1 —, A>3—4÷G7:÷=—5t||G÷e÷#÷(E÷
? A=2 —( SD$(1,1)="" —4 ÷G7:÷I—210,20)—e
Q34;"Mo sorted data ":÷= —5t||G   ÷e÷#÷2
£÷I —210,20);—l20," "):÷G11,11,11,11÷e÷#
÷<÷e÷?A=3—4—5dJH÷i÷#÷F0÷I+'—1(1);—e134;"
Number to start....";—e135;:÷@SL÷e÷#÷PG÷
?SL=0—4SL=1:÷G11:÷I—1(1I;—e134;"Mum"jt t
o start....";—e135;"?";SL;—l7," ")÷e÷|—÷
Z.÷I'—1(1)—e134;"Numbjt to finish...";—e
Q35;:÷@FL÷e÷|—÷dH÷FL=0—4FL=(-1:÷G11:÷I—
1(1)—e134;"Number to finish...";—e135;"?
";FL;—l7," ")÷e÷|—÷n÷i÷; DTP=SL —|— FL÷e
÷|— ÷u÷3:÷I'—1(2)"Record No. ";DTP÷e÷|—*
:÷?A%?DTP=1—4÷I—230,1)—e130;"Marked  "—3
÷I—230,1)—e131"Unmarked"÷i÷|—4÷d÷;FE=1—|
—FJ÷e÷|—>÷f÷-align(JE)÷e÷|—H4÷?A=1—4÷I—1
(2)DAT$(0,FER;—1(align);" : ";DAT$(DTP,F
E)÷e÷|—R2÷?A=2—4÷I—1(2)SD$(0,FE);—1(|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:04/1 
|B220E51A|bQ6McBasj|j24BBBC332k|m42270|p
align);" : ";SD$(DTP,FE ÷e÷|—\÷#÷EFE÷ ÷|
—f—6÷I':÷I—24,19)—e131;"M";—e134;"to mar
V";—e131;"D";—e134"to delete mark":÷I—29
T21I—e131;"RETURN";—e134;"to finish":÷I—
210,20)—e131;"SPACE";—e134;"to go on"÷e÷
|—p Q$=—f:÷—?(Q$)=13—4DSP=FL:÷= —5tlH÷e
÷|—z÷dQ%=—?(Q$)÷e÷|——,?÷?Q%]77—4÷? A%?DU
P=0 —4 MR=MR+1:A%?DTP=Q:÷I—230,1)—e130;"
Marked  "÷e÷|——6@÷?Q%=68—4 ÷? A%?DTP=1 —
4 MR=MR-1:A%?DTP=0:÷I—230,1)—j131"Unmask
ed" ÷e÷|——@÷h÷?Q%<>32—4—5DpH÷e÷|——J÷c*F(
15,0÷e÷|——T÷|—÷EDSP÷i÷|——^÷c*EX)5,0÷e÷|—
—h÷]÷P÷u÷|——r÷h÷;DTP=1—|—X-1:÷3÷e÷|—÷,Y÷
?A%?DTP=1—4÷I'DTP;".":÷I—230,1)—e130;"Ma
rUed  ":÷;F=1—|—F%:÷I—1(2)DAT$(0,FI;" : 
";DAT$(DTP,FQ:÷E÷e÷|—÷6÷k÷?A%?DTP<>1—4—5
UPI÷e÷}—÷@g÷ D
elite mark":÷I—29,20)—e134;"RETURN to ji
nish ":÷I—210,19)—e134;"SPACE to ko on "
÷e÷}—÷J> Q$=—f:Q%=—?(Q$):÷?Q%=68—4DSP?A$
=0:÷I—230,1)—e131"Unmarked":÷=—5drH÷e÷|—
÷T'÷?Q%=Q3 —4 DTP=X-1:÷P —3 ÷?Q%<>32|c  
                                        
                                        
   P727 CEEFA( 727  Mon 10 Nov  21:04/59
|B220E21A|a16McBasj|j24BBBC332k|m4253C|p
 —4 —5d||H÷e÷a÷^÷c*F(15,0÷i÷a÷h÷R÷EDSP:÷
P÷i÷a÷u÷p÷Ttitle("LOAD DATA") ÷e÷a$%÷? —
8<>&E00 ÷Jcatalog:÷G28,0,24,39,19÷e÷a8d÷
3:÷I—1(1)—e(134);"Enter";—e(135);"*";—e(
234I;"to exit":÷I'—1(1)—e134;"Enter jile
 name...";—e135;:÷@""file$÷e÷aB÷r÷? —?(f
ile$)=-1 —4 ÷= —5TdI÷e÷aL7÷? file$="*" —
( START=2 —4 STAR$=0:÷P —3 ÷? file$="*" 
—4 ÷P÷e÷aV÷g$&780=file$÷e÷a|—J÷? —U(file
$)=—K —4 ÷1£0:÷I'—1(1)—e134;"No such jil
e":÷G7:QQ=—N(200):÷= —5TxI —3 ÷1£0÷e÷aj÷
p÷0:START=0:ftp$=$&780÷e÷at÷sPL=0:÷; LOO
P=1 —|— —Q(esp$)÷e÷a|÷!÷? —ifsp$,LOOP,1)
="." —4 PL=LOOP÷e÷a—0÷b÷E LOOP÷e÷a—:$÷? 
PL=2 —4 ÷? —Q(ftp$)>9 —4 ÷G7:÷=—5TxI ÷e÷
a—D$÷? PL=0 —4 ÷? —Q(ftp$)>7 —4 ÷G7:÷=—5
TxI ÷e÷a—N÷w÷? PL<>0 —( PL<>2 —4 ÷G7:÷=—
5TxI ÷e÷a—X÷oCH=1:CH=—U(esp$)    ÷e÷a—b1
÷@£CH,one#record%,no#records%,X,E%,I%,T%
,A,C,L÷e÷a—l÷l÷6no#field$(E%,2)÷j÷a—vV÷;
 LOOP=1 —|— F*:÷@£CH,no#field$(LOOP,0),n
o#field$(LOOP,1),no#field$(LOOP,2):÷E|c 
                                        
                                        
   P727 CJJFAX 727  Mon 10 Nov  21:05/22
|B220F41A}b16McBasj|j24BBBC332k|m42812|p
÷e÷a÷0@÷6DAT$(no#records%,F%+1)TS(no#rec
ords*)STD$(no#records*,F%+1)÷e÷a÷:÷t÷;LO
OP=0—|—X:÷@£CH,S(LOOP):÷E÷e÷a÷D÷g÷;LOOP1
=1—|—F%÷e÷a÷N5÷;LOOP=0—|—X:÷@£CH,DAT$(LO
OP,LOOP1),SD$(LOOP,LOOP1):÷E÷e÷b÷X÷]÷E÷e
÷b÷b(÷;LO=1—|—F%:÷@£CH,DAT$(no#records%,
LO):÷E÷e÷b÷l[÷1£CH:L=0:T$="on":N$="on":L
M=0:I=0:MR=0:÷6A% (no#records%-2):÷;L=1—
|—100:A%?L=0:÷E:÷Jfsp:÷=—5EbB÷e÷b÷v:÷Jti
tle("SAVE DATA"):÷? —8<>&E00 ÷Jcatalog:÷
G28,0,24,39-19÷e÷b(e÷3:÷I—1(1)—e(134);"E
ntir";—e(135);"*";—e(134);"to exit":÷I'—
1(1)—e134;"Enter jile name...";—e135;:÷@
""file$ ÷e÷b2÷r÷? —?(file$)=-1 —4 ÷= —5T
^R÷e÷b<÷k÷ file$="*" —4 ÷P÷e÷bFDfsp$=fi
le$:PL=0:÷; LOOP=1 —|— —Q(ftp$):÷? —ifsp
$,LOOP,1)="." —4 PL=LOOP÷e÷"P÷b÷E LOOP÷e
÷bZ£÷? PL=2 —4 ÷? —Q(ftp$)>9 —4 ÷G7:÷=—5
Th PLQG
:÷=—5ThJ÷e÷bn÷v÷? PL<>0 —( PL<>2 —4 ÷G7:
÷=—5ThJ÷e÷dx÷oCH=1:CH=—V(esp$)÷e÷b—*2÷I£
CH,one#record%,no#records%,X,F%,I%,T|c  
                                        
                                        
   P727 CJEFAX 727  Mon 10 Nov  21:05/44
|B421021A|b16McBasj|j24BBBC332k|n42AF4|p
%,A,C,L ÷e÷b—4N÷; LOOP=1 —|— F%:÷I£CH,no
#field$(LOOP,0),no#field$(LOOP,1),no#fie
ld$(LOOP,2):÷E÷e÷b—>÷t÷;LOOP=0—|—X:÷I£CH
TS(LOOP):÷I÷e÷d—H÷g÷;LOOP1=1—|—F%÷e÷b—R÷
e÷;LOOP=0—|—X÷e÷d—\)÷I£CH,DAT$(LOOP,LOOP
1),SD$(LOOP,LOOP1)÷e÷b—f÷#÷E:÷E÷e÷b—p)÷;
LO=1—|—F%:÷I£CH,DAT$(no#records%,LO):÷E 
÷e÷b÷*÷|—÷1£CH÷e÷b÷4÷|—÷Jfsp÷e÷b÷>÷p÷? —
G=&C6 —4 ÷= —5DlB —3 ÷P÷u÷R÷H—:÷Jtitle("
PRINT"):T$="on":N$="on":LM=2:I=10:SPA=1:
SP=1:÷I—26,3)—e134;"Enter option:":÷I—27
,6)"1. Standard printout":÷I—27,8)"2. No
n-standard printout"÷e÷b÷R÷nA=—M-48:÷? A
=-21 —4 ÷P÷e÷c÷\÷k÷?A<1 —, A>2—4—5dzJ÷e÷
c÷f;P$="":÷; LOOP=1 —|— F%:P$=P$+—k(LOOP
)+"+":÷E:P$=—hP$,—Q(P$)-1)÷e÷k÷p—+÷3:÷I—
26,3)—e134;"Enter option:":÷I—27,6)"1. P
tint original records":÷I—27,8I"4. Print
 sorted records":÷I—27,10)"3. Print mark
ed records"÷e÷c"÷ropt=—M-48:÷? opt=-21 —
4 ÷P÷e÷c,÷o÷?opt<1 —, opt>3—4—5TbK÷e÷c6\
÷ MR=0 —( opt=3 —4 ÷I—210,20I;—e134|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:06/05
|B221121A|b16McBasj|j24BBBC332k|m42DCJ|p
;"No marked records":QW=—N(200):÷I—210,2
0);—l20," "):÷= —5TbK   ÷e÷c@|—÷? SD$(1,
1)="" —( opt=2 —4 ÷I—210,20);—e994;"fo 3
outed records":QW=—N(200):÷I—210,20);—l2
0," "):÷= —5TbK÷e÷cJ÷h÷?A=1—4÷3:÷=—5tvM÷
e÷cT÷|—÷G3:÷3÷e÷c^x÷I—26,3)—e134;"Enter 
option:":÷I'—1(7I;"1. Alter *FX6 (";I;")
":÷I'—1(7);"2. Titles (";T$;")":÷I'—1(7)
;"3. Numbering (";N$;")"÷e÷chz÷I+—1(7);"
4. Field order":÷I'—1(7);"5. Left margin
 (";LM;")":÷I'—1(7);"6. No of spaces (";
SPA;")":÷I'—1(7I;"7. Start printout"÷e÷c
r÷oA=—M-48:÷? A=-21 —4 ÷P ÷e÷c||÷o÷?A<1 
—, A>7—4÷G7:÷=—5ErK÷e÷c—.÷k÷?A=)—4÷Jf:÷3
:÷=—5E^K÷e÷c—8^÷?A=2—4÷?T$="on"T$="off":
÷I—518,7);T$;")":÷=—5ErK—3÷?A=2—4÷?T$="o
ff"T$="on":÷I—218,7);T$;") ":÷=—5ErK    
÷e÷c—B]÷?A=3—4÷?N$="on"N$="off":÷I—221,9
);N$;")":÷=—5DrK—3÷?A=3—4÷?N$="off"V$="o
n":÷I—221,9);N$;") ":÷=—5DrK   ÷u÷c—L÷l÷
?A=4—4÷<—5tLO:÷=—5DTK÷i÷c—VT÷?A=5—4÷I—21
,20)—e134;"Left margin - ";:÷@LM:÷?L|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:06/39
|B221221A|b16McBasj}j24BBBC332k|m430AF|p
M<0 —, LZ>40—4÷G7:÷I—21,20)—l20," "):÷=—
5tnK   ÷e÷c—|—Z÷?A=6—4÷I—51,20)—e134;"Nu
mber of spaces";:÷@SPA:÷?SP<0—4÷G7:÷I—21
,20)—l20," "):÷=—5txK—3÷?A=6÷3:÷=—5D^S  
÷e÷c—j÷f÷?A<>7—4—5ITV÷e÷c—t÷i÷?opt=3 —4—
5T\L ÷e÷c÷.÷]÷3÷u÷c÷8'÷I—21,1);—j134;"Pr
int jrom";—e135;:÷@SP;÷i÷c÷B÷t÷? SP=0 —4
 SP=1:÷I—214,Q);SP÷e÷c÷L÷u÷?SP<1 —, SP>X
-1—4÷G7:÷3:÷=—5d|—S÷e÷c÷V%÷I—21,3);—j134
;"Print to";—e135;:÷@EP;÷e÷d÷|—÷v÷? EP=0
 —4 EP=X-1:÷I—214,3);EP÷e÷d÷j.÷?EP<SP —,
 EP>X-1 —4÷G7,11:÷I—l20," "):÷G11:÷=—5d|
÷K÷e÷d÷t÷oLM$=—lLM," "):DD$=""÷e÷d&÷a÷G2
,21÷e÷d0$÷;K=1—|—F%:DD$=DD$+DAT$(0,K*+" 
":÷EK÷i÷d:)÷?—iP$,2,1)="," —4 —5DDL —3 ÷
? T$="on"—4÷IDD$÷i÷dD÷j÷?opt<>3 —4—5dnL 
÷e÷dN-÷;W=1—|—X-1:D$="":÷? —N(-66) —4 ÷J
a:W=(-1:÷= —5dZL÷e÷dX÷i÷?A%?W=0—4÷=—5dZL
÷e÷db>÷? —iP$,2,1)="+" —4 —5DlL —3  ÷? N
$="on" —4 ÷I LM$+"Record No. ";W÷e÷dl÷k÷
;LO=1—|——Q(P$) —0 2÷e÷dv÷p÷Jalign(—c(—iP
$,LO,2)))÷e÷d—(÷q÷? —iP$,2,1)="+" —4|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:06/30
|B221321A|a16McBase|j24BBBC332k|m4335F|p
 —uthL÷e÷d—2R÷ T$="on" —4 TJ$=LM$+DAT$(
0,—c(—iP$,LO,1)))+—lalign," ")+":" —3 TJ
$=LZ$+—lalign," ")÷e÷d—<÷v÷I TJ$+DAT$(W,
—c(—iP$,LO,1)))÷e÷d—F÷a÷=—5trL÷e÷d—P(D$=
D$+DAT$(W,—c(—iP$,LO,1))I+—lSP," ") ÷e÷d
—Z÷|—÷E LO÷e÷d—d÷p÷? —iP$,2,1)=","—4 —5d
PL÷e÷d—n.÷N$="on"—4÷ELM$+—k(W*+" "+D$—3
÷N$="off"÷ELM$+D$÷e÷d÷(÷n÷; NSP=1 —|— S
PA:÷I:÷E ÷e÷d÷2÷^÷EW÷e÷d÷<÷a÷=—5tbM÷e÷d÷
F÷j÷; LOOP=SP —|— EP÷e÷d÷P÷aD$=""÷e÷e÷Z÷
w÷ —N(-66) —4 ÷Ja:LOOP=EP:÷=—5tXM÷e÷u÷d
6÷? —iP$,2,1I="," —( N$="on"—4÷ELM$+"Rec
ord No. ";LOOP  ÷e÷e÷n÷k÷;LO=1—|——Q(P$) 
—0 2÷k÷e ÷p÷Jalign(—c(—iP$,LO,1)))÷k÷e*÷
q÷? —iP$,2,1)="+" —4 —5D\M÷e÷e4U÷? T$="o
n" —4 TI$=LM$+DAT$(0,—c(—iP$,LO,1)))+—la
lion," ")+":" —3 TJ$=LM$+—lalign," ")   
÷e÷e>)÷? opt=2 —4 ÷ITI$+SD$(LOOP,—c(—iP$
                                        
P,—c(—iP$,LO,1))I÷e÷eR÷a÷=—5DpM÷i÷e\0÷?o
pt=2—4D$=D$+SD$(LOOP,—c(—iP$,LO,1)))+—lS
P," ")÷e÷ef2÷?opt=1—4D$=D$+DAT$(LOOP|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:27/52
|B221421A|a16McBasj|j24BBBC332k|m43627|p
,—c(—iP$,LO,1)))+—lSP," ") ÷e÷ep÷#÷ELK÷e
÷ez÷q÷? —iP$,2,1)="," —4 —5tNM÷e÷e—,1÷?N
$="on"—4÷ELM$+—k(LOOP)+" "+E$—3÷?N$="off
"÷I M$+D$÷e÷e—6÷m÷; NSP=1 —|— SPA:÷I:÷E÷
j÷e—@÷a÷ELOOP÷i÷i—J÷|—÷G3,6÷e÷e—T÷a÷=—5D
TV÷e÷e—^÷a÷G3:÷3 ÷e÷e—hX÷I—26,3)—e134;"E
nter option:":÷IW—1(7);"1. Alter *FX6 ("
;I;")":÷I'—1(7R;"2. Start printout"÷i÷e—
r÷oA=—M-48:÷? A=-21 —4 ÷P ÷e÷e÷,÷p÷?A<1 
—, A>2—4÷G7:÷=—5dJM ÷i÷e÷6÷k÷?A=1—4÷Jf:÷
3:÷=—5tvZ÷e÷e÷@÷g÷?A<>2—4—5dJM ÷e÷e÷J÷i÷
?opt=3—4—5dlN  ÷e÷e÷TI÷3:÷I—21,1);—e134;
"Print jrom";—e135;:÷@SP;÷k÷f÷^÷t÷? SP=0
 —4 SP=1:÷I—214,1);SP÷i÷f÷h÷r÷?SP<0 —, S
P>X-1—4÷3:÷=—5d||Z÷e÷f÷r%÷I—21,3);—e134;
"Print to";—e135;:÷@EP;÷e÷f$÷v÷? EP=0 —4
 EP=X-1:÷I—214,3);EP÷e÷f.*÷?EP<SP —, EP>
X-1 —4÷I—21,3)—l20," "):÷=—5TZN ÷e÷f8D÷;
L=1—|—F%:LE=—Q(DAT$(0,L)):÷?—Q(DAT$(0,L+
1))>LE —4 LJ=—Q(DAT$(0,L+1)):÷E÷e÷fB÷sLM
d=—l2," "):L$=—lLE," ")÷e÷fL÷a÷G2,21÷e÷f
V÷j÷; LOOP=SP —|— EP÷e÷f|— ÷? —N(-66|c  
                                        
                                        
   P727 CJJFA( 727  Mon 10 Nov  21:07/35
|B221521A|b16McBasj|j44BBBC332k|m438D3|p
  —4 ÷Ja:LOOP=EP:÷= —5d N÷ ÷fj ÷?N$="on"
—4÷I—1(2);"Record No. ";LOOP  ÷e÷ft÷aD$=
""÷e÷f|÷÷d÷;FI=1—|—F%÷e÷f—0÷f÷Jalign(FI*
÷e÷f—:"TJ$=DAT$(0,FI)+—lalign," ")+":"÷e
÷f—D÷v÷?opt=2—4D$=TJ$+SD$(LOOP,FI)÷e÷f—N
÷w÷?opt=1—4D$=TI$+DAT$(LOOP,FI)÷e÷f—X÷d÷
I—1(2);D$÷i÷f—"÷#÷EFI÷e÷f—l÷#÷I++÷e÷f—v÷
a÷ELOOP÷e÷f÷0÷|—÷G3,6÷e÷f÷:÷a÷=—5tvM÷i÷f
÷DD÷;L=1—|—FJ:LE=—Q(DAT$(0,L)):÷?—Q(DAT$
(0,L+1))>LE —4 LE=—Q(DAT$(0,L+1)):÷E÷u÷f
÷N÷gL$=—lLE," ")÷k÷g÷X÷a÷G2,21÷e÷g÷b÷g÷;
LOOP=1—|—X-1÷e÷g÷l"÷? —N(-66) —4 ÷Ja:LOO
P=X-1:÷= —5DnO ÷e÷g÷v÷r÷?A%?LOOP=0—4D$="
":÷=—5EnO÷e÷g(÷u÷I—1(2);"Record No. ";LO
OP ÷e÷g2÷d÷;F =1—|—F*÷e÷g<÷f÷Jalign(EI*÷
e÷gF"TR$=DAT$(0,FIR+—lalign," "I+":"÷e÷g
P!D$=TI$+DAT$(LOOP,FI):÷I—1(2I;D$÷e÷gZ÷#
÷EFI÷e÷gd÷eD$="":÷I''÷e÷gn÷a÷ELOOP÷e÷gx÷
|—÷G3,6÷e÷g—*÷a÷=—5tvM÷e÷g—40÷3:÷I+—1(1)
;—e134;"Enter field order (1,2,3...)"÷i÷
g—>÷g÷@—.—22,2I;FO$÷e÷g—H$÷?—?(FO$)=-1—4
÷G7,11:÷I—l20," "):÷=—5uVO÷i÷g—RkF=1|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:07/56
|B221621A|a16McBasj÷j24BBBC332k|m43B7E|p
:÷; L=1 —|— —Q(FO$):÷? —iFO$,L,))="," —,
 —iFO$,L,1)="+" —, (—?(—iFO$,L,1))>48 —(
 —I—iFO$,L,1))<=48+F%) —4 F=0 ÷e÷g—\÷l÷
? F=1 —4 L=—Q(FO$)÷e÷g—f÷]÷E÷e÷g—p ÷? F=
2—4÷G7,21:÷I—l40," "):÷=—5tVO ÷e÷g÷*÷fP$
=FO$:÷3:÷P÷i÷g÷4)÷5÷Jf:÷3:÷I'—1(1);—e134
;"Enter code *FX6,";÷e÷g÷>?A$=—f:÷? —?(A
$)=13 —4 ÷I"10":I=10:÷-x(6,IQ —3 ÷IA$:I=
—c(A$):÷Jx(5,I) ÷e÷g÷H÷]÷9÷e÷g÷R÷l÷Jtitl
e("DELETE")÷e÷h÷\÷v÷I—26,3)—e134;"Enter 
option:"÷e÷h÷fq÷I'—1(;)"1. Delete record
":÷I'—1(7)"2. Delete records":÷I'—1(7)"3
. Delete markers":÷I'—1(7)"4. Delete mar
ged records"÷e÷h÷p'÷?X=1—4÷I—S10,20)—e13
4;"No data entered"÷e÷h"÷nA=—M-48:÷? A=-
21 —4 ÷P÷i÷h,÷o÷?A<1 —, A>4—4÷G7:÷=—5TbP
÷e÷h6÷d÷?A=k—4÷Q÷e÷h@÷e÷X=1—4—5T"P÷e÷hJ
÷e÷?A=1—4—5tnP÷e÷hT÷e÷?A=2—4—5TpQ÷e÷h^ 
? MR>0 —( A=4 —4 ÷I—29-Q7)—e134;"No mark
ed records":W=—N(200):÷I—29,17);—l40," "
):÷=—5TbP÷e÷hhM÷? MR=0 —( A=3 —4 ÷I—210,
17)—e134;"No markers":W=—N(200):÷I—2|c  
                                        
                                        
   P727 EEJFAX 727  Mon 10 Nov  21:08/1:
|B221721A|a16McBase|j24BBBC332k|m43E44|p
10-Q7);—l12," "):÷=—5TbP÷e÷hr÷h÷? A=4 —4
 —5dFQ÷e÷h||/÷? A=3 —4 ÷I—210,17)—e134;"
Are you sure (Y/N)?" ÷i÷h—.BUS=—M —( &DF
:÷? SS=78 —4 ÷I—210,Q7)—l30," "):÷= —5Tb
P —3 ÷ SS<>89 —4 —5tFP÷e÷h—8÷|—MR=0÷k÷h
—B=÷;L=1 —|—X-1:A%?L=0:÷E:÷I—210,Q7)—e13
0;"Markers deleted";—l5," ")÷e÷h—L$A=—N(
250):÷I—210,Q7)—l20," "):÷= —5TbP÷e÷h—V 
÷3:÷I'—1(1)—e134;"Enter number";÷e÷h—|—÷
^÷@D÷e÷h—j÷i÷?D=0—4÷G7:÷=—5dzO÷e÷h—tH÷3:
÷I'':÷;LL=1—|—F*:÷Jalign(LL*:÷I—1(2)DAT$
(0,LL);—1(align);": ";DAT$(D,LL):÷E÷e÷h÷
.(÷I—29,20);—e134;"Are you sure (Y/N)?" 
 ÷e÷h÷8.SS=—M —( &DF:÷? SS=78 —4—5dzO —3
 ÷ SS<>89 —4 —5d|—P÷u÷h÷B9÷3:÷I—2)3,20)
;—e130;"Deleted";—l10," "):÷? A%?D=1 —4 
MR=MR-1÷e÷h÷L÷g÷; L=D —|— (-1÷e÷h÷V÷d÷;L
L=1—|—F*÷e÷i÷|—'DAT$(L,LL)=DAT$(L+1,LL):
A%?L=A%?L+1÷e÷i÷j÷b÷ELL:÷EL÷e÷i÷t÷a(=(-1
÷e÷i&÷jA=—N(250):÷=—5dzO÷e÷i0)÷3:÷I'—1(1
)—e134;"Enter lower limit";:÷@ A
LA<1 —, LA>X-1—4÷G7,11:÷I—l40," "):÷G|c 
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:08/40
|B221821A|a16McBasj|j24BBBC332k|m44105|p
11,11,11:÷=—uTpQ÷e÷iD(÷I'—1(1)—j134;"Emt
er higher limit";:÷@HN÷e÷iN4÷?HN<LA —, H
N>X-1—4÷G7,11:÷I—l40," "):÷G11,11,11:÷=—
TIDQ ÷e÷eXT ÷I—210,10);—e134;"Are you su
re (Y/N)?" ÷i÷ib1 SS=—M —( *DF:÷? SS=78 
—4 —udzO —3 ÷ SS<>89 —4 —5EbQ ÷e÷il2÷I—
210,10);—e130;LA;" to ";HN;" deleted";—1
(5):Z=0÷e÷iv÷j÷; L=HN+1 —|— (-1÷e÷i—(÷s÷
? A%?(LA+Z)=1 —4 M M LL
—F%÷e÷i—<+DAT$(LA+Z,LL)=DAT$(L,LL):A%?(L
A+Z)=A%?L÷e÷i—F÷#÷ELL÷e÷i—P÷aZ=Z+1÷e÷i—Z
÷^÷EL÷e÷i—d£(=(-(HN-(LA-1)):A=—N(250):÷=
—udzO ÷i÷i—n&÷I—210,Q7)—e134;"Are ywu su
ri (Y/N)?"÷e÷i÷(DST=—M —( &DF:÷? SS=78 —
4 ÷I—210,17)—l30," "):÷= —5TbP —3 ÷? SS<
>89 —4 —5dPQ  ÷e÷i÷22÷I—25,17);—e130;"Ma
rued records deleted";—l10," ")÷e÷i÷<÷#L
=1÷e÷i÷F÷s÷? A%?L=0 —4 L=L+1:÷= —5dnQ÷e÷
i÷P÷h÷; L1=L —|— X-1÷e÷j÷Z÷kA%?-1=A%?(L1
+1)÷i÷j÷d÷g÷; L2=1 —|— F%÷e÷j÷n÷uDAT$(L)
,L2)=DAT$(LQ+1,L2)÷e÷j ÷s÷E L2,L1÷e÷j*÷i
MR=MR-1:X=X-1÷e÷j4÷j÷? MR<>0 —4 —5dd|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:08/03
|B221:5QA|a16McBasj|j24BBBC332k|n443D2|p
Q÷e÷j>£A=—N(250):÷I—25,17);—l30," "):÷=—
5TbP÷e÷jH÷e÷5÷Jcatalog÷e÷jR÷i÷G28,2,24,3
9,4÷e÷j\÷]÷3÷e÷jf÷bRCAT 0÷ ÷jp÷]÷9÷0÷jz÷
g÷5÷ title(S$)÷e÷j—,÷rUT$="":÷G28,0,24,3
9,0:÷3÷e÷j—6-÷;LOOP=1—|——Q(S$):TT$=TT$+—
iS$,LOOP,1)+—e(32):÷E÷e÷j—@BC=—Q(S$)/2:÷
;LOOP=1—|—2:÷I—e14Q;—e129;—e157;—e131;—2
20-(—Q(TT$)/2));TT$:÷E÷e÷j—J÷i÷G28,0,24,
39,2÷e÷j—T÷]÷9÷e÷j—^÷g÷5÷Jalign(LL)÷ ÷j—
h÷b÷B L,LJ÷e÷j—r÷oLE=—Q(DAT$(0,1))÷e÷j÷,
8÷; L=1 —|— F%-1:÷? LE<—Q(DAT$(0,L+1)) —
4 LE=—Q(DAT$(0,L+1  ÷e÷j÷6÷]÷E÷e÷j÷@÷sal
ion=LE-—Q(DAT$(0,LL*)+1÷e÷j÷J÷]÷=÷e÷j÷T 
÷5÷Jx(A%,X*):Y%=0:÷.&FFF4:÷9    ÷e÷k÷^÷u
÷L **** ERROR REPORTS ****÷i÷k÷hJ÷? —G=&
BF —4 ÷I'—1(1)—e134;"Can't extend th  fi
le":÷G7:÷; L=1 —|— 2000:÷E:÷= —5DZ@ ÷u÷k
÷r7÷ —G=&B —4 ÷I'—1(1)—e134;"Not enwugh
 memory":QQ=—N(200):÷Q÷e÷k$;÷? —G=&C9 —4
 ÷I'—1(1)—e134;"Write protected":QQ=—N(2
                                        
e134;"Disc full":QQ=—N(200):÷= —5EZ@|c  
                                        
                                        
   P727 CEEFAX 727  Mon 10 Nov  21:09/26
|B221A21A|a16McBasj|j24BBBC332k|m4468E|p
 ÷e÷k8÷l÷N:÷I" AT LINE ";—F÷e÷kB÷|—*FX4÷
e÷kL÷c*F(12,2÷e÷kV÷b*FX229÷e÷k|—÷]÷R÷e÷k
j÷#÷5÷Ja÷e÷kt÷a*FX15÷e÷k|÷÷e÷G0,0,3,6 ÷e
÷k—0÷]÷9÷e÷k—:>÷I—20,Q7);—e32;—e129;—e15
7;—e131;—1(7);"Are you suru (Y/N)?";—1(8
R÷i÷k—D0A=—M —( &DF:÷!A=78 —4 ÷= —5tTB 
—3 ÷? A<>89 —4 —5t\S  ÷i÷k—NF÷I—20,Q7I;—
e32;—e12Y;—e157;—j131;—1(2);"Break to st
art from scratch";—1(8)÷e÷k—X÷cA=—M:÷C 7
÷e÷k—b÷|—*FX4÷e÷k—l÷b*FX229÷e÷k—v÷]÷8÷e÷
k÷0÷a÷5÷Jfsp÷e÷k÷:<F=0:÷;LOOP=1—|——Q(ftp
$):÷?—?(—ifsp$,LOOP,1))>90—4F=1:÷E:÷?F=1
—4—5TrT÷e÷k÷D5÷? —ifsp$,2,1)="." —4 ST=4
:F$=—hfsp$,3):FF$="":÷= —5T@T÷e÷k÷N÷sF$=
—hfsp$,1):FF$="":S(=2÷e÷l÷X÷o÷; LOOP=ST 
—|— —Q(ftp$)÷e÷l÷bM÷?—?(—ifsp$,LOOP,1))<
6u—4FF$=FF$+—ifsp$,LOOP,1)—3FF$=FF$+—e(—
?(—ifsp$,LOOP,1))+32)÷e÷l÷l÷a÷ELOOP÷e÷l÷
v÷ifsp$=F$+FF$:÷9÷e÷l(÷b÷5—Lfree÷e÷l2÷l=
—;-(!2 —( &FFFF) ÷e÷W|c