Shareware Overload/ShartewareOverload.cdr/database/db3log.zip/ADCOUNTR.PRG

Text File | 1987-03-10 | 2KB | 60 lines

* ADCOUNTR.PRG
* CALLED BY HAM.CMD
* REV 07/02/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE COUNTRY INDEX COUNTRY
SET INDEX TO COUNTRY
DO WHILE .T.
CLEAR
@ 0,0 SAY 'ENTER [END] TO EXIT'
@ 0,30 SAY '****COUNTRY CHECKLIST****'
ACCEPT 'PREFIX: ' TO CPREFIX
STORE UPPER(CPREFIX) TO PREFIX
    IF CPREFIX = 'END'
       RETURN
    ENDIF
FIND &CPREFIX
    IF (EOF() .OR. BOF())
       @ 12,40 SAY 'PREFIX NOT FOUND'
       @ 13,40 SAY 'CHECK ALTERNATES'
       WAIT
       CLEAR
    ELSE
    IF PREFIX = "ZZZ"
       LOOP
    ENDIF
       @ 5,0 SAY 'PREFIX'
       @ 5,7 SAY 'ALTERNATE'
       @ 5,18 SAY 'SSB'
       @ 5,22 SAY 'CW'
       @ 5,25 SAY 'S6'
       @ 5,29 SAY 'S10'
       @ 5,33 SAY 'S15'
       @ 5,37 SAY 'S20'
       @ 5,41 SAY 'S40'
       @ 5,45 SAY 'S80'
       @ 5,49 SAY 'C6'
       @ 5,53 SAY 'C10'
       @ 5,57 SAY 'C15'
       @ 5,61 SAY 'C20'
       @ 5,65 SAY 'C40'
       @ 5,69 SAY 'C80'
       @ 5,73 SAY 'DXCC'
    DO WHILE PREFIX = CPREFIX .AND. PREFIX <> "ZZZ"
       DISPLAY OFF
       ? RECNO()
       SKIP
    ENDDO
    ACCEPT 'AMMEND: ' TO CAMMEND
    STORE UPPER(CAMMEND) TO CAMMEND
       IF CAMMEND = 'Y'
          EDIT
       ENDIF
    ENDIF
RELEASE CPREFIX
RELEASE CAMMEND
CLEAR
ENDDO
RETURN