home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / log / contdup.prg < prev    next >
Encoding:
Text File  |  1987-03-14  |  3.3 KB  |  112 lines
  1. * CONTDUP.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 CONTEST INDEX CONTEST
  7. SET INDEX TO CONTEST
  8. STORE 1 TO CONTACT
  9. DO WHILE .T.
  10. CLEAR
  11. @ 0,25 SAY '**** CONTEST LOG FILE *****'
  12. @ 2,0 SAY 'ENTER [ END ] TO EXIT'
  13. @ 3,0 SAY 'ENTER [ LAST ] TO VIEW LAST ENTRY'
  14. @ 3,40 SAY 'NEXT REPORT NUMBER IS:'
  15. @ 3,62 SAY CONTACT
  16. ?
  17. ?
  18. ACCEPT 'CALL: ' TO MCALL
  19. STORE UPPER(MCALL) TO MCALL
  20.     IF MCALL = 'END'
  21.        SET TALK ON
  22.        CLEAR
  23.        RETURN
  24.     ENDIF
  25.     IF MCALL = 'LAST'
  26.        USE CONTEST
  27.        GOTO BOTTOM
  28.        DISPLAY
  29.          ACCEPT 'AMMEND: ' TO MAMMEND
  30.          STORE UPPER(MAMMEND) TO MAMMEND
  31.             IF MAMMEND = 'Y'
  32.                EDIT
  33.             ENDIF
  34.          RELEASE MAMMEND
  35.          RELEASE MCALL
  36.          CLEAR
  37.        USE CONTEST INDEX CONTEST
  38.        SET INDEX TO CONTEST
  39.        LOOP
  40.     ENDIF
  41. FIND &MCALL
  42.     IF (EOF() .OR. BOF())
  43.        @ 12,40 SAY 'CALL NOT FOUND'
  44.      ACCEPT 'ENTER: ' TO MENTER1
  45.      STORE UPPER(MENTER1) TO MENTER1
  46.          IF MENTER1='Y'
  47.             GO BOTTOM
  48.             DO GETUTC
  49.             CLEAR
  50.             APPEND BLANK
  51.             REPLACE HOUR WITH MHOUR
  52.             REPLACE MIN WITH MMIN
  53.             REPLACE CALL WITH MCALL
  54.             REPLACE HISSIG WITH '59'
  55.             REPLACE BAND WITH MBAND
  56.             REPLACE MONTH WITH MMO
  57.             REPLACE DAY WITH MDAY
  58.             REPLACE YEAR WITH MYR
  59.             @ 0,25 SAY '**** CONTEST LOG FILE ****'
  60.             @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
  61.             @ 7,0 SAY 'EXCHANGE    ' GET EXCHANGE
  62.             @ 8,0 SAY 'FREQUENCY   ' GET FREQUENCY
  63.             @ 9,0 SAY 'HIS QSL MAN ' GET QSLMAN
  64.             READ
  65.             ? CHR(23)
  66.             STORE CONTACT+1 TO CONTACT
  67.             LOOP
  68.          ENDIF
  69.     ENDIF
  70.     IF CALL = MCALL
  71.      @ 9,0 SAY 'CALL'
  72.      @ 9,11 SAY 'EXCHANGE'
  73.      @ 9,23 SAY 'DATE'
  74.      @ 9,29 SAY 'TIME'
  75.      @ 9,38 SAY 'BAND'
  76.      @ 9,45 SAY 'FREQUENCY'
  77.      ?
  78. DO WHILE CALL = MCALL .AND..NOT. EOF()
  79.        ? CALL,EXCHANGE,MONTH,DAY,HOUR,MIN,"  ",BAND,"  ",FREQUENCY
  80.        SKIP
  81. ENDDO
  82.        ACCEPT 'ENTER: ' TO MENTER
  83.        STORE UPPER(MENTER) TO MENTER
  84.           IF MENTER='Y'
  85.             GO BOTTOM
  86.             DO GETUTC
  87.             CLEAR
  88.             APPEND BLANK
  89.             REPLACE HOUR WITH MHOUR
  90.             REPLACE MIN WITH MMIN
  91.             REPLACE CALL WITH MCALL
  92.             REPLACE HISSIG WITH '59'
  93.             REPLACE BAND WITH MBAND
  94.             REPLACE MONTH WITH MMO
  95.             REPLACE DAY WITH MDAY
  96.             REPLACE YEAR WITH MYR
  97.             @ 0,25 SAY '**** CONTEST LOG FILE ****'
  98.             @ 3,0 SAY 'LOGGING '+CALL+' ON THE '+BAND+' METER BAND'
  99.             @ 7,0 SAY 'EXCHANGE    ' GET EXCHANGE
  100.             @ 8,0 SAY 'FREQUENCY   ' GET FREQUENCY
  101.             @ 9,0 SAY 'HIS QSL MAN ' GET QSLMAN
  102.             READ
  103.             ? CHR(23)
  104.             STORE CONTACT+1 TO CONTACT
  105.             LOOP
  106.           ENDIF
  107.     ENDIF
  108. RELEASE MCALL
  109. CLEAR
  110. ENDDO
  111. RETURN
  112.