home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / wordwrap.zip / EMPTY.PRG < prev    next >
Text File  |  1986-10-07  |  647b  |  16 lines
  1. * Prcedure ..: Empty.PRG
  2. * Author ....: Kenneth N. Getz
  3. * Date ......: 7 October 1986
  4. * Version ...: dBASE III PLUS, (Developer's Release)
  5. * Note(s) ...: This procedure is used to clear the buffer area before going on
  6. *                                with the rest of the program.
  7. *
  8. PROCEDURE Empty
  9. PARAMETERS Width            && Width tells how full the buffer may be when done.
  10. *
  11. DO WHILE LEN(TRIM(Buffer)) > Width          && If there's some left over
  12.   STORE TRIM(Buffer) TO WrapString        && call Wrap until it's all used
  13.   CALL WRAP WITH WrapString               && before going on the next record.
  14.   ? SPACE(Offset) + TRIM(WrapString)
  15. ENDDO
  16. ** EOP Empty.PRG