' Please be certain to read the "READ_ME.1ST" file before trying to
' implement this information. I STRONGLY recommend that you DO NOT
' implement this information unless you have a PRETTY GOOD idea of
' what you are doing.
' -----------------------------------------------------------------------------
' FASTBIT.LST - This listing shows you how to locate an executable files
'               "FastBit", turn it ON or turn it OFF.
'
' -------------------| TURN THE FASTBIT "ON"
OPEN "U",#1,file$    ! Open, Update
SEEK #1,25           ! Position data pointer to byte 25 of file$
OUT #1,1             ! Turn the FastBit ON ( 1 )
CLOSE #1             ! Close the file
'
' -------------------| TURN THE FASTBIT "OFF"
OPEN "U",#1,file$
SEEK #1,25
OUT #1,0             ! Turn the FastBit OFF ( 0 )
CLOSE #1
'
' -------------------| CHECK STATUS OF FASTBIT
OPEN "I",#1,file$    ! Open and READ ( "I" )
SEEK #1,25
x=INP(#1)            ! Get value of BYTE 25
CLOSE #1
'
IF x=1               ! If x ( INP(#1) ) equals 1
  bit=TRUE           ! the FastBit is on...
ELSE                 ! else (if it's not one it should be zero)
  bit=FALSE          ! the FastBit is OFF
ENDIF
'
' If someone's been messing w\the file you can make the last argument absolute
' by saying...
'
IF x=1
  bit=TRUE
ELSE IF x=0
  bit=FALSE
ELSE
  bit=FALSE    !When in doubt...DON'T DO IT !!!
  ALERT 1,"This files FastBit has |been set incorrectly... ",1," Bye ",a
ENDIF