Category : BASIC Source Code
Archive   : INDEX.ZIP
Filename : AEBITOPE.BAS

 
Output of file : AEBITOPE.BAS contained in archive : INDEX.ZIP
rem $linesize:132
rem $title:'Application Engineer Standard Routines'
rem $subtitle:'Open an index'

' Include the COMMON values
rem $include:'AESHARED.BAS'

sub bit.open(fl%,hn$) static

' open the header, read info and close the header

aesb.fatal%=0%

if fl%>15% or fl%<1% or fl%>ubound(xh%,1) or fl% aesb.fatal%=1
else
idx.nam$(fl%)=hn$
open "r",fl%,hn$+".hdr",512
field #fl%,32 as desc$,32 as xmast$,2 as klen$,2 as nok$,2 as nexav$
field #fl%,70 as twit$,2 as kdel$,440 as spare$
get #fl%,1
mfile$=xmast$
xh%(fl%,1)=cvi(klen$)
xh%(fl%,2)=cvi(nok$)
xh%(fl%,3)=cvi(nexav$)
xh%(fl%,4)=cvi(kdel$)
close fl%
open "r",fl%,mfile$,xh%(fl%,1)+10
field #fl%,xh%(fl%,1) as xk$(fl%,1),2 as xk$(fl%,2),2 as xk$(fl%,3)
field #fl%,xh%(fl%,1)+4 as twit$,2 as xk$(fl%,4),2 as xk$(fl%,5),2 as xk$(fl%,6)
lset xk$(fl%,1)=string$(xh%(fl%,1),0)
for init%=2 to 6
lset xk$(fl%,init%)=mki$(0)
next init%
put #fl%,xh%(fl%,3)
end if

end sub


  3 Responses to “Category : BASIC Source Code
Archive   : INDEX.ZIP
Filename : AEBITOPE.BAS
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/