home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3
/
hamradioversion3.0examsandprograms1992.iso
/
tech
/
rf-engnr
/
dipole.bas
< prev
next >
Wrap
BASIC Source File
|
1985-03-04
|
2KB
|
27 lines
10 CLS
20 LOCATE 1,27:COLOR 0,7:PRINT "AMATEUR RADIO:1/2 WAVE DIPOLE":COLOR 7
30 PRINT
40 PRINT
50 PRINT
60 LOCATE 5,10:PRINT "THIS PROGRAM WILL DETERMINE RESONANT LENGTH OF 1/2 WAVE DIPOLE."
70 LOCATE 7,21:PRINT "THE AMATEUR FREQUENCIES ARE AS FOLLOWS:"
80 LOCATE 9,29:COLOR 0,7:PRINT "10 METERS 28 - 29.7 MHz"
90 LOCATE 10,29:PRINT "15 METERS 21 - 21.45 MHz":LOCATE 11,29:PRINT "20 METERS 14 - 14.35 MHz"
100 LOCATE 12,29:PRINT "30 METERS 10 - 10.15 MHz":LOCATE 13,29
110 PRINT "40 METERS 7 - 7.3 MHz":LOCATE 14,29:PRINT "80 METERS 3.5 - 4 MHz"
120 COLOR 7
130 LOCATE 22,1:INPUT "TYPE IN DESIRED OPERATING FREQUENCY IN MHZ AND PRESS <ENTER> ", F
140 CLS
150 IF F>=3.5 AND F<=4 THEN COLOR 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468/F;"FEET LONG.":COLOR 7
160 IF F>=7 AND F<=7.3 THEN COLOR 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468/F;"FEET LONG.":COLOR 7
170 IF F>=14 AND F<=14.35 THEN COLOR 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468/F;"FEET LONG.":COLOR 7
180 IF F>=21 AND F<=21.45 THEN COLOR 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468/F;"FEET LONG.":COLOR 7
190 IF F>=28 AND F<=29.7 THEN COLOR 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468/F;"FEET LONG.":COLOR 7
200 IF F<3.5 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
210 IF F>4 AND F<7 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
220 IF F>7.3 AND F<10 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
230 IF F>10.15 AND F<14 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
240 I F>14.35 AND F<21 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
250 IF F>21.45 AND F<28 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP
260 IF F>29.7 THEN COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":COLOR 7:BEEP