OJAYUGMARASYAMSA BALA ****
RASI BALA****
USE PP
GO 1
STORE RNO to o1
if o1 = 1 .or. o1 = 3 .or. o1 = 5 .or. o1 = 7 .or. o1 = 9 .OR. o1 = 11
store 15 to osun
else
store 0 to osun
endif
?”OY BALA OF SUN”, osun
go 2
store rno to o2
if o2 = 1 .or. o2 = 3 .or. o2 = 5 .or. o2 = 7 .or. o2 = 9
store 15 to omar
else
store 0 to omar
endif
?”OY BALA OF MARS”,omar
go 3
store rno to o3
if o3 = 1 .or. o3 = 3 .or. o3 = 5 .or. o3 = 7 .or. o3 = 9
store 15 to ojup
else
store 0 to ojup
endif
?”OY BALA OF JUP”,ojup
go 4
store rno to o4
if o4 = 1 .or. o4 = 3 .or. o4 = 5 .or. o4 = 7 .or. o4 = 9
store 0 to oven
else
store 15 to oven
endif
?”OY BALA OF VEN”, OVEN
go 5
store rno to o5
if o5 = 1 .or. o5 = 3 .or. o5 = 5 .or. o5 = 7 .or. o5 = 9
store 15 to osat
else
store 0 to osat
endif
?”OY BALA OF SAT”,OSAT
go 6
store rno to o6
if o6 = 1 .or. o6 = 3 .or. o6 = 5 .or. o6 = 7 .or. o6 = 9
store 15 to omer
else
store 0 to omer
endif
?”OY BALA OF MERC”, omer
go 7
store rno to o7
if o7 = 1 .or. o7 = 3 .or. o7 = 5 .or. o7 = 7 .or. o7 = 9
store 0 to omoo
else
store 15 to omoo
endif
?”OY BALA OF MOON”, omoo
