home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXCCPXAD.PRG < prev    next >
Text File  |  1987-12-11  |  819b  |  33 lines
  1. * DXCCPXAD USE WHEN ADDING TO OR SORTING A DXCC FILE VERSION 860423
  2. * COPYRIGHT (c) Joe Kasser G3ZCZ 1986
  3. CLEAR
  4. USE &dxcc
  5. STORE ' ' TO npx
  6. DO WHILE npx <> '*'
  7.    ACCEPT 'WHAT PREFIX (* to TERMINATE) ?  ' TO npx
  8.    IF npx = '*'
  9.       *DO NOTHING
  10.    ELSE
  11.       ACCEPT 'WHAT IS THE ALTERNATIVE PREFIX (if any) ? ' TO npx1
  12.       ACCEPT 'WHAT IS THE NAME OF THE COUNTRY ? ' TO ncountry
  13.       APPEND BLANK
  14.       REPLACE px WITH npx
  15.       REPLACE px1 WITH npx1
  16.       REPLACE country WITH ncountry
  17.    ENDIF
  18. ENDDO
  19. RELEASE npx,npx1,ncountry
  20. ? 'SORTING PREFIXES NOW, PLEASE STANDBY'
  21. SET TALK ON
  22. INDEX ON px TO &dxcc
  23. COPY TO zczjoe
  24. SET TALK OFF
  25. USE
  26. STORE TRIM(dxcc)+'.NDX'  TO fred
  27. DELETE FILE &fred
  28. STORE TRIM(dxcc)+'.DBF'  TO fred
  29. DELETE FILE &fred
  30. RENAME zczjoe.dbf to &fred
  31. RELEASE fred
  32. RETURN
  33.