home *** CD-ROM | disk | FTP | other *** search
- * DXCCPXAD USE WHEN ADDING TO OR SORTING A DXCC FILE VERSION 860423
- * COPYRIGHT (c) Joe Kasser G3ZCZ 1986
- ERASE
- USE &dxcc
- STORE ' ' TO npx
- DO WHILE npx <> '*'
- ACCEPT 'WHAT PREFIX (* to TERMINATE) ? ' TO npx
- IF npx = '*'
- *DO NOTHING
- ELSE
- ACCEPT 'WHAT IS THE ALTERNATIVE PREFIX (if any) ' TO npx1
- ACCEPT 'WHAT IS THE NAME OF THE COUNTRY ' TO ncountry
- APPEND BLANK
- REPLACE px WITH npx
- REPLACE px1 WITH npx1
- REPLACE country WITH ncountry
- ENDIF
- ENDDO
- RELEASE npx,npx1,ncountry
- ? 'SORTING PREFIXES NOW, PLEASE STANDBY'
- SET TALK ON
- INDEX ON px TO &dxcc
- COPY TO zczjoe
- SET TALK OFF
- USE
- STORE TRIM(dxcc)+'.NDX' TO fred
- DELETE FILE &fred
- STORE TRIM(dxcc)+'.DBF' TO fred
- DELETE FILE &fred
- RENAME zczjoe.dbf to &fred
- RELEASE fred
- RETURN