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