* SCSIBACK.PRG V1.00 BY DEREK FOUNTAIN
* Moves back a record in the database

* There is a slight problem with skipping backwards. If the
* user tries to skip back past the first record, the record
* pointer sticks at 1.  A check is put in the code to detect this

* Beginning Of File flag is set to 0
LET bof=0
IF RECNO()=1
  * We are at the beginning of file, so flag it
  LET bof=1
ENDIF
SKIP -1

* If we were at the begining of file, move the other end
IF bof=1
  AT 7,18 SAY "Top of file - Moving to bottom. Press any key"
  WAIT     
  GO BOTTOM                  * Go to bottom of file if we have
ENDIF
RELEASE bof
RETURN