home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3log.zip / LOGDUP.PRG < prev    next >
Text File  |  1987-03-14  |  4KB  |  123 lines

  1. * LOGDUP.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 10/01/83
  4. * REV 03/08/87 FOR USE ON PC
  5. SET TALK OFF
  6. USE LOG INDEX LOG
  7. SET INDEX TO LOG
  8. DO WHILE .T.
  9. CLEAR
  10. @ 1,0 SAY 'ENTER [ END ] TO EXIT'
  11. @ 2,0 SAY 'ENTER [ LAST ] TO VIEW LAST ENTRY'
  12. @ 0,25 SAY '**** LOG FILE ****'
  13. ?
  14. ?
  15. ACCEPT 'CALL: ' TO MCALL
  16. STORE UPPER(MCALL) TO MCALL
  17.     IF MCALL = 'END'
  18.        SET TALK ON
  19.        CLEAR
  20.        RETURN
  21.     ENDIF
  22.     IF MCALL = 'LAST'
  23.        USE LOG
  24.        GOTO BOTTOM
  25.        DISPLAY
  26.          ACCEPT 'AMMEND: ' TO MAMMEND
  27.          STORE UPPER(MAMMEND) TO MAMMEND
  28.             IF MAMMEND = 'Y'
  29.                EDIT
  30.             ENDIF
  31.        RELEASE MAMMEND
  32.        RELEASE MCALL
  33.        CLEAR
  34.        USE LOG INDEX LOG
  35.        SET INDEX TO LOG
  36.        LOOP
  37.     ENDIF
  38. FIND &MCALL
  39.     IF (EOF() .OR. BOF())
  40.        @ 12,40 SAY 'CALL NOT FOUND'
  41.      ACCEPT 'ENTER: ' TO MENTER1
  42.      STORE UPPER(MENTER1) TO MENTER1
  43.          IF MENTER1='Y'
  44.             GO BOTTOM
  45.             DO GETUTC
  46.             CLEAR
  47.             APPEND BLANK
  48.             REPLACE HOUR WITH MHOUR
  49.             REPLACE MIN WITH MMIN
  50.             REPLACE CALL WITH MCALL
  51.             REPLACE BAND WITH MBAND
  52.             REPLACE MONTH WITH MMO
  53.             REPLACE DAY WITH MDAY
  54.             REPLACE YEAR WITH MYR
  55.             @ 0,25 SAY '**** LOG FILE ****'
  56.             @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
  57.             @ 7,0 SAY 'HIS NAME    ' GET NAME
  58.             @ 8,0 SAY 'HIS SIGNAL  ' GET HISSIG
  59.             @ 9,0 SAY 'MY SIGNAL   ' GET MYSIG
  60.             @ 10,0 SAY 'FREQUENCY   ' GET FREQUENCY
  61.             @ 11,0 SAY 'HIS CITY    ' GET CITY
  62.             @ 12,0 SAY 'HIS STATE   ' GET STATE
  63.             @ 13,0 SAY 'HIS COUNTRY ' GET COUNTRY
  64.             @ 14,0 SAY 'HIS QSL MAN ' GET QSLMAN
  65.             @ 15,0 SAY 'REMARKS     ' GET REMARKS
  66.             READ
  67.             ? CHR(23)
  68.             LOOP
  69.          ENDIF
  70.     ENDIF
  71.     IF CALL = MCALL
  72.      @ 5,1 SAY 'MO'
  73.      @ 5,4 SAY 'DY'
  74.      @ 5,7 SAY 'YR'
  75.      @ 5,10 SAY 'TIME'
  76.      @ 5,16 SAY 'CALL'
  77.      @ 5,27 SAY 'NAME'
  78.      @ 5,36 SAY 'SNT'
  79.      @ 5,40 SAY 'RVD'
  80.      @ 5,44 SAY 'FREQ'
  81.      @ 5,52 SAY 'BND'
  82.      @ 5,56 SAY 'EXCHANGE'
  83.      @ 5,68 SAY 'QSLMAN'
  84.     DO WHILE CALL = MCALL .AND..NOT. EOF()
  85.        DISPLAY OFF
  86.        SKIP
  87.     ENDDO
  88.      @ 20,0 SAY '                 '
  89.        ACCEPT 'ENTER: ' TO MENTER
  90.        STORE UPPER(MENTER) TO MENTER
  91.           IF MENTER='Y'
  92.             GO BOTTOM
  93.             DO GETUTC
  94.             CLEAR
  95.             APPEND BLANK
  96.             REPLACE HOUR WITH MHOUR
  97.             REPLACE MIN WITH MMIN
  98.             REPLACE CALL WITH MCALL
  99.             REPLACE BAND WITH MBAND
  100.             REPLACE MONTH WITH MMO
  101.             REPLACE DAY WITH MDAY
  102.             REPLACE YEAR WITH MYR
  103.             @ 0,25 SAY '**** LOG FILE ****'
  104.             @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
  105.             @ 7,0 SAY 'HIS NAME    ' GET NAME
  106.             @ 8,0 SAY 'HIS SIGNAL  ' GET HISSIG
  107.             @ 9,0 SAY 'MY SIGNAL   ' GET MYSIG
  108.             @ 10,0 SAY 'FREQUENCY   ' GET FREQUENCY
  109.             @ 11,0 SAY 'HIS CITY    ' GET CITY
  110.             @ 12,0 SAY 'HIS STATE   ' GET STATE
  111.             @ 13,0 SAY 'HIS COUNTRY ' GET COUNTRY
  112.             @ 14,0 SAY 'HIS QSL MAN ' GET QSLMAN
  113.             @ 15,0 SAY 'REMARKS     ' GET REMARKS
  114.             READ
  115.             ? CHR(23)
  116.              LOOP
  117.           ENDIF
  118.     ENDIF
  119. RELEASE MCALL
  120. CLEAR
  121. ENDDO
  122. RETURN
  123.