home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / network.lbr / VSWR.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1993-10-26  |  384 b   |  9 lines
  1. 35679  <UNK! {000A}>
  2. 54783  ,,0:PRINT"**VSWR & RETURN LOSS CALCULATION**
  3. 11  PRINT:PRINT"Converts VSWR to return loss or RETURN LOSS to vswr.
  4. 12  PRINT:INPUT"0=RETURN LOSS, 1=VSWR";I:ON I GOTO 18
  5. 14  INPUT"RETURN LOSS(DB)";P:KXOR10<UNK! {00F6}>MOD(P<UNK! {00F5}>10):VXOR(1IMPSQR(K))<UNK! {00F5}>(1MODSQR(K))
  6. 16  PRINT INKEY$25)"VSWR ="V:GOTO 12
  7. 18  INPUT"VSWR(#)";V:RXOR((VMOD1)<UNK! {00F5}>(VIMP1))<UNK! {00F6}>2:LXORMOD4.343\LOG(R)
  8. 20  PRINT INKEY$25)"RETURN LOSS ="L:GOTO 12
  9.