home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 751.LOGCALL.PRG < prev    next >
Text File  |  1985-09-28  |  2KB  |  59 lines
  1. * LOGCALL THIS PROGRAM PRINTS A LOG IN CALL ORDER   VER 850927
  2. * copyright Joe Kasser G3ZCZ 1984
  3. * program to print logbook
  4. * called from LOGBOOK
  5.  
  6. * STRUCTURE FOR FILE:  B:LOG     .DBF
  7. * FLD       NAME      TYPE WIDTH   DEC
  8. * 001     DATE         C    008
  9. * 002     TIME         C    004
  10. * 003     BAND         C    003
  11. * 004     CALL         C    010
  12. * 005     RX           C    003
  13. * 006     TX           C    003
  14. * 007     MODE         C    004
  15. * 008     POWER        C    004
  16. * 009     QSLSENT      C    001
  17. * 010     QSLRX        C    001
  18. * 011     COMMENTS     C    010
  19.  
  20. STORE ' ' TO df
  21. ACCEPT 'Do you want hard copy (Y/N) ?' TO df
  22. IF df = 'Y'
  23.    SET PRINT ON
  24. ENDIF
  25.  
  26. STORE 60 TO linecount
  27. STORE 1 TO pagecount
  28.  
  29. USE &LOGBOOK
  30. GOTO BOTTOM
  31. STORE date TO tdate
  32. SET INDEX TO &logbook
  33.  
  34. DO WHILE .NOT. EOF
  35.    IF linecount > 50
  36.       EJECT
  37.       ? 'INDEXED LOGBOOK PRINTOUT  '
  38.       ?? callsign,'   as of ',TDATE,'   PAGE ',pagecount
  39.       STORE pagecount + 1 to pagecount
  40.       ?
  41.       ?
  42.       ? ' CALL        DATE   TIME BND RX  TX  MODE PWR  S R  COMMENTS'
  43.       ? '--------------------------------------------------------------------'
  44.       STORE 3 to linecount
  45.    ENDIF
  46.    * now print entries
  47.    ? call,date,time,band,rx,tx,mode,power,qslsent,qslrx,comments
  48.    STORE linecount + 1 to linecount
  49.    SKIP
  50. ENDDO
  51.  
  52. EJECT
  53. SET PRINT OFF
  54. ?
  55. WAIT
  56. RELEASE df,linecount,pagecount,tdate
  57. RETURN
  58.  
  59.