10 DIM N(100)
20 PRINT "HANDY HAM PROGRAMS"
30 PRINT "COPYWRIGHT WILLIS SOFTWARE SYSTEMS 1978"
40 PRINT "5192 CRYSTAL DRIVE CHARLESTON W. VA."
50 'CNTRL 3,2
60 PRINT 
70 PRINT "   1   OHMS LAW PROGRAM"
80 PRINT "   2   DESIGN DIPOLE ANTENNA"
90 PRINT "   3   DESIGN QUAD ANTENNA"
100 PRINT "   4   DESIGN BEAM ANTENNA"
110 PRINT "   5   CALCULATE PARALLEL RESISTANCES"
120 PRINT "   6   TO RETURN TO BASIC MONITER"
130 PRINT 
140 PRINT 
150 INPUT "ENTER NUMBER OF OPTION DESIRED AND PRESS RET KEY  ";O
160 IF O=0 THEN 20
170 IF O>6 THEN 20
180 ON O GOTO 210,970,1270,520,1710,190
190 CNTRL 3,14
200 STOP 
210 REM OHMS LAW
220 PRINT "ENTER E IN VOLTS, 0 IF UNKNOWN"
230 INPUT ;E
240 PRINT "ENTER I IN AMPS, 0 IF UNKNOWN"
250 INPUT ;I
260 PRINT "ENTER R IN OHMS, 0 IF UNKNOWN"
270 INPUT ;R
280 IF E+I+R=0 GOTO 470
290 IF E=0 GOTO 330
300 IF I=0 GOTO 380
310 IF R=0 GOTO 430
320 GOTO 470
330 E=I*R
340 PRINT "E=";E
350 PRINT 
360 PRINT 
370 GOTO 470
380 I=E/R
390 PRINT "I=";I
400 PRINT 
410 PRINT 
420 GOTO 470
430 R=E/I
440 PRINT "R=";R
450 PRINT 
460 PRINT 
470 PRINT "DO YOU WANT TO DO ANOTHER Y OR N "
480 LINE INPUT ;R$
490 IF R$="Y" GOTO 210
500 GOTO 60
510 REM
520 REM DESIGN BEAM ANTENNA
530 PRINT "    DESIGN VHF"
540 PRINT 
550 PRINT "   BEAM ANTENNA"
560 PRINT 
570 REM  
580 REM 
590 REM 
600 PRINT 
610 PRINT "     ENTER"
620 PRINT 
630 PRINT "FREQUENCY IN MHZ"
640 PRINT 
650 PRINT 
660 INPUT ;F
670 D=5600/F
680 A=D*.05
690 R1=D+A
700 A1=D*.05
710 D1=D-A1
720 A2=D1*.02
730 D2=D1-A2
740 A3=D2*.02
750 D3=D2-A3
760 S1=492/F*12*2*.208
770 S2=492/F*12*2*.15
780 S3=492/F*12*2*.2
790 S4=492/F*12*2*.256
800 REM 
810 PRINT "-----------------";"R1 IN.=";R1
820 PRINT "        !      ^ "
830 PRINT "        !      ^ ";"S1 IN.=";S1
840 PRINT "-----------------";"D  IN.=";D
850 PRINT "        !      ^ "
860 PRINT "        !      ^ ";"S2 IN.=";S2
870 PRINT "-----------------";"D1 IN.=";D1
880 PRINT "        !      ^ "
890 PRINT "        !      ^ ";"S3 IN.=";S3
900 PRINT "-----------------";"D2 IN.=";D2
910 PRINT "        !      ^ "
920 PRINT "        !      ^ ";"S4 IN.=";S4
930 PRINT "-----------------";"D3 IN.=";D3
940 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO";Y$
950 IF Y$="YES" THEN 520
960 GOTO 60
970 REM DESIGN DIPOLE ANTENNA
980 PRINT "    DESIGN"
990 PRINT "DIPOLE ANTENNA"
1000 PRINT 
1010 PRINT "    ENTER"
1020 PRINT "FREQUENCY IN MHZ."
1030 PRINT 
1040 PRINT 
1050 PRINT 
1060 PRINT 
1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 PRINT 
1110 INPUT ;A
1120 PRINT 
1130 L=468/A/2
1140 PRINT "MHZ."
1150 PRINT "    DIPOLE"
1160 PRINT "CUT AS FIGURE"
1170 PRINT 
1180 PRINT 
1190 PRINT "O-------O-------O"
1200 PRINT "!<-'L'->!<-'L'->!"
1210 PRINT 
1220 PRINT "                 L=",L," FT"
1230 PRINT 
1240 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
1250 IF Y$="YES" THEN 970
1260 GOTO 60
1270 REM DESIGN QUAD ANTENNA
1280 PRINT "DESIGN QUAD ANTENNA"
1290 PRINT 
1300 PRINT "ENTER"
1310 PRINT 
1320 PRINT "FREQUENCY IN MHZ."
1330 PRINT 
1340 PRINT 
1350 PRINT 
1360 PRINT 
1370 PRINT 
1380 PRINT 
1390 PRINT 
1400 PRINT 
1410 INPUT F
1420 PRINT 
1430 PRINT 
1440 PRINT "ENTER"
1450 PRINT "ELEMENT SPACEING IN WAVE LENGTHS"
1460 INPUT A
1470 S=984/F*A
1480 D=246/F
1490 B=D*.05
1500 R=B+D
1510 T=R*4
1520 L=D*4
1530 PRINT "DREVEN ELEMENT"
1540 PRINT "LENGTH EACH SIDE"
1550 PRINT D," FT. "
1560 PRINT "TOTAL LENGTH"
1570 PRINT L," FT. "
1580 PRINT "REFLECTOR ELEMENT"
1590 PRINT "LENGTH EACH SIDE"
1600 PRINT R," FT. "
1610 PRINT "TOTAL LENGTH"
1620 PRINT T," FT. "
1630 PRINT "ELEMENT SPACEING"
1640 PRINT S," FT. "
1650 PRINT "SPACING"
1660 PRINT "WAVE LENGTH =",A
1670 PRINT "FREQUENCY   =",F,"MHZ."
1680 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
1690 IF Y$="YES" THEN 1270
1700 GOTO 60
1710 PRINT "COMPUTE PARALLEL RESTANCES"
1720 PRINT 
1730 PRINT 
1740 PRINT "       1 TO 100 RESISTORS "
1750 PRINT 
1760 PRINT 
1770 PRINT 
1780 REM RESISTANCE PARALLEL
1790 FOR X=1 TO 100
1800 PRINT "ENTER R , 0 TO STOP"
1810 INPUT "R= ";N(X)
1820 IF N(X)=0 THEN 1840
1830 NEXT X
1840 PRINT "RESISTANCES ARE"
1850 R=0
1860 X=X-1
1870 FOR K=1 TO  X
1880 PRINT "RESISTANCE OF R",K," IS",N(K)," OHMS"
1890 R=R+1/N(K)
1900 NEXT K
1910 R=1/R
1920 PRINT "TOTAL RESISTANCE IS",R," OHMS"
1925 PRINT
1930 LINE INPUT "DO YOU WANT TO DO MORE (YES OR NO) ";Y$
1940 IF Y$="YES" THEN 1710
1950 GOTO 60
IS",R," OHMS"
1925 PRINT
1930 LINE INPUT "DO YOU WANT TO DO MORE (YES OR NO) ";Y$
1940 I