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