home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3log.zip / HAM.PRG < prev    next >
Text File  |  1987-03-10  |  3KB  |  141 lines

  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. * HAM.PRG
  4. * MAIN MENU COMMAND - CALLS ALL OTHER COMMANDS
  5. * REV 10/01/83
  6. * REV 03/08/87 FOR USE ON PC
  7. CLEAR
  8. SET TALK OFF
  9. *!! Logical constant converted.
  10. DO WHILE .T.
  11. ACCEPT 'BAND: ' TO MBAND
  12. CLEAR
  13. *!! Logical constant converted.
  14. DO WHILE .T.
  15. ?
  16. ?
  17. ?
  18. ?
  19. ? '              ******* HAM PROGRAM MENU *******'
  20. ?
  21. ?
  22. ? '               A - CHANGE BAND'
  23. ? '               B - LOG'
  24. ? '               C - BEAM HEADING'
  25. ? '               D - COUNTRY CHECKLIST'
  26. ? '               E - STATE CHECKLIST'
  27. ? '               F - TWO LETTER STATE ABREVIATIONS'
  28. ? '               G - US QSL MANAGERS LIST'
  29. ? '               H - QSL CONFIRMED COUNTS'
  30. ? '               I - RECEIVE QSL CARDS'
  31. ? '               J - QSL CARDS SENT & NOT RECEIVED'
  32. ? '               K - MAINTAINANCE'
  33. ?
  34. ?
  35. ? '               Q - QUIT TO DBASE'
  36. ? '               X - EXIT TO DOS'
  37. ?
  38. ACCEPT 'ENTER DESIRED ACTION: ' TO ACTION
  39. STORE UPPER(ACTION) TO ACTION
  40. IF ACTION = 'X'
  41.    CLOSE DATABASES
  42.    CLEAR
  43.    QUIT
  44. ENDIF
  45. IF ACTION='Q'
  46.    RELEASE ALL
  47.    CLEAR
  48.    RETURN
  49. ENDIF
  50. IF ACTION='A'
  51.    ACCEPT 'BAND: ' TO MBAND
  52. ENDIF
  53. IF ACTION='B'
  54.    DO LOGS
  55. ENDIF
  56. IF ACTION='C'
  57.    DO BEAM
  58. ENDIF
  59. IF ACTION='D'
  60.    DO COUNTRY
  61. ENDIF
  62. IF ACTION='E'
  63.    DO STATE
  64. ENDIF
  65. IF ACTION='F'
  66. CLEAR
  67. @ 0,23 SAY 'TWO LETTER ABBREVIATIONS FOR STATES'
  68. @ 2,0 SAY 'ALABAMA      =AL'
  69. @ 3,0 SAY 'ALASKA       =AK'
  70. @ 4,0 SAY 'ARKANSAS     =AR'
  71. @ 5,0 SAY 'ARIZONA      =AZ'
  72. @ 6,0 SAY 'CALIFORNIA   =CA'
  73. @ 7,0 SAY 'COLORADO     =CO'
  74. @ 8,0 SAY 'CONNECTICUT  =CT'
  75. @ 9,0 SAY 'DELAWARE     =DE'
  76. @ 10,0 SAY 'FLORIDA      =FL'
  77. @ 11,0 SAY 'GEORGIA      =GA'
  78. @ 12,0 SAY 'HAWAII       =HI'
  79. @ 13,0 SAY 'IDAHO        =ID'
  80. @ 14,0 SAY 'ILLINOIS     =IL'
  81. @ 15,0 SAY 'INDIANA      =IN'
  82. @ 16,0 SAY 'IOWA         =IA'
  83. @ 17,0 SAY 'KANSAS       =KS'
  84. @ 18,0 SAY 'KENTUCKY     =KY'
  85. @ 2,32 SAY 'LOUISIANA     =LA'
  86. @ 3,32 SAY 'MAINE         =ME'
  87. @ 4,32 SAY 'MARYLAND      =MD'
  88. @ 5,32 SAY 'MASSACHUSETTS =MA'
  89. @ 6,32 SAY 'MICHIGAN      =MI'
  90. @ 7,32 SAY 'MINNESOTA     =MN'
  91. @ 8,32 SAY 'MISSISSIPPI   =MS'
  92. @ 9,32 SAY 'MISSOURI      =MO'
  93. @ 10,32 SAY 'MONTANA       =MT'
  94. @ 11,32 SAY 'NEBRASKA      =NE'
  95. @ 12,32 SAY 'NEVADA        =NV'
  96. @ 13,32 SAY 'NEW HAMPSHIRE =NH'
  97. @ 14,32 SAY 'NEW JERSEY    =NJ'
  98. @ 15,32 SAY 'NEW MEXICO    =NM'
  99. @ 16,32 SAY 'NEW YORK      =NY'
  100. @ 17,32 SAY 'NORTH CAROLINA=NC'
  101. @ 18,32 SAY 'NORTH DAKOTA  =ND'
  102. @ 2,62 SAY 'OHIO          =OH'
  103. @ 3,62 SAY 'OKLAHOMA      =OK'
  104. @ 4,62 SAY 'OREGON        =OR'
  105. @ 5,62 SAY 'PENNSYLVANIA  =PA'
  106. @ 6,62 SAY 'RHODE ISLAND  =RI'
  107. @ 7,62 SAY 'SOUTH CAROLINA=SC'
  108. @ 8,62 SAY 'SOUTH DAKOTA  =SD'
  109. @ 9,62 SAY 'TENNESSEE     =TN'
  110. @ 10,62 SAY 'TEXAS         =TX'
  111. @ 11,62 SAY 'UTAH          =UT'
  112. @ 12,62 SAY 'VERMONT       =VT'
  113. @ 13,62 SAY 'VIRGINIA      =VA'
  114. @ 14,62 SAY 'WASHINGTON    =WA'
  115. @ 15,62 SAY 'WEST VIRGINIA =WV'
  116. @ 16,62 SAY 'WISCONSIN     =WI'
  117. @ 17,62 SAY 'WYOMING       =WY'
  118. @ 18,62 SAY '                 '
  119. WAIT
  120. ENDIF
  121. IF ACTION='G'
  122.    DO USQSLMAN
  123. ENDIF
  124. IF ACTION='H'
  125.    DO QSLCOUNT
  126. ENDIF
  127. IF ACTION='I'
  128.    DO QSLIN
  129. ENDIF
  130. IF ACTION='J'
  131.    USE LOG
  132.    DISPLAY FOR SQSL='Y'.AND.RQSL=' '
  133.    WAIT
  134. ENDIF
  135. IF ACTION = 'K'
  136.    DO MAINT
  137. ENDIF
  138. CLEAR
  139. ENDDO
  140. RETURN
  141.