home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / AWARDEDT.PRG < prev    next >
Text File  |  1987-12-24  |  3KB  |  97 lines
  1. * award VERSION 860501 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  2. * PUTS DATA IN award DATABASE
  3. SELECT A
  4. USE &logbook  INDEX &logndx
  5. SELECT B
  6. USE &award INDEX &award
  7. STORE .T. TO cflag
  8. STORE '             ' TO cstate
  9. STORE ' ' TO df
  10. STORE '         ' TO callcard
  11. CLEAR
  12. DO WHILE cflag
  13.    CLEAR
  14.    @ 1,5 SAY 'G3ZCZ GENERAL AWARD DATA ENTRY PROGRAM VERSION 1.2'
  15.    @ 3,1 SAY ' '
  16.    ACCEPT    'Which Award area (* to terminate) ? '  TO cstate
  17.    IF  cstate = '*'
  18.       STORE .F. TO cflag
  19.    ELSE
  20.       SELECT B
  21.       GOTO TOP
  22.       FIND &cstate
  23.       IF (EOF() .OR. BOF())
  24.          @ 6,10 SAY '  '
  25.          ? cstate,' IS A NEW ONE'
  26.       ELSE
  27.          @ 8,1 SAY ' '
  28.          ? pc,ddate,dband,dcall,dmode,dstate
  29.       ENDIF
  30.          @ 12,1 SAY 'Do you want to update the entry (Y/N/E) ?'
  31.          @ 12,43 GET df
  32.          READ
  33.  
  34.       DO CASE
  35.          CASE df = 'Y'
  36.             STORE '         ' TO  callcard
  37.             SELECT A
  38.             @ 14,1 SAY 'What is the call ? '
  39.             @ 14,21 GET callcard
  40.             READ
  41.             FIND &callcard
  42.             @ 16,1 SAY ' '
  43.             IF (EOF() .OR. BOF())
  44.                ? callcard,' is not in log'
  45.             ELSE
  46.                STORE .T. TO qflag
  47.                DO WHILE call = callcard .AND. qflag
  48.                   @ 20,1 SAY ' '
  49.                   DISP
  50.                   @ 22,2 SAY ' '
  51.                   ACCEPT 'This one (Y/N) ?' TO df
  52.                   IF df = 'Y'
  53.                      STORE .F. TO qflag
  54.                   ENDIF
  55.                   SKIP
  56.                ENDDO
  57.                IF qflag
  58.                   * DON'T update entry
  59.                ELSE
  60.                   SKIP -1
  61.                   STORE cstate TO cstate
  62.                   STORE call TO call
  63.                   STORE date TO date
  64.                   STORE time TO time
  65.                   STORE band TO band
  66.                   STORE mode TO mode
  67.                   STORE qslrx TO qslrx
  68.                   SELECT B
  69.                   IF (EOF() .OR. BOF())
  70.                      APPEND BLANK
  71.                   ENDIF
  72.                   REPLACE pc    WITH cstate
  73.                   REPLACE dcall WITH call
  74.                   REPLACE ddate WITH date
  75.                   REPLACE dtime WITH time
  76.                   REPLACE dband WITH band
  77.                   REPLACE dmode WITH mode
  78.                   REPLACE dstate WITH qslrx
  79.                ENDIF
  80.             ENDIF
  81.             CASE df = 'E'
  82.                  REPLACE dcall WITH ' '
  83.                  REPLACE ddate WITH ' '
  84.                  REPLACE time  WITH ' '
  85.                  REPLACE dband WITH ' '
  86.                  REPLACE dmode WITH ' '
  87.                  REPLACE dstate WITH ' '
  88.          ENDCASE
  89.    ENDIF
  90. ENDDO
  91. SELECT A
  92. USE
  93. SELECT B
  94. USE
  95. RELEASE qflag,callcard,df,cstate,cflag
  96. RETURN
  97.