10 :REM USING THIS PROGRAM WAS WRITTEN BY ****  EMMETT BEAN  KZ5I  ****
20 FIELD
30 RSET 1,27:OPEN 0,7:PRINT "AMATEUR RADIO:1/2 WAVE DIPOLE":OPEN 7,0
40 PRINT
50 PRINT
60 PRINT
70 RSET 5,10:PRINT "THIS PROGRAM WILL DETERMINE RESONANT LENGTH OF 1/2 WAVE DIPOLE."
80 RSET 7,21:PRINT "THE AMATEUR FREQUENCIES ARE AS FOLLOWS:"
90 RSET 9,29:OPEN 0,7:PRINT "10 METERS 28 - 29.7 MHz"
100 RSET 10,29:PRINT "15 METERS 21 - 21.45 MHz":RSET 11,29:PRINT "20 METERS 14 - 14.35 MHz"
110 RSET 12,29:PRINT "30 METERS 10 - 10.15 MHz":RSET 13,29
120 PRINT "40 METERS 7 - 7.3 MHz":RSET 14,29:PRINT "80 METERS 3.5 - 4 MHz"
130 OPEN 7,0
140 RSET 22,1:INPUT "TYPE IN DESIRED OPERATING FREQUENCY IN MHZ AND PRESS <ENTER> ", F
150 FIELD
160 IF F  U 3.5 m_M F  W 4 kk OPEN 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468 ZM F;"FEET LONG.":OPEN 7,0
170 IF F _{P " 7 9_M F QJ # 7.3 7k OPEN 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468 AM F;"FEET LONG.":OPEN 7,0
180 IF F \{P  14 6_M F NJ   14.35 4k OPEN 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468 >M F;"FEET LONG.":OPEN 7,0
190 IF F Y{P  21 3_M F KJ  21.45 1k OPEN 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468 ;M F;"FEET LONG.":OPEN 7,0
200 IF F Y{P  28 3_M F |  29.7 1k OPEN 15:PRINT "THE LENGTH OF YOUR 1/2 WAVE DIPOLE AT";F;"MHZ WILL NEED TO BE";468 ;M F;"FEET LONG.":OPEN 7,0
210 IF F KJ 3.5 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
220 IF F{P4 5_M F MJ 7 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
230 IF F{P7.3 4_M F LJ 10 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
240 IF F{P10.15 4_M F LJ 14 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
250 IF F{P14.35 4_M F LJ 21 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
260 IF F{P21.45 4_M F LJ 28 4k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
270 IF F{P29.7 3k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT CHART, PRESS F2 TO RETRY.":OPEN 7,0:MERGE
0:MERGE
270 IF F{P29.7 3k OPEN 0,7:PRINT "ENTRY OUT OF BAND EDGES, PLEASE CONSULT 