home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST2.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  462 b   |  22 lines
  1. ********************
  2.  
  3. FUNCTION Adjust
  4.  
  5.    * This function is used to avoid the simulated blank
  6.    * record in a Clipper scanning mode.  Sometimes when
  7.    * scanning through a file, a blank record will appear
  8.    * at the beginning or at the end of the file.  In this
  9.    * case, call this funciton to avoid the trouble.
  10.  
  11.    IF EOF()
  12.       GO BOTTOM
  13.    ELSE
  14.       IF BOF()
  15.          GO TOP
  16.       ENDIF
  17.    ENDIF
  18.    
  19.    RETURN("")
  20.  
  21. * End of File
  22.