1 COMMON A, AL, B, BASEONLY, C, C$, C1, CAT$, CC, CKT$, D, D$, DD, DIA, DIMN$, DMS, E, EO, EX$, F, F$, FD, FF, FQ, FRQ, G$, GO$, I, I$, L, LATLONG, LD, LL, LN, LS, LW, LX, MAX, MENU, MIN, MX, N, NN, NT, OV, P, PI, PROG$, Q, QQ, QU, R, RA, RC, T, T$, U, U$, UH, UL$, V$, VC, W, WHIP, WIRD, WW, X, X$, X1, XS, Z$, ZP, ZS
4 'OMMON EX$,D$,V$,Z$,X$
10 '\hamcalc\menu\HCAL-X   02 JUN 94 rev. 08 JAN 2011
20 'CHDIR "\hamcalc64\prog"
30 CLS:KEY OFF
35 'print "X$ = ";X$ : end
40 ''OMMON EX$,Z$
50 IF EX$=""THEN EX$="exit"
60 'IF X$=""THEN X$="X"
70 '
80 U$=STRING$(80,205)
90 DIM B$(500),C$(500)
100 ON ERROR GOTO 160
110 COLOR 7,0
120 PRINT " H A M C A L C  Program Menu ";X$;" by George Murphy VE3ERP "
130 PRINT U$;
140 N=0:GOTO 180
150 '
160 PRINT "Error ";ERR;" in line ";ERL;"HCAL-X.BAS":END
170 '
180 IF X$="A"THEN Y=0
190 IF X$="B"THEN Y=40
200 IF X$="C"THEN Y=80
210 IF X$="D"THEN Y=120
220 IF X$="E"THEN Y=160
230 IF X$="F"THEN Y=200
240 IF X$="G"THEN Y=240
250 IF X$="H"THEN Y=280
260 IF X$="I"THEN Y=320
270  FOR N=1 TO 360
280  READ B$(N),C$(N)
290  NEXT N
300 LOCATE 5,1
310 FOR Z=1 TO 20
320 IF Z<10 THEN Z$="0#:"ELSE Z$="##:"
330 PRINT " ";USING Z$;Z;:PRINT " ";C$(Z+Y);         'left hand column
340 PRINT TAB(41);
350 PRINT USING "##:";Z+20;:PRINT " ";C$(Z+Y+20);    'right hand column
360 IF Z<20 THEN PRINT ""
370 NEXT Z
380 '
390 LOCATE 25,1:PRINT STRING$(80,32);      'menu options
400 LOCATE 25   '.....bottom line
410 LOCATE ,40:COLOR 0,7:PRINT" 41:MENU  ";" 42:INDEX  ";" 43:EXIT ";
420 COLOR 7,0:LOCATE 3,2  '....header
430 Z$=""
440 COLOR 0,7:PRINT " TYPE one of the 2-digit numbers listed below - ";
450 PRINT "DO NOT press <ENTER>:";
460 COLOR 7,0:PRINT U$;
470 I$=INKEY$:IF I$=""THEN 470
480 Z$=Z$+I$
490 IF LEN(Z$)<2 THEN 470 ELSE 520
500 IF VAL(Z$)>43 GOTO 600
510 GOTO 470
520 P=VAL(Z$)
530 IF P>43 THEN 600
540 IF P=41 THEN CLS:CHAIN"\hamcalc64\prog\hcal"
550 IF P=42 THEN CLS:CHAIN"\hamcalc64\prog\hamdex"
560 IF P=43 THEN CLS:RUN "exit"
570 P=P+Y
580 Y$=B$(P)
590 IF Y$=""OR Y$="-"THEN 600 ELSE COLOR 7,0,0:CLS:CHAIN Y$
600 LOCATE 3:COLOR 7,0:PRINT STRING$(80,32);:LOCATE CSRLIN-1:COLOR 0,7
610 BEEP:PRINT " ";Z$;" is not a valid number...press any key to try again..."
620 IF INKEY$=""THEN 620 ELSE 420
630 '.......DATA
640 DATA accalc,   "A.C. Circuit Calculator"
650 DATA accelr,   "Acceleration Calculator"
660 DATA antfield, "Antenna Field Strength"
670 DATA antscale, "Antenna Frequency Scaling"
680 DATA impant,   "Antenna Impedance Calculator"
690 DATA antenna,  "Antenna Length/Pruning calculator"
700 DATA antsyn2,  "Antenna Matching Networks"
710 DATA arch,     "Arch Calculator"
720 DATA page437,  "ASCII Character Code Page 437"
730 DATA attenpad,"Attenuators: T-Pad and Pi-Pad"
740 DATA audfilt,  "Audio Bandpass Filter - Active"
750 DATA lopass,   "Audio Lowpass Filter(Sallen & Key)"
760 DATA audpass,  "Audio Filters - Passive"
770 DATA rcfilt,   "Audio Filters - RC Active"
780 DATA audosc,   "Audio Oscillator (LM 324)"
790 DATA audosc2,  "Audio Oscillator (LF 353)dual wave"
800 DATA twintee,  "Audio Oscillator (Twin-T)"
810 DATA zounds,   "Audio Programs"
820 DATA awgexact, "A.W.G. Wire Size Calculator"
830 DATA bend,     "Bend Allowance - Metals
840 DATA aircore,  "B.& W. Air-Core Inductors
850 DATA broadfer, "Baluns - Ferrite Toroid
860 DATA bandstop, "Band-Reject Filter
870 DATA bandq,    "Bandwidth vs. Q
880 DATA bandwdth,"Bandwidths - 2:1 SWR"
890 DATA baromtr,  "Barometer Reading Equivalents
900 DATA batchg,   "Battery Charger
910 DATA dialgth,  "Beam Element Diameter vs Length
920 DATA pathfind, "Beam Heading Calculator
930 DATA bevant,   "Beverage Antenna Equations
940 DATA bobtail,  "Bobtail Curtain Antenna
950 DATA boom,     "Boom Droop - Beam Antennas
960 DATA spark,    "Breakdown Voltage
970 DATA caltoday, "Calendar - Perpetual/Universal
980 DATA calory,   "Calorie Counter
990 DATA capstray, "Capacitance - Distributed (stray)
1000 DATA captance, "Capacitor Design Calculator
1010 DATA capval,   "Capacitor Measurer
1020 DATA gaplot,   "Capacitor Plate Designer
1030 DATA capcoax,  "Capacitors - Coaxial Cable
1040 DATA custcap,  "Capacitors - Custom Value
1050 DATA precicap, "Capacitors - Precision
1060 DATA capacval, "Capacitors - Standard Values
1070 DATA capytel,  "Capacitors - Telescoping Variable
1080 DATA trimr,    "Capacitors - Trimmer
1090 DATA hatshape, "Capacity Hat Geometric Shapes
1100 DATA capyhat,  "Capacity Hats - Vertical Antennas
1110 DATA rotaplot, Cartesian/Polar Plot Rotator
1120 DATA ccdanten, CCD Antennas
1130 DATA centfreq, Centre Frequency & Wavelength
1140 DATA centrif,  Centrifugal/Centripetel Force
1150 DATA propcirc, Circle - Properies of
1160 DATA circfeed, Circular Waveguide Dish Feeds
1170 DATA clamp,    Clamping Voltage Calculator
1180 DATA clarky,   Clark Y Airfoil
1190 DATA cmosc3,   CMOS Oscillator
1200 DATA coaxchar, Coax Cable Characteristics
1210 DATA coaxlc3,  Coax Cable L/C Tank
1220 DATA chokbal,  Coax Cable RF Chokes & Baluns
1230 DATA coaxtrap, Coax Cable Traps
1240 DATA buxtrap,  Coax Cable Hi-Reactance SuperTrap
1250 DATA pracosc,  Code Practice Oscillator
1260 DATA cw,       Code Trainer (Morse Code)
1270 DATA coilnew,  Coil Calculator- Dehoney equations
1280 DATA coilequa, Coil Calculator- Wheeler equations
1290 DATA coilq,    Coil Q Calculator
1300 DATA coildsgn, Coil Designer
1310 DATA coilquik, Coil Q Quick Estimator
1320 DATA coiltrue, Coil Q - True vs. Apparent
1330 DATA coilnew,  Coil Tap Calculators
1340 DATA coiltap,  Coil Tap Properties
1350 DATA turns,    Coil Turns Calculator
1360 DATA coilcpl,  Coils - Coaxially coupled
1370 DATA coilnew,  Coils in Tandem
1380 DATA coilin,   Coils - Insulated Wire
1390 DATA colposc,  Colpitts FET Oscillator
1400 DATA conecalc, Cone Calculator
1410 DATA conjumat, Conjugate Match Calculator
1420 DATA phazdiff, Constant Phase Difference Networks
1430 DATA copwire,  Copper Wire Data
1440 DATA elecost,  Cost of Electricity
1450 DATA xover,    Crossover Networks - Loudspeakers
1460 DATA crysfilt, Crystal Ladder Filter
1470 DATA curvefit, Curve Fit program
1480 DATA cylload,  CYLOAD antenna
1490 DATA daydusk,  Daylight Dusk and Dawn Calculator
1500 DATA dblfb,    Double Feedback Amplifier
1510 DATA decibel,  Decibel Calculator
1520 DATA decifrac, Decimal/Fraction Converter
1530 DATA deciconv, Decimal Hour/Degree Converter
1540 DATA binary,   Decimal to Binary Converter
1550 DATA rjd,      Dehoney Algorithm Index
1560 DATA deltamat, Delta Match
1570 DATA diamfind, Diameter Finder
1580 DATA dielect,  Dielectric Constants
1590 DATA discone,  Discone Multiband Antenna
1600 DATA duopole,  Dual Band Short Dipole Antenna
1610 DATA trisqu,   Dual Op Amp Wave Generator
1620 DATA seasons,  Equinoxes & Solstices
1630 DATA elspec,   Electromagnetic Spectrum
1640 DATA fatdipol, Fat Dipole (broadband)
1650 DATA fibon,    Fibonacci Series
1660 DATA filtut,   Filter Tutor
1670 DATA buttfilt, Filters - Butterworth HF
1680 DATA comfilt,  Filters - Complementary
1690 DATA cplres,   Filters - Coupled Resonator
1700 DATA matfilt,  Filters - Impedance Matching
1710 DATA filtrlc,  Filters - Passive R/L/C
1720 DATA filstrip, Filters - Stripline Bandpass
1730 DATA finance,  Financial Calculators
1740 DATA fishbone, Fishbone Antenna
1750 DATA foldipol, Folded Dipole - 300ê Twin-Lead
1760 DATA zostepup, Folded Dipole - Zo Step-Up Ratios
1770 DATA formulae, Formula Library
1780 DATA fusewire, Fuses - Emergency
1790 DATA g5rv,     G5RV Multiband Antenna
1800 DATA gammatch, Gamma Match
1810 DATA graphs,   Graphs
1820 DATA pathfind, Great Circle Paths & Distances
1830 DATA gridsq,   Grid Square Locator (Maidenhead)
1840 DATA guywires, Guy Wires for Antenna Towers/Masts
1850 DATA hairpin,  Hairpin Beta-Match for Yagis
1860 DATA halfloop, Half-Loop Low Profile Antenna
1870 DATA hambands, Ham Band Edge & Centre Frequencies
1880 DATA harmonic, Harmonic Frequencies
1890 DATA hartosc3, Hartley FET Oscillator
1900 DATA hotbox,   Heat Dissipation
1910 DATA sink,     Heat Sink Fins
1920 DATA helant,   Helical Antenna - VHF/UHF
1930 DATA helreson, Helical Resonators (VHF/UHF)
1940 DATA helix,    Helical Winding
1950 DATA qtrap,    High Q Antenna Traps
1960 DATA humid,    Humidex Calculator
1970 DATA 3mbridge, Impedance Bridge (3-meter)
1980 DATA impednet, Impedance Matching Networks
1990 DATA impedmetr,Impedance Meter
2000 DATA antimp,   Impedance - Antennas
2010 DATA impares,  Impedance - Parallel Resonant Cct.
2020 DATA impedcct, Impedance - Reactance/Resist. Cct.
2030 DATA inducalc, Inductance Calculator
2040 DATA induloop, Inductance - Single Loops
2050 DATA induhose, Inductors - Dryer Vent Hose
2060 DATA inloss,   Insertion Loss
2070 DATA invee,    Inverted Vee Antenna
2080 DATA involute, Involute of a Circle
2090 DATA jcalc,    J Calculator (Complex Impedances)
2100 DATA jaypole,  J-Pole End-Fed Zepp Antenna
2110 DATA kfactor,  K-Factor & Antenna Length (NEC-2)
2120 DATA ladant,   Ladder Line Antenna
2130 DATA ladder2,  Ladder Network - 2 element
2140 DATA ladrsolv, Ladder Network Analyzer
2150 DATA lamplife, Lamp Life Expectancy
2160 DATA latlong,  Latitude/Longitude Data Base
2170 DATA led,      LED Series Resistor
2180 DATA radiolos, Line-of-Sight Radio Wave
2190 DATA linkupl,  Link Coupled Tuners
2200 DATA lm317,    LM317 Voltage Regulator
2210 DATA deltload, Load Resistance Calculator
2220 DATA localrpt, Local Repeaters
2230 DATA zounds,   Music Math & Sounds
2240 DATA numderiv, Logarithms to any base
2250 DATA logyag,   LOG-YAG Log-Periodic Yagi Antenna
2260 DATA pairlt,   Long-Tailed Pair
2270 DATA loopant,  Loop Antenna Coil Inductance
2280 DATA loopxmit, Loop Antennas - Transmitting
2290 DATA loopsky,  Loop Skywire Dimensions
2300 DATA tform3,   L/C Networks with NO TRANSFORMERS
2310 DATA l-pad,    L-Pad Calculator
2320 DATA noloss,   Lossless L/C circuits
2330 DATA brick,    Masonry Estimator
2340 DATA matchbox, Matchbox Impedance Transformer
2350 DATA rcload2,  Matching into an R/C Load
2360 DATA matchnet, Matching Networks for Transistors
2370 DATA maxuf,    Max. Usable Frequencies (MAXIMUF)
2380 DATA mechmenu, MECHANICS Math
2390 DATA metshowr, Meteor Shower Predictor
2400 DATA meters,   Meters (Direct Current)
2410 DATA metrics,  Metric Conversions
2420 DATA metnom,   Metronome
2430 DATA microver, MicroVert very short HF Antenna
2440 DATA miniloop, MINILOOP Miniature Loop Antenna
2450 DATA miniquad, MINIQUAD Coil Shortened Antenna
2460 DATA coilamp,  Mobile Whip Antenna Coils
2470 DATA mobilmat, Mobile Antenna Matching
2480 DATA mowhip,   Mobile/Maritime Whip Antennas
2490 DATA moontrac, Moon Tracker
2500 DATA moxon,    Moxon Rectangle Antenna
2510 DATA zounds,   Musical Math & Sounds
2520 DATA nicad,    NiCad Battery Discharger
2530 DATA nmbrsize, Numbered Drills/Screws/Taps/Gauges
2540 DATA numsort,  Number Sorter
2550 DATA numderiv, Numbers and Functions
2560 DATA octagon,  Octagonal Loop Framework
2570 DATA octaloop, OCTALOOP Subminiature Loop Antenna
2580 DATA octaring, OCTARING Subminiature Loop Antenna
2590 DATA ocfdipol, "Off-Centre Dipole, 3-band trapless"
2600 DATA ohmslaw,  Ohm's Law Calculator
2610 DATA concur,   OP AMP Constant Current Circuit
2620 DATA opamp,    OP AMP Operational Amplifiers
2630 DATA trisqu,   OP AMP Wave Generator
2640 DATA cascamp,  OP AMPS - Cascaded
2650 DATA noisfig,  OP AMPS - Noise Figure
2660 DATA dishant,  Parabolic Dish Design
2670 DATA pedom,    Pedometer
2680 DATA fotomenu, PHOTOGRAPHY Math
2690 DATA pitnet,   Pi and T Networks
2700 DATA pipesize, Pipe Sizes - ANSI Standard
2710 DATA pixel,    Pixel Data for Scanners & Cameras
2720 DATA polygon,  Polygon Dimensions
2730 DATA potent,   Potentiometers - Custom Value
2740 DATA pwrdiv,   Power Divider
2750 DATA psup,     Power Supply Analyzer
2760 DATA pwrcct,   Power Supply Design
2770 DATA dblbrg4,  Power Supply - Double Bridge
2780 DATA psuperf,  Power Supply Performance
2790 DATA powrxfmr, Power Transformer Design
2800 DATA pwrxfmr,  Power Transformer Winding Estimator
2810 DATA primenos, Prime Number Calculator
2820 DATA copwire,  Printed Circuit Board Traces
2830 DATA pba,      Pseudo-Brewster Angle
2840 DATA pulsegen, Pulse Generator
2850 DATA qreson,   Q Calculator - Resonant Circuits
2860 DATA qfind5,   Q Measurement - L/C Tank Circuit
2870 DATA foxlog,   QRP Fox Hunt Log
2880 DATA quad,     Quad Antenna Dimensions
2890 DATA quadrat,  Quadratic Equation Calculator
2900 DATA quartwav, Quarter Wave Transformer
2910 DATA qsk,      QSK Break-In module
2920 DATA radangle, Radiation Angle - Antenna
2930 DATA vertpatt, Radiation Plots - Phased Verticals
2940 DATA randnum,  Random Number Generator
2950 DATA react,    Reactance Programs
2960 DATA remsig,   Remote Signal Lamp
2970 DATA dsgnmenu, Resistor/Inductor/Capacitor Ccts.
2980 DATA colcode,  Resistor Colour Code
2990 DATA resicop,  Resistors - Copper Wire Wound
3000 DATA custohm,  Resistors - Custom Value
3010 DATA precires, Resistors - Precision
3020 DATA resisval, Resistors - Standard Values
3030 DATA smeter,   S-Meter Readings vs. Power
3040 DATA catenary, Sag in Horizontal Wire Antennas
3050 DATA satorbit, Satellite Orbit Parameters
3060 DATA scalspd,  Scale Speed Calculator
3070 DATA schmidt,  Schmidt trigger Op Amp
3080 DATA sepaq,    Series/Parallel/Q Eqivalents
3090 DATA serisect, Series-Section Transformer
3100 DATA centload, Short Centre-Loaded Dipole
3110 DATA cylload,  Short Cylinder-Loaded Dipole
3120 DATA dipol160, Short Dipole for 160/80/40 metres
3130 DATA es2b,     Short ES2B (2 band) Trap Dipole
3140 DATA shortant, Short Off-Centre-Loaded Dipole
3150 DATA shortdip, Short Multiband Dipole Array
3160 DATA shuttle,  Shuttle
3170 DATA simuleq,  Simultaneous Equation Calculator
3180 DATA snglwire, Single Wire Antenna Systems
3190 DATA copwire,  Skin Effect
3200 DATA skipdist, Skip Distance Calculator
3210 DATA sloper,   Sloper Antenna Dimensions
3220 DATA smithcht, Smith Chart Calculations
3230 DATA sorter,   Sorter
3240 DATA speedtd,  Speed/Time/Distance Calculator
3250 DATA stubant,  Stub Match for Antennas
3260 DATA coaxstub, Stubs - Coaxial Transmission Line
3270 DATA transtub, Stubs - Open Wire Transmiss'n Line
3280 DATA riseset,  Sunrise/Sunset Calculator
3290 DATA survey,   Surveyor's Calculator
3300 DATA swr,      SWR Calculator
3310 DATA t2fd,     T2FD Tilted Folded Dipole
3320 DATA tmatch,   T Match - Dipole to 600 ê Line
3330 DATA tankcct,  Tank Circuit - Power Amplifier
3340 DATA teletube, Telescoping Aluminum Tubing
3350 DATA thermres, Thermal Resistance
3360 DATA psychrom, Thermodynamics
3370 DATA timeq,    Time Quiz
3380 DATA timezone, Time Zones (UTC)
3390 DATA 555timer, Timer (555 IC)
3400 DATA tinycoil, Tiny Coils
3410 DATA torotrap, Toroid Antenna Traps
3420 DATA broadfer, Toroid Baluns & Transformers
3430 DATA toroid,   Toroid Inductors
3440 DATA tracker,  Tracker - Receiver Tuned Circuits
3450 DATA powrxfmr, Transformer Design
3460 DATA xfmrnaro, Transformer - Narrow Band
3470 DATA xfmr,     Transformer Ratios
3480 DATA winding,  Transformer Winding Calculator
3490 DATA trancct,  Transistor Circuit Design
3500 DATA transmat, Transmatch Design (ZL1LE)
3510 DATA chokbal,  Transmission Line Choke
3520 DATA elecleng, Transmission Line Length
3530 DATA lineloss, Transmission Line Losses
3540 DATA mismat,   Transmission Line Mismatch
3550 DATA node,     Transmission Line Node Locator
3560 DATA tranline, Transmission Line Performance
3570 DATA sqcoax,   Transmission Line - Square Coaxial
3580 DATA openwire, Transmission Line - Open Wire
3590 DATA qline2,   Transmission Line Q
3600 DATA trapole,  Trap Antenna Design
3610 DATA trapcalc, Trap Design Calculator
3620 DATA trapdsgn, Trap Dipole - 3 Band Single Trap
3630 DATA traprop,  Trap Properties Estimator
3640 DATA coaxtrap, Traps - Coaxial Cable
3650 DATA solutri,  Triangles - solution of
3660 DATA trig,     Trigonometric Functions
3670 DATA triplan,  Trip Planner
3680 DATA trunorth, True North via the Sun
3690 DATA tunecct,  Tuned Circuit Design - L/C network
3700 DATA turnrad,  Turning Radius - Beam antennas
3710 DATA tvchan,   TV Channels ( North America )
3720 DATA unitvalu, Unit Value Comparator
3730 DATA helvert,  Vertical Antenna - Helically Wound
3740 DATA varayfed, Vertical Antenna Array Feed Method
3750 DATA vfofreq,  VFO Frequency Calculator
3760 DATA voltdiv,  Voltage Divider
3770 DATA thevinin, Voltage Divider - Thevinin
3780 DATA walker,   Walker
3790 DATA walwart,  Wall Wart Ratings Calculator
3800 DATA wartest,  Wall Wart Properties
3810 DATA wavetrap, Wave Trap Filters
3820 DATA bridge,   Wheatstone Bridge #1
3830 DATA bridge-2, Wheatstone Bridge #2
3840 DATA windom,   Windom Antenna
3850 DATA windchil, Wind Chill Factor
3860 DATA wireant,  Wire Antenna Index
3870 DATA wiremesh, Wire Mesh Screens - Wind Loads
3880 DATA wirecond, Wires in Conduit
3890 DATA xmtrzmat, Xmtr. Transistor Stage Coupling
3900 DATA yagi3el,  YAGI 3-Element Beam Design
3910 DATA dialgth,  YAGI Element Diameter vs. Length
3920 DATA yagispac, YAGI Element Spacing/NBS Standard
3930 DATA yagtaper, YAGI Tapered Elements
3940 DATA thruboom, YAGI Through-Boom Elements
3950 DATA yagilong, YAGI Extremely Long VHF/UHF Antenna
3960 DATA zener,    Zener Diode Voltage Regulator
3970 DATA zeppdbl,  Zepp (extended double) Antenna
3980 DATA zepp,     Zepp Multi-band antenna
3990 DATA "-","-"
4000 DATA "-","-"
4010 DATA "-","-"
4020 DATA "-","-"
4030 DATA "-","-"
4040 DATA "-","-"
4050 DATA "-","-"
4060 DATA "-","-"
4070 DATA "-","-"
4080 DATA "-","-"
4090 DATA "-","-"
4100 DATA "-","-"
4110 DATA "-","-"
4120 DATA "-","-"
4130 DATA "-","-"
4140 DATA "-","-"
4150 DATA "-","-"
4160 DATA "-","-"
4170 DATA "-","-"
4180 DATA "-","-"
4190 DATA "-","-"
4200 DATA "-","-"
4210 DATA "-","-"
4220 DATA "-","-"
4230 DATA "-","-"
