home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / log / qslcount.prg < prev    next >
Encoding:
Text File  |  1987-03-10  |  884 b   |  54 lines
  1. * QSLCOUNT.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 07/02/83
  4. * REV 03/08/87 FOR USE ON PC
  5. CLEAR
  6. SET TALK OFF
  7. DO WHILE .T.
  8. ?
  9. ?
  10. ?
  11. ?
  12. ? '***** CONFIRMED COUNT *****'
  13. ?
  14. ?
  15. ? '     0 - EXIT'
  16. ? '     1 - COUNTRIES'
  17. ? '     2 - STATES'
  18. ?
  19. ?
  20. ? '     ENTER DESIRED ACTION'
  21. WAIT TO ACT
  22. STORE UPPER(ACT) TO ACT
  23. IF ACT='0'
  24.    CLEAR
  25.    RETURN
  26. ENDIF
  27. IF ACT='1'
  28.    CLEAR
  29.    @ 2,0 SAY '********** COUNTRIES ***********'
  30.    SET TALK ON
  31.    USE COUNTRY
  32.    @ 5,0 SAY 'SINGLE SIDE BAND'
  33.    COUNT FOR SCONFIRM
  34.    @ 10,0 SAY 'CW'
  35.    COUNT FOR CCONFIRM
  36.    WAIT
  37.    SET TALK OFF
  38. ENDIF
  39. IF ACT='2'
  40.    CLEAR
  41.    @ 2,0 SAY '*********** STATES *************'
  42.    SET TALK ON
  43.    USE STATE
  44.    @ 5,0 SAY 'SINGLE SIDE BAND'
  45.    COUNT FOR SCONFIRM
  46.    @ 10,0 SAY 'CW'
  47.    COUNT FOR CCONFIRM
  48.    WAIT
  49.    SET TALK OFF
  50. ENDIF
  51. CLEAR
  52. RELEASE ACT
  53. ENDDO
  54.