,,:1 PROGRAMS EITHER WRITTEN OR ASSEMBLED BY R. THWING Sr.k P.O. BOX 40 COLUMBUS, NC 28722$ LINES 78,80,180,10015 MODIFIED BY R L BURNS, PUBLIC BRAND SOFTWAREH ,: ();(2,);()o X  : )();B)()w( X2 ,: )();(2,);()< ,:"++++ MAIN MENU ++++"A ,":"DICK THWING'S"F ,:"ELECTRONIC DESIGN PROGRAMS"N ,: (P,)pP  ,:" ANTENNAE & FEED LINES...........1 PARALLEL R / SERIES C.......6"vZd" PROPAGATION.....................2 REACTANCE / RESONANCE.......7"nx" POWER SUPPLY....................3 POWER FORMULAE..............8"l" OHMS LAW........................4 MISCELLANEOUS...............9"r" COIL DESIGN.....................5 MS-DOS.....................10"X: Y  : XY,(: (): Y  Y  : XY,: (): Y2 Y  : XY,P: (): YJ ,: (P,):d ,%: :"SELECT";q : S S  S  :: N  S ,, ,,,p,X,@,(#,' ")"SUB MENU 1": #)"ANTENNAE": (O,):A:"HALF WAVE DIPOLE................A1"m:"VHF YAGI BEAM...................A2":"VHF QUARTER WAVE................A3"$:"PARALLEL FEEDERS................A4".:"STRIP LINE......................A5"3X: Y  : XY,%: (): YK8 ,(:"COAX CABLE PROGRAMS.............A6"}B  ,(:"STUBS...........................A7"L  ,(:"SWR.............................A8"V ,(:"RELATIVE, RADIATED POWER........A9"` ,(:"CALCULATE LF-UF.................A10"%: (P,)/ PW A$ "A1" A$ "a1" "HALFWAVE" A$ "A2" A$ "a2" "YAGIBEAM" A$ "A3" A$ "a3" "VHFQTR" A$ "A4" A$ "a4" "PARFEED" A$ "A5" A$ "a5" "STRIP_W" A$ "A6" A$ "a6" "COAXIAL"@ A$ "A7" A$ "a7" "STUBS"b A$ "A8" A$ "a8" "SWR" A$ "A9" A$ "a9" "REL_RAD", A$ "A10" A$ "a10" "SCANLFUF"l @ ")"SUB MENU 2": !)"PROPAGATION": (O,)(:"GREAT CIRCLE DISTANCE..B1"K:"RADIATED POWER.........B2"n :"GMT TO LOCAL TIME......B3":"RADIO HORIZON..........B4" :"SPACE ATTENUATION......B5" P A$ "B1" A$ "b1" "GRTCIRC"  A$ "B2" A$ "b2" "RADPOWER"/ A$ "B3" A$ "b3" "GMT"V A$ "B4" A$ "b4" "HORIZON"{ A$ "B5" A$ "b5" "SPACE"T @ :: ")"SUB MENU 3":  )"POWER SUPPLIES" : (O,): :"POWER SUPPLY DESIGN...............C1", :"LM-723 REGULATOR..................C2"6 P^ A$ "C1" A$ "c1" "POWERSUP" A$ "C2" A$ "c2" "LM_723":  : ")"SUB MENU 4": #)"OHMS LAW": (O,):3:"CURRENT FROM E & R..................D1 VOLTAGE FROM W & R..................D6":"VOLTAGE FROM I & R..................D2 VOLTAGE FROM W & I..................D7":"RESISTANCE FROM I & E...............D3 RESISTANCE FROM W & I...............D8"A:"CURRENT FROM W & E..................D4 RESISTANCE FROM W & E...............D9"q:"CURRENT FROM W & R..................D5"{ P A$ "D1" A$ "d1" "IER" A$ "D2" A$ "d2" "VIR" A$ "D3" A$ "d3" "RIE"  A$ "D4" A$ "d4" "IWE"/  A$ "D5" A$ "d5" "IWR"S  A$ "D6" A$ "d6" "VWR"w  A$ "D7" A$ "d7" "VWI"  A$ "D8" A$ "d8" "RWI"  A$ "D9" A$ "d9" "RWE"  @   $)"SUB MENU 5":! #)"COIL DESIGN"!: (O,)4!:"INDUCTOR...............E1"W!:"COILS..................E2"a!| P! A$ "E1" A$ "e1" "INDUCTOR"! A$ "E2" A$ "e2" "COILS"!  @!p!z ")"SUB MENU 6":!  )"PARALLEL / SERIES"": (O,):1":"PARALLEL RESISTORS...........F1"Z":"SERIES CAPACITORS............F2"d"d P"n A$ "F1" A$ "f1" "PARRES""x A$ "F2" A$ "f2" "SERCAP""N @"X"b ")"SUB MENU 7":"l )"REACTANCE / RESONANCE"#v: (O,):>#:"INDUCTIVE REACTANCE...............G1"l#:"CAPACITIVE REACTANCE..............G2"#:"RESONANCE..F FROM L & C...........G3"#:"RESONANCE..L FROM F & C...........G4"#:"RESONANCE..C FROM F & L...........G5"$L P$$V A$ "G1" A$ "g1" "INDZ"H$` A$ "G2" A$ "g2" "CAPZ"k$j A$ "G3" A$ "g3" "FLC"$t A$ "G4" A$ "g4" "LFC"$~ A$ "G5" A$ "g5" "CFL"$6 @$@$J ")"SUB MENU 8":$T !)"POWER FORMULAE"%^: (O,):6%h:"WATTS FROM I & E..................H1"d%r:"WATTS FROM I & R..................H2"%|:"WATTS FROM E & R..................H3"%4! P%>! A$ "H1" A$ "h1" "WIE"%H! A$ "H2" A$ "h2" "WIR"&R! A$ "H3" A$ "h3" "WER"&# @&(#.&2# $)"SUB MENU 9":H&<#  )"MISCELLANEOUS"Y&F#: (O,)|&P#:"FILTER.................J1"&Z#:"PADS...................J2"&n#:"UTC TO LOCAL TIME......J3"&x#:"1% RESISTORS...........J4"'#:"APPLIANCE USAGE COST...J5"+'#:"COCO TO DOS............J6"N'#:"JETLAG EFFECT..........J7"X'% P'&% A$ "J1" A$ "j1" "FILTER1"'0% A$ "J2" A$ "j2" "PADS"':% A$ "J3" A$ "j3" "UTC"'D% A$ "J4" A$ "j4" "1_RES"(N% A$ "J5" A$ "j5" "APP_COST"7(X% A$ "J6" A$ "j6" "UTC"\(b% A$"J7" A$ "j7" "JETLAG"f(& @(' ,:: I  :: I: !)"ARE YOU SURE Y/N"('"DC":(' )"A (Y)es ACTION CANCELS BASIC!"('X$ : X$ "" '(' , :)$' X$ "Y" X$"y" B'4).' X$ "N" X$"n"  >)8' 'K)B': :r)@: )"WRONG SELECTION!": "CD")E I  : I)J  )P ,#:"SELECT ";A$)U)Z  ,#: :"WAIT": )_Î