P726 CEEFAX 726 Wed 30 Dec 21:10/00 |B220120E|a17DatBase|i13M/C|m10÷e÷X÷b÷n ÷L"—)DATA BASE V3—/"÷e÷X÷l÷s ÷L"—*BOB AN DERSON 1985—/"÷e÷X÷v÷]:÷e÷X(÷b ÷F — ÷Q÷ ÷F —- ÷Jcheckerror÷e÷XF÷]:÷e÷XP÷^ ÷M÷e÷X Z÷e *FX200,0÷e÷Xd÷o ÷?flag2=0÷Jsetscreen ÷e÷Xn÷d flag2=0÷e÷Xx÷d *FX11,0÷e÷X—*÷|— K=—M÷e÷X—4÷d ÷?K=70÷Jf÷e÷X—>÷d ÷?K=66÷Jb ÷e÷X—H÷p ÷? K=70 —, K=66 ÷=—5TbA÷e÷X—R÷d ÷?K=65÷Ja÷e÷X—\÷d ÷?K=68÷Jd÷e÷X—f÷d ÷?K =69÷Je÷e÷X—p÷d ÷?K=72÷Jh÷e÷X÷*÷d ÷?K=75÷ Jk÷e÷X÷4÷d ÷?K=76÷Jl÷e÷X÷>÷d ÷?K=78÷Jn÷e ÷X÷H÷d ÷?K=42÷Jo÷e÷X÷R÷e ÷?K=79÷Jor÷e÷Y÷ \÷d ÷?K=80÷Jp÷e÷Y÷f÷d ÷?K=82÷Jr÷e÷Y÷p÷d ÷?K=83÷Js÷e÷Y"÷|— ÷U —K÷e÷Y,÷]:÷e÷Y6÷i ÷ 5÷Jinitialise÷e÷Y@÷e *FX200,0÷e÷YJ÷c *FX 4,2÷e÷YTP flag=0:flag2=0:file$="":record =0:starta=&4501:÷6f$(16),le(16),len(16): ÷Jclear÷e÷Y^÷^ ÷9÷e÷Yh÷]:÷e÷Yr/ ÷5÷Jchec kdrror:÷G7:÷I'"—0—): ER ORNJ sp:÷9÷e÷Y||÷]:÷e÷Y—.÷h ÷5÷Jsetscreen÷e÷Y —8÷b ÷G26:÷3÷e÷Y—B+ ÷Jgetbytes(56):÷?H>0 —( record=0 record=1÷e÷Y—L—o A$=—e1|c
P726 CEEFAX 726 Wed 30 Dec 21:20/32 ÷L"— DATA BASE V3—/"÷e÷X÷l÷s ÷L"— BOB AN DERSON 1985—/"÷e÷X÷v÷ :÷e÷X(÷b ÷F —- ÷Q÷ e÷X2÷s ÷C7:÷+=&4500:÷Jinitialise÷e÷X<÷l ÷F —- ÷Jcheckerror÷e÷XF÷]:÷e÷XP÷^ ÷M÷e÷X Z÷e *FX200,0÷e÷Xd÷o ÷?flag2=0÷Jsetscreen ÷e÷Xn÷d flag2=0÷e÷Xx÷d *FX11,0÷e÷X—*÷|— K=—M÷e÷X—4÷d ÷?K=70÷Jf÷e÷X—>÷d ÷?K=66÷Jb ÷e÷X—H÷p ÷? K=70 —, K=66 ÷=—5TbA÷e÷X—R÷d ÷?K=65÷Ja÷e÷X—\÷d ÷?K=68÷Jd÷e÷X—f÷d ÷?K =69÷Je÷e÷X—p÷d ÷?K=72÷Jh÷e÷X÷*÷d ÷?K=75÷ Jk÷e÷X÷4÷d ÷?K=76÷Jl÷e÷X÷>÷d ÷?K=78÷Jn÷e ÷X÷H÷d ÷?K=42÷Jo÷e÷X÷ KJY \÷d ÷?K=80÷Jp÷e÷Y÷f÷d ÷?K=82÷Jr÷e÷Y÷p÷d ÷?K=83÷Js÷e÷Y"÷|— ÷U —K÷e÷Y,÷]:÷e÷Y6÷i ÷ 5÷Jinitialise÷e÷Y@÷a *FX200,0÷e÷YJ÷c *FX 4,2÷e÷YTP flag=0:flag2=0:file$="":record =0:starta=&4501:÷6f$(16),le(16),len(16): ÷Jclear÷e÷Y^÷^ ÷9÷e÷Yh÷]:÷e÷Yr/ ÷1÷Jchec kerror:÷G7:÷I'"—0—): ER ORNJ sp:÷9÷e÷Y||÷]:÷e÷Y—.÷h ÷5÷Jsetscreen÷e÷Y —8÷b ÷G26:÷3÷e÷Y—B+ ÷Jgetbytes(56):÷?H>0 —( record=0 record=1÷e÷Y—L—o A$=—e1|c
P726 CEEFAX 726 Wed 30 Dec 21:01/03 |B220220E|a17DatBase|i13M/C|m329348+"—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—T—T—T—T—T—T—T—T—T—T—T—T—T—T":÷I" —,"—e157;—213,0);"—+DATA BASE"—20,4)A$;— 20,22)A$;—20,23)"—+RECORD NOS : ";record :÷I—220,23);"FILE SIZE : ";:÷Jgetbytes(5 6):÷I;H;—20,24);"—+RECORD SPACE : ";÷e÷Y —V4 ÷Jgetbytes(54):÷I;H;—220,24);"FILE N AME : ";file$;÷e÷Y—|—÷k ÷Jtopw:÷Joptions ÷e÷Y—j[ ÷Jbotw:÷? ?(starta+12)=0 ÷;A=0—| —1:÷I—27,A+7)—e141"—0FILE NOT INITIALISE D":÷E —3 ÷Jpfield:÷Jprecord÷e÷Y—t÷^ ÷9÷e ÷Y÷.÷]:÷e÷Y÷80 ÷5÷Ja:÷Jtitle("ADD"):÷? ? (starta+12)=0÷Jnexist:÷9÷e÷Y÷B÷p ÷Jgetby tes(54):÷?H=0÷9÷e÷Y÷L: ÷I—29,1);"—*RETU N—.]select field";—212,2);"—*TAB—.]finis h";÷e÷Y÷V÷e *FX200,1÷e÷Z÷|—d ÷Jgetbytes( 54):H=H-1:÷Jputbytes(54):÷Jgetbytes(56): H=H+1:÷Jputbytes(56):÷I—29,0);"—. ECORD NO'S :—+";H;÷e÷Z÷j÷g ÷Jinputrec1÷e÷Z÷t÷n ÷Jgetbytes(16):A=H÷e÷Z&6 ÷Jget—ytes(56) :?(A)=(H —+255):?(A+1)=(H —)255):A=A+2÷e ÷Z0' ÷;B=0—|—16:C=le(B)-—Q(f$(B)):÷?|c
P726 CEEFAX 726 Wed 30 Dec 21:10/05 |B220320E|a17DatBasa|i13M/C|m356AC=0÷=—q DDB÷e÷Z:÷w ÷;D=1—|—C:f$(B)=f$(B)+—e(32): ÷E÷e÷ZD£ ÷E:÷;B=0—|—16:$A=f$(B):A=A+le(B ):÷E÷e÷ZN÷n H=A:÷Jputbytes(16)÷e÷ZX÷^ ÷9 ÷e÷Zb÷]:÷e÷Zl÷i ÷5÷Jb:*FX200,1÷e÷Zv- ÷? ?(starta+12)=0÷Jtitle("BACK"):÷Jnexist:÷ 9÷e÷Z—(÷g ÷?record=1÷9÷e÷Z—20 ÷Lgetbytes (56):÷?H=0÷Btitle("BACK"):÷Jnrecord:÷9÷e ÷Z—1 record=record-1:÷Jpreco rd:flag2=1÷e÷Z—F÷^ ÷9÷e÷Z—P÷]:÷e÷Z—Z3 ÷5 ÷Jd:÷Jtitle("DELETE"):÷? ?(starta+12)=0÷ Jnexist:÷9÷e÷Z—d! ÷Jgetbytes(56):÷?H=0÷J nrecord:÷9÷e÷Z—n÷i ÷Jsure:÷?ss=1÷9÷e÷Z÷( ÷e *FX200,1÷e÷Z÷23 ÷Jtitle("DELETE"):÷I— 211,1);"—)—0DELETING DCORD—1";÷e÷Z÷<* ÷ Jgetbytes(14):A%=H:÷Jgetbytes(52):B%=H÷e ÷Z÷F÷s A%=A%+(B%*(record-1)):÷e÷Z÷P÷o ÷J getbytes(56):D%=H÷e÷[÷Z÷n ÷;C%=record —| — D%-1÷e÷[÷d& ?(A )=(C% —+255):?(A%+1)=( C% —)255)÷e÷[÷n÷d A%=A%+2÷e÷[ ( ÷;E%=A% —|— (A%+B% 2:?(E%)=?(E%+B%):÷E÷e÷[*÷k A %=(A%+B%)-2:÷E÷e÷[4÷o H=A%:÷Jputbytes(16 )÷e÷[>& ÷Jgetbytes(54):H=H+1:÷Jputby|c
P726 CEEFAX 726 Wed 30 Dec 21:13/51 |B220420E|a17DatBase|i13M/C|m3846tes(w4) ÷e÷[H) H=D%-1:÷Jputbytes(56):record=reco rd-1÷e÷[R÷^ ÷9÷e÷[\÷]:÷e÷[f1 ÷5÷Nf:÷Jtit le("EDIT"):÷? ?(starta+12)=0÷Jnexist:÷9÷ e÷[p! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e ÷[z÷t ÷I—29,1);"—.PLEASE WAIT—/";÷e÷[—,÷ e *FX200,1÷e÷[—6P a=18:÷;A=0—|—16:f$(A)= "":le(A)=(?(starta+(a+17))):len(A)=(?(st arta+a)):a=a+1:÷E÷e÷[—@U ÷Jgetbytes(14): A=H:÷Jgetbytes(52):B=H:A=A-B:÷M:A=A+B:÷J getbytes(A-starta):÷U H=record÷e÷[—JJ A= A+2:I=A:÷;B=0—|—16:÷;C=1—|—le(B):f$(B)=f $(B)+—e(?(A+C-1)):÷?le(B)=0f$(B)=""÷e÷[— T÷w ÷E:A$="":a=0:÷?f$(B)="b÷=—5d@C÷e÷[—^ 0 ÷M:A$=—if$(B),le(B)-a,1):a=a+1:÷UA$<>" ":a=a-1÷e÷[—h& f$(B)=—hf$(B),le(B)-a):A =A+le(B):÷E÷e÷[—ro ÷I—29,1);"—*RETURN—.] select field";—212,2);"—*TAB—.]finish";: ÷Jbotw:f=-1:÷M:f=f+1:÷Ule(f)<>0:÷G31,(le n(f)+—Q(f$(f))),f÷e÷[÷,÷l ÷M:A=—M:÷?A=9÷ =—5TdD÷e÷[÷6÷u ÷?A=13—(f=16f=0—3÷?A=13f= f+1÷e÷[÷@÷l ÷? le(f)=0 ÷=—5d^C÷e÷[÷J÷h ÷ ?A=13 ÷=—5TZD÷e÷[÷TN ÷?A=127—( —Q(f$|c
P726 CEEFAX 726 Wed 30 Dec 21:20/04 ÷e÷[H) H=D%-1:÷Jput—ytes(=6):record=reco rd-1÷e÷[R÷^ ÷9÷e÷[\÷]:÷e÷[f1 ÷5÷Jd:÷Jtit le("EDIT"):÷? ?(starta+12)=0÷Jnexist:÷9÷ e÷[p! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e ÷[z÷t ÷I—29,1);"—.PLEASE GAIT—/";÷e÷[—,÷ e *FX200,1÷e÷[—6P a<18:÷;A=0—|—16:f$(A)= "":le(A)=(?(starta+(a+17))):lan(A)=(?(st arta+a)):a=a 1:÷E÷e÷[—@U ÷Jgetbytes(14): A=H:÷Jgetbytes(52):B=H:A=A-B:÷M:A=A+B:÷J getbytes(A-starta):÷U H=record÷e÷[—JJ A= A+2:I=A:÷;B=0—|—16:÷;C=1—|—le(B):f$(B)=f $(B)+—e(?(A+C-1)):÷?le(B)=0f$(B)=""÷e÷[— T÷w ÷E:A$="":a=0:÷?f$(B)=""÷=—5d@C÷e÷[—^ 0 ÷M:A$=—if$(B),le(B)-a,1):a=a+1:÷UA$<>" ":a=a-1÷e÷[—h& f$(B)=—hf$(B),le(B)-a):A =A+le(B):÷E÷e÷[—ro ÷I—29,1);"—*RETURN—.] select field";—212,2);"—*TAB—.]finish";: ÷Hbotw:f=-1:÷M:f=f+1:÷Ule(f)<>0:÷G31,(le n(f)+—Q(f$(f))),f÷e÷[÷,÷l ÷M:A=—M:÷?A=9÷ =—5TdD÷e÷[÷6÷u ÷?A=13—(f=16f=0—3÷?A=13f= f+1÷e÷[÷@÷l ÷? le(f)=0 ÷=—5d^C÷e÷[÷J÷h ÷ ?A=13 ÷=—5TZD÷e÷[÷TN ÷?A=127—( —Q(f$|c
P726 CEEFAX 726 Wed 30 Dec 21:30/19 |B220520E|a17DatBase|i13M/C|m3B35(f))<>0 ÷G127:f$(f)=—hf$(f),(—Q(f$(f))-1)):÷=—5 TZD —3 ÷? A=127 ÷=—5TZD÷e÷\÷^÷s ÷? —Q(f$ (f))=le(f) ÷=—5TZD÷e÷\÷h÷m f$(f)=f$(f)+— e(A)÷e÷\÷r÷o ÷I—2len(f),f);f$(f);÷e÷\$÷a ÷UA=9÷e÷\.' ÷;B=0—|—16:C=le(B)-—Q(f$(B) ):÷?C=0÷=—}DBD÷e÷\8÷w ÷;D=1—|—C:f$(B)=f$ (B)+—e(32):÷E÷e÷\BE ÷E:÷Jgetbytes(52):C= (?(I+H-2)):÷;B=0—|—16:$I=f$(B):I=I+le(B) :÷E:?(I)=C÷e÷\L÷^ ÷9÷e÷\V÷]:÷e÷\|—4 ÷5÷J f:÷? ?(starta+12)=0÷Jtitle("FORWARD"):÷J nexist:÷9÷e÷\j3 ÷Jgetbytes(56):÷?H=0÷Jti tle("FORWARD"):÷Jnrecord:÷9÷e÷\t÷h ÷?rec ord=H ÷9÷e÷\|÷÷e *FX200,1÷e÷\—0/ ÷?recor d \—:÷^ ÷9÷e÷\—D÷]:÷e÷\—N÷i ÷5÷Jh:*FX200,1 ÷e÷\—XK ÷Jtitle("HELP"):÷Jbotw:÷3:÷O—5Tf L:÷;A=0—|—13:÷KA$,B$:÷I—25,A)A$;—29)"# " B$:÷E:÷Jsp:÷9÷e÷\—b÷]:÷e÷\—l1 ÷5÷Jk:÷Jti tle("KEEP"):÷? ?(starta+12)=0÷Jnexist:÷9 ÷e÷\—v- ÷Jbotw:÷3:÷I—20,5)"—+SAVE THE FI LE.—/":÷Jgfname÷e÷\÷0÷e *FX200,1÷e÷\÷:÷j ÷Jgetbytes(16)÷e÷\÷D7 ÷Joscli("*SAV|c
P726 CEEFAX 726 Wed 30 Dec 21:03/00 ÷G127:f$(f)=—hf$(f),(—Q(f$(f))-1)):÷=—5 TZD —3 ÷? A=127 ÷=—5TZD÷e÷\÷^÷s ÷? —Q(f$ (f))=le(f) ÷=—5TZD÷e÷\÷h÷m f$ f)=f$(f)+— e(A)÷e÷\÷r÷o ÷I—2len(f),f);f$(f);÷e÷\$÷a ÷UA=9÷e÷\.' ÷;B=0—|—16:C=le(B)-—Q(f$(B) ):÷?C=0÷=—5DBD÷e÷\8÷w ÷;D=1—|—C:f$(B)=f$ (B)+—e(32):÷E÷e÷\BE ÷E:÷Jget—ytes(52):C= (?(I+H-2)):÷;B=0—|—16:$I=f$(B):I=I+le(B) :÷E:?(I)=C÷e÷\L÷^ ÷9÷e÷\V÷]:÷e÷\|—4 ÷5÷J f:÷? ? starta+12)=0÷Jtitle("FORWARD"):÷J nexist:÷9÷e÷\j3 ÷Jgetbytes(56):÷?H=0÷Jti tle("FORGARD"):÷Jnrecord:÷9÷e÷\t÷h ÷?rec ord=H ÷9÷e÷\|÷÷e *FX200,1÷e÷\—0/ ÷?racor d \—:÷^ ÷9÷e÷\—D÷]:÷e÷\—N÷i ÷5÷Jh:"FX200,1 ÷e÷\—XK ÷Jtitle("HELP"):÷Jbotw:÷3:÷O—5Tf L:÷;A=0—|—13:÷KA$,B$:÷I—25,A)A$;—29)"# " B$:÷E:÷Jsp:÷9÷a÷\—b÷ :÷e÷\—l1 ÷5÷Jk8÷Bti tle("KEEP"):÷? ? starta+12)=0÷Jnexist2÷9 ÷e÷\—v- ÷Jbotw:÷3:÷I—20,5)"—+SAVE THE FI LE.—/":÷Jgfname÷e÷\÷0÷e *FX200,1÷e÷\÷:÷j ÷Jgetbytes(16)÷e÷\÷D7 ÷Joscli("*SAV|c
P726 CEEFAX 726 Wed 30 Dec 21:32/33 |B220620E|a17DatBase|i13M/C|m3E05E"+—e34 +file$+—e34+" "+—k|÷starta+" "+—k|÷H)÷e÷ \÷N÷^ ÷9÷e÷]÷X÷]:÷e÷]÷b1 ÷5÷Jl:÷Jtitle(" LOAD"):÷? ?(starta+12)=1 ÷Jexist:÷9÷e÷]÷ l- ÷Jbotw:÷3:÷I—20,5)"—+LOAD THE FILE.—/ ":÷Jgfname÷e÷]÷v÷e *FX200,1÷e÷](J ÷I''"— .TYPE IN SECURITY PASSWORD."'"—.(DEFAULT IS 'DATABASE').":÷G132:÷@C$÷e÷]2+ ÷Josc li("*LOAD"+—e34+file$+—e34+—k|÷starta)÷e ÷] $+—e(?(B)):÷E:÷?A$<>"BOB ANDERSONb÷G7:÷I ''"—)—0THIS IS NOT A DATABASE—)FILE!!—/— 1":÷Jsp:÷Jclear:÷9÷e÷]Fr ÷?$(starta+58)< >C$ ÷G7:÷I''"—)—0SECURITY BREACH - THE U SER IS NOT"'"—)—0PERMITTED TO ACCESS THI S FILE.":÷Jsp:÷Jclear:÷9÷e÷]P, ÷Jgetbyte s(56):÷? H=0 record=0 —3 record=1÷e÷]Z÷^ ÷9÷e÷]d÷]:÷e÷]n0 ÷5÷Jn:÷Jtitle("NEW"):÷ ? ?(starta+12)=1 ÷Jexist:÷9÷e÷]x÷e *FX20 0,1÷e÷]—*k ÷I—29,0);"—+-DEFINE FIELD TIT LES."—29,1);"—.Use—*RETURN—.to select ne xt"'"—.field,and—*TAB—.to finish.";:÷Jbo tw:÷3÷e÷]—45 $(starta)="BOB ANDERSON|c
P726 CEEFAX 726 Wed 30 Dec 21:02/11 arta+12)=1:record=0÷e÷]—>£ ÷;A=0—|—16:÷I —20,A)"<>";:f$(A)="":÷E÷e÷]—H÷j f=0:÷G31 ,2,0:÷M÷e÷]—R÷k A=—M:÷? A=9÷=—5dpE÷e÷]—\ ! ÷? A=13 —( f=16f=0—3 ÷?A=13f=f+1÷a÷]—f ÷h ÷?A=13 ÷=—5dfE÷e÷]—p! l=—Q(f$(f)):÷?l >36—(A<>127÷=—5dpE÷e÷]÷*÷l ÷?A=127—(—Y<3 ÷=—5dpE÷e÷]÷48 ÷?A=127f$(f)=—hf$(f),((—Q (f$(f)))-1))—3f$(f)=f$(f)+—e(A)÷e÷]÷>£ ÷ I—21,f);f$(f);">";:÷?A=127÷G9;127÷e÷]÷H÷ a ÷UA=9÷e÷]÷R÷]:÷e÷^÷\ a=18:÷;A=0—|—16: ?(starta+a)=—Q(f$(A)):a=a+1:÷E÷a÷^÷f÷]:÷ e÷^÷p[ a=80:÷;A=0—|—16:$ starta+a =f$(A :a=a+—Q(f$(A)):?(starta+a)=7:a=a+1:÷E:?( starta+a)=29:a=a+1÷e÷^"÷]:÷e÷^,|| ?(star ta+14)=((starta+a)—+255):?(starta+15)=(( starta+a)—)255):? starta+16)=((starta+a 055):? starta£17)=((starta a)—)205)÷e÷ ^6÷]:÷e÷^@—; ÷Jpfield:÷Jtopw:÷3:÷Jtitla( "NEW"):÷I—29,0);"—+-DEFINE FIELD LENGTHS ."—29,1);"—*SPACE-BAR—.]enter field leng thN—*TAB—.]finish.—*RETURN—.]select fiel d";:÷Jbotw÷e÷^J÷s ÷G31,(—Q(f$(0))),0|c
P726 CEEFAX 726 Wed 30 Dec 21:20/04 |B220720E|a17DatBase|i13M/C|m410FD":?(st arta+12)=1:record=0÷e÷]—>£ ÷;A=0—|—16:÷I —20,A)"<>";:f$(A)="":÷E÷e÷]—H÷j f=0:÷G31 ,2,0:÷M÷e÷]—R÷k A=—M:÷? A=9÷=—5dpE÷e÷]—\ ! ÷? A=13 —( f=16f=0—3 ÷?A=13f=f+1÷e÷]—f ÷h ÷?A=13 ÷=—5dfE÷e÷]—p! l=—Q(f$(f)):÷?l >36—(A<>127÷=—5dpE÷e÷]÷*÷l ÷?A=127—(—Y<3 ÷=—5dpE÷e÷]÷48 ÷?A=127f$(f)=—hf$(f),((—Q (f$(f)))-1))—3f$(f)=f$(f)+—e(A)÷e÷]÷>£ ÷ I—21,f);f$(f);">";:÷?A=127÷G9;127÷e÷]÷H÷ a ÷UA=9÷e÷]÷R÷]:÷e÷^÷\. a=18:÷;A=0—|—16: ?(starta+a)=—Q(f$(A)):a=a+1:÷E÷e÷^÷f÷]:÷ e÷^÷p[ a=80:÷;A=0—|—16:$(starta+a)=f$(A) :a=a+—Q(f$(A)):?(starta+a)=7:a=a+1:÷E:?( starta+a)=29:a=a+1÷e÷^"÷]:÷e÷^,|| ?(star ta+14)=((starta+a)—+255):?(starta+15)=(( starta+a)—)255):?(starta+16)=((starta+a) —+255):?(starta+17)=((starta+a)—)255)÷e÷ ^6÷]:÷e÷^@—; ÷Jpfield:÷Jtopw:÷3:÷Jtitle( "NEW"):÷I—29,0);"—+-DEFINE FIELD LENGTHS ."—29,1);"—*SPACA\BAR—.]enter field leng th.—*TAB—.]finish.—*RETURN—.]select fiel d";:÷Jbotw÷e÷^J÷s ÷G31,(—Q(f$(0))),0|c
P726 CEEFAX 726 Wed 30 Dec 21:34/19 |B220820E|a17DatBase|i13M/C|m413E9:f=0:÷ M÷e÷^T! A=—M:÷?A=13—(f=16f=0—3÷?A=13f=f+ 1÷e÷^^÷g ÷?A=13÷=—5D||F÷e÷^h) ÷?A=127 —( le(f)>0 le(f)=le(f)-1:÷=—5D||F÷e÷^r6 ÷? A=32 —( (—Q(f$(f))+le(f))<39 le(f)=le(f) +1 —3 ÷=—5tFF÷e÷^||÷q ÷I—2—Q(f$(f))+le(f ),f);÷e÷^—.÷b ÷U A=9÷e÷^—8÷]:÷e÷^—B+ b=3 5:÷;A=0—|—16:?(starta[c8=le(A):b=b+1:÷E÷ e÷^—L. A=2:÷;B=0—|—16:A=A+le(B):÷E:H=A:÷ Jputbytes(52)÷e÷^—V3 ÷Jgetbytes(14):B=H: H=(&7C00-B)—) A:÷Jputbytes(54)÷e÷^—|——= ÷Jtitle("NEW"):÷I—29,0);"—.NOW TYPE IN S ECURITY PASSWORD.";—29,1);"—.(max of 15 characters).";—20,2)"—.DEFAULT IS 'DATAB ASEg.";:÷@A$:÷?A$="" A$="DATABASE"÷e÷^—j ÷o ÷?—Q(A$)>15 ÷G7:÷=—5txF÷e÷^—t- ÷;A=58 —|—73:?(starta+A)=0:÷E:$(starta+58)=A$÷e ÷^÷.÷^ ÷9÷e÷^÷8÷]:÷e÷^÷B|— ÷5÷Jo:÷Jtitle ("OS"):÷Jbotw:÷3:÷I—20,2)"—+Enter operat ing system command now:":÷@" *"$&A00:X%= 0:Y%=&A÷e÷^÷L÷e *FX200,1÷e÷^÷V÷i ÷.&FFF7 :÷Jsp:÷9÷e÷#÷|—÷]:÷e÷#÷j2 ÷5÷Jp:÷Jtitle( "PRINT"):÷? ?(starta+12)=0÷Jnexist:÷9|c
P726 CEEFAX 726 Wed 30 Dec 21:00/02 |B220920E|a17DatBase|i13M/C|m416CB÷e÷#÷t ! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e÷#&— X ÷I—211,1);"—.Print All or fust display ed —.record.(A/D)";:flag3=—M:÷Jtitle("PR INT"):÷I—211,1);"—.What kind of inter-re cord";—20,2);"—.space character do you w ant ";:E=—M:÷I;—e(E);:÷Jbotw÷e÷#0÷e *FX2 00,1÷e÷#:÷o ÷;B=0—|—16:f$(B)="":÷E÷e÷#D÷ i A=80:÷;B=0—|—16÷e÷#N÷r ÷? ?(starta+A)= 7 ÷=—5DbG÷e÷#X+ f$(B)=f$(B)+—e(?(starta+ A)):A=A+1:÷=—5DNG÷e÷#b÷d A=A+1:÷E÷e÷#l÷c flag=1÷e÷#v÷w A$="":÷;F=1—|—40:A$=A$+—e (E):÷E÷e÷#—(! ÷G2:÷I"FILENAME : ";file$' ':÷G3÷e÷#—2/ ÷?flag3<>65 ÷G2:÷Jprecord:÷ IA$:÷G3:flag=0:÷=—5thG÷e÷#—<9 ÷Jgetbytes (56):÷G2:÷;F=1 —|— H:record=F:÷Jprecord: ÷IA$:÷E:÷G3÷e÷#—F÷l record=1:flag=0÷e÷#— P÷^ ÷9÷e÷#—Z÷]:÷e÷#—d3 ÷5÷Js:÷Jtitle("SE ARCH"):÷? ?(starta+12)=0÷Jnexist:÷9÷e÷#— n! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e÷#÷ (: ÷I—23,2);"—.SEARCH FOR RECORD NUMBER? (Y/N)";:÷? —M=78÷=—5dnG÷e÷#÷2# ÷I—23,2); "—.ENTER RECORD NUMBER.(1 TO ";:÷Jge|c
P726 CEEFAX 726 Wed 30 Dec 21:10/03 ! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷a÷#&— X ÷I—211,1);"— Print All or bust —isplay ed —.record.(A/D)";:flag3=—M:÷Jtitle("PR INT"):÷I—211,1);"—.What kind of inter-re cord";—20,2);"—.space character do you w ant ";:E=—M:÷I;—e(E);:÷Jbotw÷e÷#0÷e *FX2 00,1÷e÷#:÷o ÷;B=0—|—16:f$(B)="":÷A÷e÷#D÷ i A=80:÷;B=0—|—16÷e÷#N÷r ÷? ?(sdarta+A)= 7 ÷=—5DbG÷e÷#X+ f$(B)=f$(B)+—e ?(starta+ A)):A=A+1:÷=—5DNG÷e÷#b÷d A=A+1:÷E÷e÷#l÷c flag=1÷e÷#v÷w A$="":÷;F=1—|—40:A$=A$+—e (E):÷E÷e÷#—(! ÷G2:÷I"FILENAME 8 ";fila$' ':÷G3÷e÷#—2/ ÷?flag3<>65 ÷G2:÷Jprecord:÷ IA$:÷G3:flag=0:÷=—5thG÷e÷#—<9 ÷Jgetbytes (56):÷G2:÷;F=1 —|— H:record=F:÷Jprecord: ÷IA$:÷E:÷G3÷e÷#—F÷l record=1:flag=0÷e÷#— P÷^ ÷9÷e÷#—Z÷]:÷e÷#—d3 ÷5÷Js:÷Jtitle("SE ARCH"):÷? ?(starta+12)=0÷Jnexist:÷9÷e÷#— n! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e÷#÷ (: ÷I—23,2);"—.SEARCH FOR RECORD NUMBE  (Y/N)";:÷? —M=78÷=—5dnG÷e÷#÷2# ÷I—23,2); "—.ENTER RECORD NUMBER (1 TO ";:÷Jge|c
P726 CEEFAX 726 Wed 30 Dec 21:10/03 |B220A20E|a17DatBase|i13M/C|m419B0tbytes (56):÷I;H;")";:÷@A:A=—P(A):÷?A<1 —, A>H ÷G7:÷=—5dZG÷e÷#÷<÷g record=A:÷9÷e÷#÷F÷]: ÷e÷#÷P÷e *FX200,1÷e÷|—÷Zk ÷Jtitle("SEARC H"):÷I—211,0);"—.ENTER SEARCH RECORD:";— 211,1);"—*RETURN—.]select field";—214,2) ;"—*TAB—.]finish";÷e÷|—÷d÷g ÷Jinputrec1÷ e÷|—÷nQ ÷Jtitle("SEARCH"):÷I—211,1);"—.P LEASE WAIT, SEARCHING";—211,2);"—.CLOSES T MATCH:";÷e÷|— ( T%=0:S%=0:R%=1:÷Jgetby tes(14):D%=H+2÷e÷|—*÷n ÷Jgetbytes(56):F= H÷e÷|—4÷f ÷;A%=1 —|— F÷e÷|—>÷g ÷;B%=0 —| — 16÷e÷|—H÷n ÷? f$(B%)="" ÷=—uDfH÷e÷|—R1 A$="":÷;C%=1 —|— —Qf$(B%):A$=A$+—e(?(D% +C%-1)):÷E:÷e÷|—\÷p ÷? A$=f$(B%) T%=T%+1 ÷e÷|—f÷k D%=D%+le(B%):÷E÷e÷|—p÷d D%=D%+2 ÷e÷|—z$ ÷? T%>S% S%=T%:R%=A%:÷I—226,2);A %;÷e÷|——,÷a T%=0÷e÷|——6÷^ ÷E÷e÷|——@÷f re cord=R%÷e÷|——J÷^ ÷9÷e÷|——T÷]:÷e÷|——÷8 ÷5 ÷Jr:÷Jtitle(b3FSET"):÷Jsure:÷?ss=1÷9 —3 ÷Q÷e÷|——h÷]:÷e÷|——r3 ÷5÷Jor:÷Jtitle("ORD ER"):÷? ?(starta+12)=0÷Jnexist:÷9÷e÷|—÷, ! ÷Jgetbytes(56):÷?H=0÷Jnrecord:÷9÷e|c
P726 CEEFAX 726 Wed 30 Dec 21:34/29 |B220B20E|a17DatBase|i13M/C|m41C75÷|—÷6÷ e *FX200,1÷e÷|—÷@÷j ÷Jgetbytes(56)÷e÷|—÷ J@ ÷@—212,0);"—.Input 1st record nos :"; A%:÷? A%<1 —, A%>H ÷G7:÷=—5drH÷e÷|—÷TA ÷ @—212,1);"—.Input 2nd record nos :";B%;: ÷? B%<1 —, B%>H ÷G7:÷=—5d||H÷e÷a÷^* ÷Jge tbytes(14):C%=H:÷Jgetbytes(52):D%=H÷e÷a÷ h÷p E%=C%+(D%*(A%-1))+2÷e÷a÷r2 G%=&C00:÷ ; F%=E% —|— (E%+D%-2):?G%=?F%:G%=G%+1:÷E ÷e÷a$÷p I%=C%+(D%*(B%-1))+2÷e÷a.0 G%=E%: ÷; F%=I% —|— (I%+D%-2):?G%=?F%:G%=G%+1:÷ E÷e÷a84 G%=I%:÷; F%=&C00 —|— (&C00+D%-2) :?G%=?F%:G%=G%+1:÷E÷e÷aB÷^ ÷9÷e÷aL÷]:÷e÷ aV÷r ÷5÷Jtopw:÷G28,0,3,39,1:÷9÷e÷a|—÷]:÷ e÷aj÷s ÷5÷Jbotw:÷G28,0,21,39,5:÷9÷e÷at÷] :÷e÷a|÷@ ÷5÷Joptions:÷O—5TfL:÷;A=0—|—2:÷ ;B=0—|—34—07:÷KA$,B$:÷I—2B,A);"—.";A$;:÷ E,:÷9÷e÷a—0÷]:÷e÷a—:|— ÷5÷Jtitle(A$):÷Jt opw:÷3:B$="":÷;A=0—|——Q(A$)+1:B$=B$+",": ÷E:÷I—e148;"j—+";A$;—e148;"5"'—e148;"*"; B$;"%":÷9÷e÷a—D÷]:÷e÷a—N8 ÷5÷Jsp:÷I'—26) "—.Press—*SPACE BAR—.to continue.";:÷M÷U —M=32:÷9÷e÷a—X÷]:÷e÷a—bD ÷5÷Jsure:÷G|c
P726 CEEFAX 726 Wed 30 Dec 21:24/51 |B220C20E|a17DatBase|i13M/C|m41F427:÷I—2 13,1);"—0—.Are you sure ?";:÷?—M<>89ss=1 —3ss=0:÷I;"Y";:÷G7÷e÷a—l÷^ ÷9÷e÷a—v÷]:÷e ÷a÷0÷m ÷5÷Jclear:*FX200,1÷e÷a÷:÷e file$= ""÷e÷a÷D$ ÷;A%=starta —|— starta+400:?A% =0:÷E÷e÷a÷N÷^ ÷9÷e÷b÷X÷]:÷e÷b÷b÷f ÷5÷Jpr ecord÷e÷b÷l; ÷?flag=0÷G26:÷I—214,23);rec ord;" ";:—3÷I"RECORD : ";record÷e÷b÷v÷ b ÷Jbotw÷e÷b(÷t ÷Jgetbytes(56):÷?H=0÷=—5 tVJ÷e÷b2£ ÷L "—)Print out current record —/"÷e÷b<÷o ÷Jgetbytes(14):A%=H÷e÷bF÷o ÷J getbytes(52):B%=H÷e÷bP÷r A%=A%+(B%*(reco rd-1))÷e÷bZ* A%=A%+2:B%=0:÷;C%=0—|—16:÷? flag=1÷If$(C%);÷e÷bd) F%=starta+C%:G%=?( F%+18):I%=?(F%+35)÷e÷bn÷p ÷?(?(F%+35))=0 ÷=—5tBJ÷e÷bx< ÷I—2G%,C%);:÷;D%=G% —|— ( (I%+G%)-1):÷I;—e ?(A%+B%));:B%=B%+1:÷E÷e ÷b—*÷e ÷?flag=1÷I÷e÷b—4÷^ ÷E÷e÷b—>÷^ ÷9÷ e÷b—H÷]:÷e÷b—R÷e ÷5÷Jpfield÷e÷b—\÷s ÷Jbo tw:÷3:A%=80:÷;B%=0—|—16÷e÷b—f÷i C%=start a+A%÷e÷b—p÷j ÷? ?C%=7 ÷=—5d\J÷e÷b÷*÷s ÷I —e(?C%);:A%=A%+1:÷=—5t|÷J÷e÷b÷4÷m A%=A%+ 1:÷?B%<>16÷I÷e÷b÷>÷|— ÷E:÷9÷e÷b÷H÷]:|c
P726 CEEFAX 726 Wed 30 Dec 21:21/01 |B220D20E|a17DatBase|i13M/C|m421FC÷e÷b÷R F ÷5÷Jgfname:÷I'"—.TYPE IN FILENAME (not to exceed—07—1"'"—.characters.)—/"÷e÷c÷ \7 ÷@file$:÷? —Q(file$)>7 —, —Q(file$)<1 file$="":÷G7:÷=—5TDK÷e÷c÷f÷^ ÷9÷e÷c÷p÷] :÷e÷c"> ÷5÷Jexist:÷G7:÷I—29,1);"—.—0FILE EXISTS—1- ( use—+RESET—.).";:÷Jsp:÷9÷e÷ c,÷]:÷e÷c6: ÷5÷Jnexist:÷G7:÷I—213,1);"—. —0NO FILE—1- ( use—+NEW—.).";:÷Jsp:÷9÷e÷ c@÷]:÷e÷cJ> ÷5÷Jnrecord:÷G7:÷I—212,1);"— .—0NO RECORDS—1- ( use—+ADD—.).";:÷Jsp:÷ 9÷e÷cT÷]:÷e÷c^: ÷5÷Jgetbytes G):H=( ?(st arta+G))+(?(starta+G+1)*255)):÷9÷e÷ch÷]: ÷e÷cr< ÷5÷Jputbytes(G):?(starta+G)=H —+2 55:?(starta+G+1)=H —)255:÷9÷e÷c||÷]:÷e÷c —.- ÷5÷Joscli(A$):$&A00=A$:X%=0:Y%=&A:÷. &FFF7:÷9÷e÷c—8÷]:÷e÷c—B÷h ÷5÷Jinputrec1÷ e÷c—L÷j ÷Jbotw:÷Jpfield÷e÷c—Vn a=18:÷;A= 0—|—16:f$(A)="":le(A)=(?(starta+(a+17))) :len(A)=(?(starta+a)):a=a+1:÷E:f=-1:÷M:f =f+1:÷Ule(f)<>0 —, f>20÷e÷c—|—£ ÷G31,(le n(f)),f:÷M:A=—M:÷?A=9÷=—5THL÷e÷c—j÷u ÷?A =13—(f=16f=0—3÷?A=13f=f+1÷e÷c—t÷l ÷?|c
P726 CEEFAX 726 Wed 30 Dec 21:37/09 |B220E20E|a17DatBase|i13M/C|m424D1 le(f) =0 ÷=—5dBK÷e÷c÷.÷h ÷?A=13 ÷=—5d|÷K÷e÷c÷8 N ÷?A=127—( —Q(f$(f))<>0 ÷G127:f$(f)=—hf $(f),(—Q(f$(f))-1)):÷=—5d|÷K —3 ÷? A=127 ÷=—5d|÷K÷e÷c÷B÷s ÷? —Q(f$(f))=le(f) ÷=— 5d|÷K÷e÷c÷L÷m f$(f)=f$(f)+—e(A)÷e÷c÷V÷o ÷I—2len(f),f);f$(f);÷e÷d÷|—÷b ÷U A=9÷e÷d ÷j÷^ ÷9÷e÷d÷t÷]:÷e÷d&÷B ÷4 Add,add a ÷ew record,Back,backstep through file,Delet e,delete a record,Edit,edit a record,For ward,forwardstep through file,Help,detai ls of commands,Keep,save the file,Load,l oad the file,New,define new file,Order,r e-arrange file÷e÷d0j ÷4 *os,enter OS com mand,Print,send file to printer,Reset,re set DATA BASE,Search,search for a record , ,÷e÷W|c
P726 CEEFAX 726 Wed 30 Dec 21:00/11 =0 ÷=—5dBK÷e÷c÷.÷h ÷?A=13 ÷=—5d|÷K÷e÷c÷8 N ÷?A=127—( —Q(f$(f))<<0 ÷G127:f$(f)=—hf $(f),(—Q(f$(f))-1)):÷=—5d|÷K —3 ÷? A=127 ÷=—5d|÷K÷e÷c÷B÷s ÷? —Q(f$(f))=le(f) ÷=— 5d|÷K÷e÷c÷L÷m f$(f)=f$(f)+—e(A)÷e÷c÷V÷o ÷I—2len(f),f);f$(f);÷e÷d÷|—÷b ÷U A=9÷e÷d ÷j÷^ ÷9÷e÷d÷t÷]:÷e÷d&÷B ÷4 Add,add a new record,Back,backstep through file,Delet e,delete a record,Edit,edit a record,For ward,forwardstep through file,Help,detai ls of commands,Keep,save the file,Load,l oad the file,New,define new file,Order,r e-arrange file÷e÷d0j ÷4 *os,enter OS com mand,Print,send file to printer,Reset,re set DATA BASE,Search,search for a record , ,÷e÷W|c