home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / tech / rf-engnr / hygain.bas < prev    next >
BASIC Source File  |  1984-12-06  |  383b  |  14 lines
  1. 10 PRINT "                      hygain main xtal caculator"
  2. 20 PRINT :PRINT :PRINT :PRINT
  3. 30 INPUT "Enter fundamental xtal freq (IN MHZ) ";X
  4. 40 FOR A=224 TO 268
  5. 50 IF A=227 THEN GOTO 130
  6. 60 IF A=232 THEN GOTO 130
  7. 70 IF A=237 THEN GOTO 130
  8. 80 IF A=242 THEN GOTO 130
  9. 90 IF A=247 THEN GOTO 130
  10. 91 B=B+1
  11. 100 X1=X*3:X2=X1+(A/100):F=X2-10.695
  12. 120 PRINT B;" = ";F,
  13. 130 NEXT A
  14.