A free space attenuation calculator for HP41C

Michael Fletcher, OH2AUE, 2000
 

01   LBL PATHLOS                ( f LBL alpha PATHLOS alpha )
02   300
03   FREQ MHZ ?                   ( alpha FREQ MHZ ? Alpha )
04   PROMPT                          ( XEQ alpha PROMPT alpha )
05   /
06   1/X
07   4
08   *
09   PI
10   *
11   PATH KM ?
12   PROMPT
13   *
14   1000
15   *
16   X²
17   LOG
18   10
19   *
20   FIX 1
21   STO 10
22   TONE 5                             ( XEQ alpha TONE alpha 5 )
23   PATH LOSS, DB=
24   ARCL 10
25   AVIEW
26   RTN