Content
Image Gallery
Antenna Comp
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
People
No people associated with this content.