home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / math / dbcalc / dbcalc.bas (.txt)
Encoding:
GW-BASIC  |  1987-09-12  |  485 b   |  20 lines
  1. 5  CLS
  2. 6  PRINT
  3. 7  PRINT  "Calculate antenna and cable losses in db, then use this"
  4. 8  PRINT  "program to calculate ERP of system."
  5. 9  PRINT
  6. 10  PRINT "Enter power level of transmitter in watts.":INPUT P
  7. 20  PRINT "Enter db from antenn & cable calculation.":INPUT A
  8. 30  X=A/10
  9. 40  Y=10^X
  10. 50  P2=Y*P
  11. 60  P3=INT(P2*100)/100
  12. 70  PRINT A "db over" P  "watts is" P3 "watts"
  13. 80  PRINT " Do you want another calculation? "
  14. 90  Z$=INPUT$(1)
  15. 95  IF Z$="n" THEN 200
  16. 100  IF Z$= "y" THEN 5
  17. 105  IF Z$="N" THEN 200
  18. 110  IF Z$="Y" THEN 5  ELSE 80
  19. 200  SYSTEM
  20.