| / 8bitfiles.net/archives
/ archives.tar / archives / genie-commodore-file-library / C64Software / ANTENNA-DESIGN / c64.bas
|
| Unknown | 2019-04-13 | 3.8 KB |
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | GW-BASIC (document/gwBasic) | ext | Supported |
| 66% | dexvert | GFA-BASIC Atari (other/gfaBASICAtari) | ext | Supported |
| 1% | dexvert | Amiga BASIC Protected File (other/amigaBASICProtectedFile) | ext | Unsupported |
| 1% | dexvert | BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) | ext | Unsupported |
| 1% | dexvert | Visual Basic Tokenized Source (other/visualBasicTokenizedSource) | ext | Unsupported |
| 1% | dexvert | ZBASIC (other/zbasic) | ext | Unsupported |
| 100% | file | data | default | |
| 100% | gt2 | Kopftext: '10 REM************************************* | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 52 45 4d 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |10 REM**|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 32 30 20 52 |********|***.20 R|
|00000030| 45 4d 2a 20 53 41 4e 20 | 46 52 41 4e 43 49 53 43 |EM* SAN |FRANCISC|
|00000040| 4f 20 52 41 44 49 4f 20 | 43 4c 55 42 20 53 4f 46 |O RADIO |CLUB SOF|
|00000050| 54 57 41 52 45 20 2a 0a | 33 30 20 52 45 4d 2a 2a |TWARE *.|30 REM**|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000080| 2a 2a 2a 0a 34 30 20 50 | 52 49 4e 54 22 93 05 20 |***.40 P|RINT".. |
|00000090| 20 2a 2a 2a 48 41 4d 20 | 41 4e 54 45 4e 4e 41 53 | ***HAM |ANTENNAS|
|000000a0| 2a 2a 2a 20 20 20 20 20 | 20 20 b7 b7 b7 b7 b7 b7 |*** | ......|
|000000b0| b7 b7 b7 b7 b7 b7 11 22 | 0a 35 30 20 50 52 49 4e |......."|.50 PRIN|
|000000c0| 54 22 20 20 41 20 2d 20 | 47 52 4f 55 4e 44 20 50 |T" A - |GROUND P|
|000000d0| 4c 41 4e 45 11 22 0a 36 | 30 20 50 52 49 4e 54 22 |LANE.".6|0 PRINT"|
|000000e0| 20 20 42 20 2d 20 59 41 | 47 49 11 22 0a 37 30 20 | B - YA|GI.".70 |
|000000f0| 50 52 49 4e 54 22 20 20 | 43 20 2d 20 44 49 50 4f |PRINT" |C - DIPO|
|00000100| 4c 45 11 22 0a 38 30 20 | 50 52 49 4e 54 22 20 20 |LE.".80 |PRINT" |
|00000110| 44 20 2d 20 44 45 4c 54 | 41 20 4c 4f 4f 50 20 42 |D - DELT|A LOOP B|
|00000120| 45 41 4d 11 11 11 22 0a | 39 30 20 50 52 49 4e 54 |EAM...".|90 PRINT|
|00000130| 22 20 57 48 49 43 48 20 | 41 4e 54 45 4e 4e 41 20 |" WHICH |ANTENNA |
|00000140| 44 45 53 49 47 4e 22 0a | 31 30 30 20 50 52 49 4e |DESIGN".|100 PRIN|
|00000150| 54 22 20 44 4f 20 59 4f | 55 20 57 41 4e 54 22 0a |T" DO YO|U WANT".|
|00000160| 31 31 30 20 49 4e 50 55 | 54 22 20 41 20 42 20 43 |110 INPU|T" A B C|
|00000170| 20 4f 52 20 44 22 3b 42 | 24 0a 31 32 30 20 49 46 | OR D";B|$.120 IF|
|00000180| 42 24 3d 22 41 22 54 48 | 45 4e 31 37 30 0a 31 33 |B$="A"TH|EN170.13|
|00000190| 30 20 49 46 42 24 3d 22 | 42 22 54 48 45 4e 33 38 |0 IFB$="|B"THEN38|
|000001a0| 30 0a 31 34 30 20 49 46 | 42 24 3d 22 43 22 54 48 |0.140 IF|B$="C"TH|
|000001b0| 45 4e 37 37 30 0a 31 35 | 30 20 49 46 42 24 3d 22 |EN770.15|0 IFB$="|
|000001c0| 44 22 54 48 45 4e 38 39 | 30 0a 31 36 30 20 49 46 |D"THEN89|0.160 IF|
|000001d0| 42 24 3d 22 22 54 48 45 | 4e 39 30 0a 31 37 30 20 |B$=""THE|N90.170 |
|000001e0| 50 52 49 4e 54 22 93 2a | 47 52 4f 55 4e 44 20 50 |PRINT".*|GROUND P|
|000001f0| 4c 41 4e 45 20 41 4e 54 | 45 4e 4e 41 2a 20 b7 b7 |LANE ANT|ENNA* ..|
|00000200| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |........|........|
|00000210| b7 b7 11 11 11 22 0a 31 | 38 30 20 50 52 49 4e 54 |.....".1|80 PRINT|
|00000220| 22 20 45 4e 54 45 52 20 | 54 48 45 20 44 45 53 49 |" ENTER |THE DESI|
|00000230| 47 4e 20 20 20 20 20 20 | 46 52 45 51 2e 20 49 4e |GN |FREQ. IN|
|00000240| 20 4d 48 5a 22 0a 31 39 | 30 20 49 4e 50 55 54 20 | MHZ".19|0 INPUT |
|00000250| 46 0a 32 30 30 20 50 52 | 49 4e 54 22 93 2a 47 52 |F.200 PR|INT".*GR|
|00000260| 4f 55 4e 44 20 50 4c 41 | 4e 45 20 41 4e 54 45 4e |OUND PLA|NE ANTEN|
|00000270| 4e 41 2a 20 b7 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |NA* ....|........|
|00000280| b7 b7 b7 b7 b7 b7 b7 b7 | 11 22 0a 32 31 30 20 50 |........|.".210 P|
|00000290| 52 49 4e 54 22 20 20 20 | 20 46 4f 52 22 46 22 4d |RINT" | FOR"F"M|
|000002a0| 48 5a 11 22 0a 32 32 30 | 20 48 3d 39 33 36 2f 46 |HZ.".220| H=936/F|
|000002b0| 2a 2e 32 38 3a 48 3d 49 | 4e 54 28 48 2a 31 30 30 |*.28:H=I|NT(H*100|
|000002c0| 2b 2e 35 29 2f 31 30 30 | 0a 32 33 30 20 52 3d 31 |+.5)/100|.230 R=1|
|000002d0| 2e 30 35 2a 48 3a 52 3d | 49 4e 54 28 52 2a 31 30 |.05*H:R=|INT(R*10|
|000002e0| 30 2b 2e 35 29 2f 31 30 | 30 0a 32 34 30 20 50 52 |0+.5)/10|0.240 PR|
|000002f0| 49 4e 54 22 54 48 45 20 | 56 45 52 54 49 43 41 4c |INT"THE |VERTICAL|
|00000300| 20 52 41 44 49 41 54 4f | 52 22 0a 32 35 30 20 50 | RADIATO|R".250 P|
|00000310| 52 49 4e 54 22 53 48 4f | 55 4c 44 20 42 45 20 11 |RINT"SHO|ULD BE .|
|00000320| 22 3a 50 52 49 4e 54 22 | 20 20 22 48 22 20 46 54 |":PRINT"| "H" FT|
|00000330| 2e 11 22 0a 32 36 30 20 | 50 52 49 4e 54 22 54 48 |..".260 |PRINT"TH|
|00000340| 45 20 52 41 44 49 41 4c | 53 20 53 48 4f 55 4c 44 |E RADIAL|S SHOULD|
|00000350| 20 42 45 11 22 0a 32 37 | 30 20 50 52 49 4e 54 22 | BE.".27|0 PRINT"|
|00000360| 20 20 22 52 22 20 46 54 | 2e 11 11 22 0a 32 38 30 | "R" FT|...".280|
|00000370| 20 50 52 49 4e 54 22 54 | 48 45 20 49 4d 50 45 44 | PRINT"T|HE IMPED|
|00000380| 41 4e 43 45 20 4d 41 59 | 20 56 41 52 59 57 49 54 |ANCE MAY| VARYWIT|
|00000390| 48 20 54 48 45 20 44 49 | 41 4d 45 54 45 52 20 4f |H THE DI|AMETER O|
|000003a0| 46 20 20 54 48 45 20 52 | 41 44 49 41 54 4f 52 2e |F THE R|ADIATOR.|
|000003b0| 20 54 52 59 22 0a 32 39 | 30 20 50 52 49 4e 54 22 | TRY".29|0 PRINT"|
|000003c0| 43 48 41 4e 47 49 4e 47 | 20 52 41 44 49 41 54 4f |CHANGING| RADIATO|
|000003d0| 52 20 4c 45 4e 47 54 48 | 20 54 4f 20 4d 41 54 43 |R LENGTH| TO MATC|
|000003e0| 48 20 46 45 45 44 20 4c | 49 4e 45 11 22 0a 33 30 |H FEED L|INE.".30|
|000003f0| 30 20 47 4f 53 55 42 31 | 30 35 30 0a 33 31 30 20 |0 GOSUB1|050.310 |
|00000400| 50 52 49 4e 54 22 93 2a | 47 52 4f 55 4e 44 20 50 |PRINT".*|GROUND P|
|00000410| 4c 41 4e 45 20 41 4e 54 | 45 4e 4e 41 2a 20 b7 b7 |LANE ANT|ENNA* ..|
|00000420| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |........|........|
|00000430| b7 b7 11 11 11 22 0a 33 | 32 30 20 50 52 49 4e 54 |.....".3|20 PRINT|
|00000440| 54 41 42 28 31 30 29 22 | a7 a5 22 3a 50 52 49 4e |TAB(10)"|..":PRIN|
|00000450| 54 54 41 42 28 31 30 29 | 22 a7 a5 22 3a 50 52 49 |TTAB(10)|"..":PRI|
|00000460| 4e 54 54 41 42 28 31 30 | 29 22 a7 a5 22 3a 50 52 |NTTAB(10|)"..":PR|
|00000470| 49 4e 54 54 41 42 28 31 | 30 29 22 a7 a5 22 0a 33 |INTTAB(1|0)"..".3|
|00000480| 33 30 20 50 52 49 4e 54 | 22 52 41 44 49 41 54 4f |30 PRINT|"RADIATO|
|00000490| 52 22 54 41 42 28 31 30 | 29 22 a7 a5 22 3a 50 52 |R"TAB(10|)"..":PR|
|000004a0| 49 4e 54 48 22 46 54 22 | 54 41 42 28 31 30 29 22 |INTH"FT"|TAB(10)"|
|000004b0| a7 a5 22 3a 50 52 49 4e | 54 54 41 42 28 31 30 29 |..":PRIN|TTAB(10)|
|000004c0| 22 a7 a5 22 3a 50 52 49 | 4e 54 54 41 42 28 31 30 |"..":PRI|NTTAB(10|
|000004d0| 29 22 a7 a5 22 0a 33 34 | 30 20 50 52 49 4e 54 54 |)"..".34|0 PRINTT|
|000004e0| 41 42 28 31 30 29 22 a7 | a5 22 3a 50 52 49 4e 54 |AB(10)".|.":PRINT|
|000004f0| 54 41 42 28 31 30 29 22 | a7 a5 22 3a 50 52 49 4e |TAB(10)"|..":PRIN|
|00000500| 54 22 20 a3 a3 a3 a3 a3 | a3 a3 a3 a3 d0 cf a3 a3 |T" .....|........|
|00000510| a3 a3 a3 a3 a3 a3 a3 11 | 22 0a 33 35 30 20 50 52 |........|".350 PR|
|00000520| 49 4e 54 22 52 41 44 49 | 41 4c 53 22 3a 50 52 49 |INT"RADI|ALS":PRI|
|00000530| 4e 54 52 09 0a 33 36 30 | 20 47 4f 53 55 42 31 30 |NTR..360| GOSUB10|
|00000540| 35 30 0a 33 37 30 20 47 | 4f 54 4f 34 30 0a 33 38 |50.370 G|OTO40.38|
|00000550| 30 20 50 52 49 4e 54 22 | 93 20 20 2a 2a 2a 59 41 |0 PRINT"|. ***YA|
|00000560| 47 49 20 44 45 53 49 47 | 4e 2a 2a 2a 20 20 20 20 |GI DESIG|N*** |
|00000570| 20 20 20 20 11 11 22 0a | 33 39 30 20 50 52 49 4e | ..".|390 PRIN|
|00000580| 54 22 57 48 41 54 20 49 | 53 20 54 48 45 20 4f 50 |T"WHAT I|S THE OP|
|00000590| 45 52 41 54 49 4e 47 11 | 22 0a 34 30 30 20 50 52 |ERATING.|".400 PR|
|000005a0| 49 4e 54 22 46 52 45 51 | 55 45 4e 43 59 28 49 4e |INT"FREQ|UENCY(IN|
|000005b0| 20 4d 48 5a 29 11 22 0a | 34 31 30 20 49 4e 50 55 | MHZ).".|410 INPU|
|000005c0| 54 20 46 0a 34 32 30 20 | 49 46 20 46 3c 31 2e 38 |T F.420 |IF F<1.8|
|000005d0| 54 48 45 4e 34 34 30 0a | 34 33 30 20 47 4f 54 4f |THEN440.|430 GOTO|
|000005e0| 34 35 30 0a 34 34 30 20 | 50 52 49 4e 54 22 11 54 |450.440 |PRINT".T|
|000005f0| 48 41 54 20 46 52 45 51 | 20 49 53 20 4f 55 54 53 |HAT FREQ| IS OUTS|
|00000600| 49 44 45 20 20 54 48 45 | 20 48 41 4d 20 42 41 4e |IDE THE| HAM BAN|
|00000610| 44 53 22 3a 47 4f 54 4f | 34 30 30 0a 34 35 30 20 |DS":GOTO|400.450 |
|00000620| 49 46 20 46 3c 31 30 39 | 54 48 45 4e 34 37 30 0a |IF F<109|THEN470.|
|00000630| 34 36 30 20 56 3d 32 33 | 34 3a 47 4f 54 4f 34 38 |460 V=23|4:GOTO48|
|00000640| 30 0a 34 37 30 20 56 3d | 31 32 36 2b 46 0a 34 38 |0.470 V=|126+F.48|
|00000650| 30 20 53 3d 56 2f 46 0a | 34 39 30 20 53 3d 49 4e |0 S=V/F.|490 S=IN|
|00000660| 54 28 53 2a 31 30 30 2b | 2e 35 29 2f 31 30 30 0a |T(S*100+|.5)/100.|
|00000670| 35 30 30 20 4c 3d 32 2a | 53 3a 52 3d 35 30 30 2f |500 L=2*|S:R=500/|
|00000680| 46 0a 35 31 30 20 52 3d | 49 4e 54 28 52 2a 31 30 |F.510 R=|INT(R*10|
|00000690| 30 2b 2e 35 29 2f 31 30 | 30 0a 35 32 30 20 44 3d |0+.5)/10|0.520 D=|
|000006a0| 34 37 35 2f 46 0a 35 33 | 30 20 44 3d 49 4e 54 28 |475/F.53|0 D=INT(|
|000006b0| 44 2a 31 30 30 2b 2e 35 | 29 2f 31 30 30 0a 35 34 |D*100+.5|)/100.54|
|000006c0| 30 20 48 3d 34 35 35 2f | 46 0a 35 35 30 20 48 3d |0 H=455/|F.550 H=|
|000006d0| 49 4e 54 28 48 2a 31 30 | 30 2b 2e 35 29 2f 31 30 |INT(H*10|0+.5)/10|
|000006e0| 30 0a 35 36 30 20 4b 3d | 4c 2a 33 30 2e 34 38 3a |0.560 K=|L*30.48:|
|000006f0| 4d 3d 53 2a 33 30 2e 34 | 38 3a 4f 3d 52 2a 33 30 |M=S*30.4|8:O=R*30|
|00000700| 2e 34 38 3a 50 3d 44 2a | 33 30 2e 34 38 3a 51 3d |.48:P=D*|30.48:Q=|
|00000710| 48 2a 33 30 2e 34 38 0a | 35 37 30 20 50 52 49 4e |H*30.48.|570 PRIN|
|00000720| 54 22 93 20 20 2a 2a 2a | 59 41 47 49 20 44 45 53 |T". ***|YAGI DES|
|00000730| 49 47 4e 2a 2a 2a 20 20 | 20 20 20 20 20 20 b7 b7 |IGN*** | ..|
|00000740| b7 b7 b7 b7 b7 b7 b7 b7 | b7 22 0a 35 38 30 20 50 |........|.".580 P|
|00000750| 52 49 4e 54 22 11 20 44 | 49 4d 45 4e 53 49 4f 4e |RINT". D|IMENSION|
|00000760| 53 20 4f 46 20 54 48 45 | 20 33 09 00 20 45 4c 45 |S OF THE| 3.. ELE|
|00000770| 4d 45 4e 54 20 57 49 44 | 45 20 53 50 41 43 45 44 |MENT WID|E SPACED|
|00000780| 20 20 20 59 41 47 49 20 | 41 52 45 3a 22 0a 35 39 | YAGI |ARE:".59|
|00000790| 30 20 50 52 49 4e 54 22 | 11 20 4f 56 45 52 41 4c |0 PRINT"|. OVERAL|
|000007a0| 4c 20 42 4f 4f 4d 20 4c | 45 4e 47 54 48 22 3a 50 |L BOOM L|ENGTH":P|
|000007b0| 52 49 4e 54 22 20 49 53 | 3a 20 22 4c 22 20 46 54 |RINT" IS|: "L" FT|
|000007c0| 22 3a 50 52 49 4e 54 22 | 20 4f 52 20 20 22 4b 22 |":PRINT"| OR "K"|
|000007d0| 20 43 4d 22 0a 36 30 30 | 20 50 52 49 4e 54 22 11 | CM".600| PRINT".|
|000007e0| 20 53 50 41 43 49 4e 47 | 20 4f 46 20 45 4c 45 4d | SPACING| OF ELEM|
|000007f0| 45 4e 54 53 20 20 20 49 | 53 3a 20 22 53 22 20 46 |ENTS I|S: "S" F|
|00000800| 54 22 3a 50 52 49 4e 54 | 22 20 4f 52 20 20 22 4d |T":PRINT|" OR "M|
|00000810| 22 20 43 4d 22 0a 36 31 | 30 20 50 52 49 4e 54 22 |" CM".61|0 PRINT"|
|00000820| 11 20 54 48 45 20 46 45 | 45 44 20 50 4f 49 4e 54 |. THE FE|ED POINT|
|00000830| 20 5a 20 41 54 20 20 22 | 46 22 20 4d 48 5a 20 57 | Z AT "|F" MHZ W|
|00000840| 49 4c 4c 20 42 45 22 3a | 50 52 49 4e 54 22 20 41 |ILL BE":|PRINT" A|
|00000850| 42 4f 55 54 20 33 35 20 | 4f 48 4d 53 20 26 20 54 |BOUT 35 |OHMS & T|
|00000860| 48 45 22 0a 36 32 30 20 | 50 52 49 4e 54 22 a0 47 |HE".620 |PRINT".G|
|00000870| 41 49 4e 20 41 42 4f 55 | 54 20 37 2e 35 20 44 42 |AIN ABOU|T 7.5 DB|
|00000880| 20 26 20 20 20 54 48 45 | 20 46 2f 42 20 52 41 54 | & THE| F/B RAT|
|00000890| 49 4f 20 55 50 20 54 4f | 20 20 20 33 30 2e 11 22 |IO UP TO| 30.."|
|000008a0| 0a 36 33 30 20 47 4f 53 | 55 42 31 30 35 30 0a 36 |.630 GOS|UB1050.6|
|000008b0| 34 30 20 50 52 49 4e 54 | 22 93 20 20 2a 2a 2a 59 |40 PRINT|". ***Y|
|000008c0| 41 47 49 20 44 45 53 49 | 47 4e 2a 2a 2a 20 20 20 |AGI DESI|GN*** |
|000008d0| 20 20 20 20 20 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 | ...|........|
|000008e0| 22 0a 36 35 30 20 50 52 | 49 4e 54 22 11 11 44 49 |".650 PR|INT"..DI|
|000008f0| 52 45 43 54 4f 52 20 20 | 20 a3 a3 a3 d0 a3 a3 a3 |RECTOR | .......|
|00000900| a3 22 0a 36 36 30 20 50 | 52 49 4e 54 48 22 46 54 |.".660 P|RINTH"FT|
|00000910| 22 54 41 42 28 31 34 29 | 22 a7 22 0a 36 37 30 20 |"TAB(14)|".".670 |
|00000920| 50 52 49 4e 54 51 22 43 | 4d 22 54 41 42 28 31 34 |PRINTQ"C|M"TAB(14|
|00000930| 29 22 a7 22 0a 36 38 30 | 20 50 52 49 4e 54 54 41 |)".".680| PRINTTA|
|00000940| 42 28 31 34 29 22 a7 22 | 3a 50 52 49 4e 54 54 41 |B(14)"."|:PRINTTA|
|00000950| 42 28 31 34 29 22 a7 22 | 3a 50 52 49 4e 54 54 41 |B(14)"."|:PRINTTA|
|00000960| 42 28 31 34 29 22 a7 22 | 3a 50 52 49 4e 54 54 41 |B(14)"."|:PRINTTA|
|00000970| 42 28 31 34 29 22 a7 22 | 0a 36 39 30 20 50 52 49 |B(14)"."|.690 PRI|
|00000980| 4e 54 22 44 52 49 56 45 | 4e 20 20 20 20 a3 a3 a3 |NT"DRIVE|N ...|
|00000990| a3 d0 a3 a3 a3 a3 a3 22 | 0a 37 30 30 20 50 52 49 |......."|.700 PRI|
|000009a0| 4e 54 44 22 46 54 22 54 | 41 42 28 31 34 29 22 a7 |NTD"FT"T|AB(14)".|
|000009b0| 22 0a 37 31 30 20 50 52 | 49 4e 54 50 22 43 4d 22 |".710 PR|INTP"CM"|
|000009c0| 54 41 42 28 31 34 29 22 | a7 22 0a 37 32 30 20 50 |TAB(14)"|.".720 P|
|000009d0| 52 49 4e 54 54 41 42 28 | 31 09 0a 37 33 30 20 50 |RINTTAB(|1..730 P|
|000009e0| 52 49 4e 54 22 52 45 46 | 4c 45 43 54 4f 52 a3 a3 |RINT"REF|LECTOR..|
|000009f0| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 22 0a 37 34 30 20 |........|..".740 |
|00000a00| 50 52 49 4e 54 52 22 46 | 54 22 3a 50 52 49 4e 54 |PRINTR"F|T":PRINT|
|00000a10| 4f 22 43 4d 11 22 0a 37 | 35 30 20 47 4f 53 55 42 |O"CM.".7|50 GOSUB|
|00000a20| 31 30 35 30 0a 37 36 30 | 20 47 4f 54 4f 34 30 0a |1050.760| GOTO40.|
|00000a30| 37 37 30 20 50 52 49 4e | 54 22 93 20 2a 2a 2a 44 |770 PRIN|T". ***D|
|00000a40| 49 50 4f 4c 45 20 41 4e | 54 45 4e 4e 41 2a 2a 2a |IPOLE AN|TENNA***|
|00000a50| 20 20 20 20 20 b7 b7 b7 | b7 b7 b7 b7 b7 b7 b7 b7 | ...|........|
|00000a60| b7 b7 b7 22 0a 37 38 30 | 20 50 52 49 4e 54 22 11 |...".780| PRINT".|
|00000a70| 11 20 54 48 45 20 43 45 | 4e 54 45 52 20 46 52 45 |. THE CE|NTER FRE|
|00000a80| 51 20 49 4e 22 0a 37 39 | 30 20 49 4e 50 55 54 22 |Q IN".79|0 INPUT"|
|00000a90| 20 4d 48 5a 22 3b 46 0a | 38 30 30 20 4e 3d 37 3a | MHZ";F.|800 N=7:|
|00000aa0| 4c 3d 34 36 38 2f 46 3a | 52 3d 4c 2a 33 30 2e 34 |L=468/F:|R=L*30.4|
|00000ab0| 38 3a 4c 3d 49 4e 54 28 | 4c 2a 31 30 30 2b 2e 35 |8:L=INT(|L*100+.5|
|00000ac0| 29 2f 31 30 30 3a 55 3d | 4c 2f 32 3a 56 3d 52 2f |)/100:U=|L/2:V=R/|
|00000ad0| 32 0a 38 31 30 20 50 52 | 49 4e 54 22 93 20 2a 2a |2.810 PR|INT". **|
|00000ae0| 2a 44 49 50 4f 4c 45 20 | 41 4e 54 45 4e 4e 41 2a |*DIPOLE |ANTENNA*|
|00000af0| 2a 2a 20 20 20 20 20 b7 | b7 b7 b7 b7 b7 b7 b7 b7 |** .|........|
|00000b00| b7 b7 b7 b7 b7 22 0a 38 | 32 30 20 50 52 49 4e 54 |.....".8|20 PRINT|
|00000b10| 22 11 11 11 20 54 4f 54 | 41 4c 20 4c 45 4e 47 54 |"... TOT|AL LENGT|
|00000b20| 48 20 49 53 3a 11 22 0a | 38 33 30 20 50 52 49 4e |H IS:.".|830 PRIN|
|00000b30| 54 22 20 22 4c 22 46 54 | 22 3a 50 52 49 4e 54 22 |T" "L"FT|":PRINT"|
|00000b40| 20 22 52 22 43 4d 11 11 | 22 0a 38 34 30 20 50 52 | "R"CM..|".840 PR|
|00000b50| 49 4e 54 22 20 20 a3 a3 | a3 a3 a3 a3 a3 a3 d0 cf |INT" ..|........|
|00000b60| a3 a3 a3 a3 a3 a3 a3 a3 | 22 0a 38 35 30 20 50 52 |........|".850 PR|
|00000b70| 49 4e 54 22 11 11 20 4c | 45 4e 47 54 48 20 4f 46 |INT".. L|ENGTH OF|
|00000b80| 20 45 41 43 48 20 4c 45 | 47 20 49 53 22 0a 38 36 | EACH LE|G IS".86|
|00000b90| 30 20 50 52 49 4e 54 22 | 20 22 55 22 46 54 22 3a |0 PRINT"| "U"FT":|
|00000ba0| 50 52 49 4e 54 22 20 22 | 56 22 43 4d 11 11 22 0a |PRINT" "|V"CM..".|
|00000bb0| 38 37 30 20 47 4f 53 55 | 42 31 30 35 30 0a 38 38 |870 GOSU|B1050.88|
|00000bc0| 30 20 47 4f 54 4f 34 30 | 0a 38 39 30 20 50 52 49 |0 GOTO40|.890 PRI|
|00000bd0| 4e 54 22 93 2a 2a 44 45 | 4c 54 41 20 4c 4f 4f 50 |NT".**DE|LTA LOOP|
|00000be0| 20 41 4e 54 45 4e 4e 41 | 2a 2a 20 20 b7 b7 b7 b7 | ANTENNA|** ....|
|00000bf0| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 b7 b7 b7 b7 22 0a |........|......".|
|00000c00| 39 30 30 20 50 52 49 4e | 54 22 09 00 20 54 48 45 |900 PRIN|T".. THE|
|00000c10| 20 43 45 4e 54 45 52 20 | 46 52 45 51 20 49 4e 22 | CENTER |FREQ IN"|
|00000c20| 3a 49 4e 50 55 54 22 20 | 4d 48 5a 22 3b 46 0a 39 |:INPUT" |MHZ";F.9|
|00000c30| 31 30 20 52 3d 31 30 33 | 30 2f 46 3a 54 3d 52 2f |10 R=103|0/F:T=R/|
|00000c40| 33 3a 44 3d 31 30 30 35 | 2f 46 3a 45 3d 44 2f 33 |3:D=1005|/F:E=D/3|
|00000c50| 3a 53 3d 39 38 34 2f 46 | 2a 2e 32 0a 39 32 30 20 |:S=984/F|*.2.920 |
|00000c60| 54 3d 49 4e 54 28 54 2a | 31 30 30 2b 2e 35 29 2f |T=INT(T*|100+.5)/|
|00000c70| 31 30 30 3a 45 3d 49 4e | 54 28 45 2a 31 30 30 2b |100:E=IN|T(E*100+|
|00000c80| 2e 35 29 2f 31 30 30 3a | 53 3d 49 4e 54 28 53 2a |.5)/100:|S=INT(S*|
|00000c90| 31 30 30 2b 2e 35 29 2f | 31 30 30 0a 39 33 30 20 |100+.5)/|100.930 |
|00000ca0| 50 52 49 4e 54 22 11 54 | 48 45 20 44 45 4c 54 41 |PRINT".T|HE DELTA|
|00000cb0| 20 4c 4f 4f 50 20 42 45 | 41 4d 20 20 20 41 4e 54 | LOOP BE|AM ANT|
|00000cc0| 45 4e 4e 41 20 48 41 53 | 20 32 20 45 4c 45 4d 45 |ENNA HAS| 2 ELEME|
|00000cd0| 4e 54 53 55 53 49 4e 47 | 20 33 2f 34 20 49 4e 2e |NTSUSING| 3/4 IN.|
|00000ce0| 20 41 4c 55 4d 49 4e 55 | 4d 22 3b 0a 39 34 30 20 | ALUMINU|M";.940 |
|00000cf0| 50 52 49 4e 54 22 54 55 | 42 49 4e 47 20 46 4f 52 |PRINT"TU|BING FOR|
|00000d00| 20 54 48 45 20 53 49 44 | 45 20 20 20 4c 45 47 53 | THE SID|E LEGS|
|00000d10| 20 41 4e 44 20 23 31 32 | 20 43 4f 50 50 45 52 20 | AND #12| COPPER |
|00000d20| 20 20 57 49 52 45 20 46 | 4f 52 20 54 48 45 20 54 | WIRE F|OR THE T|
|00000d30| 4f 50 2e 22 0a 39 35 30 | 20 50 52 49 4e 54 22 54 |OP.".950| PRINT"T|
|00000d40| 48 45 20 46 45 45 44 20 | 43 41 4e 20 42 45 20 54 |HE FEED |CAN BE T|
|00000d50| 4f 20 20 20 20 45 49 54 | 48 45 52 20 4c 45 47 20 |O EIT|HER LEG |
|00000d60| 4f 46 20 54 48 45 20 44 | 52 49 2d 56 45 4e 20 45 |OF THE D|RI-VEN E|
|00000d70| 4c 45 4d 45 4e 54 2e 20 | 41 20 47 41 4d 4d 41 22 |LEMENT. |A GAMMA"|
|00000d80| 0a 39 36 30 20 50 52 49 | 4e 54 22 54 59 50 45 20 |.960 PRI|NT"TYPE |
|00000d90| 46 45 45 44 20 53 59 53 | 54 45 4d 20 47 49 56 45 |FEED SYS|TEM GIVE|
|00000da0| 53 54 48 45 20 42 45 53 | 54 20 50 45 52 46 4f 52 |STHE BES|T PERFOR|
|00000db0| 4d 41 4e 43 45 2e 11 11 | 22 0a 39 37 30 20 47 4f |MANCE...|".970 GO|
|00000dc0| 53 55 42 31 30 35 30 0a | 39 38 30 20 50 52 49 4e |SUB1050.|980 PRIN|
|00000dd0| 54 22 93 2a 2a 44 45 4c | 54 41 20 4c 4f 4f 50 20 |T".**DEL|TA LOOP |
|00000de0| 41 4e 54 45 4e 4e 41 2a | 2a 20 20 b7 b7 b7 b7 b7 |ANTENNA*|* .....|
|00000df0| b7 b7 b7 b7 b7 b7 b7 b7 | b7 b7 b7 b7 b7 11 22 0a |........|......".|
|00000e00| 39 39 30 20 50 52 49 4e | 54 22 4d 45 41 53 55 52 |990 PRIN|T"MEASUR|
|00000e10| 45 4d 45 4e 54 53 20 46 | 4f 52 22 46 3a 50 52 49 |EMENTS F|OR"F:PRI|
|00000e20| 4e 54 22 4d 48 5a 20 41 | 52 45 20 41 53 20 46 4f |NT"MHZ A|RE AS FO|
|00000e30| 4c 4c 4f 57 09 00 11 11 | 22 0a 31 30 30 30 20 50 |LLOW....|".1000 P|
|00000e40| 52 49 4e 54 22 12 44 52 | 49 56 45 4e 20 45 4c 45 |RINT".DR|IVEN ELE|
|00000e50| 4d 45 4e 54 92 22 3a 50 | 52 49 4e 54 22 20 54 4f |MENT.":P|RINT" TO|
|00000e60| 50 3d 22 45 22 46 54 2e | 22 3a 50 52 49 4e 54 22 |P="E"FT.|":PRINT"|
|00000e70| 20 53 49 44 45 3d 22 45 | 22 46 54 2e 11 22 0a 31 | SIDE="E|"FT..".1|
|00000e80| 30 31 30 20 50 52 49 4e | 54 22 12 52 45 46 4c 45 |010 PRIN|T".REFLE|
|00000e90| 43 54 4f 52 20 45 4c 45 | 4d 45 4e 54 92 22 3a 50 |CTOR ELE|MENT.":P|
|00000ea0| 52 49 4e 54 22 20 54 4f | 50 3d 22 54 22 46 54 2e |RINT" TO|P="T"FT.|
|00000eb0| 22 3a 50 52 49 4e 54 22 | 20 53 49 44 45 3d 22 54 |":PRINT"| SIDE="T|
|00000ec0| 22 46 54 2e 11 22 0a 31 | 30 32 30 20 50 52 49 4e |"FT..".1|020 PRIN|
|00000ed0| 54 22 42 4f 4f 4d 20 4c | 45 4e 47 54 48 3d 22 53 |T"BOOM L|ENGTH="S|
|00000ee0| 22 46 54 2e 11 11 22 0a | 31 30 33 30 20 47 4f 53 |"FT...".|1030 GOS|
|00000ef0| 55 42 31 30 35 30 0a 31 | 30 34 30 20 47 4f 54 4f |UB1050.1|040 GOTO|
|00000f00| 34 30 0a 31 30 35 30 20 | 50 52 49 4e 54 22 20 48 |40.1050 |PRINT" H|
|00000f10| 49 54 20 41 4e 59 20 4b | 45 59 22 0a 31 30 36 30 |IT ANY K|EY".1060|
|00000f20| 20 47 45 54 41 24 3a 49 | 46 41 24 3d 22 22 54 48 | GETA$:I|FA$=""TH|
|00000f30| 45 4e 31 30 36 30 0a 31 | 30 37 30 20 52 45 54 55 |EN1060.1|070 RETU|
|00000f40| 52 4e 0a | |RN. | |
+--------+-------------------------+-------------------------+--------+--------+