home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 747.LOG2DBF.PRG < prev    next >
Text File  |  1985-10-01  |  1KB  |  43 lines
  1. * CONVERTS A BASIC LOG FILE TO A DATABASE
  2.  
  3. USE blanklog
  4. * EMPTY LOG FILE
  5.  
  6. STORE ' ' TO contestlog
  7. ACCEPT 'What is the name of the contest log (D:NAME) ' TO contestlog
  8. COPY STRUCTURE TO &contestlog
  9. ?
  10. ?' New database file created'
  11. USE &contestlog
  12. STORE TRIM(contestlog) + '.LOG' TO oldlog
  13. ?
  14. ? 'Copying log data now'
  15. APPEND  FROM &oldlog SDF DELIM
  16. STORE ' ' TO df
  17. ACCEPT ' Do you want a listing of the database (Y/N) ? ' TO df
  18. IF df = 'Y'
  19.    LIST
  20.    ?
  21. ENDIF
  22. ACCEPT 'Do you want to append the new log to the main logbook (Y/N) ?' TO df
  23. IF df = 'Y'
  24.    ?
  25.    USE &logbook INDEX &logbook
  26.    APPEND FROM &contestlog
  27. ENDIF
  28. ACCEPT 'Do you want to INDEX the contest log (DBF) (Y/N) ?' TO df
  29. IF df = 'Y'
  30.    ?
  31.    USE &contestlog
  32.    INDEX ON call TO &contestlog
  33.    ? 'TO PRINT CONTEST LOG, go back to main menu'
  34.    ?
  35.    ? 'SET LOG TO contestlog, AND PRINT IT'
  36.    WAIT
  37. ENDIF
  38. RELEASE oldlog,df,contestlog
  39. RETURN
  40.  
  41. 
  42.    IF logbook = '        ' .AND. task <> 'L'
  43.       @ 23,1  SAY 'OPEN A LOGBOOK FIRST