home *** CD-ROM | disk | FTP | other *** search
/ Super Games / visualcdgame.iso / dosgames / contintl / techmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-08-06  |  3.9 KB  |  56 lines
  1. 10  REM ---------------------------------------------
  2. 20  REM TECHNICAL MENU - by Steve Schott - April 1986
  3. 22  REM
  4. 25  REM ++++ SPECIAL VERSION FOR DISK MAILOUTS ++++++
  5. 27  REM
  6. 30  REM ---------------------------------------------
  7. 40   KEY 5,CHR$(12) : KEY 6,"EDIT " : KEY 7,"SYSTEM"+CHR$(13) :KEY 8,"SHELL"+CHR$(13) : KEY 9,"KEY 10, CHR$(" : KEY 10,"KEY ON"+CHR$(13) : REM Change Function Keys for Editing.
  8. 45  LOCATE 1,1,:COLOR 0,9: PRINT "                                          "
  9. 50  LOCATE 3,1,:COLOR 0,9: PRINT "                                          ":COLOR 0,9
  10. 55  CLS
  11. 60  CL$ = "                                                                                " : REM  String of Blanks to Clear Line
  12. 70  CLS : COLOR 7,0 : KEY OFF
  13. 80  LOCATE 3,1:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  14. 90  PRINT "OPEN "; : COLOR 0,7 : PRINT "                   T E C H N I C A L   P R O G R A M S                    "; : COLOR 7,0 : PRINT "  OPEN"
  15. 100  PRINT "OPEN "; : COLOR 0,7 : PRINT "          - Continental Electronics -    Steve Schott  Rev 2.0  1990      "; : COLOR 7,0 : PRINT "  OPEN"
  16. 110  PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  17. 120  REM ----------
  18. 130  REM INPUT DATA
  19. 140  REM ----------
  20. 160  LOCATE 23,1 : COLOR 0,7 : PRINT "  User accepts full responsibility for software and uses it at his own risk.     Continental Electronics accepts no liability for performance or any results                              from the use of this SOFTWARE.":
  21. 165  LOCATE 23,49: COLOR 0,7 : PRINT "       If errors are found, please call (214) 423-3644 or 381-7161":COLOR 7,0
  22. 180  LOCATE 5,15 : COLOR 15 : PRINT "A"; : COLOR 7 : PRINT " - FM OPERATING PARAMETERS"; : COLOR 11: PRINT TAB(45) "(Xmtr TPO, line loss, etc.)        " : COLOR 7
  23. 190  LOCATE 6,15 : COLOR 15 : PRINT "B"; : COLOR 7 : PRINT " - FM CONTOURS/ANT NULLS "; : COLOR 14 : PRINT TAB(45) "(Fld Strgth Contours/Ant Null Prog)": COLOR 7
  24. 200  LOCATE 7,15 : COLOR 15 : PRINT "C"; : COLOR 7 : PRINT " - COAXIAL CABLE RATINGS"; : COLOR 14 : PRINT TAB(45) "(Derating for Temp, Pressure, VSWR)" : COLOR 7
  25. 210  LOCATE 8,15 : COLOR 15 : PRINT "D"; : COLOR 7 : PRINT " - FM POWER CHART"; : COLOR 14 : PRINT TAB(45) "(Prints Chart of PA Ep vs. Ip)     " : COLOR 7
  26. 220  LOCATE 9,15 : COLOR 15 : PRINT "E"; : COLOR 7 : PRINT " - STL CALCULATIONS"; : COLOR 14 : PRINT TAB(45) "(Gains, Losses, & Path Clearance)  " : COLOR 7
  27. 230  LOCATE 10,15 : COLOR 15 : PRINT "F"; : COLOR 7 : PRINT " - METRIC CONVERSION"; : COLOR 14 : PRINT TAB(45) "(Converts Number to Any Unit)      " : COLOR 7
  28. 240  LOCATE 11,15 : COLOR 15 : PRINT "G"; : COLOR 7 : PRINT " - DECIBEL CONVERSION"; : COLOR 14 : PRINT TAB(45) "(Calculates dB, E, I, or P)        " : COLOR 7
  29. 250  LOCATE 12,15 : COLOR 15 : PRINT "H"; : COLOR 7 : PRINT " - DISTANCE & BEARING"; : COLOR 14 : PRINT TAB(45) "(Approximation of FCC Method)      " : COLOR 7
  30. 260  LOCATE 13,15 : COLOR 15 : PRINT "I"; : COLOR 7 : PRINT " - VERTICAL FM PATTERN"; : COLOR 14 : PRINT TAB(45) "(Plots Vertical FM Field Pattern)  " : COLOR 7
  31. 270  LOCATE 14,15 : COLOR 15 : PRINT "J"; : COLOR 7 : PRINT " - T-NETWORK DESIGN"; : COLOR 14 : PRINT TAB(45) "(Calculates T-Network Components)  " : COLOR 7
  32. 280  LOCATE 15,15 : COLOR 15 : PRINT "K"; : COLOR 7 : PRINT " - REDUCED FM E.R.P."; : COLOR 14 : PRINT TAB(45) "(Finds ERP Above Maximum Heights)  " : COLOR 7
  33. 290  LOCATE 16,15 : COLOR 15 : PRINT "L"; : COLOR 7 : PRINT " - SATELLITE FIND"; : COLOR 14 : PRINT TAB(45) "(Finds Azimuth, Heading, Elevation)" : COLOR 7
  34. 300  LOCATE 17,15 : COLOR 15 : PRINT "M"; : COLOR 7 : PRINT " - H-PAD ATTENUATOR      " ; :COLOR 14 : PRINT TAB(45) "(Design H-Pad & Standard Resistors)" : COLOR 7
  35. 305  LOCATE 18,15 : COLOR 15 : PRINT "N"; : COLOR 7 : PRINT " - TRANSMITTER EFFICIENCY" ; :COLOR 14 : PRINT TAB(45) "(Calculates Operating Costs)       " : COLOR 7
  36. 310  LOCATE 19,15 : COLOR 15 : PRINT "Q"; : COLOR 7 : PRINT " - QUIT"; : COLOR 11:PRINT TAB(45) "(Return to System)                 " : COLOR 7
  37. 320  COLOR 3 : LOCATE 24,32 : PRINT " SELECT PROGRAM "; : COLOR 7 : A$ = INPUT$(1)
  38. 330  IF A$ = "a" OR A$ = "A" THEN RUN "FM"
  39. 340  IF A$ = "b" OR A$ = "B" THEN RUN "NULL"
  40. 350  IF A$ = "c" OR A$ = "C" THEN RUN "COAXPWR"
  41. 360  IF A$ = "d" OR A$ = "D" THEN RUN "CHART"
  42. 370  IF A$ = "e" OR A$ = "E" THEN RUN "STL"
  43. 380  IF A$ = "f" OR A$ = "F" THEN RUN "METRIC"
  44. 390  IF A$ = "g" OR A$ = "G" THEN RUN "DBCONV"
  45. 400  IF A$ = "h" OR A$ = "H" THEN RUN "DISTANCE"
  46. 410  IF A$ = "i" OR A$ = "I" THEN RUN "VERT-PAT"
  47. 420  IF A$ = "j" OR A$ = "J" THEN RUN "TNET"
  48. 430  IF A$ = "k" OR A$ = "K" THEN RUN "ERP"
  49. 440  IF A$ = "l" OR A$ = "L" THEN RUN "SATFIND"
  50. 450  IF A$ = "m" OR A$ = "M" THEN RUN "HPAD"
  51. 460  IF A$ = "n" OR A$ = "N" THEN RUN "EFF"
  52. 465  IF A$ = "q" OR A$ = "Q" THEN 500
  53. 470  BEEP : GOTO 320
  54. 500  CLS
  55. 510  SYSTEM
  56.