Ind facing intense competition in Medical Tourism !
Karkinos = Crab = Cancer .Oncology Specialists.
Code for Computation of Sapta Vargaja Bala !
USE SPV
go 1
store rasi to r1
do case
case r1 = "MER"
store 3.75 to sb
case r1 = "SUN"
store 15 to sb
case r1 = "MOO"
store 15 to sb
case r1 = "JUP"
store 15 to sb
case r1 = "VEN"
store 7.5 to sb
case r1 = "SAT"
STORE 7.5 to sb
case r1 = "MAR"
STORE 45 to sb
endcase
store hora to r2
do case
case r2 = "MER"
STORE 3.75 to sbh
case r2 = "SUN"
STORE 15 to sbh
case r2 = "MOO"
STORE 15 to sbh
case r2 = "JUP"
store 15 to sbh
case r2 = "VEN"
store 7.5 to sbh
case r2 = "SAT"
STORE 7.5 to sbh
case r2 = 'MAR'
STORE 30 TO sbh
endcase
store navamsa to r3
do case
case r3 = "MER"
STORE 3.75 TO sbn
case r3 = "SUN"
STORE 15 TO SBN
CASE r3 = 'MOO'
STORE 15 TO SBN
CASE R3 = 'JUP'
STORE 15 TO SBN
CASE R3 = 'VEN'
STORE 7.5 TO SBN
CASE R3 = 'SAT'
STORE 7.5 TO SBN
CASE R3 = 'MAR'
STORE 30 TO SBN
ENDCASE
STORE DREKKANA To r4
do case
case r4 = 'MER'
STORE 3.75 TO SBD
CASE R4 = 'SUN'
STORE 15 TO SBD
CASE R4 = 'MOO'
STORE 15 TO SBD
CASE R4 = 'JUP'
STORE 15 TO SBD
CASE R4 = 'VEN'
STORE 7.5 TO SBD
CASE R4 = 'SAT'
STORE 7.5 TO SBD
CASE R4 = 'MAR'
STORE 30 TO SBD
ENDCASE
STORE SAPTAMSA TO R5
DO CASE
CASE R5 = 'MER'
STORE 3.75 TO SBS
CASE R5 = 'SUN'
STORE 15 TO SBS
CASE R5 = 'MOO'
STORE 15 TO SBS
CASE R5 = 'JUP'
STORE 15 TO SBS
CASE R5 = 'VEN'
STORE 7.5 TO SBS
CASE R5 = 'SAT'
STORE 7.5 TO SBS
CASE R5 = 'MAR'
STORE 30 TO SBS
ENDCASE
STORE DWADASAMSA TO R6
DO CASE
CASE R6 = "MER"
STORE 3.75 TO SBDW
CASE R6 ='SUN'
STORE 15 TO SBDW
CASE R6 ='MOO'
STORE 15 TO SBDW
CASE R6 = 'JUP'
STORE 15 TO SBDW
CASE R6 = 'VEN'
STORE 7.5 TO SBDW
CASE R6 = 'SAT'
STORE 7.5 TO SBDW
CASE R6 = 'MAR'
STORE 30 TO SBDW
ENDCASE
STORE TRIMSAMSA TO R7
DO CASE
CASE R7 = 'MER'
STORE 3.75 TO SBT
CASE R7 = 'SUN'
STORE 15 TO SBT
CASE R7 = 'MOO'
STORE 15 TO SBT
CASE R7 = 'JUP'
STORE 15 TO SBT
CASE R7 ='VEN'
STORE 7.5 TO SBT
CASE R7 = 'SAT'
STORE 7.5 TO SBT
CASE R7 = 'MAR'
STORE 30 TO SBT
ENDCASE
SPM = sb + sbh + sbn + sbd + sbs + sbdw + sbt
go 2
store rasi to j1
do case
case j1 = 'MER'
STORE 3.75 TO SJR
CASE J1 = 'SUN'
STORE 15 TO SJR
CASE J1 = 'MOO'
STORE 15 TO SJR
CASE J1 = 'JUP'
STORE 45 TO SJR
CASE J1 = 'VEN'
STORE 3.75 TO SJR
CASE J1 = 'SAT'
STORE 7.5 TO SJR
CASE J1 = 'MAR'
STORE 15 TO SJR
ENDCASE
STORE HORA TO J2
DO CASE
CASE J2 = 'MER'
STORE 3.75 TO SJH
CASE J2 ='SUN'
STORE 15 TO SJH
CASE J2 = 'MOO'
STORE 15 TO SJH
CASE J2 = 'JUP'
STORE 30 TO SJH
CASE J2 = 'VEN'
STORE 3.75 TO SJH
CASE J2 = 'SAT'
STORE 7.5 TO SJH
CASE J2 = 'MAR'
STORE 15 TO SJH
ENDCASE
STORE NAVAMSA TO J3
DO CASE
CASE J3 = 'MER'
STORE 3.75 TO SJN
CASE J3 = 'SUN'
STORE 15 TO SJN
CASE J3 = 'MOO'
STORE 15 TO SJN
CASE J3 = 'JUP'
STORE 30 TO SJN
CASE J3 = 'VEN'
STORE 3.75 TO SJN
CASE J3 = 'SAT'
STORE 7.5 TO SJN
CASE J3 = 'MAR'
STORE 15 TO SJN
ENDCASE
STORE SAPTAMSA TO J4
DO CASE
CASE J4 = 'MER'
STORE 3.75 TO SJS
CASE J4 = 'SUN'
STORE 15 TO SJS
CASE J4 = 'MOO'
STORE 15 TO SJS
CASE J4 = 'JUP'
STORE 30 TO SJS
CASE J4 = 'VEN'
STORE 3.75 TO SJS
CASE J4 = 'SAT'
STORE 7.5 TO SJS
CASE J4 = 'MAR'
STORE 15 TO SJS
ENDCASE
STORE DWADASAMSA TO J5
DO CASE
CASE J5 = 'MER'
STORE 3.75 TO SJDW
CASE J5 = 'SUN'
STORE 15 TO SJDW
CASE J5 = 'MOO'
STORE 15 TO SJDW
CASE J5 = 'JUP'
STORE 30 TO SJDW
CASE J5 = 'VEN'
STORE 3.75 TO SJDW
CASE J5 = 'SAT'
STORE 7.5 TO SJDW
CASE J5 = 'MAR'
STORE 15 TO SJDW
ENDCASE
store trimsamsa to j6
do case
case j6 = 'MER'
STORE 3.75 TO SJT
CASE J6 = 'SUN'
STORE 15 TO SJT
CASE J6 = 'MOO'
STORE 15 TO SJT
CASE J6 = 'JUP'
STORE 30 TO SJT
CASE J6 = 'VEN'
STORE 3.75 TO SJT
CASE J6 = 'SAT'
STORE 7.5 TO SJT
CASE J6 = 'MAR'
STORE 15 TO SJT
ENDCASE
STORE DREKKANA TO J7
DO CASE
CASE J7 = 'MER'
STORE 3.75 TO SJD
CASE J7 = 'SUN'
STORE 15 TO SJD
CASE J7 = 'MOO'
STORE 15 TO SJD
CASE J7 = 'JUP'
STORE 30 TO SJD
CASE J7 = 'VEN'
STORE 3.75 TO SJD
CASE J7 = 'SAT'
STORE 7.5 TO SJD
CASE J7 = 'MAR'
STORE 15 TO SJD
ENDCASE
spj = sjr + sjh + sjn + sjs + sjdw + sjt + sjd
go 3
store rasi to v1
do case
case v1 = 'MER'
STORE 15 TO SVR
CASE V1 = 'SUN'
STORE 3.75 TO SVR
CASE V1 = 'MOO'
STORE 3.75 TO SVR
CASE V1 = 'JUP'
STORE 7.5 TO SVR
CASE V1 = 'VEN'
STORE 30 TO SVR
CASE V1 = 'SAT'
STORE 15 TO SVR
CASE V1 = 'MAR'
STORE 7.5 TO SVR
ENDCASE
store hora to v2
do case
case v2 = 'MER'
STORE 15 TO SVH
CASE V2 = 'SUN'
STORE 3.75 TO SVH
CASE V2 = 'MOO'
STORE 3.75 TO SVH
CASE V2 = 'JUP'
STORE 7.5 TO SVH
CASE V2 = 'VEN'
STORE 30 TO SVH
CASE V2 = 'SAT'
STORE 15 TO SVH
CASE V2 = 'MAR'
STORE 7.5 TO SVH
ENDCASE
store NAVAMSA to v3
do case
case v3 = 'MER'
STORE 15 TO SVN
CASE V3 = 'SUN'
STORE 3.75 TO SVN
CASE V3 = 'MOO'
STORE 3.75 TO SVN
CASE V3 = 'JUP'
STORE 7.5 TO SVN
CASE V3 = 'VEN'
STORE 30 TO SVN
CASE V3 = 'SAT'
STORE 15 TO SVN
CASE V3 = 'MAR'
STORE 7.5 TO SVN
ENDCASE
store DREKKANA to v4
do case
case v4 = 'MER'
STORE 15 TO SVD
CASE V4 = 'SUN'
STORE 3.75 TO SVD
CASE V4 = 'MOO'
STORE 3.75 TO SVD
CASE V4 = 'JUP'
STORE 7.5 TO SVD
CASE V4 = 'VEN'
STORE 30 TO SVD
CASE V4 = 'SAT'
STORE 15 TO SVD
CASE V4 = 'MAR'
STORE 7.5 TO SVD
ENDCASE
store SAPTAMSA to v5
do case
case v5 = 'MER'
STORE 15 TO SVS
CASE V5 = 'SUN'
STORE 3.75 TO SVS
CASE V5 = 'MOO'
STORE 3.75 TO SVS
CASE V5 = 'JUP'
STORE 7.5 TO SVS
CASE V5 = 'VEN'
STORE 30 TO SVS
CASE V5 = 'SAT'
STORE 15 TO SVS
CASE V5 = 'MAR'
STORE 7.5 TO SVS
ENDCASE
store dwadasamsa to v6
do case
case v6 = 'MER'
STORE 15 TO SVDW
CASE V6 = 'SUN'
STORE 3.75 TO SVDW
CASE V6 = 'MOO'
STORE 3.75 TO SVDW
CASE V6 = 'JUP'
STORE 7.5 TO SVDW
CASE V6 = 'VEN'
STORE 30 TO SVDW
CASE V6 = 'SAT'
STORE 15 TO SVDW
CASE V6 = 'MAR'
STORE 7.5 TO SVDW
ENDCASE
store TRIMSAMSA to v7
do case
case v7 = 'MER'
STORE 15 TO SVT
CASE V7 = 'SUN'
STORE 3.75 TO SVT
CASE V7 = 'MOO'
STORE 3.75 TO SVT
CASE V7 = 'JUP'
STORE 7.5 TO SVT
CASE V7 = 'VEN'
STORE 30 TO SVT
CASE V7 = 'SAT'
STORE 15 TO SVT
CASE V7 = 'MAR'
STORE 7.5 TO SVT
ENDCASE
spv = svr + svh + svn + svd + svs +svdw + svt
GO 4
STORE RASI to st1
do case
case st1 = 'MER'
STORE 15 TO STSR
CASE ST1 = 'SUN'
STORE 3.75 TO STSR
CASE ST1 = 'MOO'
STORE 3.75 TO STSR
CASE ST1 = 'JUP'
STORE 7.5 TO STSR
CASE ST1 = 'SAT'
STORE 30 TO STSR
CASE ST1 = 'VEN'
STORE 15 TO STSR
CASE ST1 = 'MAR'
STORE 3.75 TO STSR
ENDCASE
STORE HORA to st2
do case
case st2 = 'MER'
STORE 15 TO STSH
CASE ST2 = 'SUN'
STORE 3.75 TO STSH
CASE ST2 = 'MOO'
STORE 3.75 TO STSH
CASE ST2 = 'JUP'
STORE 7.5 TO STSH
CASE ST2 = 'SAT'
STORE 30 TO STSH
CASE ST2 = 'VEN'
STORE 15 TO STSH
CASE ST2 = 'MAR'
STORE 3.75 TO STSH
ENDCASE
STORE NAVAMSA to st3
do case
case st3 = 'MER'
STORE 15 TO STSN
CASE ST3 = 'SUN'
STORE 3.75 TO STSN
CASE ST3 = 'MOO'
STORE 3.75 TO STSN
CASE ST3 = 'JUP'
STORE 7.5 TO STSN
CASE ST3 = 'SAT'
STORE 30 TO STSN
CASE ST3 = 'VEN'
STORE 15 TO STSN
CASE ST3 = 'MAR'
STORE 3.75 TO STSN
ENDCASE
STORE SAPTAMSA to st4
do case
case st4 = 'MER'
STORE 15 TO STSS
CASE ST4 = 'SUN'
STORE 3.75 TO STSS
CASE ST4 = 'MOO'
STORE 3.75 TO STSS
CASE ST4 = 'JUP'
STORE 7.5 TO STSS
CASE ST4 = 'SAT'
STORE 30 TO STSS
CASE ST4 = 'VEN'
STORE 15 TO STSS
CASE ST4 = 'MAR'
STORE 3.75 TO STSS
ENDCASE
STORE DREKKANA to st5
do case
case st5 = 'MER'
STORE 15 TO STD
CASE ST5 = 'SUN'
STORE 3.75 TO STD
CASE ST5 = 'MOO'
STORE 3.75 TO STD
CASE ST5 = 'JUP'
STORE 7.5 TO STD
CASE ST5 = 'SAT'
STORE 30 TO STD
CASE ST5 = 'VEN'
STORE 15 TO STD
CASE ST5 = 'MAR'
STORE 3.75 TO STD
ENDCASE
STORE DWADASAMSA to st6
do case
case st6 = 'MER'
STORE 15 TO STDW
CASE ST6 = 'SUN'
STORE 3.75 TO STDW
CASE ST6 = 'MOO'
STORE 3.75 TO STDW
CASE ST6 = 'JUP'
STORE 7.5 TO STDW
CASE ST6 = 'SAT'
STORE 30 TO STDW
CASE ST6 = 'VEN'
STORE 15 TO STDW
CASE ST6 = 'MAR'
STORE 3.75 TO STDW
ENDCASE
STORE TRIMSAMSA to st7
do case
case st7 = 'MER'
STORE 15 TO STT
CASE ST7 = 'SUN'
STORE 3.75 TO STT
CASE ST7 = 'MOO'
STORE 3.75 TO STT
CASE ST7 = 'JUP'
STORE 7.5 TO STT
CASE ST7 = 'SAT'
STORE 30 TO STT
CASE ST7 = 'VEN'
STORE 15 TO STT
CASE ST7 = 'MAR'
STORE 3.75 TO STT
ENDCASE
spst = stsr + stsh + stsn + stss + std + stdw + stt
go 5
store rasi to me1
do case
case me1 = 'MER'
STORE 3 TO SMR
CASE ME1 = 'SUN'
STORE 15 TO SMR
CASE ME1 = 'MOO'
STORE 3.75 TO SMR
CASE ME1 = 'JUP'
STORE 7.5 TO SMR
CASE ME1 = 'VEN'
STORE 22.5 TO SMR
CASE ME1 = 'SAT'
STORE 7.5 TO SMR
CASE ME1 = 'MAR'
STORE 7.5 TO SMR
ENDCASE
store HORA to me2
do case
case me2 = 'MER'
STORE 3 TO SMH
CASE ME2 = 'SUN'
STORE 15 TO SMH
CASE ME2 = 'MOO'
STORE 3.75 TO SMH
CASE ME2 = 'JUP'
STORE 7.5 TO SMH
CASE ME2 = 'VEN'
STORE 22.5 TO SMH
CASE ME2 = 'SAT'
STORE 7.5 TO SMH
CASE ME2 = 'MAR'
STORE 7.5 TO SMH
ENDCASE
store drekkana to me3
do case
case me3 = 'MER'
STORE 3 TO SMD
CASE ME3 = 'SUN'
STORE 15 TO SMD
CASE ME3 = 'MOO'
STORE 3.75 TO SMD
CASE ME3 = 'JUP'
STORE 7.5 TO SMD
CASE ME3 = 'VEN'
STORE 22.5 TO SMD
CASE ME3 = 'SAT'
STORE 7.5 TO SMD
CASE ME3 = 'MAR'
STORE 7.5 TO SMD
ENDCASE
store NAVAMSA TO me4
do case
case me4 = 'MER'
STORE 3 TO SMN
CASE ME4 = 'SUN'
STORE 15 TO SMN
CASE ME4 = 'MOO'
STORE 3.75 TO SMN
CASE ME4 = 'JUP'
STORE 7.5 TO SMN
CASE ME4 = 'VEN'
STORE 22.5 TO SMN
CASE ME4 = 'SAT'
STORE 7.5 TO SMN
CASE ME4 = 'MAR'
STORE 7.5 TO SMN
ENDCASE
store SAPTAMSA TO me5
do case
case me5 = 'MER'
STORE 3 TO SMS
CASE ME5 = 'SUN'
STORE 15 TO SMS
CASE ME5 = 'MOO'
STORE 3.75 TO SMS
CASE ME5 = 'JUP'
STORE 7.5 TO SMS
CASE ME5 = 'VEN'
STORE 22.5 TO SMS
CASE ME5 = 'SAT'
STORE 7.5 TO SMS
CASE ME5 = 'MAR'
STORE 7.5 TO SMS
ENDCASE
store DWADASAMSA TO me6
do case
case me6 = 'MER'
STORE 3 TO SMDW
CASE ME6 = 'SUN'
STORE 15 TO SMDW
CASE ME6 = 'MOO'
STORE 3.75 TO SMDW
CASE ME6 = 'JUP'
STORE 7.5 TO SMDW
CASE ME6 = 'VEN'
STORE 22.5 TO SMDW
CASE ME6 = 'SAT'
STORE 7.5 TO SMDW
CASE ME6 = 'MAR'
STORE 7.5 TO SMDW
ENDCASE
store TRIMSAMSA TO me7
do case
case me7 = 'MER'
STORE 3 TO SMT
CASE ME7 = 'SUN'
STORE 15 TO SMT
CASE ME7 = 'MOO'
STORE 3.75 TO SMT
CASE ME7 = 'JUP'
STORE 7.5 TO SMT
CASE ME7 = 'VEN'
STORE 22.5 TO SMT
CASE ME7 = 'SAT'
STORE 7.5 TO SMT
CASE ME7 = 'MAR'
STORE 7.5 TO SMT
ENDCASE
spme = smr + smh + smd + smn + sms +smdw +smt
go 6
store rasi to mo1
do case
case mo1 = 'MER'
STORE 15 TO SMOR
CASE MO1 = 'SUN'
STORE 15 TO SMOR
CASE MO1 = 'MOO'
STORE 30 TO SMOR
CASE MO1 = 'JUP'
STORE 7.5 TO SMOR
CASE MO1 = 'VEN'
STORE 7.5 TO SMOR
CASE MO1 = 'SAT'
STORE 7.5 TO SMOR
CASE MO1 = 'MAR'
STORE 7.5 TO SMOR
ENDCASE
store HORA to mo2
do case
case mo2 = 'MER'
STORE 15 TO SMOH
CASE MO2 = 'SUN'
STORE 15 TO SMOH
CASE MO2 = 'MOO'
STORE 30 TO SMOH
CASE MO2 = 'JUP'
STORE 7.5 TO SMOH
CASE MO2 = 'VEN'
STORE 7.5 TO SMOH
CASE MO2 = 'SAT'
STORE 7.5 TO SMOH
CASE MO2 = 'MAR'
STORE 7.5 TO SMOH
ENDCASE
store DREKKANA to mo3
do case
case mo3 = 'MER'
STORE 15 TO SMOD
CASE MO3 = 'SUN'
STORE 15 TO SMOD
CASE MO3 = 'MOO'
STORE 30 TO SMOD
CASE MO3 = 'JUP'
STORE 7.5 TO SMOD
CASE MO3 = 'VEN'
STORE 7.5 TO SMOD
CASE MO3 = 'SAT'
STORE 7.5 TO SMOD
CASE MO3 = 'MAR'
STORE 7.5 TO SMOD
ENDCASE
store SAPTAMSA to mo4
do case
case mo4 = 'MER'
STORE 15 TO SMOS
CASE MO4 = 'SUN'
STORE 15 TO SMOS
CASE MO4 = 'MOO'
STORE 30 TO SMOS
CASE MO4 = 'JUP'
STORE 7.5 TO SMOS
CASE MO4 = 'VEN'
STORE 7.5 TO SMOS
CASE MO4 = 'SAT'
STORE 7.5 TO SMOS
CASE MO4 = 'MAR'
STORE 7.5 TO SMOS
ENDCASE
store NAVAMSA to mo5
do case
case mo5 = 'MER'
STORE 15 TO SMON
CASE MO5 = 'SUN'
STORE 15 TO SMON
CASE MO5 = 'MOO'
STORE 30 TO SMON
CASE MO5 = 'JUP'
STORE 7.5 TO SMON
CASE MO5 = 'VEN'
STORE 7.5 TO SMON
CASE MO5 = 'SAT'
STORE 7.5 TO SMON
CASE MO5 = 'MAR'
STORE 7.5 TO SMON
ENDCASE
store DWADASAMSA to mo6
do case
case mo6 = 'MER'
STORE 15 TO SMODW
CASE MO6 = 'SUN'
STORE 15 TO SMODW
CASE MO6 = 'MOO'
STORE 30 TO SMODW
CASE MO6 = 'JUP'
STORE 7.5 TO SMODW
CASE MO6 = 'VEN'
STORE 7.5 TO SMODW
CASE MO6 = 'SAT'
STORE 7.5 TO SMODW
CASE MO6 = 'MAR'
STORE 7.5 TO SMODW
ENDCASE
store TRIMSAMSA to mo7
do case
case mo7 = 'MER'
STORE 15 TO SMOT
CASE MO7 = 'SUN'
STORE 15 TO SMOT
CASE MO7 = 'MOO'
STORE 30 TO SMOT
CASE MO7 = 'JUP'
STORE 7.5 TO SMOT
CASE MO7 = 'VEN'
STORE 7.5 TO SMOT
CASE MO7 = 'SAT'
STORE 7.5 TO SMOT
CASE MO7 = 'MAR'
STORE 7.5 TO SMOT
ENDCASE
spmo = smor + smoh + smod + smos + smon +smodw +smot
go 7
store rasi to su1
do case
case su1 = 'MER'
STORE 7.5 TO SSR
CASE SU1 = 'SUN'
STORE 30 TO SSR
CASE SU1 = 'MOO'
STORE 15 TO SSR
CASE SU1 = 'JUP'
STORE 15 TO SSR
CASE SU1 = 'VEN'
STORE 3.75 TO SSR
CASE SU1 = 'SAT'
STORE 3.75 TO SSR
CASE SU1 = 'MAR'
STORE 15 TO SSR
ENDCASE
Store HORA to su2
do case
case su2 = 'MER'
STORE 7.5 TO SSH
CASE SU2 = 'SUN'
STORE 30 TO SSH
CASE SU2 = 'MOO'
STORE 15 TO SSH
CASE SU2 = 'JUP'
STORE 15 TO SSH
CASE SU2 = 'VEN'
STORE 3.75 TO SSH
CASE SU2 = 'SAT'
STORE 3.75 TO SSH
CASE SU2 = 'MAR'
STORE 15 TO SSH
ENDCASE
Store DREKKANA to su3
do case
case su3 = 'MER'
STORE 7.5 TO SSD
CASE SU3 = 'SUN'
STORE 30 TO SSD
CASE SU3 = 'MOO'
STORE 15 TO SSD
CASE SU3 = 'JUP'
STORE 15 TO SSD
CASE SU3 = 'VEN'
STORE 3.75 TO SSD
CASE SU3 = 'SAT'
STORE 3.75 TO SSD
CASE SU3 = 'MAR'
STORE 15 TO SSD
ENDCASE
Store NAVAMSA to su4
do case
case su4 = 'MER'
STORE 7.5 TO SSN
CASE SU4 = 'SUN'
STORE 30 TO SSN
CASE SU4 = 'MOO'
STORE 15 TO SSN
CASE SU4 = 'JUP'
STORE 15 TO SSN
CASE SU4 = 'VEN'
STORE 3.75 TO SSN
CASE SU4 = 'SAT'
STORE 3.75 TO SSN
CASE SU4 = 'MAR'
STORE 15 TO SSN
ENDCASE
Store SAPTAMSA to su5
do case
case su5 = 'MER'
STORE 7.5 TO SSS
CASE SU5 = 'SUN'
STORE 30 TO SSS
CASE SU5 = 'MOO'
STORE 15 TO SSS
CASE SU5 = 'JUP'
STORE 15 TO SSS
CASE SU5 = 'VEN'
STORE 3.75 TO SSS
CASE SU5 = 'SAT'
STORE 3.75 TO SSS
CASE SU5 = 'MAR'
STORE 15 TO SSS
ENDCASE
Store DWADASAMSA to su6
do case
case SU6 = 'MER'
STORE 7.5 TO SSDW
CASE SU6 = 'SUN'
STORE 30 TO SSDW
CASE SU6 = 'MOO'
STORE 15 TO SSDW
CASE SU6 = 'JUP'
STORE 15 TO SSDW
CASE SU6 = 'VEN'
STORE 3.75 TO SSDW
CASE SU6 = 'SAT'
STORE 3.75 TO SSDW
CASE SU6 = 'MAR'
STORE 15 TO SSDW
ENDCASE
Store TRIMSAMSA to su7
do case
case SU7 = 'MER'
STORE 7.5 TO SST
CASE SU7 = 'SUN'
STORE 30 TO SST
CASE SU7 = 'MOO'
STORE 15 TO SST
CASE SU7 = 'JUP'
STORE 15 TO SST
CASE SU7 = 'VEN'
STORE 3.75 TO SST
CASE SU7 = 'SAT'
STORE 3.75 TO SST
CASE SU7 = 'MAR'
STORE 15 TO SST
ENDCASE
sps = ssr + sss + ssh + ssd + ssn + ssdw +sst
use shad
append blank
repl planet with 'SAPTAVARGAJA BALA'
REPL SUN WITH sps
repl moon with spmo
repl mars with spm
repl merc with spme
repl jup with spj
repl ven with spv
repl sat with spst
