home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ANTENNA-MATCH / c64.bas
Unknown  |  2019-04-13  |  1.9 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
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% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|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 | 0a 32 30 20 52 45 4d 2a |********|.20 REM*|
|00000030| 20 20 20 20 53 41 4e 20 | 46 52 41 4e 43 49 53 43 |    SAN |FRANCISC|
|00000040| 4f 20 52 41 44 49 4f 20 | 43 4c 55 42 20 20 20 20 |O RADIO |CLUB    |
|00000050| 2a 0a 33 30 20 52 45 4d | 2a 20 20 20 20 20 20 20 |*.30 REM|*       |
|00000060| 20 20 20 20 53 4f 46 54 | 57 41 52 45 20 20 20 20 |    SOFT|WARE    |
|00000070| 20 20 20 20 20 20 20 20 | 20 2a 0a 34 30 20 52 45 |        | *.40 RE|
|00000080| 4d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 0a 35 30 20 3a | 0a 36 30 20 50 52 49 4e |***.50 :|.60 PRIN|
|000000b0| 54 3a 50 52 49 4e 54 20 | 54 41 42 28 36 29 22 41 |T:PRINT |TAB(6)"A|
|000000c0| 4e 54 45 4e 4e 41 20 4d | 41 54 43 48 49 4e 47 20 |NTENNA M|ATCHING |
|000000d0| 45 56 41 4c 55 41 54 4f | 52 22 0a 37 30 20 50 52 |EVALUATO|R".70 PR|
|000000e0| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 20 |INT:PRIN|T:PRINT |
|000000f0| 0a 38 30 20 42 4c 24 3d | 43 48 52 24 28 37 29 0a |.80 BL$=|CHR$(7).|
|00000100| 39 30 20 44 45 46 20 46 | 4e 4c 28 58 29 3d 4c 4f |90 DEF F|NL(X)=LO|
|00000110| 47 28 58 29 2f 4c 4f 47 | 28 31 30 29 0a 31 30 30 |G(X)/LOG|(10).100|
|00000120| 20 44 45 46 20 46 4e 41 | 28 58 29 3d 49 4e 54 28 | DEF FNA|(X)=INT(|
|00000130| 58 2a 31 30 30 2b 2e 35 | 29 2f 31 30 30 0a 31 31 |X*100+.5|)/100.11|
|00000140| 30 20 50 52 49 4e 54 3a | 50 52 49 4e 54 20 22 4e |0 PRINT:|PRINT "N|
|00000150| 4f 54 45 3a 20 20 41 4c | 4c 20 50 4f 57 45 52 20 |OTE:  AL|L POWER |
|00000160| 4c 45 56 45 4c 53 20 41 | 52 45 20 49 4e 20 57 41 |LEVELS A|RE IN WA|
|00000170| 54 54 53 22 0a 31 32 30 | 20 50 52 49 4e 54 3a 50 |TTS".120| PRINT:P|
|00000180| 52 49 4e 54 20 22 57 48 | 41 54 20 49 53 20 59 4f |RINT "WH|AT IS YO|
|00000190| 55 52 20 46 4f 52 57 41 | 52 44 20 50 4f 57 45 52 |UR FORWA|RD POWER|
|000001a0| 20 52 45 41 44 49 4e 47 | 22 0a 31 33 30 20 50 52 | READING|".130 PR|
|000001b0| 49 4e 54 20 22 41 54 20 | 54 48 45 20 54 52 41 4e |INT "AT |THE TRAN|
|000001c0| 53 4d 49 54 54 45 52 3f | 20 22 3a 49 4e 50 55 54 |SMITTER?| ":INPUT|
|000001d0| 20 46 50 0a 31 34 30 20 | 49 46 20 46 50 3c 3d 30 | FP.140 |IF FP<=0|
|000001e0| 20 54 48 45 4e 20 50 52 | 49 4e 54 20 42 4c 24 3a | THEN PR|INT BL$:|
|000001f0| 47 4f 54 4f 31 32 30 0a | 31 35 30 20 50 52 49 4e |GOTO120.|150 PRIN|
|00000200| 54 3a 50 52 49 4e 54 20 | 22 59 4f 55 27 4c 4c 20 |T:PRINT |"YOU'LL |
|00000210| 4e 45 45 44 20 54 4f 20 | 45 4e 54 45 52 20 54 48 |NEED TO |ENTER TH|
|00000220| 45 20 52 45 46 4c 45 43 | 54 45 44 22 0a 31 36 30 |E REFLEC|TED".160|
|00000230| 20 50 52 49 4e 54 20 22 | 50 4f 57 45 52 20 4f 52 | PRINT "|POWER OR|
|00000240| 20 54 48 45 20 56 53 57 | 52 2e 20 20 57 48 49 43 | THE VSW|R.  WHIC|
|00000250| 48 20 44 4f 20 59 4f 55 | 20 57 49 53 48 2d 2d 22 |H DO YOU| WISH--"|
|00000260| 0a 31 37 30 20 50 52 49 | 4e 54 20 22 52 45 46 4c |.170 PRI|NT "REFL|
|00000270| 45 43 54 45 44 20 50 4f | 57 45 52 20 28 52 29 20 |ECTED PO|WER (R) |
|00000280| 4f 52 20 56 53 57 52 20 | 28 56 29 3f 20 22 3a 49 |OR VSWR |(V)? ":I|
|00000290| 4e 50 55 54 20 41 24 0a | 31 38 30 20 49 46 20 41 |NPUT A$.|180 IF A|
|000002a0| 24 3d 22 52 22 20 54 48 | 45 4e 32 34 30 0a 31 39 |$="R" TH|EN240.19|
|000002b0| 30 20 49 46 20 41 24 3c | 3e 22 56 22 20 54 48 45 |0 IF A$<|>"V" THE|
|000002c0| 4e 20 50 52 49 4e 54 20 | 42 4c 24 3b 22 45 4e 54 |N PRINT |BL$;"ENT|
|000002d0| 45 52 20 52 20 4f 52 20 | 56 22 3a 47 4f 54 4f 31 |ER R OR |V":GOTO1|
|000002e0| 37 30 0a 32 30 30 20 50 | 52 49 4e 54 3a 50 52 49 |70.200 P|RINT:PRI|
|000002f0| 4e 54 20 22 57 48 41 54 | 20 49 53 20 54 48 45 20 |NT "WHAT| IS THE |
|00000300| 56 53 57 52 20 41 54 20 | 54 48 45 20 54 52 41 4e |VSWR AT |THE TRAN|
|00000310| 53 4d 49 54 54 45 52 3f | 20 22 3a 49 4e 50 55 54 |SMITTER?| ":INPUT|
|00000320| 20 56 53 0a 32 31 30 20 | 49 46 20 56 53 3c 31 20 | VS.210 |IF VS<1 |
|00000330| 54 48 45 4e 20 50 52 49 | 4e 54 20 42 4c 24 3a 47 |THEN PRI|NT BL$:G|
|00000340| 4f 54 4f 32 30 30 0a 32 | 32 30 20 52 50 3d 28 28 |OTO200.2|20 RP=((|
|00000350| 28 56 53 2d 31 29 2f 28 | 56 53 2b 31 29 29 5e 32 |(VS-1)/(|VS+1))^2|
|00000360| 29 2a 46 50 0a 32 33 30 | 20 47 4f 54 4f 32 39 30 |)*FP.230| GOTO290|
|00000370| 0a 32 34 30 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |.240 PRI|NT:PRINT|
|00000380| 20 22 57 48 41 54 20 49 | 53 20 54 48 45 20 52 45 | "WHAT I|S THE RE|
|00000390| 46 4c 45 43 54 45 44 20 | 50 4f 57 45 52 20 41 54 |FLECTED |POWER AT|
|000003a0| 20 54 48 45 22 0a 32 35 | 30 20 49 4e 50 55 54 20 | THE".25|0 INPUT |
|000003b0| 22 54 52 41 4e 53 4d 49 | 54 54 45 52 3f 20 22 3b |"TRANSMI|TTER? ";|
|000003c0| 52 50 0a 32 36 30 20 49 | 46 20 52 50 3c 30 20 54 |RP.260 I|F RP<0 T|
|000003d0| 48 45 4e 20 50 52 49 4e | 54 20 42 4c 24 3b 22 45 |HEN PRIN|T BL$;"E|
|000003e0| 52 52 4f 52 22 3a 47 4f | 54 4f 32 34 30 0a 32 37 |RROR":GO|TO240.27|
|000003f0| 30 20 49 46 20 52 50 3e | 46 50 20 54 48 45 4e 20 |0 IF RP>|FP THEN |
|00000400| 50 52 49 4e 54 20 42 4c | 24 3b 22 4d 55 53 54 20 |PRINT BL|$;"MUST |
|00000410| 42 45 20 4c 45 53 53 20 | 54 48 45 4e 20 46 57 44 |BE LESS |THEN FWD|
|00000420| 20 50 4f 57 45 52 22 3a | 47 4f 54 4f 32 34 30 0a | POWER":|GOTO240.|
|00000430| 32 38 30 20 56 3d 53 51 | 52 28 52 50 2f 46 50 29 |280 V=SQ|R(RP/FP)|
|00000440| 3a 56 53 3d 28 31 2b 56 | 29 2f 28 31 2d 56 29 0a |:VS=(1+V|)/(1-V).|
|00000450| 32 39 30 20 50 52 49 4e | 54 3a 50 52 49 4e 54 20 |290 PRIN|T:PRINT |
|00000460| 22 4e 4f 57 20 59 4f 55 | 20 43 41 4e 20 45 4e 54 |"NOW YOU| CAN ENT|
|00000470| 45 52 20 45 49 54 48 45 | 52 20 54 48 45 20 54 52 |ER EITHE|R THE TR|
|00000480| 41 4e 53 2d 22 0a 33 30 | 30 20 50 52 49 4e 54 20 |ANS-".30|0 PRINT |
|00000490| 22 4d 49 53 53 49 4f 4e | 20 4c 49 4e 45 20 4c 4f |"MISSION| LINE LO|
|000004a0| 53 53 20 4f 52 20 54 48 | 45 20 54 59 50 45 20 4f |SS OR TH|E TYPE O|
|000004b0| 46 20 4c 49 4e 45 22 0a | 33 31 30 20 50 52 49 4e |F LINE".|310 PRIN|
|000004c0| 54 20 22 41 4e 44 20 49 | 54 53 20 4c 45 4e 47 54 |T "AND I|TS LENGT|
|000004d0| 48 2e 20 22 0a 33 32 30 | 20 50 52 49 4e 54 3a 50 |H. ".320| PRINT:P|
|000004e0| 52 49 4e 54 20 22 57 41 | 4e 54 20 54 48 45 20 4c |RINT "WA|NT THE L|
|000004f0| 49 4e 45 20 4c 4f 53 53 | 20 43 41 4c 43 55 4c 41 |INE LOSS| CALCULA|
|00000500| 54 45 44 3f 20 28 59 2f | 4e 29 20 22 3a 49 4e 50 |TED? (Y/|N) ":INP|
|00000510| 55 54 20 41 24 0a 33 33 | 30 20 49 46 20 41 24 3d |UT A$.33|0 IF A$=|
|00000520| 22 59 22 20 54 48 45 4e | 33 39 30 0a 33 34 30 20 |"Y" THEN|390.340 |
|00000530| 50 52 49 4e 54 3a 50 52 | 49 4e 54 20 22 57 48 41 |PRINT:PR|INT "WHA|
|00000540| 54 20 49 53 20 09 00 45 | 20 54 52 41 4e 53 4d 49 |T IS ..E| TRANSMI|
|00000550| 53 53 49 4f 4e 20 4c 49 | 4e 45 20 4c 4f 53 53 20 |SSION LI|NE LOSS |
|00000560| 49 4e 20 44 42 22 0a 33 | 35 30 20 50 52 49 4e 54 |IN DB".3|50 PRINT|
|00000570| 20 22 4e 4f 54 45 2d 2d | 4d 55 53 54 20 42 45 20 | "NOTE--|MUST BE |
|00000580| 4d 41 54 48 45 4d 41 54 | 49 43 41 4c 4c 59 20 50 |MATHEMAT|ICALLY P|
|00000590| 4f 53 53 49 42 4c 45 22 | 0a 33 36 30 20 50 52 49 |OSSIBLE"|.360 PRI|
|000005a0| 4e 54 20 22 57 49 54 48 | 20 4f 54 48 45 52 20 56 |NT "WITH| OTHER V|
|000005b0| 41 4c 55 45 53 20 45 4e | 54 45 52 45 44 2e 22 3a |ALUES EN|TERED.":|
|000005c0| 49 4e 50 55 54 20 4c 4c | 0a 33 37 30 20 49 46 20 |INPUT LL|.370 IF |
|000005d0| 4c 4c 3c 30 20 54 48 45 | 4e 20 50 52 49 4e 54 20 |LL<0 THE|N PRINT |
|000005e0| 42 4c 24 3b 22 45 52 52 | 4f 52 22 3a 20 47 4f 54 |BL$;"ERR|OR": GOT|
|000005f0| 4f 33 34 30 0a 33 38 30 | 20 47 4f 54 4f 35 33 30 |O340.380| GOTO530|
|00000600| 0a 33 39 30 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |.390 PRI|NT:PRINT|
|00000610| 20 22 54 52 41 4e 53 4d | 49 53 53 49 4f 4e 20 4c | "TRANSM|ISSION L|
|00000620| 49 4e 45 3d 20 52 47 2d | 22 3a 49 4e 50 55 54 20 |INE= RG-|":INPUT |
|00000630| 43 24 0a 34 30 30 20 52 | 45 4d 20 46 49 4e 44 20 |C$.400 R|EM FIND |
|00000640| 54 52 41 4e 53 4d 49 53 | 53 49 4f 4e 20 4c 49 4e |TRANSMIS|SION LIN|
|00000650| 45 20 4c 4f 53 53 0a 34 | 31 30 20 52 45 41 44 20 |E LOSS.4|10 READ |
|00000660| 4e 4d 0a 34 32 30 20 46 | 4f 52 20 4a 20 3d 20 31 |NM.420 F|OR J = 1|
|00000670| 20 54 4f 20 4e 4d 0a 34 | 33 30 20 52 45 41 44 20 | TO NM.4|30 READ |
|00000680| 58 24 3a 52 45 41 44 20 | 4c 4c 0a 34 34 30 20 49 |X$:READ |LL.440 I|
|00000690| 46 20 43 24 3d 58 24 20 | 54 48 45 4e 34 37 30 0a |F C$=X$ |THEN470.|
|000006a0| 34 35 30 20 4e 45 58 54 | 20 4a 0a 34 36 30 20 50 |450 NEXT| J.460 P|
|000006b0| 52 49 4e 54 20 42 4c 24 | 3b 22 49 4e 56 41 4c 49 |RINT BL$|;"INVALI|
|000006c0| 44 20 4c 49 4e 45 20 54 | 59 50 45 2e 20 20 54 52 |D LINE T|YPE.  TR|
|000006d0| 59 20 41 47 41 49 4e 22 | 3a 47 4f 54 4f 33 32 30 |Y AGAIN"|:GOTO320|
|000006e0| 0a 34 37 30 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |.470 PRI|NT:PRINT|
|000006f0| 20 22 57 48 41 54 20 49 | 53 20 54 48 45 20 46 52 | "WHAT I|S THE FR|
|00000700| 45 51 55 45 4e 43 59 20 | 49 4e 20 4d 48 5a 3f 20 |EQUENCY |IN MHZ? |
|00000710| 22 3a 49 4e 50 55 54 20 | 46 0a 34 38 30 20 49 46 |":INPUT |F.480 IF|
|00000720| 20 46 3c 3d 30 20 54 48 | 45 4e 20 50 52 49 4e 54 | F<=0 TH|EN PRINT|
|00000730| 20 42 4c 24 3a 47 4f 54 | 4f 34 37 30 0a 34 39 30 | BL$:GOT|O470.490|
|00000740| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 20 22 48 4f | PRINT:P|RINT "HO|
|00000750| 57 20 4c 4f 4e 47 20 49 | 53 20 54 48 45 20 54 52 |W LONG I|S THE TR|
|00000760| 41 4e 53 4d 49 53 53 49 | 4f 4e 20 4c 49 4e 45 22 |ANSMISSI|ON LINE"|
|00000770| 0a 35 30 30 20 49 4e 50 | 55 54 20 22 49 4e 20 46 |.500 INP|UT "IN F|
|00000780| 45 45 54 3f 20 22 3b 4c | 4e 0a 35 31 30 20 49 46 |EET? ";L|N.510 IF|
|00000790| 20 4c 4e 3c 30 20 54 48 | 45 4e 20 50 52 49 4e 54 | LN<0 TH|EN PRINT|
|000007a0| 20 42 4c 24 3b 22 45 52 | 52 4f 52 22 3a 47 4f 54 | BL$;"ER|ROR":GOT|
|000007b0| 4f 34 39 30 0a          |                         |O490.   |        |
+--------+-------------------------+-------------------------+--------+--------+