LL+(BEEBASE-11.06(C)1983 Trevor RaeH LbHH)  hhh(`hH H    hLSXlة  5 .  D  / {0 > 6    = ; ⢠  P~ ;:3xy(  LȂɠLɠĹɡLɢLKɣLɤLfɧL` Lȱ L LFGH IJK;LM NO`5 5   ` 6 U5 * ڐ D  `6 `* ` AL[L; `  L_ i0`! ! L#  i0*! `ߍ`. . L. i0` 5 Ls P D 3 y#|K| 3 y I y ^ y k y v y y h y 1]2V3F4H5G6=*L>* F L  * LL`LLtLjLЈLs J P J eY  & ' ( ) J e P @ Lԃw< vv8/ v& 0 w'  D/ 1 0 2 81 R;1 2 2 ;1 8v2 w& 0z LI  D' 6 D L ; @ K ;  `  -   H; mh`m     L   L` D Մ  L ;  @ >Lh P;pP;qH h  L>`  L ALh;iA  Lh L DP   8A  H hiLm H;p;q h   L   L` #Lh; P;rQ;srv e J  L W JLevvwiw`vwv`w`P: ` ` `  D y 6 D`5 H h.     6p < &Lˆ p V     Lˆ Lˆ !L߆ 8L߆  ` L& 8 L߆ ` `@  <` ~ 揥| Le (` ` `  y L芍? Hei? @ L @ @ h揱` 揱 eviw`ƏL뇩  ' `  '  `  ' ` J e @  Lm D > & HL3;4~5=6>9evAwiB` D > y F L J 934 HLRichard and Iain Rae y K L`x`xy `;L e @ LP` J P0   : ! .  #   PP01 J e * 6 D  FEDS%L' LˉXL^F lLˉL y Lˉ >!    7  L e   J   L`L& ` J@  !   Ш e  @ ) JL̊ !!    7 L ح  L @  ` ` D  D F L`L e8包 uƌ`P`Hei ȱPh` > hf i f HL{ L{   7!  L{H P  8L P PP  ~h`! #    ߍh` H@ (L  m 8 pq hL< .  h`h@ ` R( R*L RȽ)!PL R) L' L( P :P  @   e@ 戭! H! Jh! L L'   R P RȽ P `` L'  Lˉ;P: `    9`! ߍ`! H! h!   P 0Lˉ i0  Lˉ %   * Pi0 8 0 8%  % P+ Q, L֎- Q, P+ * L0* % * - L gLT"  + P, QL$ $   `+ , L"  " Le$ Pi$ Q` LˉLO Ptuutituzt|ȱ{t}z| t t ж Ч  P腎P腏 ƏLe8   8 p揥q; HH pq eppqiqLhh  Ј.  Lˉ8L PP`; L` '` & .' .( .) *  & i0H& ' ( ) Рhș`:&0:0:0`   ` `~ L)ɀL` ` 6 ` `6    ; = `= `6 0 6 D = D` = `6 1D7 I8 R9 : <  L7 ` `ߍ`ȘHp= hLh`` J P!  .  >  D  D h F L 6 D Ӕ E D ”L ӔDL; ”L ӔF ”L lL ┩ J P! . >   L oL D  D h< h 6 D`C B ; B P;rQ;sB C C ;-L  m 8 pqȱpr L g ;  @ >g   L̓ LoLpAL;iA  L;  g o;  @ >g  L`  Dv h Yy D` D 6 D  – ږw<v< <<< D`  LF D G E  5L{F D G E L LG L 8D F H E G I L= $ vmH vwmI wL{ L 8F D H G E I  $ 8vH vwI wB ; B P;rQ;sB ȱrt ettuiu Lt` c h ` ”L` Ӕ( Ӕ*L ӔȽ)$PL Ӕ) ”L L} P :P  @   e@ 戩! JL\  ”L   Ӕ P ӔȽ P `mJ mK ƇmJ mK ƅK ƇƅJ `K J `;ʩG F L mF F mG G L;mF F G iG `E D ; P;rQ;sȱr mD D mE E  L\`;m;ii`8L tu 5`8v再J w凍K J K `8vF vwG w` –mH mI 5` –8H I 5`8L tu` Ə`H evI ew| D  D h 6LL)ۙ `J K   H h Ԡ LPAGE=&1900 OLD RUN *BASIC TAB, else letter to amend field Enter correction BeeBASE-1 1) ENTER new data 2) SEARCH 3) EDIT 4) SAVE data 5) LOAD data Name of Data File to be SAVEd? Name of Data File to be LOADed? No data! ENTER CHOICE Bad Command! Enter search command Press space bar Enter - :VDU= :Prt= :Stg /:Hits=000: Bytes free= :Records=0000: Save Data! (C)1983 Trevor Rae Closing file - please wait Enter EDIT command Letter-amend field : RETURN-no changes DELETE-remove record : TAB-enter data Bad EDIT command! Are you sure (Y/N) Can't extend database! 6) CREATE new database 6:tHS  7:aa$(25),ab$(25),xa(25): (N%=04504:N%!&3A50=0: 2;xb=&3BCF:xc=&3B4B:xd=&2050:xe=&3A50:xexf=&3A50:ac=&3BF0 <2'''"DATAFILE name"''$ac:($ac)=0($ac)>7ya F8'"How many fields"''xh$:xh%=(xh$):xh%<1xh%>25yb P xi%=0 ZN%=1 xh%: d5'';250-xi%" characters remain for field names"'' n('"Enter name of field number - ";N% x0'aa$(N%):TEMP=(aa$(N%)):TEMP<1TEMP>30yd :xi%=xi%+(aa$(N%))+1:xi%>250:xi%=xi%-(aa$(N%))-1:yd '' P"Maximum length of field"'ab$(N%):xa(N%)=(ab$(N%)):xa(N%)<1xa(N%)>250yc  13:txA  &FFDD *BEEBAS.|M 8ya:7:'"Name !"':S%=015:S%?&3BF0=0:S%:T|@:  yb:7:'"Field!"':DF@: yc:7:'"Length!"':tV@ yd:7:'"Name!"':Dx@ =17:*BEEBAS.|M #:''"Press key":X=:*BEEBAS.|M