home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / PUTCOMME.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  480b  |  16 lines
  1. SUB PutComment (TAX$)
  2. SHARED MailPath$
  3. LET BUF = FREEFILE
  4. OPEN MailPath$ + "comment.dbf" FOR RANDOM ACCESS READ WRITE SHARED AS #BUF LEN = LEN(Comment)
  5. x = LOF(BUF) / LEN(Comment) + 1
  6. PUT #BUF, x, Comment
  7. CLOSE #BUF
  8.  
  9. OPEN MailPath$ + "comment.ix" FOR RANDOM ACCESS READ WRITE SHARED AS #BUF LEN = LEN(CommentIndex)
  10. LET CommentIndex.TaxID = Comment.TaxID
  11. LET CommentIndex.RecordNumber = x
  12. PUT #BUF, LOF(BUF) / LEN(CommentIndex) + 1, CommentIndex
  13. CLOSE #BUF
  14. END SUB
  15.  
  16.