home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / mainmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-10-16  |  6.0 KB  |  191 lines
  1. 5  KEY OFF
  2. 10  COLOR 15,4,1:CLS
  3. 15  REM PROGRAMS EITHER WRITTEN OR ASSEMBLED BY R. THWING Sr.
  4. 16  REM                                         P.O. BOX 40
  5. 17  REM                                         COLUMBUS, NC
  6. 18  REM                                         28722
  7. 19  REM  LINES 78,80,180,10015 MODIFIED BY R L BURNS, PUBLIC BRAND SOFTWARE
  8. 20  LOCATE 1,15:PRINT CHR$(201);STRING$(50,205);CHR$(187)
  9. 30  FOR X= 1 TO 6:PRINT TAB(15)CHR$(186);TAB(66)CHR$(186)
  10. 40  NEXT X
  11. 50  LOCATE 7,15:PRINT TAB(15)CHR$(200);STRING$(50,205);CHR$(188)
  12. 60  LOCATE 3,30:PRINT"++++ MAIN MENU ++++"
  13. 65  LOCATE 4,34:PRINT"DICK THWING'S"
  14. 70  LOCATE 5,27:PRINT"ELECTRONIC DESIGN PROGRAMS"
  15. 78  LOCATE 8,1:PRINT STRING$(80,220)
  16. 80  LOCATE 10,1:PRINT"    ANTENNAE & FEED LINES...........1    PARALLEL R / SERIES C.......6"
  17. 90  PRINT
  18. 100  PRINT"    PROPAGATION.....................2    REACTANCE / RESONANCE.......7"
  19. 110  PRINT
  20. 120  PRINT"    POWER SUPPLY....................3    POWER FORMULAE..............8"
  21. 130  PRINT
  22. 140  PRINT"    OHMS LAW........................4    MISCELLANEOUS...............9"
  23. 150  PRINT
  24. 160  PRINT"    COIL DESIGN.....................5    MS-DOS.....................10"
  25. 170  X=8:FOR Y=1 TO 11:LOCATE X+Y,40:PRINT CHR$(186):NEXT Y
  26. 171  FOR Y=1 TO 11:LOCATE X+Y,1:PRINT CHR$(221):NEXT Y
  27. 172  FOR Y=1 TO 11:LOCATE X+Y,80:PRINT CHR$(222):NEXT Y
  28. 180  LOCATE 20,1:PRINT STRING$(80,223):PRINT
  29. 190  LOCATE ,37:COLOR 31:PRINT"SELECT";
  30. 195  COLOR 15:INPUT S
  31. 200  IF S <1 OR S >10 THEN COLOR 15:CLS:GOTO 78
  32. 205  COLOR 15
  33. 210  ON S GOTO 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
  34. 1000  CLS
  35. 1010  PRINT TAB(34)"SUB MENU 1":PRINT
  36. 1020  PRINT TAB(35)"ANTENNAE"
  37. 1030  PRINT:PRINT STRING$(79,147):PRINT
  38. 1040  PRINT:PRINT"HALF WAVE DIPOLE................A1"
  39. 1045  PRINT:PRINT"VHF YAGI BEAM...................A2"
  40. 1050  PRINT:PRINT"VHF QUARTER WAVE................A3"
  41. 1060  PRINT:PRINT"PARALLEL FEEDERS................A4"
  42. 1070  PRINT:PRINT"STRIP LINE......................A5"
  43. 1075  X=4:FOR Y=1 TO 13:LOCATE X+Y,37:PRINT CHR$(186):NEXT Y
  44. 1080  LOCATE 8,40:PRINT"COAX CABLE PROGRAMS.............A6"
  45. 1090  LOCATE 10,40:PRINT"STUBS...........................A7"
  46. 1100  LOCATE 12,40:PRINT"SWR.............................A8"
  47. 1110  LOCATE 14,40:PRINT"RELATIVE, RADIATED POWER........A9"
  48. 1120  LOCATE 16,40:PRINT"CALCULATE LF-UF.................A10"
  49. 1490  PRINT:PRINT STRING$(80,147)
  50. 1500  GOSUB 50000
  51. 1510  IF A$= "A1" OR A$= "a1" THEN RUN"HALFWAVE"
  52. 1515  IF A$= "A2" OR A$= "a2" THEN RUN"YAGIBEAM"
  53. 1520  IF A$= "A3" OR A$= "a3" THEN RUN"VHFQTR"
  54. 1530  IF A$= "A4" OR A$= "a4" THEN RUN"PARFEED"
  55. 1535  IF A$= "A5" OR A$= "a5" THEN RUN "STRIP-W"
  56. 1540  IF A$= "A6" OR A$= "a6" THEN RUN"COAXIAL"
  57. 1550  IF A$= "A7" OR A$= "a7" THEN RUN"STUBS"
  58. 1560  IF A$= "A8" OR A$= "a8" THEN RUN"SWR
  59. 1570  IF A$= "A9" OR A$= "a9" THEN RUN"REL-RAD"
  60. 1580  IF A$= "A10" OR A$= "a10" THEN RUN"SCANLFUF"
  61. 1900  GOTO 40000
  62. 2000  CLS
  63. 2010  PRINT TAB(34)"SUB MENU 2":PRINT
  64. 2020  PRINT TAB(33)"PROPAGATION"
  65. 2030  PRINT:PRINT STRING$(79,223)
  66. 2040  PRINT:PRINT"GREAT CIRCLE DISTANCE..B1"
  67. 2050  PRINT:PRINT"RADIATED POWER.........B2"
  68. 2060  PRINT:PRINT"GMT TO LOCAL TIME......B3"
  69. 2070  PRINT:PRINT"RADIO HORIZON..........B4"
  70. 2080  PRINT:PRINT"SPACE ATTENUATION......B5"
  71. 2500  GOSUB 50000
  72. 2510  IF A$= "B1" OR A$= "b1"THEN RUN"GRTCIRC"
  73. 2520  IF A$= "B2" OR A$= "b2" THEN RUN"RADPOWER"
  74. 2530  IF A$= "B3" OR A$= "b3" THEN RUN"GMT"
  75. 2540  IF A$= "B4" OR A$= "b4" THEN RUN"HORIZON"
  76. 2550  IF A$= "B5" OR A$= "b5" THEN RUN"SPACE"
  77. 2900  GOTO 40000
  78. 3000  CLS:PRINT:PRINT TAB(34)"SUB MENU 3":PRINT
  79. 3010  PRINT TAB(32)"POWER SUPPLIES"
  80. 3020  PRINT:PRINT STRING$(79,240):PRINT
  81. 3030  PRINT:PRINT"POWER SUPPLY DESIGN...............C1"
  82. 3040  PRINT:PRINT"LM-723 REGULATOR..................C2"
  83. 3500  GOSUB 50000
  84. 3510  IF A$= "C1" OR A$= "c1" THEN RUN"POWERSUP"
  85. 3520  IF A$= "C2" OR A$= "c2" THEN RUN"LM-723"
  86. 3990  CLS:GOTO 3000
  87. 4000  CLS
  88. 4010  PRINT:PRINT TAB(34)"SUB MENU 4":PRINT
  89. 4020  PRINT TAB(35)"OHMS LAW"
  90. 4030  PRINT:PRINT STRING$(79,240):PRINT
  91. 4040  PRINT:PRINT"CURRENT FROM E & R..................D1    VOLTAGE FROM W & R..................D6"
  92. 4050  PRINT:PRINT"VOLTAGE FROM I & R..................D2    VOLTAGE FROM W & I..................D7"
  93. 4060  PRINT:PRINT"RESISTANCE FROM I & E...............D3    RESISTANCE FROM W & I...............D8"
  94. 4070  PRINT:PRINT"CURRENT FROM W & E..................D4    RESISTANCE FROM W & E...............D9"
  95. 4080  PRINT:PRINT"CURRENT FROM W & R..................D5"
  96. 4500  GOSUB 50000
  97. 4510  IF A$= "D1" OR A$= "d1" THEN RUN "IER"
  98. 4520  IF A$= "D2" OR A$= "d2" THEN RUN "VIR"
  99. 4530  IF A$= "D3" OR A$= "d3" THEN RUN "RIE"
  100. 4540  IF A$= "D4" OR A$= "d4" THEN RUN "IWE"
  101. 4550  IF A$= "D5" OR A$= "d5" THEN RUN "IWR"
  102. 4560  IF A$= "D6" OR A$= "d6" THEN RUN "VWR"
  103. 4570  IF A$= "D7" OR A$= "d7" THEN RUN "VWI"
  104. 4580  IF A$= "D8" OR A$= "d8" THEN RUN "RWI"
  105. 4590  IF A$= "D9" OR A$= "d9" THEN RUN "RWE"
  106. 4600  GOTO 40000
  107. 5000  CLS
  108. 5010  PRINT TAB(36)"SUB MENU 5":PRINT
  109. 5020  PRINT TAB(35)"COIL DESIGN"
  110. 5030  PRINT:PRINT STRING$(79,240)
  111. 5040  PRINT:PRINT"INDUCTOR...............E1"
  112. 5050  PRINT:PRINT"COILS..................E2"
  113. 5500  GOSUB 50000
  114. 5510  IF A$= "E1" OR A$= "e1" THEN RUN"INDUCTOR"
  115. 5520  IF A$= "E2" OR A$= "e2" THEN RUN"COILS"
  116. 5900  GOTO 40000
  117. 6000  CLS
  118. 6010  PRINT TAB(34)"SUB MENU 6":PRINT
  119. 6020  PRINT TAB(32)"PARALLEL / SERIES"
  120. 6030  PRINT:PRINT STRING$(79,223):PRINT
  121. 6040  PRINT:PRINT"PARALLEL RESISTORS...........F1"
  122. 6050  PRINT:PRINT"SERIES CAPACITORS............F2"
  123. 6500  GOSUB 50000
  124. 6510  IF A$= "F1" OR A$= "f1" THEN RUN "PARRES"
  125. 6520  IF A$= "F2" OR A$= "f2" THEN RUN "SERCAP"
  126. 6990  GOTO 40000
  127. 7000  CLS
  128. 7010  PRINT TAB(34)"SUB MENU 7":PRINT
  129. 7020  PRINT TAB(29)"REACTANCE / RESONANCE"
  130. 7030  PRINT:PRINT STRING$(79,228):PRINT
  131. 7040  PRINT:PRINT"INDUCTIVE REACTANCE...............G1"
  132. 7050  PRINT:PRINT"CAPACITIVE REACTANCE..............G2"
  133. 7060  PRINT:PRINT"RESONANCE..F FROM L & C...........G3"
  134. 7070  PRINT:PRINT"RESONANCE..L FROM F & C...........G4"
  135. 7080  PRINT:PRINT"RESONANCE..C FROM F & L...........G5"
  136. 7500  GOSUB 50000
  137. 7510  IF A$= "G1" OR A$= "g1" THEN RUN"INDZ"
  138. 7520  IF A$= "G2" OR A$= "g2" THEN RUN"CAPZ"
  139. 7530  IF A$= "G3" OR A$= "g3" THEN RUN"FLC"
  140. 7540  IF A$= "G4" OR A$= "g4" THEN RUN"LFC"
  141. 7550  IF A$= "G5" OR A$= "g5" THEN RUN"CFL"
  142. 7990  GOTO 40000
  143. 8000  CLS
  144. 8010  PRINT TAB(34)"SUB MENU 8":PRINT
  145. 8020  PRINT TAB(33)"POWER FORMULAE"
  146. 8030  PRINT:PRINT STRING$(79,223):PRINT
  147. 8040  PRINT:PRINT"WATTS FROM I & E..................H1"
  148. 8050  PRINT:PRINT"WATTS FROM I & R..................H2"
  149. 8060  PRINT:PRINT"WATTS FROM E & R..................H3"
  150. 8500  GOSUB 50000
  151. 8510  IF A$= "H1" OR A$= "h1" THEN RUN"WIE"
  152. 8520  IF A$= "H2" OR A$= "h2" THEN RUN"WIR"
  153. 8530  IF A$= "H3" OR A$= "h3" THEN RUN"WER"
  154. 8990  GOTO 40000
  155. 9000  CLS
  156. 9010  PRINT TAB(36)"SUB MENU 9":PRINT
  157. 9020  PRINT TAB(32)"MISCELLANEOUS"
  158. 9030  PRINT:PRINT STRING$(79,240)
  159. 9040  PRINT:PRINT"FILTER.................J1"
  160. 9050  PRINT:PRINT"PADS...................J2"
  161. 9070  PRINT:PRINT"UTC TO LOCAL TIME......J3"
  162. 9080  PRINT:PRINT"1% RESISTORS...........J4"
  163. 9090  PRINT:PRINT"APPLIANCE USAGE COST...J5"
  164. 9100  PRINT:PRINT"COCO TO DOS............J6"
  165. 9110  PRINT:PRINT"JETLAG EFFECT..........J7"
  166. 9500  GOSUB 50000
  167. 9510  IF A$= "J1" OR A$= "j1" THEN RUN"FILTER1"
  168. 9520  IF A$= "J2" OR A$= "j2" THEN RUN"PADS"
  169. 9530  IF A$= "J3" OR A$= "j3" THEN RUN"UTC"
  170. 9540  IF A$= "J4" OR A$= "j4" THEN RUN"1%RES"
  171. 9550  IF A$= "J5" OR A$= "j5" THEN RUN"APP$COST"
  172. 9560  IF A$= "J6" OR A$= "j6" THEN RUN "COCODOS"
  173. 9570  IF A$= "J7" OR A$= "j7" THEN RUN"JETLAG"
  174. 9900  GOTO 40000
  175. 10000  COLOR 31,4:CLS:FOR I=1 TO 12:PRINT:NEXT I:PRINT TAB(33)"ARE YOU SURE Y/N"
  176. 10001  PLAY"DC":PRINT
  177. 10005  PRINT TAB(26)"A (Y)es ACTION CANCELS BASIC!"
  178. 10010  X$= INKEY$:IF X$= "" THEN 10010
  179. 10015  COLOR 7,1 :CLS
  180. 10020  IF X$= "Y" OR X$="y" THEN 10050
  181. 10030  IF X$= "N" OR X$="n" THEN 10
  182. 10040  GOTO 10000
  183. 10050  CLS:KEY ON:SYSTEM
  184. 40000  CLS:PRINT TAB(30)"WRONG SELECTION!": PLAY"CD"
  185. 40005  FOR I= 1 TO 1500:NEXT I
  186. 40010  GOTO 10
  187. 50000  LOCATE 22,35:INPUT"SELECT ";A$
  188. 50005  CLS
  189. 50010  LOCATE 12,35:COLOR 31:PRINT"WAIT":COLOR 15
  190. 50015  RETURN
  191.