home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / tech / rf-engnr / dipole.bas < prev    next >
BASIC Source File  |  1985-03-04  |  2KB  |  27 lines
  1. 10 CLS 
  2. 20 LOCATE 1,27:COLOR 0,7:PRINT "AMATEUR RADIO:1/2 WAVE DIPOLE":COLOR 7 
  3. 30 PRINT 
  4. 40 PRINT 
  5. 50 PRINT 
  6. 60 LOCATE 5,10:PRINT "THIS PROGRAM WILL DETERMINE RESONANT LENGTH OF 1/2 WAVE DIPOLE." 
  7. 70 LOCATE 7,21:PRINT "THE AMATEUR FREQUENCIES ARE AS FOLLOWS:" 
  8. 80 LOCATE 9,29:COLOR 0,7:PRINT "10 METERS 28 - 29.7 MHz" 
  9. 90 LOCATE 10,29:PRINT "15 METERS 21 - 21.45 MHz":LOCATE 11,29:PRINT "20 METERS 14 - 14.35 MHz" 
  10. 100 LOCATE 12,29:PRINT "30 METERS 10 - 10.15 MHz":LOCATE 13,29 
  11. 110 PRINT "40 METERS 7 - 7.3 MHz":LOCATE 14,29:PRINT "80 METERS 3.5 - 4 MHz" 
  12. 120 COLOR 7 
  13. 130 LOCATE 22,1:INPUT "TYPE IN DESIRED OPERATING FREQUENCY IN MHZ AND PRESS <ENTER> ", F 
  14. 140 CLS 
  15. 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 
  16. 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 
  17. 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 
  18. 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 
  19. 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 
  20. 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 
  21. 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 
  22. 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 
  23. 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 
  24. 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
  25. 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 
  26. 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
  27.