home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / dxccpxed.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  79 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: DXCCPXED.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 12/14/87      5:03
  9. *:
  10. *:      Called by: DXCC.PRG                      
  11. *:
  12. *:           Uses: &DXCC          
  13. *:
  14. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  15. *:*********************************************************************
  16. *DXCCPXED EDITS px'S IN DXCC FILE
  17. * (c) COPYRIGHT Joe Kasser G3ZCZ 1986
  18. CLEAR
  19. @ 2,12 SAY 'G3ZCZ DXCCFILE PREFIX EDITING MODULE VERSION 1.2'
  20. STORE '    ' TO epx
  21. STORE '    ' TO epx1
  22. STORE '    ' TO epx2
  23. STORE ' '  TO ptask
  24. USE &dxcc
  25. GOTO BOTTOM
  26. STORE RECNO() TO lastpx
  27.  
  28. DO WHILE ptask <> '*'
  29.    @ 8,1 SAY ' CURRENT DXCC FILE IS'
  30.    @ 8,25 SAY dxcc
  31.    
  32.    @ 10,1 SAY ' Prefix to be edited ? '
  33.    @ 10,26 GET epx
  34.    READ
  35.    
  36.    LOCATE FOR px = TRIM(epx)
  37.    IF EOF()
  38.       *ERROR OR LAST PREFIX
  39.       @ 12,35 SAY 'ERROR  ???'
  40.    ELSE
  41.       @ 12,35 SAY '           '
  42.    ENDIF
  43.    STORE px TO epx1
  44.    STORE px1 TO epx2
  45.    @ 12,1 SAY Country
  46.    @ 12,20 GET epx1
  47.    @ 12,28 GET epx2
  48.    
  49.    @ 15,1 SAY 'QRU (C/U/*) ?'
  50.    @ 15,15 GET ptask
  51.    READ
  52.    
  53.    IF ptask = 'U'
  54.       REPLACE px WITH epx1
  55.       REPLACE px1 WITH epx2
  56.    ENDIF
  57.    
  58.    IF ptask = 'C'
  59.       STORE '   '+ dxcc TO odxcc
  60.       @ 8,25 GET dxcc
  61.       READ
  62.       IF FILE(dxcc+'.DBF')
  63.          USE &dxcc
  64.          GOTO BOTTOM
  65.          STORE RECNO() TO lastpx
  66.       ELSE
  67.          @ 20,1 SAY  'ERROR, SELECTED DXCC FILE IS NOT ON THE DISK'
  68.          WAIT
  69.          @ 20,1 SAY  '                                             '
  70.          ? '          '
  71.          STORE odxcc TO dxcc
  72.       ENDIF
  73.       
  74.    ENDIF
  75. ENDDO
  76. RELEASE odxcc,lastpx,epx,epx1,epx2,ptask
  77. RETURN
  78. *: EOF: DXCCPXED.PRG
  79.