home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / DBTALK.ZIP / DBTALK / LIB / DOSTEXT.PRG < prev    next >
Encoding:
Text File  |  1993-06-02  |  449 b   |  29 lines
  1. CLASS TXT
  2.  
  3. FUNCTION Open
  4.    PRIVATE txtfile, handle
  5.    txtfile = self:set()
  6.    handle = FCREATE (txtfile)
  7.    self:Set(handle)
  8.    RETURN
  9.  
  10. FUNCTION Add
  11.    PARAMETER txt
  12.    FWRITE (self:set(), txt)
  13.    RETURN NIL
  14.  
  15. FUNCTION Addline
  16.    PARAMETER txt
  17.    FWRITE (self:set(), txt+chr(13)+chr(10))
  18.    RETURN NIL
  19.  
  20. FUNCTION Close
  21.    FCLOSE (self:set())
  22.    RETURN NIL
  23.  
  24. FUNCTION NewPage
  25.    FWRITE (self:set(), chr(12))
  26.    RETURN NIL
  27.  
  28.  
  29.