home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCCPXED.PRG < prev    next >
Text File  |  1987-12-14  |  1KB  |  63 lines
  1. *DXCCPXED EDITS px'S IN DXCC FILE
  2. * (c) COPYRIGHT Joe Kasser G3ZCZ 1986
  3. CLEAR
  4. @ 2,12 SAY 'G3ZCZ DXCCFILE PREFIX EDITING MODULE VERSION 1.2'
  5. STORE '    ' TO epx
  6. STORE '    ' TO epx1
  7. STORE '    ' TO epx2
  8. STORE ' '  TO ptask
  9. USE &dxcc
  10. GOTO BOTTOM
  11. STORE RECNO() TO lastpx
  12.  
  13. DO WHILE ptask <> '*'
  14.    @ 8,1 SAY ' CURRENT DXCC FILE IS'
  15.    @ 8,25 SAY dxcc
  16.  
  17.    @ 10,1 SAY ' Prefix to be edited ? '
  18.    @ 10,26 GET epx
  19.    READ
  20.  
  21.    LOCATE FOR px = TRIM(epx)
  22.    IF EOF()
  23.       *ERROR OR LAST PREFIX
  24.       @ 12,35 SAY 'ERROR  ???'
  25.    ELSE
  26.       @ 12,35 SAY '           '
  27.    ENDIF
  28.    STORE px TO epx1
  29.    STORE px1 TO epx2
  30.    @ 12,1 SAY country
  31.    @ 12,20 GET epx1
  32.    @ 12,28 GET epx2
  33.  
  34.    @ 15,1 SAY 'QRU (C/U/*) ?'
  35.    @ 15,15 GET ptask
  36.    READ
  37.  
  38.    IF ptask = 'U'
  39.       REPLACE px WITH epx1
  40.       REPLACE px1 WITH epx2
  41.    ENDIF
  42.  
  43.    IF ptask = 'C'
  44.       STORE '   '+ dxcc TO odxcc
  45.       @ 8,25 GET dxcc
  46.       READ
  47.       IF FILE(dxcc+'.DBF')
  48.          USE &dxcc
  49.          GOTO BOTTOM
  50.          STORE RECNO() TO lastpx
  51.       ELSE
  52.          @ 20,1 SAY  'ERROR, SELECTED DXCC FILE IS NOT ON THE DISK'
  53.          WAIT
  54.          @ 20,1 SAY  '                                             '
  55.          ? '          '
  56.          STORE odxcc TO dxcc
  57.       ENDIF
  58.  
  59.    ENDIF
  60. ENDDO
  61. RELEASE odxcc,lastpx,epx,epx1,epx2,ptask
  62. RETURN
  63.