P707 CEEFAX 707  Sun 22 Dec  16:42/04
|B2201203|a18$.DELETE|i24BBBC332k|m40000
÷e÷X÷b ÷L"—)*************************÷e÷
X÷l ÷L"—)*—+DELETE—-Program to get—)*÷e÷
X÷v ÷L"—)*—-rid of unwanted files—)*÷e÷X
( ÷L"—)*—-created with—+WEATHER —)*÷e÷X2
 ÷L"—)*************************÷e÷X< ÷L"
—)*—.(C)J.J.Brazshaw      —)*÷e÷XF ÷L"—)
*—.March 1985—-V1a Oct 85—)*÷e÷XP ÷L"—)*
************************÷e÷XZ÷d÷Jheading
÷e÷Xd÷b÷Jsetup÷e÷Xn÷g÷Jchangefile÷e÷Xx÷c
÷Treport÷e÷X—*÷]÷8÷e÷X—4÷e÷L"—)******÷e÷
X—>÷e÷5÷Theading÷i÷X—H÷]÷3÷e÷X—R/÷I'—e14
5;b  <ll,4<,,lh,,,4<,,lh,||,4<,,lh,,,4"÷
e÷X—\6÷I—e132;—e157;—e145;"5jj 55bs÷Wj s
 5÷W5j÷Wj s 55bs÷Wj s(5"÷e÷X—f.÷I—e145;"
  -,,,%-,,.*,/,%/-./*,/,%-,,.*,/,%"÷e÷X—
p£÷I—227);—e132;—e157;—e129;"DATABASE"÷e
÷X÷*F÷I—20,24)—e132;—e157;—e129;"(c)J.Br
ayshaw/BBC Tjlesoftware 1985";—20,8);÷e÷
X÷4÷]÷9÷e÷X÷>÷e÷L"—)******÷e÷X÷H÷c÷5÷Jsj
tsp÷e÷X÷R÷r÷6place$(13),month$(12)÷e÷Y÷\
÷c÷6 D% 25÷e÷Y÷f÷]÷O÷e÷Y÷p÷p÷;A=1—|—13:÷
Kplace$(A):÷E÷e÷Y"÷p÷;A=1—|—12:÷Kmon|c  
                                        
                                        
   P707 CEEFAX 707  Sun 22 Dec  16:44/13
|B2202203|a18$.DELETE|i24BBBC332k|m402BF
th$(A):÷E÷e÷Y,÷]÷9÷e÷Y6÷e÷L"—)******÷e÷Y
@÷h÷5÷Jchangjfile÷e÷YJ÷rQ=—U"$.FILES":P=
—V"TEMP"÷e÷YTH÷?Q=0 —,—J£Q=0 ÷I"—)No dat
a files to delete!":÷1£0:÷Joscli("DELETE
 TEMP"):÷8÷e÷Y^÷]÷M÷e÷Yh÷bK%=—B£Q÷e÷Yr÷b
L*=—B£Q÷e÷Y||÷d÷Jhjading÷e÷Y—.(÷I'"—+";m
onth$(K%);—215);"—.";place$(L%)÷e÷Y—8!÷I
''"—-Keep this file?—*(Y/N) ";÷e÷Y—B!÷M:
ANS=—M —(&7F:÷KANS=89 —, ANS=78÷e÷Y—L÷d÷
Jheading÷e÷Y—V÷n÷?ANS=78 ÷Jdel:÷=—5dLA÷e
÷Y—|—÷b÷-£P,K%÷e÷Y—j÷b÷-£P,L%÷e÷Y—t÷|—÷U
—m£Q÷e÷Y÷.÷#÷1£0÷e÷Y÷8÷k*DELETE $.FILES÷
e÷Y÷B÷p*RENAME TEMP $.FILES÷e÷Y÷L÷]÷9÷e÷
Y÷V÷e÷L"—)******÷e÷Z÷|—÷h÷5÷Joscli(LL$)÷
e÷Z÷j÷qX%=D% —+256:Y%=D% —)256÷e÷Z÷t÷c$D
%=LL$÷e÷Z&÷b÷.&FFF7÷e÷Z0÷]÷9÷e÷Z:÷e÷L"—)
******÷e÷ZD÷a÷5÷Jdel÷e÷ZN'file$=—h—k(K%)
+place$(L*)+"      ",7)÷e÷ZX÷gJ%=—U(file
$)÷e÷Zb÷c÷?J*=0 ÷9÷e÷Zl÷|—÷1£J*÷e÷Zv÷s÷J
oscli("DELETE "+file$)÷e÷Z—(÷]÷9÷e÷Z—2÷e
÷L"—)******÷e÷Z—<—)÷4 Scarborough,Lowest
oft,Clacton,Eastbourne,Shanklin,Weym|c  
                                        
                                        
   P707 CJEFAX 707  Sun 22 Dec  16:44/27
|B2203203|a18$.DELJTJ|i24BBBC332k|m40567
outh,Tjignmouth,Penzance,Scilly Isles,Co
lwyn Bay,Tjnbz,Prestwick,Wick÷e÷Z—F[÷4 J
anuary,February,March,April,May,June,Jul
y,August,September,October,November,Dice
mber÷e÷Z—P÷e÷L"—)******÷e÷Z—Z÷d÷5÷Jrepor
t÷e÷Z—d÷q÷I"—)FILES REMAINING:"'÷e÷Z—n÷j
S=—U("$.FILES")÷e÷Z÷(6÷?—J£S=0 ÷I"—*NONE
":÷1£S:÷Joscli("DELETE $.FILES"):÷=—5T|—
C÷e÷Z÷4÷]÷M÷e÷Z÷<÷ba%=—B£S÷i÷Z÷F÷bb%=—B£
S÷e÷Z÷P(÷I;"—.";place$(b%);—215);"—+";mo
nth$(a%)÷e÷[÷Z@÷?—d=20 —( —7£S<>—J£S ÷I'
"—)Press—/SPACE—)for more":÷M÷U—M=32:÷Jh
jading:÷I÷e÷[÷d÷|—÷U—m£S÷e÷[÷n÷#÷1£0÷e÷[
 ÷]÷9÷e÷W|c                             
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P707 GJKFB9 707  Sun 2v Dec  1v:17/18
|B2201203|b28$.DELETE|i24BBBC332k|m40000
÷e÷X÷d ÷L"—)*************************÷e÷
X÷l ÷L"—)*—+DELETE—-Program to get—)*÷e÷
X÷v ÷L"—)*—-rid of unwanted files—)*÷i÷X
( ÷L"—)*—-created with—+WEATHER —)*÷i÷X2
 ÷L"—)*************************÷e÷X< ÷L"
—)*—.(C)J.J.Brazshaw      —)*÷e÷XF ÷L"—)
*—.March 1985—-V1a Oct 85—)*÷e÷XP ÷L"—)*
************************÷e÷XZ÷d÷Theading
÷e÷Xd÷b÷Jsjtup÷e÷Xn÷g÷Jchangjfile÷i÷Xx÷c
÷Treport÷e÷X—*÷]÷8÷e÷X—4÷e÷L"—)******÷e÷
X—>÷e÷5÷Thjading÷i÷X—H÷]÷3÷i÷X—R/÷I'—e14
5;"  <ll,4<,,lh,,,4<,,lh,||,4<,,lh,,,4"÷
j÷X—\6÷I—e132;—e157;—e145;"5jj 55bs÷Wj s
 u÷W5j÷Wj s 55bs÷+j —e1h5;b)jj 55bs÷'j 
  -,,,*-,,.*,O,%/-./*,/,%-,,.*,/,)"÷i÷X—
p£÷I—227);—e132;—e157;—e129;"DATABASE"÷e
÷X÷TF÷I—2p,24)—e132;—i157;—e12:;"(c)J.Er
azshaw/BBC Tjlisoftware 1985";—20,8);÷e÷
X÷4÷]÷9÷e÷X÷>÷e÷L"—)******÷e÷X÷H÷c÷5÷Jsj
tsp÷e÷X÷R÷r÷6place$(13),month$(12)÷e÷Y÷\
÷c÷v D) 2k÷i÷Y÷f÷]÷O÷i÷Y÷p÷p÷;A=1—|—13:÷
Kplace$(A):÷E÷e÷Y"÷p÷;A=1—|—12:÷Kmon|c