{"id":13818,"date":"2024-02-23T06:40:58","date_gmt":"2024-02-23T06:40:58","guid":{"rendered":"https:\/\/www.eastrovedica.com\/wordpress\/?p=13818"},"modified":"2024-02-23T06:46:02","modified_gmt":"2024-02-23T06:46:02","slug":"code-for-computation-of-sapta-vargaja-bala","status":"publish","type":"post","link":"https:\/\/www.eastrovedica.com\/wordpress\/?p=13818","title":{"rendered":"Code for Computation of Sapta Vargaja Bala !"},"content":{"rendered":"\n<pre class=\"wp-block-code\"><code>\nUSE SPV\ngo 1\nstore rasi to r1\ndo case \n   case r1 = \"MER\"\n      store 3.75 to sb\n   case r1 = \"SUN\"\n      store 15 to sb\n   case r1 = \"MOO\"\n      store 15 to sb\n   case r1 = \"JUP\"\n      store 15 to sb\n   case r1 = \"VEN\"\n      store 7.5 to sb\n   case r1 = \"SAT\"\n      STORE 7.5 to sb\n   case r1 = \"MAR\"\n      STORE 45 to sb\n endcase\n                        \n                                             \n store hora to r2\n\n do case\n    case r2 = \"MER\"                                         \n       STORE 3.75 to sbh\n    case r2 = \"SUN\"\n       STORE 15 to sbh\n    case r2 = \"MOO\"\n       STORE 15 to sbh\n    case r2 = \"JUP\"\n       store 15 to sbh\n    case r2 = \"VEN\"       \n       store 7.5 to sbh\n    case r2 = \"SAT\"\n       STORE 7.5 to sbh\n    case r2 = 'MAR'\n       STORE 30 TO sbh\n endcase                                            \n                                  \n\n store navamsa to r3                                            \n do case\n    case r3 = \"MER\"                                             \n     STORE 3.75 TO sbn\n    case r3 = \"SUN\"\n     STORE 15 TO SBN\n    CASE r3 = 'MOO'\n     STORE 15 TO SBN\n    CASE R3 = 'JUP'\n     STORE 15 TO SBN\n    CASE R3 = 'VEN'\n     STORE 7.5 TO SBN\n    CASE R3 = 'SAT'\n     STORE 7.5 TO SBN\n    CASE R3 = 'MAR'\n     STORE 30 TO SBN\n ENDCASE\n                                                        \n                                             \n STORE DREKKANA To r4\n do case\n    case r4 = 'MER'\n     STORE 3.75 TO SBD\n    CASE R4 = 'SUN'\n     STORE 15 TO SBD\n    CASE R4 = 'MOO'\n     STORE 15 TO SBD\n    CASE R4 = 'JUP'\n     STORE 15 TO SBD\n    CASE R4 = 'VEN'\n     STORE 7.5 TO SBD\n    CASE R4 = 'SAT'\n     STORE 7.5 TO SBD\n    CASE R4 = 'MAR'\n     STORE 30 TO SBD\n ENDCASE\n                                                    \n                                             \nSTORE SAPTAMSA TO R5\n  DO CASE\n     CASE R5 = 'MER'  \n      STORE 3.75 TO SBS\n     CASE R5 = 'SUN'\n      STORE 15 TO SBS\n     CASE R5 = 'MOO'\n      STORE 15 TO SBS\n     CASE R5 = 'JUP'\n      STORE 15 TO SBS\n     CASE R5 = 'VEN'\n      STORE 7.5 TO SBS\n     CASE R5 = 'SAT'\n      STORE 7.5 TO SBS\n     CASE R5 = 'MAR'\n      STORE 30 TO SBS\n   ENDCASE\n\nSTORE DWADASAMSA TO R6\nDO CASE\n   CASE R6 = \"MER\"\n      STORE 3.75 TO SBDW\n   CASE R6 ='SUN'\n      STORE 15 TO SBDW\n   CASE R6 ='MOO'\n      STORE 15 TO SBDW\n   CASE R6 = 'JUP'\n      STORE 15 TO SBDW\n   CASE R6 = 'VEN'\n      STORE 7.5 TO SBDW\n   CASE R6 = 'SAT'\n      STORE 7.5 TO SBDW\n   CASE R6 = 'MAR'\n      STORE 30 TO SBDW\nENDCASE\n\n                                                                                \n\nSTORE TRIMSAMSA TO R7\nDO CASE\n   CASE R7 = 'MER'\n     STORE 3.75 TO SBT\n   CASE R7 = 'SUN'\n     STORE 15 TO SBT\n   CASE R7 = 'MOO'\n     STORE 15 TO SBT\n   CASE R7 = 'JUP'\n     STORE 15 TO SBT\n   CASE R7 ='VEN'\n     STORE 7.5 TO SBT\n   CASE R7 = 'SAT'              \n     STORE 7.5 TO SBT\n   CASE R7 = 'MAR'\n     STORE 30 TO SBT\nENDCASE\n      \n\nSPM = sb + sbh + sbn + sbd + sbs + sbdw + sbt\n\ngo 2\nstore rasi to j1\n\ndo case\n   case j1 = 'MER'\n     STORE 3.75 TO SJR\n   CASE J1 = 'SUN'\n     STORE 15 TO SJR\n   CASE J1 = 'MOO'\n     STORE 15 TO SJR\n   CASE J1 = 'JUP'\n     STORE 45 TO SJR\n   CASE J1 = 'VEN'\n     STORE 3.75 TO SJR\n   CASE J1 = 'SAT'\n     STORE 7.5 TO SJR\n   CASE J1 = 'MAR'\n     STORE 15 TO SJR\nENDCASE\n                \n\nSTORE HORA TO J2\nDO CASE\n   CASE J2 = 'MER'\n    STORE 3.75 TO SJH\n   CASE J2 ='SUN'\n    STORE 15 TO SJH\n   CASE J2 = 'MOO'\n    STORE 15 TO SJH\n   CASE J2 = 'JUP'\n    STORE 30 TO SJH\n   CASE J2 = 'VEN'\n    STORE 3.75 TO SJH\n   CASE J2 = 'SAT'\n    STORE 7.5 TO SJH\n   CASE J2 = 'MAR'\n    STORE 15 TO SJH\n ENDCASE\n         \n \n STORE NAVAMSA TO J3\n DO CASE\n    CASE J3 = 'MER'\n     STORE 3.75 TO SJN\n    CASE J3 = 'SUN'\n     STORE 15 TO SJN\n    CASE J3 = 'MOO'\n     STORE 15 TO SJN\n    CASE J3 = 'JUP'\n     STORE 30 TO SJN\n    CASE J3 = 'VEN'\n     STORE 3.75 TO SJN\n    CASE J3 = 'SAT'\n     STORE 7.5 TO SJN\n    CASE J3 = 'MAR'\n     STORE 15 TO SJN\n ENDCASE\n         \n \n STORE SAPTAMSA TO J4\n DO CASE\n    CASE J4 = 'MER'\n     STORE 3.75 TO SJS\n    CASE J4 = 'SUN'\n     STORE 15 TO SJS\n    CASE J4 = 'MOO'\n     STORE 15 TO SJS\n    CASE J4 = 'JUP'\n     STORE 30 TO SJS\n    CASE J4 = 'VEN'\n     STORE 3.75 TO SJS    \n    CASE J4 = 'SAT'\n     STORE 7.5 TO SJS\n    CASE J4 = 'MAR'\n     STORE 15 TO SJS\nENDCASE\n       \n\nSTORE DWADASAMSA TO J5\nDO CASE\n   CASE J5 = 'MER'\n    STORE 3.75 TO SJDW\n   CASE J5 = 'SUN'\n    STORE 15 TO SJDW\n   CASE J5 = 'MOO'\n    STORE 15 TO SJDW\n   CASE J5 = 'JUP'\n    STORE 30 TO SJDW\n   CASE J5 = 'VEN'\n    STORE 3.75 TO SJDW\n   CASE J5 = 'SAT'\n    STORE 7.5 TO SJDW\n   CASE J5 = 'MAR'\n    STORE 15 TO SJDW\n ENDCASE\n      \n \n store trimsamsa to j6\n \n do case\n    case j6 = 'MER'\n      STORE 3.75 TO SJT\n    CASE J6 = 'SUN'\n      STORE 15 TO SJT\n    CASE J6 = 'MOO'\n      STORE 15 TO SJT\n    CASE J6 = 'JUP'\n      STORE 30 TO SJT\n    CASE J6 = 'VEN'\n      STORE 3.75 TO SJT\n    CASE J6 = 'SAT'\n      STORE 7.5 TO SJT\n    CASE J6 = 'MAR'\n      STORE 15 TO SJT\n ENDCASE\n                \n \n STORE DREKKANA TO J7\n \n DO CASE\n    CASE J7 = 'MER'\n      STORE 3.75 TO SJD\n    CASE J7 = 'SUN'\n      STORE 15 TO SJD\n    CASE J7 = 'MOO'\n      STORE 15 TO SJD\n    CASE J7 = 'JUP'\n      STORE 30 TO SJD      \n    CASE J7 = 'VEN'\n      STORE 3.75 TO SJD\n    CASE J7 = 'SAT'\n      STORE 7.5 TO SJD\n    CASE J7 = 'MAR'\n      STORE 15 TO SJD\n ENDCASE\n             \n spj = sjr + sjh + sjn + sjs + sjdw + sjt + sjd\n \n go 3\n store rasi to v1\n do case\n    case v1 = 'MER'\n       STORE 15 TO SVR\n    CASE V1 = 'SUN'\n       STORE 3.75 TO SVR\n    CASE V1 = 'MOO'\n       STORE 3.75 TO SVR\n    CASE V1 = 'JUP'\n       STORE 7.5 TO SVR\n    CASE V1 = 'VEN'\n       STORE 30 TO SVR\n    CASE V1 = 'SAT'\n       STORE 15 TO SVR\n    CASE V1 = 'MAR'\n       STORE 7.5 TO SVR\n ENDCASE\n                         \n                          \nstore hora to v2                 \n   do case                          \n      case v2 = 'MER'              \n         STORE 15 TO SVH            \n      CASE V2 = 'SUN'               \n         STORE 3.75 TO SVH          \n      CASE V2 = 'MOO'               \n         STORE 3.75 TO SVH          \n      CASE V2 = 'JUP'               \n         STORE 7.5 TO SVH           \n      CASE V2 = 'VEN'               \n         STORE 30 TO SVH            \n      CASE V2 = 'SAT'               \n         STORE 15 TO SVH            \n      CASE V2 = 'MAR'               \n         STORE 7.5 TO SVH           \n   ENDCASE               \n             \n                     \nstore NAVAMSA to v3                 \n   do case                          \n      case v3 = 'MER'              \n         STORE 15 TO SVN            \n      CASE V3 = 'SUN'               \n         STORE 3.75 TO SVN          \n      CASE V3 = 'MOO'               \n         STORE 3.75 TO SVN          \n      CASE V3 = 'JUP'               \n         STORE 7.5 TO SVN           \n      CASE V3 = 'VEN'               \n         STORE 30 TO SVN            \n      CASE V3 = 'SAT'               \n         STORE 15 TO SVN            \n      CASE V3 = 'MAR'               \n         STORE 7.5 TO SVN           \n   ENDCASE                          \n                          \nstore DREKKANA to v4                 \n   do case                          \n      case v4 = 'MER'              \n         STORE 15 TO SVD            \n      CASE V4 = 'SUN'               \n         STORE 3.75 TO SVD          \n      CASE V4 = 'MOO'               \n         STORE 3.75 TO SVD          \n      CASE V4 = 'JUP'               \n         STORE 7.5 TO SVD           \n      CASE V4 = 'VEN'               \n         STORE 30 TO SVD            \n      CASE V4 = 'SAT'               \n         STORE 15 TO SVD            \n      CASE V4 = 'MAR'               \n         STORE 7.5 TO SVD           \n   ENDCASE                          \n\n                                  \nstore SAPTAMSA to v5             \n     do case                       \n        case v5 = 'MER'            \n           STORE 15 TO SVS         \n        CASE V5 = 'SUN'            \n           STORE 3.75 TO SVS       \n        CASE V5 = 'MOO'            \n           STORE 3.75 TO SVS       \n        CASE V5 = 'JUP'            \n           STORE 7.5 TO SVS        \n        CASE V5 = 'VEN'            \n           STORE 30 TO SVS         \n        CASE V5 = 'SAT'            \n           STORE 15 TO SVS         \n        CASE V5 = 'MAR'            \n           STORE 7.5 TO SVS        \n     ENDCASE                       \n     \n                                    \nstore dwadasamsa to v6             \n      do case                       \n         case v6 = 'MER'            \n            STORE 15 TO SVDW\n         CASE V6 = 'SUN'            \n            STORE 3.75 TO SVDW      \n         CASE V6 = 'MOO'            \n            STORE 3.75 TO SVDW       \n         CASE V6 = 'JUP'            \n            STORE 7.5 TO SVDW        \n         CASE V6 = 'VEN'            \n            STORE 30 TO SVDW         \n         CASE V6 = 'SAT'            \n            STORE 15 TO SVDW         \n         CASE V6 = 'MAR'            \n            STORE 7.5 TO SVDW        \n      ENDCASE                       \n                                \n\n                          \nstore TRIMSAMSA to v7       \n       do case                   \n          case v7 = 'MER'        \n             STORE 15 TO SVT    \n          CASE V7 = 'SUN'        \n             STORE 3.75 TO SVT  \n          CASE V7 = 'MOO'        \n             STORE 3.75 TO SVT  \n          CASE V7 = 'JUP'        \n             STORE 7.5 TO SVT   \n          CASE V7 = 'VEN'        \n             STORE 30 TO SVT    \n          CASE V7 = 'SAT'        \n             STORE 15 TO SVT    \n          CASE V7 = 'MAR'        \n             STORE 7.5 TO SVT   \n       ENDCASE                   \n   \n\nspv = svr + svh + svn + svd + svs +svdw + svt\n                              \n\nGO 4\nSTORE RASI to st1\ndo case \n   case st1 = 'MER'\n      STORE 15 TO STSR\n   CASE ST1 = 'SUN'\n      STORE 3.75 TO STSR\n   CASE ST1 = 'MOO'\n      STORE 3.75 TO STSR\n   CASE ST1 = 'JUP'\n      STORE 7.5 TO STSR\n   CASE ST1 = 'SAT'\n      STORE 30 TO STSR\n   CASE ST1 = 'VEN'\n      STORE 15 TO STSR\n   CASE ST1 = 'MAR'\n      STORE 3.75 TO STSR\nENDCASE\n                   \n         \n                   \nSTORE HORA to st2             \ndo case                       \n   case st2 = 'MER'           \n      STORE 15 TO STSH        \n   CASE ST2 = 'SUN'           \n      STORE 3.75 TO STSH      \n   CASE ST2 = 'MOO'           \n      STORE 3.75 TO STSH      \n   CASE ST2 = 'JUP'           \n      STORE 7.5 TO STSH       \n   CASE ST2 = 'SAT'           \n      STORE 30 TO STSH        \n   CASE ST2 = 'VEN'           \n      STORE 15 TO STSH        \n   CASE ST2 = 'MAR'           \n      STORE 3.75 TO STSH   \nENDCASE                       \n                        \n      \n                    \n                       \nSTORE NAVAMSA to st3             \ndo case                       \n   case st3 = 'MER'           \n      STORE 15 TO STSN        \n   CASE ST3 = 'SUN'           \n      STORE 3.75 TO STSN      \n   CASE ST3 = 'MOO'           \n      STORE 3.75 TO STSN      \n   CASE ST3 = 'JUP'           \n      STORE 7.5 TO STSN       \n   CASE ST3 = 'SAT'           \n      STORE 30 TO STSN        \n   CASE ST3 = 'VEN'           \n      STORE 15 TO STSN        \n   CASE ST3 = 'MAR'           \n      STORE 3.75 TO STSN      \nENDCASE                       \n                        \n      \n                                \n             \n STORE SAPTAMSA to st4           \n do case                        \n    case st4 = 'MER'            \n       STORE 15 TO STSS         \n    CASE ST4 = 'SUN'            \n       STORE 3.75 TO STSS       \n    CASE ST4 = 'MOO'            \n       STORE 3.75 TO STSS       \n    CASE ST4 = 'JUP'            \n       STORE 7.5 TO STSS        \n    CASE ST4 = 'SAT'            \n       STORE 30 TO STSS         \n    CASE ST4 = 'VEN'            \n       STORE 15 TO STSS         \n    CASE ST4 = 'MAR'            \n       STORE 3.75 TO STSS       \n ENDCASE                        \n                         \n                               \n                         \n STORE DREKKANA to st5         \n do case                       \n    case st5 = 'MER'           \n       STORE 15 TO STD        \n    CASE ST5 = 'SUN'           \n       STORE 3.75 TO STD      \n    CASE ST5 = 'MOO'           \n       STORE 3.75 TO STD      \n    CASE ST5 = 'JUP'           \n       STORE 7.5 TO STD       \n    CASE ST5 = 'SAT'           \n       STORE 30 TO STD        \n    CASE ST5 = 'VEN'           \n       STORE 15 TO STD        \n    CASE ST5 = 'MAR'           \n       STORE 3.75 TO STD\nENDCASE\n                                \n\n                            \n STORE DWADASAMSA to st6             \n do case                           \n    case st6 = 'MER'               \n       STORE 15 TO STDW             \n    CASE ST6 = 'SUN'               \n       STORE 3.75 TO STDW           \n    CASE ST6 = 'MOO'               \n       STORE 3.75 TO STDW           \n    CASE ST6 = 'JUP'               \n       STORE 7.5 TO STDW            \n    CASE ST6 = 'SAT'               \n       STORE 30 TO STDW             \n    CASE ST6 = 'VEN'               \n       STORE 15 TO STDW             \n    CASE ST6 = 'MAR'               \n       STORE 3.75 TO STDW           \nENDCASE                            \n                              \n      \nSTORE TRIMSAMSA to st7                   \n do case                                   \n    case st7 = 'MER'                       \n       STORE 15 TO STT                    \n    CASE ST7 = 'SUN'                       \n       STORE 3.75 TO STT                  \n    CASE ST7 = 'MOO'                       \n       STORE 3.75 TO STT                  \n    CASE ST7 = 'JUP'                       \n       STORE 7.5 TO STT                   \n    CASE ST7 = 'SAT'                       \n       STORE 30 TO STT                    \n    CASE ST7 = 'VEN'                       \n       STORE 15 TO STT                    \n    CASE ST7 = 'MAR'\n       STORE 3.75 TO STT                                          \nENDCASE\n    \n\nspst = stsr + stsh + stsn + stss + std + stdw + stt\n\n\ngo 5\nstore rasi to me1\ndo case\n   case me1 = 'MER'\n      STORE 3 TO SMR\n   CASE ME1 = 'SUN'\n      STORE 15 TO SMR\n   CASE ME1 = 'MOO'\n      STORE 3.75 TO SMR\n   CASE ME1 = 'JUP'\n      STORE 7.5 TO SMR\n   CASE ME1 = 'VEN'\n      STORE 22.5 TO SMR\n   CASE ME1 = 'SAT'\n      STORE 7.5 TO SMR\n   CASE ME1 = 'MAR'\n      STORE 7.5 TO SMR\nENDCASE\n                      \n\nstore HORA to me2                    \n  do case                              \n     case me2 = 'MER'                  \n        STORE 3 TO SMH                 \n     CASE ME2 = 'SUN'                  \n        STORE 15 TO SMH                \n     CASE ME2 = 'MOO'                  \n        STORE 3.75 TO SMH              \n     CASE ME2 = 'JUP'                  \n        STORE 7.5 TO SMH               \n     CASE ME2 = 'VEN'                  \n        STORE 22.5 TO SMH              \n     CASE ME2 = 'SAT'                  \n        STORE 7.5 TO SMH               \n     CASE ME2 = 'MAR'                  \n        STORE 7.5 TO SMH               \n  ENDCASE                              \n    \n                                       \n                                          \n  store drekkana to me3                       \n    do case                               \n       case me3 = 'MER'                   \n          STORE 3 TO SMD                  \n       CASE ME3 = 'SUN'                   \n          STORE 15 TO SMD                 \n       CASE ME3 = 'MOO'                   \n          STORE 3.75 TO SMD               \n       CASE ME3 = 'JUP'                   \n          STORE 7.5 TO SMD                \n       CASE ME3 = 'VEN'                   \n          STORE 22.5 TO SMD               \n       CASE ME3 = 'SAT'                   \n          STORE 7.5 TO SMD                \n       CASE ME3 = 'MAR'                   \n          STORE 7.5 TO SMD                \n    ENDCASE\n                                       \n                                   \n store NAVAMSA TO me4                \n   do case                            \n      case me4 = 'MER'                \n         STORE 3 TO SMN               \n      CASE ME4 = 'SUN'                \n         STORE 15 TO SMN              \n      CASE ME4 = 'MOO'                \n         STORE 3.75 TO SMN            \n      CASE ME4 = 'JUP'                \n         STORE 7.5 TO SMN             \n      CASE ME4 = 'VEN'                \n         STORE 22.5 TO SMN            \n      CASE ME4 = 'SAT'                \n         STORE 7.5 TO SMN             \n      CASE ME4 = 'MAR'                \n         STORE 7.5 TO SMN             \n   ENDCASE                            \n  \n\n\n store SAPTAMSA TO me5               \n    do case                          \n       case me5 = 'MER'              \n          STORE 3 TO SMS             \n       CASE ME5 = 'SUN'              \n          STORE 15 TO SMS            \n       CASE ME5 = 'MOO'              \n          STORE 3.75 TO SMS          \n       CASE ME5 = 'JUP'              \n          STORE 7.5 TO SMS           \n       CASE ME5 = 'VEN'              \n          STORE 22.5 TO SMS          \n       CASE ME5 = 'SAT'              \n          STORE 7.5 TO SMS           \n       CASE ME5 = 'MAR'              \n          STORE 7.5 TO SMS           \n   ENDCASE                         \n                                 \nstore DWADASAMSA TO me6               \n   do case                          \n      case me6 = 'MER'              \n         STORE 3 TO SMDW            \n      CASE ME6 = 'SUN'              \n         STORE 15 TO SMDW           \n      CASE ME6 = 'MOO'              \n         STORE 3.75 TO SMDW         \n      CASE ME6 = 'JUP'              \n         STORE 7.5 TO SMDW         \n      CASE ME6 = 'VEN'              \n         STORE 22.5 TO SMDW         \n      CASE ME6 = 'SAT'              \n         STORE 7.5 TO SMDW          \n      CASE ME6 = 'MAR'              \n         STORE 7.5 TO SMDW          \n  ENDCASE                           \n                                            \n                                            \n store TRIMSAMSA TO me7                    \n    do case                                 \n       case me7 = 'MER'                     \n          STORE 3 TO SMT                    \n       CASE ME7 = 'SUN'                     \n          STORE 15 TO SMT                   \n       CASE ME7 = 'MOO'                     \n          STORE 3.75 TO SMT                 \n       CASE ME7 = 'JUP'                     \n          STORE 7.5 TO SMT                  \n       CASE ME7 = 'VEN'                     \n          STORE 22.5 TO SMT                 \n       CASE ME7 = 'SAT'                     \n          STORE 7.5 TO SMT                  \n       CASE ME7 = 'MAR'                     \n          STORE 7.5 TO SMT                  \n   ENDCASE                                  \n          \n\nspme = smr + smh + smd + smn + sms +smdw +smt\n\n                                          \ngo 6\n\nstore rasi to mo1\ndo case \n   case mo1 = 'MER'\n      STORE 15 TO SMOR\n   CASE MO1 = 'SUN'\n      STORE 15 TO SMOR\n   CASE MO1 = 'MOO'\n      STORE 30 TO SMOR\n   CASE MO1 = 'JUP'\n      STORE 7.5 TO SMOR\n   CASE MO1 = 'VEN'\n      STORE 7.5 TO SMOR\n   CASE MO1 = 'SAT'\n      STORE 7.5 TO SMOR\n   CASE MO1 = 'MAR'\n      STORE 7.5 TO SMOR\n ENDCASE\n                        \n \n                                     \nstore HORA to mo2                   \ndo case                             \n   case mo2 = 'MER'                 \n      STORE 15 TO SMOH             \n   CASE MO2 = 'SUN'                 \n      STORE 15 TO SMOH              \n   CASE MO2 = 'MOO'                 \n      STORE 30 TO SMOH              \n   CASE MO2 = 'JUP'                 \n      STORE 7.5 TO SMOH             \n   CASE MO2 = 'VEN'                 \n      STORE 7.5 TO SMOH             \n   CASE MO2 = 'SAT'                 \n      STORE 7.5 TO SMOH             \n   CASE MO2 = 'MAR'                 \n      STORE 7.5 TO SMOH             \n ENDCASE                            \n\n\n                                     \nstore DREKKANA to mo3                    \ndo case                              \n   case mo3 = 'MER'                  \n      STORE 15 TO SMOD               \n   CASE MO3 = 'SUN'                  \n      STORE 15 TO SMOD               \n   CASE MO3 = 'MOO'                  \n      STORE 30 TO SMOD               \n   CASE MO3 = 'JUP'                  \n      STORE 7.5 TO SMOD              \n   CASE MO3 = 'VEN'                  \n      STORE 7.5 TO SMOD              \n   CASE MO3 = 'SAT'                  \n      STORE 7.5 TO SMOD              \n   CASE MO3 = 'MAR'                  \n      STORE 7.5 TO SMOD              \n ENDCASE                             \n  \n                                     \n                                     \nstore SAPTAMSA to mo4                \ndo case                              \n   case mo4 = 'MER'                  \n      STORE 15 TO SMOS               \n   CASE MO4 = 'SUN'                  \n      STORE 15 TO SMOS               \n   CASE MO4 = 'MOO'                  \n      STORE 30 TO SMOS               \n   CASE MO4 = 'JUP'                  \n      STORE 7.5 TO SMOS              \n   CASE MO4 = 'VEN'                  \n      STORE 7.5 TO SMOS              \n   CASE MO4 = 'SAT'                  \n      STORE 7.5 TO SMOS              \n   CASE MO4 = 'MAR'                  \n      STORE 7.5 TO SMOS             \n ENDCASE                             \n\n   \n       \n                                       \n store NAVAMSA to mo5                 \n do case                               \n    case mo5 = 'MER'                   \n       STORE 15 TO SMON                \n    CASE MO5 = 'SUN'                   \n       STORE 15 TO SMON                \n    CASE MO5 = 'MOO'                   \n       STORE 30 TO SMON                \n    CASE MO5 = 'JUP'                   \n       STORE 7.5 TO SMON               \n    CASE MO5 = 'VEN'                   \n       STORE 7.5 TO SMON               \n    CASE MO5 = 'SAT'                   \n       STORE 7.5 TO SMON               \n    CASE MO5 = 'MAR'                   \n       STORE 7.5 TO SMON               \n  ENDCASE                              \n    \n                                       \n                                       \n                                        \n  store DWADASAMSA to mo6                  \n  do case                               \n     case mo6 = 'MER'                   \n        STORE 15 TO SMODW                \n     CASE MO6 = 'SUN'                   \n        STORE 15 TO SMODW               \n     CASE MO6 = 'MOO'                   \n        STORE 30 TO SMODW               \n     CASE MO6 = 'JUP'                   \n        STORE 7.5 TO SMODW              \n     CASE MO6 = 'VEN'                   \n        STORE 7.5 TO SMODW              \n     CASE MO6 = 'SAT'                   \n        STORE 7.5 TO SMODW              \n     CASE MO6 = 'MAR'                   \n        STORE 7.5 TO SMODW              \n   ENDCASE                              \n       \n                                      \n                                         \n store TRIMSAMSA to mo7                 \n do case                                 \n    case mo7 = 'MER'                     \n       STORE 15 TO SMOT                  \n    CASE MO7 = 'SUN'                     \n       STORE 15 TO SMOT                  \n    CASE MO7 = 'MOO'                     \n       STORE 30 TO SMOT                  \n    CASE MO7 = 'JUP'                     \n       STORE 7.5 TO SMOT                 \n    CASE MO7 = 'VEN'                     \n       STORE 7.5 TO SMOT                 \n    CASE MO7 = 'SAT'                     \n       STORE 7.5 TO SMOT                 \n    CASE MO7 = 'MAR'                     \n       STORE 7.5 TO SMOT                 \n  ENDCASE                                \n          \n\nspmo = smor + smoh + smod + smos + smon +smodw +smot\n\n                                         \ngo 7\nstore rasi to su1\ndo case\n   case su1 = 'MER'\n      STORE 7.5 TO SSR\n   CASE SU1 = 'SUN'\n      STORE 30 TO SSR\n   CASE SU1 = 'MOO'\n      STORE 15 TO SSR\n   CASE SU1 = 'JUP'\n      STORE 15 TO SSR\n   CASE SU1 = 'VEN'\n      STORE 3.75 TO SSR\n   CASE SU1 = 'SAT'\n      STORE 3.75 TO SSR\n   CASE SU1 = 'MAR'\n      STORE 15 TO SSR\nENDCASE\nStore HORA to su2                          \n  do case                                    \n     case su2 = 'MER'                        \n        STORE 7.5 TO SSH                     \n     CASE SU2 = 'SUN'                        \n        STORE 30 TO SSH                      \n     CASE SU2 = 'MOO'                        \n        STORE 15 TO SSH                      \n     CASE SU2 = 'JUP'                        \n        STORE 15 TO SSH                      \n     CASE SU2 = 'VEN'                        \n        STORE 3.75 TO SSH                    \n     CASE SU2 = 'SAT'                        \n        STORE 3.75 TO SSH                    \n     CASE SU2 = 'MAR'                        \n        STORE 15 TO SSH                      \n  ENDCASE                                    \n            \n                                             \n                  \n                                          \n  Store DREKKANA to su3                      \n    do case                              \n       case su3 = 'MER'                  \n          STORE 7.5 TO SSD               \n       CASE SU3 = 'SUN'                  \n          STORE 30 TO SSD                \n       CASE SU3 = 'MOO'                  \n          STORE 15 TO SSD                \n       CASE SU3 = 'JUP'                  \n          STORE 15 TO SSD                \n       CASE SU3 = 'VEN'                  \n          STORE 3.75 TO SSD              \n       CASE SU3 = 'SAT'                  \n          STORE 3.75 TO SSD              \n       CASE SU3 = 'MAR'                  \n          STORE 15 TO SSD                \n    ENDCASE                              \n        \n                           \n                                            \n    Store NAVAMSA to su4                   \n      do case                               \n         case su4 = 'MER'                   \n            STORE 7.5 TO SSN                \n         CASE SU4 = 'SUN'                   \n            STORE 30 TO SSN                 \n         CASE SU4 = 'MOO'                   \n            STORE 15 TO SSN                 \n         CASE SU4 = 'JUP'                   \n            STORE 15 TO SSN                 \n         CASE SU4 = 'VEN'                   \n            STORE 3.75 TO SSN               \n         CASE SU4 = 'SAT'                   \n            STORE 3.75 TO SSN               \n         CASE SU4 = 'MAR'                   \n            STORE 15 TO SSN                 \n      ENDCASE                               \n       \n                                            \n              \n  Store SAPTAMSA to su5                   \n        do case                              \n           case su5 = 'MER'                  \n              STORE 7.5 TO SSS               \n           CASE SU5 = 'SUN'                  \n              STORE 30 TO SSS                \n           CASE SU5 = 'MOO'                  \n              STORE 15 TO SSS                \n           CASE SU5 = 'JUP'                  \n              STORE 15 TO SSS                \n           CASE SU5 = 'VEN'                  \n              STORE 3.75 TO SSS              \n           CASE SU5 = 'SAT'                  \n              STORE 3.75 TO SSS              \n           CASE SU5 = 'MAR'                  \n              STORE 15 TO SSS                \n        ENDCASE                              \n                                           \n                                             \n                                           \n    Store DWADASAMSA to su6                 \n          do case                         \n             case SU6 = 'MER'             \n                STORE 7.5 TO SSDW         \n             CASE SU6 = 'SUN'             \n                STORE 30 TO SSDW          \n             CASE SU6 = 'MOO'             \n                STORE 15 TO SSDW          \n             CASE SU6 = 'JUP'             \n                STORE 15 TO SSDW          \n             CASE SU6 = 'VEN'             \n                STORE 3.75 TO SSDW        \n             CASE SU6 = 'SAT'             \n                STORE 3.75 TO SSDW        \n             CASE SU6 = 'MAR'             \n                STORE 15 TO SSDW          \n          ENDCASE                         \n                                     \n                                             \n                                             \n      Store TRIMSAMSA to su7                \n            do case                          \n               case SU7 = 'MER'              \n                  STORE 7.5 TO SST          \n               CASE SU7 = 'SUN'              \n                  STORE 30 TO SST           \n               CASE SU7 = 'MOO'              \n                  STORE 15 TO SST           \n               CASE SU7 = 'JUP'              \n                  STORE 15 TO SST           \n               CASE SU7 = 'VEN'              \n                  STORE 3.75 TO SST         \n               CASE SU7 = 'SAT'              \n                  STORE 3.75 TO SST        \n               CASE SU7 = 'MAR'              \n                  STORE 15 TO SST           \n            ENDCASE                          \n                                 \n\nsps = ssr + sss + ssh + ssd + ssn + ssdw +sst\n\n \nuse shad\nappend blank\nrepl planet with 'SAPTAVARGAJA BALA'\nREPL SUN WITH sps\nrepl moon with spmo\nrepl mars with spm\nrepl merc with spme\nrepl jup with spj\nrepl ven with spv\nrepl sat with spst\n\n\u001a<\/code><\/pre>\n\n\n\n\n\n\n\n\n\n\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-1 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-2 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-3 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-4 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-5 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-gallery has-nested-images columns-default is-cropped wp-block-gallery-6 is-layout-flex wp-block-gallery-is-layout-flex\"><\/figure>\n\n\n\n<figure class=\"wp-block-image\"><img loading=\"lazy\" decoding=\"async\" width=\"824\" height=\"900\" src=\"http:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3.jpg\" alt=\"\" class=\"wp-image-13516\" srcset=\"https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3.jpg 824w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-275x300.jpg 275w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-768x839.jpg 768w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-22x24.jpg 22w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-33x36.jpg 33w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-44x48.jpg 44w, https:\/\/www.eastrovedica.com\/wordpress\/wp-content\/uploads\/2024\/02\/medical3-106x116.jpg 106w\" sizes=\"auto, (max-width: 767px) 89vw, (max-width: 1000px) 54vw, (max-width: 1071px) 543px, 580px\" \/><\/figure>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-13818","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/13818","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=13818"}],"version-history":[{"count":4,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/13818\/revisions"}],"predecessor-version":[{"id":13822,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/13818\/revisions\/13822"}],"wp:attachment":[{"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=13818"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=13818"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.eastrovedica.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=13818"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}