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

Text File | 1987-03-10 | 1KB | 51 lines

* STATE.PRG
* CALLED BY HAM.CMD
* REV 10/01/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE STATE INDEX STATE
SET INDEX TO STATE
DO WHILE .T.
CLEAR
@ 0,0 SAY 'ENTER [ END ] TO EXIT'
@ 0,30 SAY '****STATE CHECKLIST****'
ACCEPT 'STATE: ' TO MSTATE
STORE UPPER(MSTATE) TO MSTATE
    IF MSTATE = 'END'
       SET TALK ON
       CLEAR
       RETURN
    ENDIF
FIND &MSTATE
    IF (EOF() .OR. BOF())
       @ 12,40 SAY 'STATE NOT FOUND'
       @ 13,40 SAY 'CHECK ABREVIATION'
       WAIT
       CLEAR
    ENDIF
    IF STATE = MSTATE
       @ 5,0 SAY 'STATE'
       @ 5,6  SAY 'SSB'
       @ 5,10 SAY 'CW'
       @ 5,14 SAY 'S2'
       @ 5,18 SAY 'S6'
       @ 5,22 SAY 'S10'
       @ 5,26 SAY 'S15'
       @ 5,30 SAY 'S20'
       @ 5,34 SAY 'S40'
       @ 5,38 SAY 'S80'
       @ 5,42 SAY 'C2'
       @ 5,46 SAY 'C6'
       @ 5,50 SAY 'C10'
       @ 5,54 SAY 'C15'
       @ 5,58 SAY 'C20'
       @ 5,62 SAY 'C40'
       @ 5,66 SAY 'C80'
       DISPLAY OFF
       @ 7,0 SAY '     '
       WAIT
    ENDIF
RELEASE MSTATE
CLEAR
ENDDO