*******Kendra Bala****************
use pp
locate for planet = 'LAGNA'
Store rno to lno
go 1
store rno to sno
bno = sno-lno+1
if bno = 0
bno = 12
endif
if SIGN(bno) = -1
bno = 12 + bno
endif
do case
case bno = 1 .or. bno = 4 .or. bno = 7 .or. bno = 10
store 60 to kbsun
case bno = 2 .or. bno = 5 .or. bno = 8 .or. bno = 11
store 30 to kbsun
case bno = 3 .or. bno = 6 .or. bno = 9 .or. bno = 12
store 15 to kbsun
endcase
go 2
store rno to mno
bmno = mno - lno +1
if bmno = 0
bmno = 12
endif
if SIGN(bmno) = -1
bmno = 12 + bmno
endif
do case
case bmno = 1 .or. bmno = 4 .or. bmno = 7 .or. bmno = 10
store 60 to kbmars
case bmno = 2 .or. bmno = 5 .or. bmno = 8 .or. bmno = 11
store 30 to kbmars
case bmno = 3 .or. bmno = 6 .or. bmno = 9 .or. bmno = 12
store 15 to kbmars
endcase
go 3
store rno to jno
bjno = jno - lno +1
if bjno = 0
bjno = 12
endif
if SIGN(bjno) = -1
bjno = 12 +bjno
endif
do case
case bjno = 1 .or. bjno = 4 .or. bjno = 7 .or. bjno = 10
store 60 to kbjup
case bjno = 2 .or. bjno = 5 .or. bjno = 8 .or. bjno = 11
store 30 to kbjup
case bjno = 3 .or. bjno = 6 .or. bjno = 9 .or. bjno = 12
store 15 to kbjup
endcase
go 4
store rno to vno
bvno = vno - lno +1
if bvno = 0
bvno = 12
endif
if SIGN(bvno) = -1
bvno = 12 + bvno
endif
kbven = space(2)
do case
case bvno = 1 .or. bvno = 4 .or. bvno = 7 .or. bvno = 10
store 60 to kbven
case bvno = 2 .or. bvno = 5 .or. bvno = 8 .or. bvno = 11
store 30 to kbven
case bvno = 3 .or. bvno = 6 .or. bvno = 9 .or. bvno = 12
store 15 to kbven
endcase
go 5
store rno to stno
bstno = stno - lno +1
if bstno = 0
bstno = 12
endif
if SIGN(bstno) = -1
bstno = 12 + bstno
endif
do case
case bstno = 1 .or. bstno = 4 .or. bstno = 7 .or. bstno = 10
store 60 to kbsat
case bstno = 2 .or. bstno = 5 .or. bstno = 8 .or. bstno = 11
store 30 to kbsat
case bstno = 3 .or. bstno = 6 .or. bstno = 9 .or. bstno = 12
store 15 to kbsat
endcase
go 6
store rno to buno
bdno = buno -lno +1
if bdno = 0
bdno = 12
endif
if SIGN(bdno) = -1
bdno = 12 + bdno
endif
kbmer = space(2)
do case
case bdno = 1 .or. bdno = 4 .or. bdno = 7 .or. bdno = 10
store 60 to kbmer
case bdno = 2 .or. bdno = 5 .or. bdno = 8 .or. bdno = 11
store 30 to kbmer
case bdno = 3 .or. bdno = 6 .or. bdno = 9 .or. bdno = 12
store 15 to kbmer
endcase
go 7
store rno to mono
bmono = mono-lno+1
if bmono = 0
bmono = 12
endif
if SIGN(bmono) = -1
bmono = 12 + bmono
endif
do case
case bmono = 1 .or. bmono = 4 .or. bmono = 7 .or. bmono = 10
store 60 to kbmoo
case bmono = 2 .or. bmono = 5 .or. bmono = 8 .or. bmono = 11
store 30 to kbmoo
case bmono = 3 .or. bmono = 6 .or. bmono = 9 .or. bmono = 12
store 15 to kbmoo
endcase
****************************
