home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / WASEDIT.PRG < prev    next >
Text File  |  1987-12-24  |  3KB  |  124 lines
  1. * WASEDIT VERSION 860625 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  2. * PUTS DATA IN WAS DATABASE
  3. SELECT A
  4. USE &logbook  INDEX &logndx
  5.  
  6. SELECT B
  7. USE &was
  8. CLEAR
  9.  
  10. *!! Logical constant converted.
  11. STORE .T. TO cflag
  12. STORE '             ' TO cstate
  13. STORE ' ' TO df
  14. STORE '         ' TO callcard
  15.  
  16. DO WHILE cflag
  17.    CLEAR
  18.    @ 2,1 SAY ' '
  19.    ?  'WAS DATABASE    ',was
  20.    @ 5,1 SAY ' '
  21.    ACCEPT 'Which State (* to terminate) ? '  TO cstate
  22.    IF  cstate = '*'
  23.       STORE .F. TO cflag
  24.    ELSE
  25.       SELECT B
  26.       GOTO TOP
  27.       LOCATE FOR  pc = cstate
  28.       IF EOF()
  29.          @ 8,10 SAY 'ENTRY ERROR-  THERE IS NO SUCH STATE AS '
  30.          @ 8,52 SAY cstate
  31.          GOTO TOP
  32.          @ 12,25 SAY ' ALLOWABLE STATES ARE -'
  33.          @ 15,1 SAY ' '
  34.          ?
  35.          STORE 1 TO counter
  36.          DO WHILE .NOT. EOF()
  37.             ?? pc,'   '
  38.             STORE counter + 1 TO counter
  39.             IF counter = 10
  40.                ?
  41.                STORE 1 TO counter
  42.             ENDIF
  43.             SKIP
  44.          ENDDO
  45.          RELEASE counter
  46.          WAIT
  47.       ELSE
  48.          CLEAR
  49.          @ 4,20 SAY 'STATE OF'
  50.          @ 4,30 SAY pc
  51.          @ 4,40 SAY 'OR'
  52.          @ 4,50 SAY state
  53.          @ 7,1 SAY ' '
  54.          IF dcall = ' '
  55.             ? '                    has not been worked'
  56.          ELSE
  57.             ? ddate,dband,dcall,dmode,dstate
  58.          ENDIF
  59.  
  60.          @ 10,1 SAY 'Do you want to update the entry (Y/N/E) ?'
  61.          @ 10,43 GET df
  62.          READ
  63.  
  64. DO CASE
  65.          CASE df = 'Y'
  66.  
  67.             STORE '         ' TO  callcard
  68.             SELECT A
  69.             @ 12,1 SAY 'What is the call ? '
  70.             @ 12,21 GET callcard
  71.             READ
  72.             FIND &callcard
  73.             @ 14,1 SAY ' '
  74.             IF (EOF() .OR. BOF())
  75.                ? callcard,' is not in log'
  76.             ELSE
  77.                STORE .T. TO qflag
  78.                DO WHILE call = callcard .AND. qflag
  79.                   @ 20,1 SAY ' '
  80.                   DISP
  81.                   @ 22,2 SAY ' '
  82.                   ACCEPT 'This one (Y/N) ?' TO df
  83.                   IF df = 'Y'
  84.                      STORE .F. TO qflag
  85.                   ENDIF
  86.                   SKIP
  87.                ENDDO
  88.                IF qflag
  89.                   * DON'T update entry
  90.                ELSE
  91.                  SKIP -1
  92.                  STORE call TO call
  93.                  STORE date TO date
  94.                  STORE time TO time
  95.                  STORE band TO band
  96.                  STORE mode TO mode
  97.                  STORE qslrx TO qslrx
  98.                  SELECT B
  99.                  REPLACE dcall WITH call
  100.                  REPLACE dcall WITH call
  101.                  REPLACE ddate WITH date
  102.                  REPLACE dband WITH band
  103.                  REPLACE dmode WITH mode
  104.                  REPLACE dstate WITH qslrx
  105.                ENDIF
  106.             ENDIF
  107.             CASE df = 'E'
  108.                  REPLACE dcall WITH '          '
  109.                  REPLACE ddate WITH ' '
  110.                  REPLACE dband WITH ' '
  111.                  REPLACE dmode WITH ' '
  112.                  REPLACE dstate WITH ' '
  113.  
  114.          ENDCASE
  115.       ENDIF
  116.    ENDIF
  117. ENDDO
  118. SELECT A
  119. USE
  120. SELECT B
  121. USE
  122. RELEASE qflag,callcard,df,cstate,cflag, call, date, time, band, mode, qslrx
  123. RETURN
  124.