%%HP: T(3)A(D)F(.);
DIR
  DIA 9.
  EFFY .6
  TXF 14.5
  RXF 11.5
  TEMP 90.
  RPRT
  \<< " Dia: " DIA \->STR + "m Effy: " + EFFY DUP
    IF 1. >
    THEN 100. / DUP
      IF 1. >
      THEN CLEAR "Efficiency must be \<= 1" DOERR
      ELSE DUP 'EFFY' STO
      END
    END 100. * 0. RND \->STR + "%
TRfr: " + TXF \->STR + " " + RXF \->STR + " GHz
TRbw: " + '17.187/(\v/EFFY*DIA*TXF)' EVAL 2. RND \->STR + " " + '17.187/(\v/EFFY*DIA*RXF)' EVAL 2. RND \->STR + " \^o
TRgn: " + '10.*LOG(EFFY)+20.*LOG(TXF)+20.*LOG(DIA)+20.4' EVAL 1. RND \->STR + " " + '10.*LOG(EFFY)+20.*LOG(RXF)+20.*LOG(DIA)+20.4' EVAL \-> g
    \<< g 1. RND \->STR + " dBi
Tlna: " + TEMP \->STR + " \^oK
 G/T: " + 'g-10.*LOG(TEMP)' EVAL 1. RND \->STR + " dB/\^oK" + '\182' STO \182 CLLCD 1. DISP 3. FREEZE
    \>>
  \>>
  PRINT
  \<< \182 PR1 CLEAR
  \>>
  PRDEV
  \<< -34. FS?
    IF 1. ==
    THEN { { "\[]WIRE"
      \<< -34. SF 0. DELAY 0. MENU
      \>> } { "IR"
      \<< -34. CF 1.8 DELAY 0. MENU
      \>> } } TMENU
    ELSE { { "WIRE"
      \<< -34. SF 0. DELAY 0. MENU
      \>> } { "\[]IR"
      \<< -34. CF 3. DELAY 0. MENU
      \>> } } TMENU
    END
  \>>
  exit
  \<< "" '\182' STO EXIT
  \>>
  \182 " Dia: 9.m Effy: 60.%
TRfr: 14.5 11.5 GHz
TRbw: .17 .21 \^o
TRgn: 60.5 58.5 dBi
Tlna: 90. \^oK
 G/T: 38.9 dB/\^oK"
END
