home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / dipole.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  3.4 KB  |  35 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:COLOR 0,7: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,28:COLOR 0,7:PRINT "10  METERS 28 - 29.70 MHz"
  9. 90  LOCATE 10,28:PRINT "15  METERS 21 - 21.45 MHz":LOCATE 11,28:PRINT "20  METERS 14 - 14.35 MHz"
  10. 100  LOCATE 12,28:PRINT "30  METERS 10 - 10.15 MHz":LOCATE 13,28
  11. 110  PRINT "40  METERS 7.0 - 7.30 MHz":LOCATE 14,28:PRINT "80  METERS 3.5 - 4.00 MHz"
  12. 120  LOCATE 15,28:PRINT "160 METERS 1.8 - 2.00 MHz"
  13. 130  COLOR 7 
  14. 140  LOCATE 22,10:COLOR 0,7:INPUT "TYPE IN DESIRED OPERATING FREQUENCY IN MHZ AND PRESS <ENTER> ", F
  15. 150  CLS 
  16. 160  IF F>=1.8 AND F<=2 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  17. 170  IF F>=3.5 AND F<=4 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  18. 180  IF F>=7 AND F<=7.3 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  19. 190  IF F>=10 AND F<=10.15 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7,0:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  20. 200  IF F>=14 AND F<=14.35 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  21. 210  IF F>=21 AND F<=21.45 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  22. 220  IF F>=28 AND F<=29.7 THEN COLOR 0:LOCATE 15,5:PRINT "THE LENGTH OF A 1/2 WAVE DIPOLE AT";F;"MHZ IS";468/F;"FEET LONG.":LOCATE 17,5:PRINT "ENTER `QUIT' TO EXIT PROGRAM.":COLOR 7:INPUT "ENTER `QUIT' TO EXIT PROGRAM:";NC$
  23. 230   IF NC$ = "QUIT" THEN GOTO 330
  24. 240  IF F<1.8 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS `F2' TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  25. 250  IF F>2 AND F<3.5 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES. ":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  26. 260  IF F>4 AND F<7 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  27. 270  IF F>7.3 AND F<10 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  28. 280  IF F>10.15 AND F<14 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  29. 290  IF F>14.35 AND F<21 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  30. 300  IF F>21.45 AND F<28 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS F2 TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  31. 310  IF F>29.7 THEN LOCATE 10,29:COLOR 0,7:PRINT "ENTRY OUT OF BAND EDGES.":LOCATE 12,10:PRINT "PLEASE CONSULT BAND CHART AND PRESS `F2' TWO TIMES TO RETRY.":COLOR 7:BEEP:INPUT "PRESS `F2' TWO TIMES TO RETRY:";FC$
  32. 320  IF FC$ = "F2" THEN GOTO 330
  33. 330   COLOR 7,0:CLS:KEY ON
  34. 340   RUN "MAINMENU"
  35.