*:*********************************************************************
*:
*:        Program: DXCCPXED.PRG
*:
*:         System: PC-HAM Logbook
*:         Author: Joe Kasser G3ZCZ
*:      Copyright (c) 1990, Joe Kasser
*:  Last modified: 12/14/87      5:03
*:
*:      Called by: DXCC.PRG                      
*:
*:           Uses: &DXCC          
*:
*:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
*:*********************************************************************
*DXCCPXED EDITS px'S IN DXCC FILE
* (c) COPYRIGHT Joe Kasser G3ZCZ 1986
CLEAR
@ 2,12 SAY 'G3ZCZ DXCCFILE PREFIX EDITING MODULE VERSION 1.2'
STORE '    ' TO epx
STORE '    ' TO epx1
STORE '    ' TO epx2
STORE ' '  TO ptask
USE &dxcc
GOTO BOTTOM
STORE RECNO() TO lastpx

DO WHILE ptask <> '*'
   @ 8,1 SAY ' CURRENT DXCC FILE IS'
   @ 8,25 SAY dxcc
   
   @ 10,1 SAY ' Prefix to be edited ? '
   @ 10,26 GET epx
   READ
   
   LOCATE FOR px = TRIM(epx)
   IF EOF()
      *ERROR OR LAST PREFIX
      @ 12,35 SAY 'ERROR  ???'
   ELSE
      @ 12,35 SAY '           '
   ENDIF
   STORE px TO epx1
   STORE px1 TO epx2
   @ 12,1 SAY Country
   @ 12,20 GET epx1
   @ 12,28 GET epx2
   
   @ 15,1 SAY 'QRU (C/U/*) ?'
   @ 15,15 GET ptask
   READ
   
   IF ptask = 'U'
      REPLACE px WITH epx1
      REPLACE px1 WITH epx2
   ENDIF
   
   IF ptask = 'C'
      STORE '   '+ dxcc TO odxcc
      @ 8,25 GET dxcc
      READ
      IF FILE(dxcc+'.DBF')
         USE &dxcc
         GOTO BOTTOM
         STORE RECNO() TO lastpx
      ELSE
         @ 20,1 SAY  'ERROR, SELECTED DXCC FILE IS NOT ON THE DISK'
         WAIT
         @ 20,1 SAY  '                                             '
         ? '          '
         STORE odxcc TO dxcc
      ENDIF
      
   ENDIF
ENDDO
RELEASE odxcc,lastpx,epx,epx1,epx2,ptask
RETURN
*: EOF: DXCCPXED.PRG