Antenna Comp

Gallery

Source Code

  10 REM "ANTCOMP"
  20 CLS 
  30 PRINT 
  40 PRINT "********************************"
  50 PRINT "   % %A%N%T%E%N%N%A% %D%I%M%E%N%S%I%O%N% %P%R%O%G%R%A%M% "
  60 PRINT "********************************"
  70 PRINT 
  80 PRINT 
  90 PRINT 
 100 PRINT "TO DETERMINE  SIZE OF A DIPOLE"
 110 PRINT "AND VERTICAL ANTENNA FOR ANY"
 120 PRINT "BAND, ENTER THE CENTER FREQUENCY"
 130 PRINT "IN MEGAHERTZ:"
 140 INPUT F
 150 PRINT                                            
 160 PRINT "    ";F;"% %M%H%Z% "
 170 LET L1=(INT (49200/F))/100
 180 LET L2=(INT (15000/F))/100
 190 LET L3=(INT (23400/F))/100
 200 LET L4=(INT (7130/F))/100
 210 LET L5=(INT (102.5*L3))/100
 220 LET L6=(INT (102.5*L4))/100
 230 LET L7=(INT (L2*50))/100
 240 LET L8=(INT (L1*50))/100
 250 FOR N=1 TO 70
 260 NEXT N
 270 CLS 
 280 PRINT 
 290 PRINT "********************************"
 300 PRINT "   % %A%N%T%E%N%N%A%S% %F%O%R% ";F;" % %M%H%Z% "
 310 PRINT "********************************"
 320 PRINT 
 330 PRINT 
 340 PRINT "% %H%A%L%F%-%W%A%V%E% %D%I%P%O%L%E% "
 360 PRINT 
 370 PRINT "% %L%E%N%G%T%H","% %E%A%C%H% %A%R%M% "
 380 PRINT L1;"% %F%E%E%T% ",L8;" % %F%E%E%T% "
 390 PRINT L2;"% %M%E%T%E%R%S% ",L7;" % %M%E%T%E%R%S% "
 395 PRINT 
 400 PRINT "% %Q%U%A%R%T%E%R%-%W%A%V%E% %V%E%R%T%I%C%A%L% "
 410 PRINT 
 420 PRINT "% %V%E%R%T%I%C%A%L% ","% %R%A%D%I%A%L% "
 430 PRINT L3;"% %F%E%E%T% ",L5;" % %F%E%E%T% "
 440 PRINT L4;"% %M%E%T%E%R%S% ",L6;" % %M%E%T%E%R%S% "
 450 PRINT 
 460 PRINT 
 470 PRINT 
 480 PRINT "ENTER % %Y%/%N%  TO CONTINUE"
 490 INPUT Y$
 500 IF Y$="Y" THEN GOTO 20
 520 PRINT "MEMORY USED; ";PEEK 16396+256*PEEK 16397-16509
 530 STOP 
 540 CLEAR 
 550 SAVE "1025%0"
 560 RUN