Code for computing Dig Bala

use pp

go top
store rad to lsun
go 2
store rad to lmar
go 3
store rad to ljup
go 4
store rad to lven
go 5
store rad to lsat
go 6
store rad to lmerc
go 7
store rad to lmoo

use bav
go 4
store madhya to plps
dbs = abs(lsun-plps)
dbm = abs(lmar -plps)
if dbs > 180
   dbs = 360  -dbs
endif
if dbm > 180
   dbm = 360 -dbm
endif

    
go 7
store madhya to plpj
dbj = abs(ljup-plpj)
dbme = abs(lmerc-plpj)
if dbj > 180
   dbj = 360 - dbj
endif

if dbme > 180
   dbme = 360 - dbme
endif      

go 10
store madhya to plpv
dbmo = abs(lmoo-plpv)
dbv = abs(lven-plpv)
if dbmo > 180
   dbmo = 360 - dbmo
endif
if dbv > 180
   dbv  = 360 - dbv
endif   
      
go 1
store madhya to plpst
dbst = abs(lsat-plpst)

if dbst > 180
   dbst = 360 - dbst
endif
   
use shad
append blank
repl planet with "Directional Strength"
repl sun with dbs/3
repl mars with dbm/3
repl jup with dbj/3
repl merc with dbme/3
repl moon with dbmo/3
repl ven with dbv/3
repl sat with dbst/3