Dim Float L,F Dim y$ Print "*****************************" Print "* Antenna length calculator *" Print "*****************************" Const C=299792458' speed of light in m/s Input "Enter Frequency in Hz: ",F L=(C/F)*1000 Print:Print "Antenna Lengths" Print "-----------------------------" Print "Full Wave = ";L;"mm" Print "Half Wave = ";L/2;"mm" Print "Quarter Wave = ";L/4;"mm"
> RUNEnter Frequency in Hz: 433000000Antenna Lengths---------Full Wave = 692.361mmHalf Wave = 346.181mmQuarter Wave = 173.09mm>