* SCSINEXT.PRG V1.00 BY DEREK FOUNTAIN
* Skips to next record in database

SKIP
IF EOF()=1                   * Check we haven't skipped to far
  AT 7,19 SAY "End of file - Moving to top. Press any key"
  WAIT
  GO TOP                     * Back to the top if we have
ENDIF
RETURN