home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
ant
/
antlengt
/
antlengt.bas
Wrap
BASIC Source File
|
1987-11-11
|
2KB
|
54 lines
100 CLS
140 S = 27
150 Q = 5
170 PRINT TAB(S);"* * * * * * * * * * * * * *
180 PRINT TAB(S);"* *
190 PRINT TAB(S);"* ANTENNA LENGTH *
200 PRINT TAB(S);"* CALCULATIONS *
210 PRINT TAB(S);"* *
220 PRINT TAB(S);"* * * * * * * * * * * * * *
230 PRINT:PRINT:PRINT:PRINT
300 PRINT "SELECT TYPE OF CALCULATION FROM MENU BELOW:"
310 PRINT
320 PRINT "1. 1/2 WAVELENGTH (FREE SPACE)"
330 PRINT "2. 1/4 WAVELENGTH (FREE SPACE)"
340 PRINT "3. 1/2 WAVELENGTH DIPOLE"
350 PRINT "4. 1/4 WAVELENGTH VERTICAL"
360 PRINT "5. 5/8 WAVELENGTH VERTICAL"
370 PRINT "6. 1/2 WAVELENGTH INVERTED-VEE"
380 PRINT:PRINT
390 INPUT "SELECTION? ",A
410 IF A = 1, THEN C = 492000!
420 IF A = 2, THEN C = 246000!
430 IF A = 3, THEN C = 468000!
440 IF A = 4, THEN C = 234000!
450 IF A = 5, THEN C = 585000!
460 IF A = 6, THEN C = 496000!
470 IF A > 6, THEN GOTO 300
490 INPUT "Enter LOWER band edge (in KHz): ",F1
510 INPUT "Enter UPPER band edge (in KHz): ",F2
530 INPUT "Enter frequency INCREMENT (in KHz): ",F3
550 L = C/F1
560 L = L*100
570 L = INT(L)
580 L = L/100
590 PRINT F1;" KHz";" L = ";L;" Ft."
600 LET F1 = F1 + F3
610 IF F1>=(F2+F3) THEN GOTO 620 ELSE 550
620 PRINT:PRINT
640 GOSUB 830
670 PRINT "1. FINISHED?"
680 PRINT "2. ANOTHER OF THE SAME TYPE?"
690 PRINT "3. ANOTHER OF DIFFERENT TYPE?"
694 PRINT:PRINT
695 INPUT "ENTER YOUR SELECTION: ",H
700 IF H = 1 THEN SYSTEM
710 IF H = 2 THEN 490
720 IF H = 3 THEN 290
730 IF H>3 THEN 670
830 PRINT "PRESS ANY KEY TO CONTINUE:"
840 A$=INKEY$: IF A$=" " THEN 840
850 RETURN
IF H = 3 THEN 290
730 IF H>3 THEN 670
83