Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3LOG.ZIP
Filename : COUNTRY.PRG

* COUNTRY.PRG
* CALLED BY HAM.CMD
* REV 10/01/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 CPREFIX
IF CPREFIX = 'END'
SET TALK ON
CLEAR
RETURN
ENDIF
FIND &CPREFIX
IF (EOF() .OR. BOF())
@ 12,40 SAY 'PREFIX NOT FOUND'
@ 13,40 SAY 'CHECK ALTERNATES'
WAIT
CLEAR
ENDIF
IF PREFIX = CPREFIX
@ 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..NOT. EOF()
DISPLAY OFF
SKIP
ENDDO
?
WAIT
ENDIF
RELEASE CPREFIX
CLEAR
ENDDO
RETURN