home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / oblasten.prg < prev    next >
Text File  |  1990-05-04  |  3KB  |  111 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: OBLASTENT.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     13:26
  9. *:
  10. *:      Called by: OBLAST.PRG                    
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:               : &OBLAST.DBF    
  14. *:
  15. *:        Indexes: &LOGNDX
  16. *:
  17. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  18. *:*********************************************************************
  19. * OBLASTENTER VERSION 871209 PUTS DATA IN OBLAST DATABASE
  20. IF FILE (logbook + '.DBF')
  21.    SELECT 1
  22.    USE &logbook  INDEX &logndx
  23.    
  24.    SELECT 2
  25.    USE &oblast
  26.    
  27.    STORE .t. TO cflag
  28.    STORE 0 TO oblastn
  29.    STORE ' ' TO df
  30.    STORE '         ' TO callcard
  31.    
  32.    DO WHILE cflag
  33.       CLEAR
  34.       @ 3,1 SAY ' '
  35.       ACCEPT    'Which Oblast (0 to terminate) ?'  TO oblastn
  36.       IF &oblastn < oblastm
  37.          IF &oblastn = 0
  38.             STORE .F. TO cflag
  39.          ELSE
  40.             SELECT 2
  41.             * GO DIRECTLY TO RECORD
  42.             GOTO &oblastn
  43.             @ 8,1 SAY ' '
  44.             IF dcall = ' '
  45.                ? 'Oblast ',&oblastn,' is not worked'
  46.             ELSE
  47.                DISP
  48.             ENDIF
  49.             @ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
  50.             @ 10,43 GET df
  51.             READ
  52.             IF df = 'Y'
  53.                STORE '         ' TO  callcard
  54.                SELECT 1
  55.                @ 12,1 SAY 'What is the call ? '
  56.                @ 12,21 GET callcard
  57.                READ
  58.                FIND &callcard
  59.                @ 14,1 SAY ' '
  60.                IF (EOF() .or. BOF())
  61.                   ? callcard,' is not in log'
  62.                ELSE
  63.                   STORE .t. TO qflag
  64.                   DO WHILE CALL = callcard .and. qflag
  65.                      @ 20,1 SAY ' '
  66.                      DISP
  67.                      @ 22,2 SAY ' '
  68.                      ACCEPT 'This one (Y/N) ?' TO df
  69.                      IF df = 'Y'
  70.                         STORE .F. TO qflag
  71.                      ENDIF
  72.                      SKIP
  73.                   ENDDO
  74.                   IF qflag
  75.                      * DON'T update entry
  76.                   ELSE
  77.                      SKIP -1
  78.                      STORE CALL TO CALL
  79.                      STORE DATE TO DATE
  80.                      STORE TIME TO TIME
  81.                      STORE band TO band
  82.                      STORE mode TO mode
  83.                      STORE qslrx TO qslrx
  84.                      SELECT 2
  85.                      REPLACE dcall WITH CALL
  86.                      REPLACE ddate WITH DATE
  87.                      REPLACE dtime WITH TIME
  88.                      REPLACE dband WITH band
  89.                      REPLACE dmode WITH mode
  90.                      REPLACE dstate WITH qslrx
  91.                   ENDIF
  92.                ENDIF
  93.             ENDIF
  94.          ENDIF
  95.       ELSE
  96.          ? 'ERROR, LARGEST NUMBER IS ',oblastm - 1
  97.          WAIT
  98.       ENDIF
  99.    ENDDO
  100.    SELECT 1
  101.    USE
  102.    SELECT 2
  103.    USE
  104. ELSE
  105.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  106. ENDIF
  107. RELEASE qflag, callcard, df, oblastn, cflag
  108. RELEASE CALL, DATE, TIME, band, mode, qslrx
  109. RETURN
  110. *: EOF: OBLASTENT.PRG
  111.