home *** CD-ROM | disk | FTP | other *** search
/ Super Games / visualcdgame.iso / dosgames / contintl / null.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-22  |  1.9 KB  |  37 lines
  1. 5  CLS
  2. 7  COLOR 0,9
  3. 10  REM ****-------------------------------------***
  4. 20  REM ****                                     ***
  5. 30  REM ****    ANTENNA NULL vs NULL DISTANCE    ***
  6. 40  REM ****                     G. Bidun        ***
  7. 50  REM ****            < NULL  >                ***
  8. 55  REM ****   Revised Sept '90 -     W. Rice    ***
  9. 60  REM ****-------------------------------------***
  10. 65  CLS
  11. 70  LOCATE 2,17: COLOR 0,7: PRINT "   ANTENNA NULL AND NULL DISTANCE PROGRAM    "
  12. 75  LOCATE 3,17: COLOR 4: PRINT " Contributed by G. Bidun - Revised by W. Rice"
  13. 80  LOCATE 5,5 : COLOR 0,10: PRINT "THESE CALCULATIONS PROVIDE THE DISTANCE TO THE NULL - TO PROVIDE ANTENNA"
  14. 85  LOCATE 6,5 : COLOR 0,10: PRINT "                     COVERAGE AND NULL FILL DETERMINATION               "
  15. 90  LOCATE 7,5 : COLOR 0,10: PRINT "                                                                        "
  16. 95  LOCATE 8,5 : COLOR 0,10: PRINT "                                                                        "
  17. 100  LOCATE 9,5 : COLOR 0,10: PRINT "                  USER MUST KNOW THE NULL ANGLE - IN DEGREES!           "
  18. 110  LOCATE 10,5 : COLOR 0,10: PRINT "                  CALCULATIONS ASSUME FLAT & ABSORBENT EARTH            ": COLOR 0,7
  19. 120  LOCATE 12,20: COLOR 4: PRINT "N"; :COLOR 0,7: PRINT "ull Program - -    ";:LOCATE 13,20:COLOR 4:PRINT "C";:COLOR 0,7:PRINT "ontour Program - - ";:LOCATE 14,20: COLOR 4: PRINT "M"; :COLOR 0,7: PRINT "ain Menu - -       "
  20. 130  A$=INPUT$(1)
  21. 135  IF A$ = "N" OR A$ = "n" THEN 155
  22. 140  IF A$ = "C" OR A$ = "c" THEN RUN "FLDCOV"
  23. 145  IF A$ = "M" OR A$ = "m" THEN RUN "TECHMENU"
  24. 155  LOCATE 18,10: COLOR 0,7 : PRINT "ENTER THE FIRST NULL - IN DEGREES "; :COLOR  4 : INPUT "",D$ : COLOR 0,7
  25. 160  D = VAL(D$) : IF D=<0 THEN BEEP: GOTO 120: IF D=>360 THEN BEEP: GOTO 120:COLOR 0,7
  26. 170  LOCATE 19,10: COLOR 0,7 : PRINT "ENTER THE CENTER OF RADIATION OF THE ANTENNA "; :COLOR  4 : INPUT "",H$ : COLOR 0,7
  27. 180  H = VAL(H$) : IF H=<50 THEN BEEP: GOTO 140: IF D=>2500 THEN BEEP: GOTO 140:COLOR 0,7
  28. 190  M=H/(5280*ATN(D*0.0174533))
  29. 195  PRINT "":PRINT ""
  30. 200  LOCATE 22,10: COLOR 0,7:PRINT "FIRST NULL FALLS AT: "
  31. 220  LOCATE 22,30: COLOR 4: PRINT USING "###.###"; M
  32. 230  LOCATE 22,35: COLOR 0,7: PRINT " MILES FROM THE ANTENNA"
  33. 260  LOCATE 24,10: PRINT " ENTER < CR > "; A$ = INPUT$(1)
  34. 300  CLS
  35. 400  GOTO 7
  36. 500  RUN "FLDCOV"
  37.