« previous next »
Pages: [1] 2 3   Go Down

Author Topic: Still need help on my horoscope program  (Read 4319 times)

0 Members and 1 Guest are viewing this topic.

Offline DDBE

  • Newbie
  • Posts: 26
    • View Profile
Still need help on my horoscope program
« on: June 05, 2020, 03:07:25 am »
Okay, so this is about my horoscope program that some of you may already know about from Discord. I've taken the past few weeks to translate it from German to English without messing anything up. I've decided to take it to the forums because of the rather ephemeral nature of Discord where everything disappears within hours and gets hard to navigate back to.

First off, I'd like to thank Felippe for his warm welcome on Discord, and I think [banned user] was also helpful with this program so far. Even while he's probably the grumpiest person on the Discord server, the most coding magic help came from Luke.

I still maintain that in case you guys haven't yet, you ought really document this form of MS Excel-style table sorting for QB64 in a simple form that Luke came up with. There's next to nothing googleable to tell people how to sort tables in QB *OR* old BASIC, at the very least nothing I could remotely understand, and when you google for something like this, many results come up telling you it would be just impossible to do in QB, but Luke did make it work.

Okay, without any further ado, this is what it looks like by now:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(200, 70, 0)
  2.  
  4.  
  5. sun$ = "Aquarius"
  6. sun_House = 4
  7. moon$ = "Aries"
  8. moon_House = 6
  9. ascendent$ = "Scorpio"
  10. MC$ = "Leo"
  11. mercury$ = "Aquarius"
  12. mercury_House = 3
  13. Venus$ = "Pisces"
  14. venus_House = 5
  15. Mars$ = "Pisces"
  16. mars_House = 5
  17. Jupiter$ = "Sagittarius"
  18. jupiter_House = 2
  19. Saturn$ = "Scorpio"
  20. saturn_House = 1
  21. Chiron$ = "Taurus"
  22. chiron_House = 7
  23. Uranus$ = "Sagittarius"
  24. uranus_House = 2
  25. neptune$ = "Sagittarius"
  26. neptunee_House = 2
  27. Pluto$ = "Libra"
  28. pluto_House = 12
  29. moon_Node$ = "Capricorn"
  30. moon_node_House = 3
  31. Lilith$ = "Aquarius"
  32. lilith_House = 4
  33.  
  34. DIM house(12) AS INTEGER 'Defining 12 houses that numerical values can be added to which can be subjected to mathematical operations.
  35. house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
  36. house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
  37. house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
  38. house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
  39. house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
  40. house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
  41. house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
  42. house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
  43. house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
  44. house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
  45. house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
  46. house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
  47. house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
  48.  
  50.     CASE "Aries"
  51.         fire = fire + 12
  52.         aries_Value = aries_Value + 12
  53.         cardinals = cardinals + 12
  54.     CASE "Taurus"
  55.         earth = earth + 12
  56.         taurus_Value = taurus_Value + 12
  57.         fixed = fixed + 12
  58.     CASE "Gemini"
  59.         air = air + 12
  60.         gemini_Value = gemini_Value + 12
  61.         mutable = mutable + 12
  62.     CASE "Cancer"
  63.         water = water + 12
  64.         cancer_Value = cancer_Value + 12
  65.         cardinals = cardinals + 12
  66.     CASE "Leo"
  67.         fire = fire + 12
  68.         leo_Value = leo_Value + 12
  69.         fixed = fixed + 12
  70.     CASE "Virgo"
  71.         earth = earth + 12
  72.         virgo_Value = virgo_Value + 12
  73.         mutable = mutable + 12
  74.     CASE "Libra"
  75.         air = air + 12
  76.         libra_Value = libra_Value + 12
  77.         cardinals = cardinals + 12
  78.     CASE "Scorpio"
  79.         water = water + 12
  80.         scorpio_Value = scorpio_Value + 12
  81.         fixed = fixed + 12
  82.     CASE "Sagittarius"
  83.         fire = fire + 12
  84.         sagittarius_Value = sagittarius_Value + 12
  85.         mutable = mutable + 12
  86.     CASE "Capricorn"
  87.         earth = earth + 12
  88.         capricorn_Value = capricorn_Value + 12
  89.         cardinals = cardinals + 12
  90.     CASE "Aquarius"
  91.         air = air + 12
  92.         Aquarius_Value = Aquarius_Value + 12
  93.         fixed = fixed + 12
  94.     CASE "Pisces"
  95.         water = water + 12
  96.         pisces_Value = pisces_Value + 12
  97.         mutable = mutable + 12
  99.  
  100. SELECT CASE moon$
  101.     CASE "Aries"
  102.         fire = fire + 12
  103.         aries_Value = aries_Value + 12
  104.         cardinals = cardinals + 12
  105.     CASE "Taurus"
  106.         earth = earth + 12
  107.         taurus_Value = taurus_Value + 12
  108.         fixed = fixed + 12
  109.     CASE "Gemini"
  110.         air = air + 12
  111.         gemini_Value = gemini_Value + 12
  112.         mutable = mutable + 12
  113.     CASE "Cancer"
  114.         water = water + 12
  115.         cancer_Value = cancer_Value + 12
  116.         cardinals = cardinals + 12
  117.     CASE "Leo"
  118.         fire = fire + 12
  119.         leo_Value = leo_Value + 12
  120.         fixed = fixed + 12
  121.     CASE "Virgo"
  122.         earth = earth + 12
  123.         virgo_Value = virgo_Value + 12
  124.         mutable = mutable + 12
  125.     CASE "Libra"
  126.         air = air + 12
  127.         libra_Value = libra_Value + 12
  128.         cardinals = cardinals + 12
  129.     CASE "Scorpio"
  130.         water = water + 12
  131.         scorpio_Value = scorpio_Value + 12
  132.         fixed = fixed + 12
  133.     CASE "Sagittarius"
  134.         fire = fire + 12
  135.         sagittarius_Value = sagittarius_Value + 12
  136.         mutable = mutable + 12
  137.     CASE "Capricorn"
  138.         earth = earth + 12
  139.         capricorn_Value = capricorn_Value + 12
  140.         cardinals = cardinals + 12
  141.     CASE "Aquarius"
  142.         air = air + 12
  143.         Aquarius_Value = Aquarius_Value + 12
  144.         fixed = fixed + 12
  145.     CASE "Pisces"
  146.         water = water + 12
  147.         pisces_Value = pisces_Value + 12
  148.         mutable = mutable + 12
  150.  
  151. SELECT CASE ascendent$
  152.     CASE "Aries"
  153.         fire = fire + 12
  154.         aries_Value = aries_Value + 12
  155.         cardinals = cardinals + 12
  156.         IF mars_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  157.         IF mars_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  158.         IF mars_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  159.         IF mars_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  160.         IF mars_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  161.         IF mars_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  162.         IF mars_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  163.         IF mars_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  164.         IF mars_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  165.         IF mars_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  166.         IF mars_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  167.         IF mars_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  168.     CASE "Taurus"
  169.         earth = earth + 12
  170.         taurus_Value = taurus_Value + 12
  171.         fixed = fixed + 12
  172.         IF chiron_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  173.         IF chiron_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  174.         IF chiron_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  175.         IF chiron_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  176.         IF chiron_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  177.         IF chiron_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  178.         IF chiron_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  179.         IF chiron_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  180.         IF chiron_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  181.         IF chiron_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  182.         IF chiron_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  183.         IF chiron_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  184.     CASE "Gemini"
  185.         air = air + 12
  186.         gemini_Value = gemini_Value + 12
  187.         mutable = mutable + 12
  188.         IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  189.         IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  190.         IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  191.         IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  192.         IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  193.         IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  194.         IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  195.         IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  196.         IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  197.         IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  198.         IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  199.         IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  200.     CASE "Cancer"
  201.         water = water + 12
  202.         cancer_Value = cancer_Value + 12
  203.         cardinals = cardinals + 12
  204.         IF moon_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  205.         IF moon_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  206.         IF moon_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  207.         IF moon_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  208.         IF moon_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  209.         IF moon_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  210.         IF moon_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  211.         IF moon_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  212.         IF moon_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  213.         IF moon_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  214.         IF moon_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  215.         IF moon_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  216.     CASE "Leo"
  217.         fire = fire + 12
  218.         leo_Value = leo_Value + 12
  219.         fixed = fixed + 12
  220.         IF sun_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  221.         IF sun_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  222.         IF sun_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  223.         IF sun_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  224.         IF sun_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  225.         IF sun_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  226.         IF sun_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  227.         IF sun_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  228.         IF sun_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  229.         IF sun_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  230.         IF sun_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  231.         IF sun_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  232.     CASE "Virgo"
  233.         earth = earth + 12
  234.         virgo_Value = virgo_Value + 12
  235.         mutable = mutable + 12
  236.         IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  237.         IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  238.         IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  239.         IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  240.         IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  241.         IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  242.         IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  243.         IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  244.         IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  245.         IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  246.         IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  247.         IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  248.     CASE "Libra"
  249.         air = air + 12
  250.         libra_Value = libra_Value + 12
  251.         cardinals = cardinals + 12
  252.         IF venus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  253.         IF venus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  254.         IF venus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  255.         IF venus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  256.         IF venus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  257.         IF venus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  258.         IF venus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  259.         IF venus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  260.         IF venus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  261.         IF venus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  262.         IF venus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  263.         IF venus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  264.     CASE "Scorpio"
  265.         water = water + 12
  266.         scorpio_Value = scorpio_Value + 12
  267.         fixed = fixed + 12
  268.         IF pluto_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  269.         IF pluto_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  270.         IF pluto_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  271.         IF pluto_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  272.         IF pluto_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  273.         IF pluto_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  274.         IF pluto_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  275.         IF pluto_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  276.         IF pluto_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  277.         IF pluto_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  278.         IF pluto_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  279.         IF pluto_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  280.     CASE "Sagittarius"
  281.         fire = fire + 12
  282.         sagittarius_Value = sagittarius_Value + 12
  283.         mutable = mutable + 12
  284.         IF jupiter_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  285.         IF jupiter_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  286.         IF jupiter_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  287.         IF jupiter_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  288.         IF jupiter_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  289.         IF jupiter_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  290.         IF jupiter_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  291.         IF jupiter_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  292.         IF jupiter_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  293.         IF jupiter_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  294.         IF jupiter_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  295.         IF jupiter_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  296.     CASE "Capricorn"
  297.         earth = earth + 12
  298.         capricorn_Value = capricorn_Value + 12
  299.         cardinals = cardinals + 12
  300.         IF saturn_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  301.         IF saturn_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  302.         IF saturn_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  303.         IF saturn_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  304.         IF saturn_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  305.         IF saturn_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  306.         IF saturn_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  307.         IF saturn_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  308.         IF saturn_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  309.         IF saturn_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  310.         IF saturn_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  311.         IF saturn_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  312.     CASE "Aquarius"
  313.         air = air + 12
  314.         Aquarius_Value = Aquarius_Value + 12
  315.         fixed = fixed + 12
  316.         IF uranus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  317.         IF uranus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  318.         IF uranus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  319.         IF uranus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  320.         IF uranus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  321.         IF uranus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  322.         IF uranus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  323.         IF uranus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  324.         IF uranus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  325.         IF uranus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  326.         IF uranus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  327.         IF uranus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  328.     CASE "Pisces"
  329.         water = water + 12
  330.         pisces_Value = pisces_Value + 12
  331.         mutable = mutable + 12
  332.         IF neptunee_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  333.         IF neptunee_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  334.         IF neptunee_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  335.         IF neptunee_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  336.         IF neptunee_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  337.         IF neptunee_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  338.         IF neptunee_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  339.         IF neptunee_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  340.         IF neptunee_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  341.         IF neptunee_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  342.         IF neptunee_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  343.         IF neptunee_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  345.  
  346. SELECT CASE mercury$
  347.     CASE "Aries"
  348.         fire = fire + 6
  349.         aries_Value = aries_Value + 6
  350.         cardinals = cardinals + 6
  351.     CASE "Taurus"
  352.         earth = earth + 6
  353.         taurus_Value = taurus_Value + 6
  354.         fixed = fixed + 6
  355.     CASE "Gemini"
  356.         air = air + 6
  357.         gemini_Value = gemini_Value + 6
  358.         mutable = mutable + 6
  359.     CASE "Cancer"
  360.         water = water + 6
  361.         cancer_Value = cancer_Value + 6
  362.         cardinals = cardinals + 6
  363.     CASE "Leo"
  364.         fire = fire + 6
  365.         leo_Value = leo_Value + 6
  366.         fixed = fixed + 6
  367.     CASE "Virgo"
  368.         earth = earth + 6
  369.         virgo_Value = virgo_Value + 6
  370.         mutable = mutable + 6
  371.     CASE "Libra"
  372.         air = air + 6
  373.         libra_Value = libra_Value + 6
  374.         cardinals = cardinals + 6
  375.     CASE "Scorpio"
  376.         water = water + 6
  377.         scorpio_Value = scorpio_Value + 6
  378.         fixed = fixed + 6
  379.     CASE "Sagittarius"
  380.         fire = fire + 6
  381.         sagittarius_Value = sagittarius_Value + 6
  382.         mutable = mutable + 6
  383.     CASE "Capricorn"
  384.         earth = earth + 6
  385.         capricorn_Value = capricorn_Value + 6
  386.         cardinals = cardinals + 6
  387.     CASE "Aquarius"
  388.         air = air + 6
  389.         Aquarius_Value = Aquarius_Value + 6
  390.         fixed = fixed + 6
  391.     CASE "Pisces"
  392.         water = water + 6
  393.         pisces_Value = pisces_Value + 6
  394.         mutable = mutable + 6
  396.  
  397. SELECT CASE Venus$
  398.     CASE "Aries"
  399.         fire = fire + 6
  400.         aries_Value = aries_Value + 6
  401.         cardinals = cardinals + 6
  402.     CASE "Taurus"
  403.         earth = earth + 6
  404.         taurus_Value = taurus_Value + 6
  405.         fixed = fixed + 6
  406.     CASE "Gemini"
  407.         air = air + 6
  408.         gemini_Value = gemini_Value + 6
  409.         mutable = mutable + 6
  410.     CASE "Cancer"
  411.         water = water + 6
  412.         cancer_Value = cancer_Value + 6
  413.         cardinals = cardinals + 6
  414.     CASE "Leo"
  415.         fire = fire + 6
  416.         leo_Value = leo_Value + 6
  417.         fixed = fixed + 6
  418.     CASE "Virgo"
  419.         earth = earth + 6
  420.         virgo_Value = virgo_Value + 6
  421.         mutable = mutable + 6
  422.     CASE "Libra"
  423.         air = air + 6
  424.         libra_Value = libra_Value + 6
  425.         cardinals = cardinals + 6
  426.     CASE "Scorpio"
  427.         water = water + 6
  428.         scorpio_Value = scorpio_Value + 6
  429.         fixed = fixed + 5
  430.     CASE "Sagittarius"
  431.         fire = fire + 6
  432.         sagittarius_Value = sagittarius_Value + 6
  433.         mutable = mutable + 6
  434.     CASE "Capricorn"
  435.         earth = earth + 6
  436.         capricorn_Value = capricorn_Value + 6
  437.         cardinals = cardinals + 6
  438.     CASE "Aquarius"
  439.         air = air + 6
  440.         Aquarius_Value = Aquarius_Value + 6
  441.         fixed = fixed + 6
  442.     CASE "Pisces"
  443.         water = water + 6
  444.         pisces_Value = pisces_Value + 6
  445.         mutable = mutable + 6
  447.  
  448. SELECT CASE Mars$
  449.     CASE "Aries"
  450.         fire = fire + 5
  451.         aries_Value = aries_Value + 5
  452.         cardinals = cardinals + 5
  453.     CASE "Taurus"
  454.         earth = earth + 5
  455.         taurus_Value = taurus_Value + 5
  456.         fixed = fixed + 5
  457.     CASE "Gemini"
  458.         air = air + 5
  459.         gemini_Value = gemini_Value + 5
  460.         mutable = mutable + 5
  461.     CASE "Cancer"
  462.         water = water + 5
  463.         cancer_Value = cancer_Value + 5
  464.         cardinals = cardinals + 5
  465.     CASE "Leo"
  466.         fire = fire + 5
  467.         leo_Value = leo_Value + 5
  468.         fixed = fixed + 5
  469.     CASE "Virgo"
  470.         earth = earth + 5
  471.         virgo_Value = virgo_Value + 5
  472.         mutable = mutable + 5
  473.     CASE "Libra"
  474.         air = air + 5
  475.         libra_Value = libra_Value + 5
  476.         cardinals = cardinals + 5
  477.     CASE "Scorpio"
  478.         water = water + 5
  479.         scorpio_Value = scorpio_Value + 5
  480.         fixed = fixed + 5
  481.     CASE "Sagittarius"
  482.         fire = fire + 5
  483.         sagittarius_Value = sagittarius_Value + 5
  484.         mutable = mutable + 5
  485.     CASE "Capricorn"
  486.         earth = earth + 5
  487.         capricorn_Value = capricorn_Value + 5
  488.         cardinals = cardinals + 5
  489.     CASE "Aquarius"
  490.         air = air + 5
  491.         Aquarius_Value = Aquarius_Value + 5
  492.         fixed = fixed + 5
  493.     CASE "Pisces"
  494.         water = water + 5
  495.         pisces_Value = pisces_Value + 5
  496.         mutable = mutable + 5
  498.  
  499. SELECT CASE Jupiter$
  500.     CASE "Aries"
  501.         fire = fire + 5
  502.         aries_Value = aries_Value + 5
  503.         cardinals = cardinals + 5
  504.     CASE "Taurus"
  505.         earth = earth + 5
  506.         taurus_Value = taurus_Value + 5
  507.         fixed = fixed + 5
  508.     CASE "Gemini"
  509.         air = air + 5
  510.         gemini_Value = gemini_Value + 5
  511.         mutable = mutable + 5
  512.     CASE "Cancer"
  513.         water = water + 5
  514.         cancer_Value = cancer_Value + 5
  515.         cardinals = cardinals + 5
  516.     CASE "Leo"
  517.         fire = fire + 5
  518.         leo_Value = leo_Value + 5
  519.         fixed = fixed + 5
  520.     CASE "Virgo"
  521.         earth = earth + 5
  522.         virgo_Value = virgo_Value + 5
  523.         mutable = mutable + 5
  524.     CASE "Libra"
  525.         air = air + 5
  526.         libra_Value = libra_Value + 5
  527.         cardinals = cardinals + 5
  528.     CASE "Scorpio"
  529.         water = water + 5
  530.         scorpio_Value = scorpio_Value + 5
  531.         fixed = fixed + 5
  532.     CASE "Sagittarius"
  533.         fire = fire + 5
  534.         sagittarius_Value = sagittarius_Value + 5
  535.         mutable = mutable + 5
  536.     CASE "Capricorn"
  537.         earth = earth + 5
  538.         capricorn_Value = capricorn_Value + 5
  539.         cardinals = cardinals + 5
  540.     CASE "Aquarius"
  541.         air = air + 5
  542.         Aquarius_Value = Aquarius_Value + 5
  543.         fixed = fixed + 5
  544.     CASE "Pisces"
  545.         water = water + 5
  546.         pisces_Value = pisces_Value + 5
  547.         mutable = mutable + 5
  549.  
  550. SELECT CASE Saturn$
  551.     CASE "Aries"
  552.         fire = fire + 5
  553.         aries_Value = aries_Value + 5
  554.         cardinals = cardinals + 5
  555.     CASE "Taurus"
  556.         earth = earth + 5
  557.         taurus_Value = taurus_Value + 5
  558.         fixed = fixed + 5
  559.     CASE "Gemini"
  560.         air = air + 5
  561.         gemini_Value = gemini_Value + 5
  562.         mutable = mutable + 5
  563.     CASE "Cancer"
  564.         water = water + 5
  565.         cancer_Value = cancer_Value + 5
  566.         cardinals = cardinals + 5
  567.     CASE "Leo"
  568.         fire = fire + 5
  569.         leo_Value = leo_Value + 5
  570.         fixed = fixed + 5
  571.     CASE "Virgo"
  572.         earth = earth + 5
  573.         virgo_Value = virgo_Value + 5
  574.         mutable = mutable + 5
  575.     CASE "Libra"
  576.         air = air + 5
  577.         libra_Value = libra_Value + 5
  578.         cardinals = cardinals + 5
  579.     CASE "Scorpio"
  580.         water = water + 5
  581.         scorpio_Value = scorpio_Value + 5
  582.         fixed = fixed + 5
  583.     CASE "Sagittarius"
  584.         fire = fire + 5
  585.         sagittarius_Value = sagittarius_Value + 5
  586.         mutable = mutable + 5
  587.     CASE "Capricorn"
  588.         earth = earth + 5
  589.         capricorn_Value = capricorn_Value + 5
  590.         cardinals = cardinals + 5
  591.     CASE "Aquarius"
  592.         air = air + 5
  593.         Aquarius_Value = Aquarius_Value + 5
  594.         fixed = fixed + 5
  595.     CASE "Pisces"
  596.         water = water + 5
  597.         pisces_Value = pisces_Value + 5
  598.         mutable = mutable + 5
  600.  
  602.     CASE "Aries"
  603.         fire = fire + 5
  604.         aries_Value = aries_Value + 5
  605.         cardinals = cardinals + 5
  606.     CASE "Taurus"
  607.         earth = earth + 5
  608.         taurus_Value = taurus_Value + 5
  609.         fixed = fixed + 5
  610.     CASE "Gemini"
  611.         air = air + 5
  612.         gemini_Value = gemini_Value + 5
  613.         mutable = mutable + 5
  614.     CASE "Cancer"
  615.         water = water + 5
  616.         cancer_Value = cancer_Value + 5
  617.         cardinals = cardinals + 5
  618.     CASE "Leo"
  619.         fire = fire + 5
  620.         leo_Value = leo_Value + 5
  621.         fixed = fixed + 5
  622.     CASE "Virgo"
  623.         earth = earth + 5
  624.         virgo_Value = virgo_Value + 5
  625.         mutable = mutable + 5
  626.     CASE "Libra"
  627.         air = air + 5
  628.         libra_Value = libra_Value + 5
  629.         cardinals = cardinals + 5
  630.     CASE "Scorpio"
  631.         water = water + 5
  632.         scorpio_Value = scorpio_Value + 5
  633.         fixed = fixed + 5
  634.     CASE "Sagittarius"
  635.         fire = fire + 5
  636.         sagittarius_Value = sagittarius_Value + 5
  637.         mutable = mutable + 5
  638.     CASE "Capricorn"
  639.         earth = earth + 5
  640.         capricorn_Value = capricorn_Value + 5
  641.         cardinals = cardinals + 5
  642.     CASE "Aquarius"
  643.         air = air + 5
  644.         Aquarius_Value = Aquarius_Value + 5
  645.         fixed = fixed + 5
  646.     CASE "Pisces"
  647.         water = water + 5
  648.         pisces_Value = pisces_Value + 5
  649.         mutable = mutable + 5
  651.  
  652. SELECT CASE Chiron$
  653.     CASE "Aries"
  654.         fire = fire + 2
  655.         aries_Value = aries_Value + 2
  656.         cardinals = cardinals + 2
  657.     CASE "Taurus"
  658.         earth = earth + 2
  659.         taurus_Value = taurus_Value + 2
  660.         fixed = fixed + 2
  661.     CASE "Gemini"
  662.         air = air + 2
  663.         gemini_Value = gemini_Value + 2
  664.         mutable = mutable + 2
  665.     CASE "Cancer"
  666.         water = water + 2
  667.         cancer_Value = cancer_Value + 2
  668.         cardinals = cardinals + 2
  669.     CASE "Leo"
  670.         fire = fire + 2
  671.         leo_Value = leo_Value + 2
  672.         fixed = fixed + 2
  673.     CASE "Virgo"
  674.         earth = earth + 2
  675.         virgo_Value = virgo_Value + 2
  676.         mutable = mutable + 2
  677.     CASE "Libra"
  678.         air = air + 2
  679.         libra_Value = libra_Value + 2
  680.         cardinals = cardinals + 2
  681.     CASE "Scorpio"
  682.         water = water + 2
  683.         scorpio_Value = scorpio_Value + 2
  684.         fixed = fixed + 2
  685.     CASE "Sagittarius"
  686.         fire = fire + 2
  687.         sagittarius_Value = sagittarius_Value + 2
  688.         mutable = mutable + 2
  689.     CASE "Capricorn"
  690.         earth = earth + 2
  691.         capricorn_Value = capricorn_Value + 2
  692.         cardinals = cardinals + 2
  693.     CASE "Aquarius"
  694.         air = air + 2
  695.         Aquarius_Value = Aquarius_Value + 2
  696.         fixed = fixed + 2
  697.     CASE "Pisces"
  698.         water = water + 2
  699.         pisces_Value = pisces_Value + 2
  700.         mutable = mutable + 2
  702.  
  703. SELECT CASE Uranus$
  704.     CASE "Aries"
  705.         fire = fire + 2
  706.         aries_Value = aries_Value + 2
  707.         cardinals = cardinals + 2
  708.     CASE "Taurus"
  709.         earth = earth + 2
  710.         taurus_Value = taurus_Value + 2
  711.         fixed = fixed + 2
  712.     CASE "Gemini"
  713.         air = air + 2
  714.         gemini_Value = gemini_Value + 2
  715.         mutable = mutable + 2
  716.     CASE "Cancer"
  717.         water = water + 2
  718.         cancer_Value = cancer_Value + 2
  719.         cardinals = cardinals + 2
  720.     CASE "Leo"
  721.         fire = fire + 2
  722.         leo_Value = leo_Value + 2
  723.         fixed = fixed + 2
  724.     CASE "Virgo"
  725.         earth = earth + 2
  726.         virgo_Value = virgo_Value + 2
  727.         mutable = mutable + 2
  728.     CASE "Libra"
  729.         air = air + 2
  730.         libra_Value = libra_Value + 2
  731.         cardinals = cardinals + 2
  732.     CASE "Scorpio"
  733.         water = water + 2
  734.         scorpio_Value = scorpio_Value + 2
  735.         fixed = fixed + 2
  736.     CASE "Sagittarius"
  737.         fire = fire + 2
  738.         sagittarius_Value = sagittarius_Value + 2
  739.         mutable = mutable + 2
  740.     CASE "Capricorn"
  741.         earth = earth + 2
  742.         capricorn_Value = capricorn_Value + 2
  743.         cardinals = cardinals + 2
  744.     CASE "Aquarius"
  745.         air = air + 2
  746.         Aquarius_Value = Aquarius_Value + 2
  747.         fixed = fixed + 2
  748.     CASE "Pisces"
  749.         water = water + 2
  750.         pisces_Value = pisces_Value + 2
  751.         mutable = mutable + 2
  753.  
  754. SELECT CASE neptune$
  755.     CASE "Aries"
  756.         fire = fire + 2
  757.         aries_Value = aries_Value + 2
  758.         cardinals = cardinals + 2
  759.     CASE "Taurus"
  760.         earth = earth + 2
  761.         taurus_Value = taurus_Value + 2
  762.         fixed = fixed + 2
  763.     CASE "Gemini"
  764.         air = air + 2
  765.         gemini_Value = gemini_Value + 2
  766.         mutable = mutable + 2
  767.     CASE "Cancer"
  768.         water = water + 2
  769.         cancer_Value = cancer_Value + 2
  770.         cardinals = cardinals + 2
  771.     CASE "Leo"
  772.         fire = fire + 2
  773.         leo_Value = leo_Value + 2
  774.         fixed = fixed + 2
  775.     CASE "Virgo"
  776.         earth = earth + 2
  777.         virgo_Value = virgo_Value + 2
  778.         mutable = mutable + 2
  779.     CASE "Libra"
  780.         air = air + 2
  781.         libra_Value = libra_Value + 2
  782.         cardinals = cardinals + 2
  783.     CASE "Scorpio"
  784.         water = water + 2
  785.         scorpio_Value = scorpio_Value + 2
  786.         fixed = fixed + 2
  787.     CASE "Sagittarius"
  788.         fire = fire + 2
  789.         sagittarius_Value = sagittarius_Value + 2
  790.         mutable = mutable + 2
  791.     CASE "Capricorn"
  792.         earth = earth + 2
  793.         capricorn_Value = capricorn_Value + 2
  794.         cardinals = cardinals + 2
  795.     CASE "Aquarius"
  796.         air = air + 2
  797.         Aquarius_Value = Aquarius_Value + 2
  798.         fixed = fixed + 2
  799.     CASE "Pisces"
  800.         water = water + 2
  801.         pisces_Value = pisces_Value + 2
  802.         mutable = mutable + 2
  804.  
  805. SELECT CASE Pluto$
  806.     CASE "Aries"
  807.         fire = fire + 2
  808.         aries_Value = aries_Value + 2
  809.         cardinals = cardinals + 2
  810.     CASE "Taurus"
  811.         earth = earth + 2
  812.         taurus_Value = taurus_Value + 2
  813.         fixed = fixed + 2
  814.     CASE "Gemini"
  815.         air = air + 2
  816.         gemini_Value = gemini_Value + 2
  817.         mutable = mutable + 2
  818.     CASE "Cancer"
  819.         water = water + 2
  820.         cancer_Value = cancer_Value + 2
  821.         cardinals = cardinals + 2
  822.     CASE "Leo"
  823.         fire = fire + 2
  824.         leo_Value = leo_Value + 2
  825.         fixed = fixed + 2
  826.     CASE "Virgo"
  827.         earth = earth + 2
  828.         virgo_Value = virgo_Value + 2
  829.         mutable = mutable + 2
  830.     CASE "Libra"
  831.         air = air + 2
  832.         libra_Value = libra_Value + 2
  833.         cardinals = cardinals + 2
  834.     CASE "Scorpio"
  835.         water = water + 2
  836.         scorpio_Value = scorpio_Value + 2
  837.         fixed = fixed + 2
  838.     CASE "Sagittarius"
  839.         fire = fire + 2
  840.         sagittarius_Value = sagittarius_Value + 2
  841.         mutable = mutable + 2
  842.     CASE "Capricorn"
  843.         earth = earth + 2
  844.         capricorn_Value = capricorn_Value + 2
  845.         cardinals = cardinals + 2
  846.     CASE "Aquarius"
  847.         air = air + 2
  848.         Aquarius_Value = Aquarius_Value + 2
  849.         fixed = fixed + 2
  850.     CASE "Pisces"
  851.         water = water + 2
  852.         pisces_Value = pisces_Value + 2
  853.         mutable = mutable + 2
  855.  
  856. SELECT CASE moon_Node$
  857.     CASE "Aries"
  858.         fire = fire + 2
  859.         aries_Value = aries_Value + 2
  860.         cardinals = cardinals + 2
  861.     CASE "Taurus"
  862.         earth = earth + 2
  863.         taurus_Value = taurus_Value + 2
  864.         fixed = fixed + 2
  865.     CASE "Gemini"
  866.         air = air + 2
  867.         gemini_Value = gemini_Value + 2
  868.         mutable = mutable + 2
  869.     CASE "Cancer"
  870.         water = water + 2
  871.         cancer_Value = cancer_Value + 2
  872.         cardinals = cardinals + 2
  873.     CASE "Leo"
  874.         fire = fire + 2
  875.         leo_Value = leo_Value + 2
  876.         fixed = fixed + 2
  877.     CASE "Virgo"
  878.         earth = earth + 2
  879.         virgo_Value = virgo_Value + 2
  880.         mutable = mutable + 2
  881.     CASE "Libra"
  882.         air = air + 2
  883.         libra_Value = libra_Value + 2
  884.         cardinals = cardinals + 2
  885.     CASE "Scorpio"
  886.         water = water + 2
  887.         scorpio_Value = scorpio_Value + 2
  888.         fixed = fixed + 2
  889.     CASE "Sagittarius"
  890.         fire = fire + 2
  891.         sagittarius_Value = sagittarius_Value + 2
  892.         mutable = mutable + 2
  893.     CASE "Capricorn"
  894.         earth = earth + 2
  895.         capricorn_Value = capricorn_Value + 2
  896.         cardinals = cardinals + 2
  897.     CASE "Aquarius"
  898.         air = air + 2
  899.         Aquarius_Value = Aquarius_Value + 2
  900.         fixed = fixed + 2
  901.     CASE "Pisces"
  902.         water = water + 2
  903.         pisces_Value = pisces_Value + 2
  904.         mutable = mutable + 2
  906.  
  907. SELECT CASE Lilith$
  908.     CASE "Aries"
  909.         fire = fire + 1
  910.         aries_Value = aries_Value + 1
  911.         cardinals = cardinals + 1
  912.     CASE "Taurus"
  913.         earth = earth + 1
  914.         taurus_Value = taurus_Value + 1
  915.         fixed = fixed + 1
  916.     CASE "Gemini"
  917.         air = air + 1
  918.         gemini_Value = gemini_Value + 1
  919.         mutable = mutable + 1
  920.     CASE "Cancer"
  921.         water = water + 1
  922.         cancer_Value = cancer_Value + 1
  923.         cardinals = cardinals + 1
  924.     CASE "Leo"
  925.         fire = fire + 1
  926.         leo_Value = leo_Value + 1
  927.         fixed = fixed + 1
  928.     CASE "Virgo"
  929.         earth = earth + 1
  930.         virgo_Value = virgo_Value + 1
  931.         mutable = mutable + 1
  932.     CASE "Libra"
  933.         air = air + 1
  934.         libra_Value = libra_Value + 1
  935.         cardinals = cardinals + 1
  936.     CASE "Scorpio"
  937.         water = water + 1
  938.         scorpio_Value = scorpio_Value + 1
  939.         fixed = fixed + 1
  940.     CASE "Sagittarius"
  941.         fire = fire + 1
  942.         sagittarius_Value = sagittarius_Value + 1
  943.         mutable = mutable + 1
  944.     CASE "Capricorn"
  945.         earth = earth + 1
  946.         capricorn_Value = capricorn_Value + 1
  947.         cardinals = cardinals + 1
  948.     CASE "Aquarius"
  949.         air = air + 1
  950.         Aquarius_Value = Aquarius_Value + 1
  951.         fixed = fixed + 1
  952.     CASE "Pisces"
  953.         water = water + 1
  954.         pisces_Value = pisces_Value + 1
  955.         mutable = mutable + 1
  957.  
  958. elements = earth + fire + water + air
  959. Earth_Percentage = 100 / elements * earth
  960. Fire_Percentage# = 100 / elements * fire
  961. Water_Percentage# = 100 / elements * water
  962. Air_Percentage# = 100 / elements * air
  963.  
  964. Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
  965. Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
  966. Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
  967. Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
  968.  
  969. qualities = cardinals + fixed + mutable
  970. cardinal_Percentage# = 100 / qualities * cardinals
  971. fixed_Percentage# = 100 / qualities * fixed
  972. mutable_Percentage# = 100 / qualities * mutable
  973.  
  974. cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
  975. fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
  976. mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
  977.  
  978. all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
  979. Aries_Percentage = 100 / all_Signs * aries_Value
  980. Taurus_Percentage = 100 / all_Signs * taurus_Value
  981. Gemini_Percentage = 100 / all_Signs * gemini_Value
  982. Cancer_Percentage = 100 / all_Signs * cancer_Value
  983. Leo_Percentage = 100 / all_Signs * leo_Value
  984. Virgo_Percentage = 100 / all_Signs * virgo_Value
  985. Libra_Percentage = 100 / all_Signs * libra_Value
  986. Scorpio_Percentage = 100 / all_Signs * scorpio_Value
  987. Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
  988. Capricorn_Percentage = 100 / all_Signs * capricorn_Value
  989. Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
  990. Pisces_Percentage = 100 / all_Signs * pisces_Value
  991.  
  992. Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
  993. Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
  994. Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
  995. Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
  996. Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
  997. Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
  998. Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
  999. Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
  1000. Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
  1001. Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
  1002. Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
  1003. Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
  1004.  
  1005. all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
  1006. house1_Percentage = 100 / all_Houses * house(1)
  1007. house2_Percentage = 100 / all_Houses * house(2)
  1008. house3_Percentage = 100 / all_Houses * house(3)
  1009. house4_Percentage = 100 / all_Houses * house(4)
  1010. house5_Percentage = 100 / all_Houses * house(5)
  1011. house6_Percentage = 100 / all_Houses * house(6)
  1012. house7_Percentage = 100 / all_Houses * house(7)
  1013. house8_Percentage = 100 / all_Houses * house(8)
  1014. house9_Percentage = 100 / all_Houses * house(9)
  1015. house10_Percentage = 100 / all_Houses * house(10)
  1016. house11_Percentage = 100 / all_Houses * house(11)
  1017. house12_Percentage = 100 / all_Houses * house(12)
  1018.  
  1019. house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
  1020. house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
  1021. house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
  1022. house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
  1023. house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
  1024. house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
  1025. house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
  1026. house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
  1027. house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
  1028. house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
  1029. house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
  1030. house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
  1031.  
  1032. largest = 0
  1033. IF aries_Value > largest THEN largest = aries_Value: dom_Sign$ = "Aries"
  1034. IF taurus_Value > largest THEN largest = taurus_Value: dom_Sign$ = "Taurus"
  1035. IF gemini_Value > largest THEN largest = gemini_Value: dom_Sign$ = "Gemini"
  1036. IF cancer_Value > largest THEN largest = cancer_Value: dom_Sign$ = "Cancer"
  1037. IF leo_Value > largest THEN largest = leo_Value: dom_Sign$ = "Leo"
  1038. IF virgo_Value > largest THEN largest = virgo_Value: dom_Sign$ = "Virgo"
  1039. IF libra_Value > largest THEN largest = libra_Value: dom_Sign$ = "Libra"
  1040. IF scorpio_Value > largest THEN largest = scorpio_Value: dom_Sign$ = "Scorpio"
  1041. IF sagittarius_Value > largest THEN largest = sagittarius_Value: dom_Sign$ = "Sagittarius"
  1042. IF capricorn_Value > largest THEN largest = capricorn_Value: dom_Sign$ = "Capricorn"
  1043. IF Aquarius_Value > largest THEN largest = Aquarius_Value: dom_Sign$ = "Aquarius"
  1044. IF pisces_Value > largest THEN largest = pisces_Value: dom_Sign$ = "Pisces"
  1045. signs_percentage = 100 / all_Signs * largest
  1046. signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
  1047.  
  1048. largesthouse = 0
  1049. IF house(1) > largesthouse THEN largesthouse = house(1): dom_House = 1
  1050. IF house(2) > largesthouse THEN largesthouse = house(2): dom_House = 2
  1051. IF house(3) > largesthouse THEN largesthouse = house(3): dom_House = 3
  1052. IF house(4) > largesthouse THEN largesthouse = house(4): dom_House = 4
  1053. IF house(5) > largesthouse THEN largesthouse = house(5): dom_House = 5
  1054. IF house(6) > largesthouse THEN largesthouse = house(6): dom_House = 6
  1055. IF house(7) > largesthouse THEN largesthouse = house(7): dom_House = 7
  1056. IF house(8) > largesthouse THEN largesthouse = house(8): dom_House = 8
  1057. IF house(9) > largesthouse THEN largesthouse = house(9): dom_House = 9
  1058. IF house(10) > largesthouse THEN largesthouse = house(10): dom_House = 10
  1059. IF house(11) > largesthouse THEN largesthouse = house(11): dom_House = 11
  1060. IF house(12) > largesthouse THEN largesthouse = house(12): dom_House = 12
  1061. largesthouse_percentage = 100 / all_Houses * largesthouse
  1062. largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
  1063.  
  1064. Quad1 = house(1) + house(2) + house(3)
  1065. Quad2 = house(4) + house(5) + house(6)
  1066. Quad3 = house(7) + house(8) + house(9)
  1067. Quad4 = house(10) + house(11) + house(12)
  1068. all_Quads = Quad1 + Quad2 + Quad3 + Quad4
  1069.  
  1070. largedom_Quad = 0
  1071. IF Quad1 > largedom_Quad THEN largedom_Quad = Quad1: dom_Quad$ = "1st aka Fire or energy quadrant"
  1072. IF Quad2 > largedom_Quad THEN largedom_Quad = Quad2: dom_Quad$ = "2nd aka Water or emotional quadrant"
  1073. IF Quad3 > largedom_Quad THEN largedom_Quad = Quad3: dom_Quad$ = "3rd aka Air or intellectual quadrant"
  1074. IF Quad4 > largedom_Quad THEN largedom_Quad = Quad4: dom_Quad$ = "4th aka Earth or reality quadrant"
  1075. large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
  1076. large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
  1077.  
  1078. quad1_Percentage = 100 / all_Quads * Quad1
  1079. quad2_Percentage = 100 / all_Quads * Quad2
  1080. quad3_Percentage = 100 / all_Quads * Quad3
  1081. quad4_Percentage = 100 / all_Quads * Quad4
  1082.  
  1083. quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
  1084. quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
  1085. quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
  1086. quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
  1087.  
  1088. earth_String$ = "The sum of the earth signs in this birth chart is" + STR$(earth) + ". Thus, its owner is determined by the element of earth by" + STR$(Earth_percentage_Rounded#) + "%."
  1089. fire_String$ = "The sum of the fire signs in this birth chart is" + STR$(fire) + ". Thus, its owner is determined by the element of fire by" + STR$(Fire_percentage_Rounded#) + "%."
  1090. water_String$ = "The sum of the water signs in this birth chart is" + STR$(water) + ". Thus, its owner is determined by the element of water by" + STR$(Water_percentage_Rounded#) + "%."
  1091. air_String$ = "The sum of the air signs in this birth chart is" + STR$(air) + ". Thus, its owner is determined by the element of air by" + STR$(Air_percentage_Rounded#) + "%."
  1092.  
  1093. active_Signs = fire + earth
  1094. passive_Signs = water + air
  1095. polarity_Percentage = active_Signs + passive_Signs
  1096.  
  1097. active_Percentage = 100 / polarity_Percentage * active_Signs
  1098. passive_Percentage = 100 / polarity_Percentage * passive_Signs
  1099.  
  1100. active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
  1101. passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
  1102.  
  1103. active_String$ = "The sum of the active signs in this birth chart is" + STR$(active_Signs) + ". Thus, its owner is characterized by active polarities at" + STR$(active_percentage_Rounded#) + "%."
  1104. passive_String$ = "The sum of the passive signs in this birth chart is" + STR$(passive_Signs) + ". Thus, its owner is characterized by passive polarities at" + STR$(passive_percentage_Rounded#) + "%."
  1105.  
  1106. aries_String$ = "Strength of Aries:" + STR$(aries_Value) + " (" + STR$(Aries_percentage_Rounded#) + "%)"
  1107. taurus_String$ = "Strength of Taurus:" + STR$(taurus_Value) + " (" + STR$(Taurus_percentage_Rounded#) + "%)"
  1108. gemini_String$ = "Strength of Gemini:" + STR$(gemini_Value) + " (" + STR$(Gemini_percentage_Rounded#) + "%)"
  1109. cancer_String$ = "Strength of Cancer:" + STR$(cancer_Value) + " (" + STR$(Cancer_percentage_Rounded#) + "%)"
  1110. leo_String$ = "Strength of Leo:" + STR$(leo_Value) + " (" + STR$(Leo_percentage_Rounded#) + "%)"
  1111. virgo_String$ = "Strength of Virgo:" + STR$(virgo_Value) + " (" + STR$(Virgo_percentage_Rounded#) + "%)"
  1112. libra_String$ = "Strength of Libra:" + STR$(libra_Value) + " (" + STR$(Libra_percentage_Rounded#) + "%)"
  1113. scorpio_String$ = "Strength of Scorpio:" + STR$(scorpio_Value) + " (" + STR$(Scorpio_percentage_Rounded#) + "%)"
  1114. sagittarius_String$ = "Strength of Sagittarius:" + STR$(sagittarius_Value) + " (" + STR$(Sagittarius_percentage_Rounded#) + "%)"
  1115. capricorn_String$ = "Strength of Capricorn:" + STR$(capricorn_Value) + " (" + STR$(Capricorn_percentage_Rounded#) + "%)"
  1116. Aquarius_String$ = "Strength of Aquarius:" + STR$(Aquarius_Value) + " (" + STR$(Aquarius_percentage_Rounded#) + "%)"
  1117. pisces_String$ = "Strength of Pisces:" + STR$(pisces_Value) + " (" + STR$(Pisces_percentage_Rounded#) + "%)"
  1118.  
  1119. cardinal_String$ = "The sum of the cardinal signs in this birth chart is" + STR$(cardinals) + ". Thus, its owner is characterized by cardinal qualities at" + STR$(cardinal_percentage_Rounded#) + "%."
  1120. fixed_String$ = "The sum of the fixed signs in this birth chart is" + STR$(fixed) + ". Thus, its owner is characterized by fixed qualities at" + STR$(fixed_percentage_Rounded#) + "%."
  1121. mutable_String$ = "The sum of the mutable signs in this birth chart is" + STR$(mutable) + ". Thus, its owner is characterized by mutable qualities at" + STR$(mutable_percentage_Rounded#) + "%."
  1122.  
  1123. house1_String$ = "Strength of the 1st house: " + STR$(house(1)) + " (" + STR$(house1_percentage_Rounded#) + "%)"
  1124. house2_String$ = "Strength of the 2nd house: " + STR$(house(2)) + " (" + STR$(house2_percentage_Rounded#) + "%)"
  1125. house3_String$ = "Strength of the 3rd house: " + STR$(house(3)) + " (" + STR$(house3_percentage_Rounded#) + "%)"
  1126. house4_String$ = "Strength of the 4th house: " + STR$(house(4)) + " (" + STR$(house4_percentage_Rounded#) + "%)"
  1127. house5_String$ = "Strength of the 5th house: " + STR$(house(5)) + " (" + STR$(house5_percentage_Rounded#) + "%)"
  1128. house6_String$ = "Strength of the 6th house: " + STR$(house(6)) + " (" + STR$(house6_percentage_Rounded#) + "%)"
  1129. house7_String$ = "Strength of the 7th house: " + STR$(house(7)) + " (" + STR$(house7_percentage_Rounded#) + "%)"
  1130. house8_String$ = "Strength of the 8th house: " + STR$(house(8)) + " (" + STR$(house8_percentage_Rounded#) + "%)"
  1131. house9_String$ = "Strength of the 9th house: " + STR$(house(9)) + " (" + STR$(house9_percentage_Rounded#) + "%)"
  1132. house10_String$ = "Strength of the 10th house: " + STR$(house(10)) + " (" + STR$(house10_percentage_Rounded#) + "%)"
  1133. house11_String$ = "Strength of the 11th house: " + STR$(house(11)) + " (" + STR$(house11_percentage_Rounded#) + "%)"
  1134. house12_String$ = "Strength of the 12th house: " + STR$(house(12)) + " (" + STR$(house12_percentage_Rounded#) + "%)"
  1135.  
  1136. Quad1string$ = "Strength of the 1st quadrant: " + STR$(Quad1) + " (" + STR$(quad1_percentage_Rounded#) + "%)"
  1137. Quad2string$ = "Strength of the 2nd quadrant: " + STR$(Quad2) + " (" + STR$(quad2_percentage_Rounded#) + "%)"
  1138. Quad3string$ = "Strength of the 3rd quadrant: " + STR$(Quad3) + " (" + STR$(quad3_percentage_Rounded#) + "%)"
  1139. Quad4string$ = "Strength of the 4th quadrant: " + STR$(Quad4) + " (" + STR$(quad4_percentage_Rounded#) + "%)"
  1140.  
  1141. DECLARE SUB quicksort (min%, max%)
  1142. DECLARE SUB display ()
  1143. DIM SHARED elements_Table$(3), elements_table_Values(3)
  1144.  
  1145. elements_Table$(0) = earth_String$
  1146. elements_table_Values(0) = earth
  1147. elements_Table$(1) = fire_String$
  1148. elements_table_Values(1) = fire
  1149. elements_Table$(2) = water_String$
  1150. elements_table_Values(2) = water
  1151. elements_Table$(3) = air_String$
  1152. elements_table_Values(3) = air
  1153.  
  1154. DIM SHARED signs_Table$(11), signs_table_Values(11)
  1155.  
  1156. signs_Table$(0) = aries_String$
  1157. signs_table_Values(0) = aries_Value
  1158. signs_Table$(1) = taurus_String$
  1159. signs_table_Values(1) = taurus_Value
  1160. signs_Table$(2) = gemini_String$
  1161. signs_table_Values(2) = gemini_Value
  1162. signs_Table$(3) = cancer_String$
  1163. signs_table_Values(3) = cancer_Value
  1164. signs_Table$(4) = leo_String$
  1165. signs_table_Values(4) = leo_Value
  1166. signs_Table$(5) = virgo_String$
  1167. signs_table_Values(5) = virgo_Value
  1168. signs_Table$(6) = libra_String$
  1169. signs_table_Values(6) = libra_Value
  1170. signs_Table$(7) = Skoprionstring$
  1171. signs_table_Values(7) = scorpio_Value
  1172. signs_Table$(8) = sagittarius_String$
  1173. signs_table_Values(8) = sagittarius_Value
  1174. signs_Table$(9) = capricorn_String$
  1175. signs_table_Values(9) = capricorn_Value
  1176. signs_Table$(10) = Aquarius_String$
  1177. signs_table_Values(10) = Aquarius_Value
  1178. signs_Table$(11) = pisces_String$
  1179. signs_table_Values(11) = pisces_Value
  1180.  
  1182. PRINT "Elements:"
  1184. quicksort 0, 3, elements_Table$(), elements_table_Values()
  1185. display elements_Table$(), elements_table_Values()
  1188. PRINT "Dominance of the signs:"
  1190. quicksort 0, 11, signs_Table$(), signs_table_Values()
  1191. display signs_Table$(), signs_table_Values()
  1193. PRINT aries_String$
  1194. PRINT taurus_String$
  1195. PRINT gemini_String$
  1196. PRINT cancer_String$
  1197. PRINT leo_String$
  1198. PRINT virgo_String$
  1199. PRINT libra_String$
  1200. PRINT scorpio_String$
  1201. PRINT sagittarius_String$
  1202. PRINT capricorn_String$
  1203. PRINT Aquarius_String$
  1204. PRINT pisces_String$
  1206. PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
  1209. PRINT "Qualities:"
  1211. PRINT cardinal_String$
  1212. PRINT fixed_String$
  1213. PRINT mutable_String$
  1216. PRINT "Polarities:"
  1218. PRINT active_String$
  1219. PRINT passive_String$
  1222. PRINT "Dominance of the houses:"
  1224. PRINT house1_String$
  1225. PRINT house2_String$
  1226. PRINT house3_String$
  1227. PRINT house4_String$
  1228. PRINT house5_String$
  1229. PRINT house6_String$
  1230. PRINT house7_String$
  1231. PRINT house8_String$
  1232. PRINT house9_String$
  1233. PRINT house10_String$
  1234. PRINT house11_String$
  1235. PRINT house12_String$
  1237. PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
  1240. PRINT "Dominance of the quadrants:"
  1242. PRINT Quad1string$
  1243. PRINT Quad2string$
  1244. PRINT Quad3string$
  1245. PRINT Quad4string$
  1247. PRINT "The dominant quadrant is the "; dom_Quad$; " at "; large_dom_Quad_percentage_Rounded#; "%."
  1249. PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
  1251.  
  1252. SUB display (a$(), b())
  1253.     FOR i% = 0 TO 3
  1254.         PRINT a$(i%), b(i%)
  1255.     NEXT
  1257.  
  1258. SUB quicksort (min%, max%, a$(), b())
  1259.     IF min% < max% THEN
  1260.         p1% = min%
  1261.         p2% = max%
  1262.         mid = b((min% + max%) \ 2) '**
  1263.         DO UNTIL p1% > p2%
  1264.             DO WHILE b(p1%) > mid '**<<invert this unequality to sort ascending
  1265.                 p1% = p1% + 1
  1266.             LOOP
  1267.             DO WHILE mid > b(p2%) '**<<this one too
  1268.                 p2% = p2% - 1
  1269.             LOOP
  1270.             IF p1% <= p2% THEN
  1271.                 SWAP a$(p1%), a$(p2%) '**
  1272.                 SWAP b(p1%), b(p2%) '**
  1273.                 p1% = p1% + 1
  1274.                 p2% = p2% - 1
  1275.             END IF
  1276.         LOOP
  1277.         IF min% < p2% THEN quicksort min%, p2%, a$(), b()
  1278.         IF p1% < max% THEN quicksort p1%, max%, a$(), b()
  1279.     END IF

Problems still with the code:

a.) Why does it print the values again at the end of each line?

b.) How to fix the fact that it seems to try printing the signs table twice, aborting the first attempt after the first three lines before starting again?

c.) How to sort not only the elements, but also the rest of the tables? Does each table need its own sorting sub-routine? I've tried both that as well as arbitrarily assigning sorting values (corresponding to the amount of lines/entries in each table) weeks ago, but neither seemed to work.

d.) I remember Luke said weeks ago that the sorting sub-routine needs to be changed for tables where different fields/lines have the same value. This is the case at least once with this example horoscope here, and many more instances of this occurance are possible with other horoscopes.

e.) I priorily tried to make all the letters in each of the four printed elements result lines to be colored in the according color (Water = blue, Earth = green, Fire = red, Air = yellow) by means of making IF seek for specific letter combinations in the $tring to be printed, but so far, it seems to have created more problems than actually work.

Remember, this code is only an intermediary step. Finally, I want chunks of this program to be under the hood of an InForm program where I've already designed the window with buttons and drop-down menues where I can easily click through and enter all the variables that are still a chunk of arbitrary assignments at the start of this program.
« Last Edit: June 05, 2020, 03:29:47 am by DDBE »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Still need help on my horoscope program
« Reply #1 on: June 05, 2020, 09:30:12 am »
Hi @DDBE

This might take a little time to go through being 1280 Lines Of Code, but I will give it a shot later today if no one (or you) haven't found things first.

Welcome to the forum!
Logged

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: Still need help on my horoscope program
« Reply #2 on: June 05, 2020, 09:46:39 am »
Horoscope?  I foresee a tall dark stranger helping you with this.
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Still need help on my horoscope program
« Reply #3 on: June 05, 2020, 10:56:32 am »
Hi DDBE

1. welcome to the forum
2.  fine subject for a program
3. why do you use a so large SCREEN 0, I cannot see all the output to the screen... and do you? What kind of monitor are you using? However I can suggest you to use a raw SLEEP or a more suitable DO:LOOP UNTIL INKEY$ at the end of each section so you let to the user to read the output and then go on.
4. why don't you try to shrink you code? I see that more actions are repetitive.
5. to solve the repetition of number in the first 2 sections  of output  you must simply REM out the second parameter of the SUB in the line 1254 of PRINT
so changing  from
Code: QB64: [Select]
  1.     PRINT a$(i%), b(i%)
 
 
Horoscope issuejpg.jpg

to
Code: QB64: [Select]
  1.     PRINT a$(i%) ' REM, b(i%)
Horoscope issue2.jpg


Good Coding
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Still need help on my horoscope program
« Reply #4 on: June 05, 2020, 11:23:19 am »
Ah TempodiBasic found something already :)

Code: QB64: [Select]
  1. WIDTH 150, 70
right under SCREEN line makes everything fit, I think it's everything.
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Still need help on my horoscope program
« Reply #5 on: June 05, 2020, 01:12:58 pm »
I tried to reverse engineer it, but QB64 gave me this error message: UNABLE TO EXECUTE. URANUS IS IN RETROGRADE.

Sorry, but I can't let Richard have all the fun. BTW - Is Tempo tall and dark?

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: Still need help on my horoscope program
« Reply #6 on: June 05, 2020, 06:12:50 pm »
"I don't believe in astrological signs because we Virgos are very cynical. "
Logged
It works better if you plug it in.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Still need help on my horoscope program
« Reply #7 on: June 05, 2020, 07:06:45 pm »
Hi DDBE

about your issue b) it depends from your call of display sub at 1191 line of code, if you REM out it
this output
 
Horoscope issue3.jpg


changes in this
 
Horoscope issue4.jpg


here a little example about how to make flexible the display sub

Code: QB64: [Select]
  1. SUB display (a$())
  2.     FOR i% = 0 TO UBOUND(a$)
  3.         PRINT a$(i%)
  4.     NEXT

Good Coding


Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Still need help on my horoscope program
« Reply #8 on: June 05, 2020, 07:17:59 pm »
Yeah Richard
you let me remember that I don't believe astrology, in fact astrology says that Gemini don't believe astrology and I am Gemini.
:-))
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline DDBE

  • Newbie
  • Posts: 26
    • View Profile
Re: Still need help on my horoscope program
« Reply #9 on: June 06, 2020, 03:04:48 am »
First of all, thank you for welcoming me, guys.

Quote
Horoscope?  I foresee a tall dark stranger helping you with this.

Funny, but divination astrology, aka the foretelling of events, is not what I'm interested in (or take much seriously). This is to be used for psychological astrology in the tradition of Liz Greene, where your birth chart indicates your personality. For example, most celestial bodies above the "horizon" of the horizontal AC-DC axis indicates extroversion, most of them below this "horizon" indicates introversion, most of them on the right side of the vertical IC-MC axis indicates mental processes mostly oriented towards the community/society, most of them on the left side indicate mental processes mostly focussed on ego themes, etc...

Quote
4. why don't you try to shrink you code? I see that more actions are repetitive.

Maybe I should've directly stated right beforehand that I haven't used QB, or *ANY* programming language, since the 90s (except for a two-week course on VisualBASIC c. during the early 2000s that I've never had any use for). And even back in the 90s, I hardly did anything more complicated than trying to find prime numbers on a Commodore64 and later in QB64.

Quite a lot of my horoscope program above are direct copy-pastes from Luke giving me a hand over at Discord, where he gave me small patches for this and that. I can savely say that I have no idea what Luke's table-sorting algorithm does or why it works. All I know is that it makes fields switch from left to right and from right to left, but for the life of me I can't wrap my mind around how he's managed to turn *THAT* into an Excel-style table-sorting algorithm. All I dimly remember is that I came up with the idea of assigning the absolute numerical value of each variable to its related text $tring.

But, yeah...the above program is how far I've gotten since about early-mid March this year up until now, mainly by help from the Discord server. I've gotten stuck too often with the program and found Discord is not really efficient a way of communication to iron out the kinks with such a big program.

Quote
3. why do you use a so large SCREEN 0, I cannot see all the output to the screen... and do you? What kind of monitor are you using?

I've made the screen as large as my monitor can display. My monitor has a resolution of 1920*1080 pixels.

Quote
However I can suggest you to use a raw SLEEP or a more suitable DO:LOOP UNTIL INKEY$ at the end of each section so you let to the user to read the output and then go on.

As said, this is all just a way to make the basic code work. The final version will be behind an InForm window, where the function of the first 32 lines here will be fulfilled by drop-down menues instead.

Quote
5. to solve the repetition of number in the first 2 sections  of output  you must simply REM out the second parameter of the SUB in the line 1254 of PRINT

I've tried that, but then QB told me to do the same on line 1252, and then it gave me a syntax error from that on line 1185.

Quote
WIDTH 150, 70

right under SCREEN line makes everything fit, I think it's everything.

Ew, that makes everything very hard to read. As if the font is still the same width, but only 1/4 as high or so.

Quote
about your issue b) it depends from your call of display sub at 1191 line of code, if you REM out it

Okay, that was simple enough I could make it work for a change.

Quote
here a little example about how to make flexible the display sub

Same problem as when trying to REM out part of line 1254: It only ends up giving me a syntax error on line 1185.
« Last Edit: June 07, 2020, 06:00:47 am by DDBE »
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Still need help on my horoscope program
« Reply #10 on: June 07, 2020, 01:51:47 pm »
Hi DDE
1. here your code MODded with my two suggestions and working well
REM the second variable printed out in the SUB display
REM the manual output of the 12 astrological signs
make adaptable the FOR NEXT loop into SUB display using as upper limit of the FOR the UBOUND(array)
(as you can see I am not able to count well until 3  :-))   )

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(200, 70, 0)
  2. WIDTH 150, 70 ' Bplus fixes fit in screen
  4.  
  5. sun$ = "Aquarius"
  6. sun_House = 4
  7. moon$ = "Aries"
  8. moon_House = 6
  9. ascendent$ = "Scorpio"
  10. MC$ = "Leo"
  11. mercury$ = "Aquarius"
  12. mercury_House = 3
  13. Venus$ = "Pisces"
  14. venus_House = 5
  15. Mars$ = "Pisces"
  16. mars_House = 5
  17. Jupiter$ = "Sagittarius"
  18. jupiter_House = 2
  19. Saturn$ = "Scorpio"
  20. saturn_House = 1
  21. Chiron$ = "Taurus"
  22. chiron_House = 7
  23. Uranus$ = "Sagittarius"
  24. uranus_House = 2
  25. neptune$ = "Sagittarius"
  26. neptunee_House = 2
  27. Pluto$ = "Libra"
  28. pluto_House = 12
  29. moon_Node$ = "Capricorn"
  30. moon_node_House = 3
  31. Lilith$ = "Aquarius"
  32. lilith_House = 4
  33.  
  34. DIM house(12) AS INTEGER 'Defining 12 houses that numerical values can be added to which can be subjected to mathematical operations.
  35. house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
  36. house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
  37. house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
  38. house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
  39. house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
  40. house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
  41. house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
  42. house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
  43. house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
  44. house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
  45. house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
  46. house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
  47. house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
  48.  
  50.     CASE "Aries"
  51.         fire = fire + 12
  52.         aries_Value = aries_Value + 12
  53.         cardinals = cardinals + 12
  54.     CASE "Taurus"
  55.         earth = earth + 12
  56.         taurus_Value = taurus_Value + 12
  57.         fixed = fixed + 12
  58.     CASE "Gemini"
  59.         air = air + 12
  60.         gemini_Value = gemini_Value + 12
  61.         mutable = mutable + 12
  62.     CASE "Cancer"
  63.         water = water + 12
  64.         cancer_Value = cancer_Value + 12
  65.         cardinals = cardinals + 12
  66.     CASE "Leo"
  67.         fire = fire + 12
  68.         leo_Value = leo_Value + 12
  69.         fixed = fixed + 12
  70.     CASE "Virgo"
  71.         earth = earth + 12
  72.         virgo_Value = virgo_Value + 12
  73.         mutable = mutable + 12
  74.     CASE "Libra"
  75.         air = air + 12
  76.         libra_Value = libra_Value + 12
  77.         cardinals = cardinals + 12
  78.     CASE "Scorpio"
  79.         water = water + 12
  80.         scorpio_Value = scorpio_Value + 12
  81.         fixed = fixed + 12
  82.     CASE "Sagittarius"
  83.         fire = fire + 12
  84.         sagittarius_Value = sagittarius_Value + 12
  85.         mutable = mutable + 12
  86.     CASE "Capricorn"
  87.         earth = earth + 12
  88.         capricorn_Value = capricorn_Value + 12
  89.         cardinals = cardinals + 12
  90.     CASE "Aquarius"
  91.         air = air + 12
  92.         Aquarius_Value = Aquarius_Value + 12
  93.         fixed = fixed + 12
  94.     CASE "Pisces"
  95.         water = water + 12
  96.         pisces_Value = pisces_Value + 12
  97.         mutable = mutable + 12
  99.  
  100. SELECT CASE moon$
  101.     CASE "Aries"
  102.         fire = fire + 12
  103.         aries_Value = aries_Value + 12
  104.         cardinals = cardinals + 12
  105.     CASE "Taurus"
  106.         earth = earth + 12
  107.         taurus_Value = taurus_Value + 12
  108.         fixed = fixed + 12
  109.     CASE "Gemini"
  110.         air = air + 12
  111.         gemini_Value = gemini_Value + 12
  112.         mutable = mutable + 12
  113.     CASE "Cancer"
  114.         water = water + 12
  115.         cancer_Value = cancer_Value + 12
  116.         cardinals = cardinals + 12
  117.     CASE "Leo"
  118.         fire = fire + 12
  119.         leo_Value = leo_Value + 12
  120.         fixed = fixed + 12
  121.     CASE "Virgo"
  122.         earth = earth + 12
  123.         virgo_Value = virgo_Value + 12
  124.         mutable = mutable + 12
  125.     CASE "Libra"
  126.         air = air + 12
  127.         libra_Value = libra_Value + 12
  128.         cardinals = cardinals + 12
  129.     CASE "Scorpio"
  130.         water = water + 12
  131.         scorpio_Value = scorpio_Value + 12
  132.         fixed = fixed + 12
  133.     CASE "Sagittarius"
  134.         fire = fire + 12
  135.         sagittarius_Value = sagittarius_Value + 12
  136.         mutable = mutable + 12
  137.     CASE "Capricorn"
  138.         earth = earth + 12
  139.         capricorn_Value = capricorn_Value + 12
  140.         cardinals = cardinals + 12
  141.     CASE "Aquarius"
  142.         air = air + 12
  143.         Aquarius_Value = Aquarius_Value + 12
  144.         fixed = fixed + 12
  145.     CASE "Pisces"
  146.         water = water + 12
  147.         pisces_Value = pisces_Value + 12
  148.         mutable = mutable + 12
  150.  
  151. SELECT CASE ascendent$
  152.     CASE "Aries"
  153.         fire = fire + 12
  154.         aries_Value = aries_Value + 12
  155.         cardinals = cardinals + 12
  156.         IF mars_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  157.         IF mars_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  158.         IF mars_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  159.         IF mars_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  160.         IF mars_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  161.         IF mars_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  162.         IF mars_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  163.         IF mars_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  164.         IF mars_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  165.         IF mars_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  166.         IF mars_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  167.         IF mars_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  168.     CASE "Taurus"
  169.         earth = earth + 12
  170.         taurus_Value = taurus_Value + 12
  171.         fixed = fixed + 12
  172.         IF chiron_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  173.         IF chiron_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  174.         IF chiron_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  175.         IF chiron_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  176.         IF chiron_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  177.         IF chiron_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  178.         IF chiron_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  179.         IF chiron_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  180.         IF chiron_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  181.         IF chiron_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  182.         IF chiron_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  183.         IF chiron_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  184.     CASE "Gemini"
  185.         air = air + 12
  186.         gemini_Value = gemini_Value + 12
  187.         mutable = mutable + 12
  188.         IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  189.         IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  190.         IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  191.         IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  192.         IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  193.         IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  194.         IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  195.         IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  196.         IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  197.         IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  198.         IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  199.         IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  200.     CASE "Cancer"
  201.         water = water + 12
  202.         cancer_Value = cancer_Value + 12
  203.         cardinals = cardinals + 12
  204.         IF moon_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  205.         IF moon_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  206.         IF moon_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  207.         IF moon_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  208.         IF moon_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  209.         IF moon_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  210.         IF moon_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  211.         IF moon_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  212.         IF moon_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  213.         IF moon_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  214.         IF moon_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  215.         IF moon_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  216.     CASE "Leo"
  217.         fire = fire + 12
  218.         leo_Value = leo_Value + 12
  219.         fixed = fixed + 12
  220.         IF sun_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  221.         IF sun_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  222.         IF sun_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  223.         IF sun_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  224.         IF sun_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  225.         IF sun_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  226.         IF sun_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  227.         IF sun_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  228.         IF sun_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  229.         IF sun_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  230.         IF sun_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  231.         IF sun_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  232.     CASE "Virgo"
  233.         earth = earth + 12
  234.         virgo_Value = virgo_Value + 12
  235.         mutable = mutable + 12
  236.         IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  237.         IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  238.         IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  239.         IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  240.         IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  241.         IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  242.         IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  243.         IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  244.         IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  245.         IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  246.         IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  247.         IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  248.     CASE "Libra"
  249.         air = air + 12
  250.         libra_Value = libra_Value + 12
  251.         cardinals = cardinals + 12
  252.         IF venus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  253.         IF venus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  254.         IF venus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  255.         IF venus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  256.         IF venus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  257.         IF venus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  258.         IF venus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  259.         IF venus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  260.         IF venus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  261.         IF venus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  262.         IF venus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  263.         IF venus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  264.     CASE "Scorpio"
  265.         water = water + 12
  266.         scorpio_Value = scorpio_Value + 12
  267.         fixed = fixed + 12
  268.         IF pluto_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  269.         IF pluto_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  270.         IF pluto_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  271.         IF pluto_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  272.         IF pluto_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  273.         IF pluto_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  274.         IF pluto_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  275.         IF pluto_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  276.         IF pluto_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  277.         IF pluto_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  278.         IF pluto_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  279.         IF pluto_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  280.     CASE "Sagittarius"
  281.         fire = fire + 12
  282.         sagittarius_Value = sagittarius_Value + 12
  283.         mutable = mutable + 12
  284.         IF jupiter_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  285.         IF jupiter_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  286.         IF jupiter_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  287.         IF jupiter_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  288.         IF jupiter_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  289.         IF jupiter_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  290.         IF jupiter_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  291.         IF jupiter_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  292.         IF jupiter_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  293.         IF jupiter_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  294.         IF jupiter_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  295.         IF jupiter_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  296.     CASE "Capricorn"
  297.         earth = earth + 12
  298.         capricorn_Value = capricorn_Value + 12
  299.         cardinals = cardinals + 12
  300.         IF saturn_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  301.         IF saturn_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  302.         IF saturn_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  303.         IF saturn_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  304.         IF saturn_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  305.         IF saturn_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  306.         IF saturn_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  307.         IF saturn_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  308.         IF saturn_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  309.         IF saturn_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  310.         IF saturn_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  311.         IF saturn_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  312.     CASE "Aquarius"
  313.         air = air + 12
  314.         Aquarius_Value = Aquarius_Value + 12
  315.         fixed = fixed + 12
  316.         IF uranus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  317.         IF uranus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  318.         IF uranus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  319.         IF uranus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  320.         IF uranus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  321.         IF uranus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  322.         IF uranus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  323.         IF uranus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  324.         IF uranus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  325.         IF uranus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  326.         IF uranus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  327.         IF uranus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  328.     CASE "Pisces"
  329.         water = water + 12
  330.         pisces_Value = pisces_Value + 12
  331.         mutable = mutable + 12
  332.         IF neptunee_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  333.         IF neptunee_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  334.         IF neptunee_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  335.         IF neptunee_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  336.         IF neptunee_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  337.         IF neptunee_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  338.         IF neptunee_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  339.         IF neptunee_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  340.         IF neptunee_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  341.         IF neptunee_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  342.         IF neptunee_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  343.         IF neptunee_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  345.  
  346. SELECT CASE mercury$
  347.     CASE "Aries"
  348.         fire = fire + 6
  349.         aries_Value = aries_Value + 6
  350.         cardinals = cardinals + 6
  351.     CASE "Taurus"
  352.         earth = earth + 6
  353.         taurus_Value = taurus_Value + 6
  354.         fixed = fixed + 6
  355.     CASE "Gemini"
  356.         air = air + 6
  357.         gemini_Value = gemini_Value + 6
  358.         mutable = mutable + 6
  359.     CASE "Cancer"
  360.         water = water + 6
  361.         cancer_Value = cancer_Value + 6
  362.         cardinals = cardinals + 6
  363.     CASE "Leo"
  364.         fire = fire + 6
  365.         leo_Value = leo_Value + 6
  366.         fixed = fixed + 6
  367.     CASE "Virgo"
  368.         earth = earth + 6
  369.         virgo_Value = virgo_Value + 6
  370.         mutable = mutable + 6
  371.     CASE "Libra"
  372.         air = air + 6
  373.         libra_Value = libra_Value + 6
  374.         cardinals = cardinals + 6
  375.     CASE "Scorpio"
  376.         water = water + 6
  377.         scorpio_Value = scorpio_Value + 6
  378.         fixed = fixed + 6
  379.     CASE "Sagittarius"
  380.         fire = fire + 6
  381.         sagittarius_Value = sagittarius_Value + 6
  382.         mutable = mutable + 6
  383.     CASE "Capricorn"
  384.         earth = earth + 6
  385.         capricorn_Value = capricorn_Value + 6
  386.         cardinals = cardinals + 6
  387.     CASE "Aquarius"
  388.         air = air + 6
  389.         Aquarius_Value = Aquarius_Value + 6
  390.         fixed = fixed + 6
  391.     CASE "Pisces"
  392.         water = water + 6
  393.         pisces_Value = pisces_Value + 6
  394.         mutable = mutable + 6
  396.  
  397. SELECT CASE Venus$
  398.     CASE "Aries"
  399.         fire = fire + 6
  400.         aries_Value = aries_Value + 6
  401.         cardinals = cardinals + 6
  402.     CASE "Taurus"
  403.         earth = earth + 6
  404.         taurus_Value = taurus_Value + 6
  405.         fixed = fixed + 6
  406.     CASE "Gemini"
  407.         air = air + 6
  408.         gemini_Value = gemini_Value + 6
  409.         mutable = mutable + 6
  410.     CASE "Cancer"
  411.         water = water + 6
  412.         cancer_Value = cancer_Value + 6
  413.         cardinals = cardinals + 6
  414.     CASE "Leo"
  415.         fire = fire + 6
  416.         leo_Value = leo_Value + 6
  417.         fixed = fixed + 6
  418.     CASE "Virgo"
  419.         earth = earth + 6
  420.         virgo_Value = virgo_Value + 6
  421.         mutable = mutable + 6
  422.     CASE "Libra"
  423.         air = air + 6
  424.         libra_Value = libra_Value + 6
  425.         cardinals = cardinals + 6
  426.     CASE "Scorpio"
  427.         water = water + 6
  428.         scorpio_Value = scorpio_Value + 6
  429.         fixed = fixed + 5
  430.     CASE "Sagittarius"
  431.         fire = fire + 6
  432.         sagittarius_Value = sagittarius_Value + 6
  433.         mutable = mutable + 6
  434.     CASE "Capricorn"
  435.         earth = earth + 6
  436.         capricorn_Value = capricorn_Value + 6
  437.         cardinals = cardinals + 6
  438.     CASE "Aquarius"
  439.         air = air + 6
  440.         Aquarius_Value = Aquarius_Value + 6
  441.         fixed = fixed + 6
  442.     CASE "Pisces"
  443.         water = water + 6
  444.         pisces_Value = pisces_Value + 6
  445.         mutable = mutable + 6
  447.  
  448. SELECT CASE Mars$
  449.     CASE "Aries"
  450.         fire = fire + 5
  451.         aries_Value = aries_Value + 5
  452.         cardinals = cardinals + 5
  453.     CASE "Taurus"
  454.         earth = earth + 5
  455.         taurus_Value = taurus_Value + 5
  456.         fixed = fixed + 5
  457.     CASE "Gemini"
  458.         air = air + 5
  459.         gemini_Value = gemini_Value + 5
  460.         mutable = mutable + 5
  461.     CASE "Cancer"
  462.         water = water + 5
  463.         cancer_Value = cancer_Value + 5
  464.         cardinals = cardinals + 5
  465.     CASE "Leo"
  466.         fire = fire + 5
  467.         leo_Value = leo_Value + 5
  468.         fixed = fixed + 5
  469.     CASE "Virgo"
  470.         earth = earth + 5
  471.         virgo_Value = virgo_Value + 5
  472.         mutable = mutable + 5
  473.     CASE "Libra"
  474.         air = air + 5
  475.         libra_Value = libra_Value + 5
  476.         cardinals = cardinals + 5
  477.     CASE "Scorpio"
  478.         water = water + 5
  479.         scorpio_Value = scorpio_Value + 5
  480.         fixed = fixed + 5
  481.     CASE "Sagittarius"
  482.         fire = fire + 5
  483.         sagittarius_Value = sagittarius_Value + 5
  484.         mutable = mutable + 5
  485.     CASE "Capricorn"
  486.         earth = earth + 5
  487.         capricorn_Value = capricorn_Value + 5
  488.         cardinals = cardinals + 5
  489.     CASE "Aquarius"
  490.         air = air + 5
  491.         Aquarius_Value = Aquarius_Value + 5
  492.         fixed = fixed + 5
  493.     CASE "Pisces"
  494.         water = water + 5
  495.         pisces_Value = pisces_Value + 5
  496.         mutable = mutable + 5
  498.  
  499. SELECT CASE Jupiter$
  500.     CASE "Aries"
  501.         fire = fire + 5
  502.         aries_Value = aries_Value + 5
  503.         cardinals = cardinals + 5
  504.     CASE "Taurus"
  505.         earth = earth + 5
  506.         taurus_Value = taurus_Value + 5
  507.         fixed = fixed + 5
  508.     CASE "Gemini"
  509.         air = air + 5
  510.         gemini_Value = gemini_Value + 5
  511.         mutable = mutable + 5
  512.     CASE "Cancer"
  513.         water = water + 5
  514.         cancer_Value = cancer_Value + 5
  515.         cardinals = cardinals + 5
  516.     CASE "Leo"
  517.         fire = fire + 5
  518.         leo_Value = leo_Value + 5
  519.         fixed = fixed + 5
  520.     CASE "Virgo"
  521.         earth = earth + 5
  522.         virgo_Value = virgo_Value + 5
  523.         mutable = mutable + 5
  524.     CASE "Libra"
  525.         air = air + 5
  526.         libra_Value = libra_Value + 5
  527.         cardinals = cardinals + 5
  528.     CASE "Scorpio"
  529.         water = water + 5
  530.         scorpio_Value = scorpio_Value + 5
  531.         fixed = fixed + 5
  532.     CASE "Sagittarius"
  533.         fire = fire + 5
  534.         sagittarius_Value = sagittarius_Value + 5
  535.         mutable = mutable + 5
  536.     CASE "Capricorn"
  537.         earth = earth + 5
  538.         capricorn_Value = capricorn_Value + 5
  539.         cardinals = cardinals + 5
  540.     CASE "Aquarius"
  541.         air = air + 5
  542.         Aquarius_Value = Aquarius_Value + 5
  543.         fixed = fixed + 5
  544.     CASE "Pisces"
  545.         water = water + 5
  546.         pisces_Value = pisces_Value + 5
  547.         mutable = mutable + 5
  549.  
  550. SELECT CASE Saturn$
  551.     CASE "Aries"
  552.         fire = fire + 5
  553.         aries_Value = aries_Value + 5
  554.         cardinals = cardinals + 5
  555.     CASE "Taurus"
  556.         earth = earth + 5
  557.         taurus_Value = taurus_Value + 5
  558.         fixed = fixed + 5
  559.     CASE "Gemini"
  560.         air = air + 5
  561.         gemini_Value = gemini_Value + 5
  562.         mutable = mutable + 5
  563.     CASE "Cancer"
  564.         water = water + 5
  565.         cancer_Value = cancer_Value + 5
  566.         cardinals = cardinals + 5
  567.     CASE "Leo"
  568.         fire = fire + 5
  569.         leo_Value = leo_Value + 5
  570.         fixed = fixed + 5
  571.     CASE "Virgo"
  572.         earth = earth + 5
  573.         virgo_Value = virgo_Value + 5
  574.         mutable = mutable + 5
  575.     CASE "Libra"
  576.         air = air + 5
  577.         libra_Value = libra_Value + 5
  578.         cardinals = cardinals + 5
  579.     CASE "Scorpio"
  580.         water = water + 5
  581.         scorpio_Value = scorpio_Value + 5
  582.         fixed = fixed + 5
  583.     CASE "Sagittarius"
  584.         fire = fire + 5
  585.         sagittarius_Value = sagittarius_Value + 5
  586.         mutable = mutable + 5
  587.     CASE "Capricorn"
  588.         earth = earth + 5
  589.         capricorn_Value = capricorn_Value + 5
  590.         cardinals = cardinals + 5
  591.     CASE "Aquarius"
  592.         air = air + 5
  593.         Aquarius_Value = Aquarius_Value + 5
  594.         fixed = fixed + 5
  595.     CASE "Pisces"
  596.         water = water + 5
  597.         pisces_Value = pisces_Value + 5
  598.         mutable = mutable + 5
  600.  
  602.     CASE "Aries"
  603.         fire = fire + 5
  604.         aries_Value = aries_Value + 5
  605.         cardinals = cardinals + 5
  606.     CASE "Taurus"
  607.         earth = earth + 5
  608.         taurus_Value = taurus_Value + 5
  609.         fixed = fixed + 5
  610.     CASE "Gemini"
  611.         air = air + 5
  612.         gemini_Value = gemini_Value + 5
  613.         mutable = mutable + 5
  614.     CASE "Cancer"
  615.         water = water + 5
  616.         cancer_Value = cancer_Value + 5
  617.         cardinals = cardinals + 5
  618.     CASE "Leo"
  619.         fire = fire + 5
  620.         leo_Value = leo_Value + 5
  621.         fixed = fixed + 5
  622.     CASE "Virgo"
  623.         earth = earth + 5
  624.         virgo_Value = virgo_Value + 5
  625.         mutable = mutable + 5
  626.     CASE "Libra"
  627.         air = air + 5
  628.         libra_Value = libra_Value + 5
  629.         cardinals = cardinals + 5
  630.     CASE "Scorpio"
  631.         water = water + 5
  632.         scorpio_Value = scorpio_Value + 5
  633.         fixed = fixed + 5
  634.     CASE "Sagittarius"
  635.         fire = fire + 5
  636.         sagittarius_Value = sagittarius_Value + 5
  637.         mutable = mutable + 5
  638.     CASE "Capricorn"
  639.         earth = earth + 5
  640.         capricorn_Value = capricorn_Value + 5
  641.         cardinals = cardinals + 5
  642.     CASE "Aquarius"
  643.         air = air + 5
  644.         Aquarius_Value = Aquarius_Value + 5
  645.         fixed = fixed + 5
  646.     CASE "Pisces"
  647.         water = water + 5
  648.         pisces_Value = pisces_Value + 5
  649.         mutable = mutable + 5
  651.  
  652. SELECT CASE Chiron$
  653.     CASE "Aries"
  654.         fire = fire + 2
  655.         aries_Value = aries_Value + 2
  656.         cardinals = cardinals + 2
  657.     CASE "Taurus"
  658.         earth = earth + 2
  659.         taurus_Value = taurus_Value + 2
  660.         fixed = fixed + 2
  661.     CASE "Gemini"
  662.         air = air + 2
  663.         gemini_Value = gemini_Value + 2
  664.         mutable = mutable + 2
  665.     CASE "Cancer"
  666.         water = water + 2
  667.         cancer_Value = cancer_Value + 2
  668.         cardinals = cardinals + 2
  669.     CASE "Leo"
  670.         fire = fire + 2
  671.         leo_Value = leo_Value + 2
  672.         fixed = fixed + 2
  673.     CASE "Virgo"
  674.         earth = earth + 2
  675.         virgo_Value = virgo_Value + 2
  676.         mutable = mutable + 2
  677.     CASE "Libra"
  678.         air = air + 2
  679.         libra_Value = libra_Value + 2
  680.         cardinals = cardinals + 2
  681.     CASE "Scorpio"
  682.         water = water + 2
  683.         scorpio_Value = scorpio_Value + 2
  684.         fixed = fixed + 2
  685.     CASE "Sagittarius"
  686.         fire = fire + 2
  687.         sagittarius_Value = sagittarius_Value + 2
  688.         mutable = mutable + 2
  689.     CASE "Capricorn"
  690.         earth = earth + 2
  691.         capricorn_Value = capricorn_Value + 2
  692.         cardinals = cardinals + 2
  693.     CASE "Aquarius"
  694.         air = air + 2
  695.         Aquarius_Value = Aquarius_Value + 2
  696.         fixed = fixed + 2
  697.     CASE "Pisces"
  698.         water = water + 2
  699.         pisces_Value = pisces_Value + 2
  700.         mutable = mutable + 2
  702.  
  703. SELECT CASE Uranus$
  704.     CASE "Aries"
  705.         fire = fire + 2
  706.         aries_Value = aries_Value + 2
  707.         cardinals = cardinals + 2
  708.     CASE "Taurus"
  709.         earth = earth + 2
  710.         taurus_Value = taurus_Value + 2
  711.         fixed = fixed + 2
  712.     CASE "Gemini"
  713.         air = air + 2
  714.         gemini_Value = gemini_Value + 2
  715.         mutable = mutable + 2
  716.     CASE "Cancer"
  717.         water = water + 2
  718.         cancer_Value = cancer_Value + 2
  719.         cardinals = cardinals + 2
  720.     CASE "Leo"
  721.         fire = fire + 2
  722.         leo_Value = leo_Value + 2
  723.         fixed = fixed + 2
  724.     CASE "Virgo"
  725.         earth = earth + 2
  726.         virgo_Value = virgo_Value + 2
  727.         mutable = mutable + 2
  728.     CASE "Libra"
  729.         air = air + 2
  730.         libra_Value = libra_Value + 2
  731.         cardinals = cardinals + 2
  732.     CASE "Scorpio"
  733.         water = water + 2
  734.         scorpio_Value = scorpio_Value + 2
  735.         fixed = fixed + 2
  736.     CASE "Sagittarius"
  737.         fire = fire + 2
  738.         sagittarius_Value = sagittarius_Value + 2
  739.         mutable = mutable + 2
  740.     CASE "Capricorn"
  741.         earth = earth + 2
  742.         capricorn_Value = capricorn_Value + 2
  743.         cardinals = cardinals + 2
  744.     CASE "Aquarius"
  745.         air = air + 2
  746.         Aquarius_Value = Aquarius_Value + 2
  747.         fixed = fixed + 2
  748.     CASE "Pisces"
  749.         water = water + 2
  750.         pisces_Value = pisces_Value + 2
  751.         mutable = mutable + 2
  753.  
  754. SELECT CASE neptune$
  755.     CASE "Aries"
  756.         fire = fire + 2
  757.         aries_Value = aries_Value + 2
  758.         cardinals = cardinals + 2
  759.     CASE "Taurus"
  760.         earth = earth + 2
  761.         taurus_Value = taurus_Value + 2
  762.         fixed = fixed + 2
  763.     CASE "Gemini"
  764.         air = air + 2
  765.         gemini_Value = gemini_Value + 2
  766.         mutable = mutable + 2
  767.     CASE "Cancer"
  768.         water = water + 2
  769.         cancer_Value = cancer_Value + 2
  770.         cardinals = cardinals + 2
  771.     CASE "Leo"
  772.         fire = fire + 2
  773.         leo_Value = leo_Value + 2
  774.         fixed = fixed + 2
  775.     CASE "Virgo"
  776.         earth = earth + 2
  777.         virgo_Value = virgo_Value + 2
  778.         mutable = mutable + 2
  779.     CASE "Libra"
  780.         air = air + 2
  781.         libra_Value = libra_Value + 2
  782.         cardinals = cardinals + 2
  783.     CASE "Scorpio"
  784.         water = water + 2
  785.         scorpio_Value = scorpio_Value + 2
  786.         fixed = fixed + 2
  787.     CASE "Sagittarius"
  788.         fire = fire + 2
  789.         sagittarius_Value = sagittarius_Value + 2
  790.         mutable = mutable + 2
  791.     CASE "Capricorn"
  792.         earth = earth + 2
  793.         capricorn_Value = capricorn_Value + 2
  794.         cardinals = cardinals + 2
  795.     CASE "Aquarius"
  796.         air = air + 2
  797.         Aquarius_Value = Aquarius_Value + 2
  798.         fixed = fixed + 2
  799.     CASE "Pisces"
  800.         water = water + 2
  801.         pisces_Value = pisces_Value + 2
  802.         mutable = mutable + 2
  804.  
  805. SELECT CASE Pluto$
  806.     CASE "Aries"
  807.         fire = fire + 2
  808.         aries_Value = aries_Value + 2
  809.         cardinals = cardinals + 2
  810.     CASE "Taurus"
  811.         earth = earth + 2
  812.         taurus_Value = taurus_Value + 2
  813.         fixed = fixed + 2
  814.     CASE "Gemini"
  815.         air = air + 2
  816.         gemini_Value = gemini_Value + 2
  817.         mutable = mutable + 2
  818.     CASE "Cancer"
  819.         water = water + 2
  820.         cancer_Value = cancer_Value + 2
  821.         cardinals = cardinals + 2
  822.     CASE "Leo"
  823.         fire = fire + 2
  824.         leo_Value = leo_Value + 2
  825.         fixed = fixed + 2
  826.     CASE "Virgo"
  827.         earth = earth + 2
  828.         virgo_Value = virgo_Value + 2
  829.         mutable = mutable + 2
  830.     CASE "Libra"
  831.         air = air + 2
  832.         libra_Value = libra_Value + 2
  833.         cardinals = cardinals + 2
  834.     CASE "Scorpio"
  835.         water = water + 2
  836.         scorpio_Value = scorpio_Value + 2
  837.         fixed = fixed + 2
  838.     CASE "Sagittarius"
  839.         fire = fire + 2
  840.         sagittarius_Value = sagittarius_Value + 2
  841.         mutable = mutable + 2
  842.     CASE "Capricorn"
  843.         earth = earth + 2
  844.         capricorn_Value = capricorn_Value + 2
  845.         cardinals = cardinals + 2
  846.     CASE "Aquarius"
  847.         air = air + 2
  848.         Aquarius_Value = Aquarius_Value + 2
  849.         fixed = fixed + 2
  850.     CASE "Pisces"
  851.         water = water + 2
  852.         pisces_Value = pisces_Value + 2
  853.         mutable = mutable + 2
  855.  
  856. SELECT CASE moon_Node$
  857.     CASE "Aries"
  858.         fire = fire + 2
  859.         aries_Value = aries_Value + 2
  860.         cardinals = cardinals + 2
  861.     CASE "Taurus"
  862.         earth = earth + 2
  863.         taurus_Value = taurus_Value + 2
  864.         fixed = fixed + 2
  865.     CASE "Gemini"
  866.         air = air + 2
  867.         gemini_Value = gemini_Value + 2
  868.         mutable = mutable + 2
  869.     CASE "Cancer"
  870.         water = water + 2
  871.         cancer_Value = cancer_Value + 2
  872.         cardinals = cardinals + 2
  873.     CASE "Leo"
  874.         fire = fire + 2
  875.         leo_Value = leo_Value + 2
  876.         fixed = fixed + 2
  877.     CASE "Virgo"
  878.         earth = earth + 2
  879.         virgo_Value = virgo_Value + 2
  880.         mutable = mutable + 2
  881.     CASE "Libra"
  882.         air = air + 2
  883.         libra_Value = libra_Value + 2
  884.         cardinals = cardinals + 2
  885.     CASE "Scorpio"
  886.         water = water + 2
  887.         scorpio_Value = scorpio_Value + 2
  888.         fixed = fixed + 2
  889.     CASE "Sagittarius"
  890.         fire = fire + 2
  891.         sagittarius_Value = sagittarius_Value + 2
  892.         mutable = mutable + 2
  893.     CASE "Capricorn"
  894.         earth = earth + 2
  895.         capricorn_Value = capricorn_Value + 2
  896.         cardinals = cardinals + 2
  897.     CASE "Aquarius"
  898.         air = air + 2
  899.         Aquarius_Value = Aquarius_Value + 2
  900.         fixed = fixed + 2
  901.     CASE "Pisces"
  902.         water = water + 2
  903.         pisces_Value = pisces_Value + 2
  904.         mutable = mutable + 2
  906.  
  907. SELECT CASE Lilith$
  908.     CASE "Aries"
  909.         fire = fire + 1
  910.         aries_Value = aries_Value + 1
  911.         cardinals = cardinals + 1
  912.     CASE "Taurus"
  913.         earth = earth + 1
  914.         taurus_Value = taurus_Value + 1
  915.         fixed = fixed + 1
  916.     CASE "Gemini"
  917.         air = air + 1
  918.         gemini_Value = gemini_Value + 1
  919.         mutable = mutable + 1
  920.     CASE "Cancer"
  921.         water = water + 1
  922.         cancer_Value = cancer_Value + 1
  923.         cardinals = cardinals + 1
  924.     CASE "Leo"
  925.         fire = fire + 1
  926.         leo_Value = leo_Value + 1
  927.         fixed = fixed + 1
  928.     CASE "Virgo"
  929.         earth = earth + 1
  930.         virgo_Value = virgo_Value + 1
  931.         mutable = mutable + 1
  932.     CASE "Libra"
  933.         air = air + 1
  934.         libra_Value = libra_Value + 1
  935.         cardinals = cardinals + 1
  936.     CASE "Scorpio"
  937.         water = water + 1
  938.         scorpio_Value = scorpio_Value + 1
  939.         fixed = fixed + 1
  940.     CASE "Sagittarius"
  941.         fire = fire + 1
  942.         sagittarius_Value = sagittarius_Value + 1
  943.         mutable = mutable + 1
  944.     CASE "Capricorn"
  945.         earth = earth + 1
  946.         capricorn_Value = capricorn_Value + 1
  947.         cardinals = cardinals + 1
  948.     CASE "Aquarius"
  949.         air = air + 1
  950.         Aquarius_Value = Aquarius_Value + 1
  951.         fixed = fixed + 1
  952.     CASE "Pisces"
  953.         water = water + 1
  954.         pisces_Value = pisces_Value + 1
  955.         mutable = mutable + 1
  957.  
  958. elements = earth + fire + water + air
  959. Earth_Percentage = 100 / elements * earth
  960. Fire_Percentage# = 100 / elements * fire
  961. Water_Percentage# = 100 / elements * water
  962. Air_Percentage# = 100 / elements * air
  963.  
  964. Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
  965. Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
  966. Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
  967. Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
  968.  
  969. qualities = cardinals + fixed + mutable
  970. cardinal_Percentage# = 100 / qualities * cardinals
  971. fixed_Percentage# = 100 / qualities * fixed
  972. mutable_Percentage# = 100 / qualities * mutable
  973.  
  974. cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
  975. fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
  976. mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
  977.  
  978. all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
  979. Aries_Percentage = 100 / all_Signs * aries_Value
  980. Taurus_Percentage = 100 / all_Signs * taurus_Value
  981. Gemini_Percentage = 100 / all_Signs * gemini_Value
  982. Cancer_Percentage = 100 / all_Signs * cancer_Value
  983. Leo_Percentage = 100 / all_Signs * leo_Value
  984. Virgo_Percentage = 100 / all_Signs * virgo_Value
  985. Libra_Percentage = 100 / all_Signs * libra_Value
  986. Scorpio_Percentage = 100 / all_Signs * scorpio_Value
  987. Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
  988. Capricorn_Percentage = 100 / all_Signs * capricorn_Value
  989. Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
  990. Pisces_Percentage = 100 / all_Signs * pisces_Value
  991.  
  992. Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
  993. Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
  994. Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
  995. Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
  996. Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
  997. Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
  998. Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
  999. Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
  1000. Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
  1001. Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
  1002. Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
  1003. Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
  1004.  
  1005. all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
  1006. house1_Percentage = 100 / all_Houses * house(1)
  1007. house2_Percentage = 100 / all_Houses * house(2)
  1008. house3_Percentage = 100 / all_Houses * house(3)
  1009. house4_Percentage = 100 / all_Houses * house(4)
  1010. house5_Percentage = 100 / all_Houses * house(5)
  1011. house6_Percentage = 100 / all_Houses * house(6)
  1012. house7_Percentage = 100 / all_Houses * house(7)
  1013. house8_Percentage = 100 / all_Houses * house(8)
  1014. house9_Percentage = 100 / all_Houses * house(9)
  1015. house10_Percentage = 100 / all_Houses * house(10)
  1016. house11_Percentage = 100 / all_Houses * house(11)
  1017. house12_Percentage = 100 / all_Houses * house(12)
  1018.  
  1019. house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
  1020. house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
  1021. house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
  1022. house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
  1023. house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
  1024. house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
  1025. house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
  1026. house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
  1027. house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
  1028. house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
  1029. house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
  1030. house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
  1031.  
  1032. largest = 0
  1033. IF aries_Value > largest THEN largest = aries_Value: dom_Sign$ = "Aries"
  1034. IF taurus_Value > largest THEN largest = taurus_Value: dom_Sign$ = "Taurus"
  1035. IF gemini_Value > largest THEN largest = gemini_Value: dom_Sign$ = "Gemini"
  1036. IF cancer_Value > largest THEN largest = cancer_Value: dom_Sign$ = "Cancer"
  1037. IF leo_Value > largest THEN largest = leo_Value: dom_Sign$ = "Leo"
  1038. IF virgo_Value > largest THEN largest = virgo_Value: dom_Sign$ = "Virgo"
  1039. IF libra_Value > largest THEN largest = libra_Value: dom_Sign$ = "Libra"
  1040. IF scorpio_Value > largest THEN largest = scorpio_Value: dom_Sign$ = "Scorpio"
  1041. IF sagittarius_Value > largest THEN largest = sagittarius_Value: dom_Sign$ = "Sagittarius"
  1042. IF capricorn_Value > largest THEN largest = capricorn_Value: dom_Sign$ = "Capricorn"
  1043. IF Aquarius_Value > largest THEN largest = Aquarius_Value: dom_Sign$ = "Aquarius"
  1044. IF pisces_Value > largest THEN largest = pisces_Value: dom_Sign$ = "Pisces"
  1045. signs_percentage = 100 / all_Signs * largest
  1046. signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
  1047.  
  1048. largesthouse = 0
  1049. IF house(1) > largesthouse THEN largesthouse = house(1): dom_House = 1
  1050. IF house(2) > largesthouse THEN largesthouse = house(2): dom_House = 2
  1051. IF house(3) > largesthouse THEN largesthouse = house(3): dom_House = 3
  1052. IF house(4) > largesthouse THEN largesthouse = house(4): dom_House = 4
  1053. IF house(5) > largesthouse THEN largesthouse = house(5): dom_House = 5
  1054. IF house(6) > largesthouse THEN largesthouse = house(6): dom_House = 6
  1055. IF house(7) > largesthouse THEN largesthouse = house(7): dom_House = 7
  1056. IF house(8) > largesthouse THEN largesthouse = house(8): dom_House = 8
  1057. IF house(9) > largesthouse THEN largesthouse = house(9): dom_House = 9
  1058. IF house(10) > largesthouse THEN largesthouse = house(10): dom_House = 10
  1059. IF house(11) > largesthouse THEN largesthouse = house(11): dom_House = 11
  1060. IF house(12) > largesthouse THEN largesthouse = house(12): dom_House = 12
  1061. largesthouse_percentage = 100 / all_Houses * largesthouse
  1062. largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
  1063.  
  1064. Quad1 = house(1) + house(2) + house(3)
  1065. Quad2 = house(4) + house(5) + house(6)
  1066. Quad3 = house(7) + house(8) + house(9)
  1067. Quad4 = house(10) + house(11) + house(12)
  1068. all_Quads = Quad1 + Quad2 + Quad3 + Quad4
  1069.  
  1070. largedom_Quad = 0
  1071. IF Quad1 > largedom_Quad THEN largedom_Quad = Quad1: dom_Quad$ = "1st aka Fire or energy quadrant"
  1072. IF Quad2 > largedom_Quad THEN largedom_Quad = Quad2: dom_Quad$ = "2nd aka Water or emotional quadrant"
  1073. IF Quad3 > largedom_Quad THEN largedom_Quad = Quad3: dom_Quad$ = "3rd aka Air or intellectual quadrant"
  1074. IF Quad4 > largedom_Quad THEN largedom_Quad = Quad4: dom_Quad$ = "4th aka Earth or reality quadrant"
  1075. large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
  1076. large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
  1077.  
  1078. quad1_Percentage = 100 / all_Quads * Quad1
  1079. quad2_Percentage = 100 / all_Quads * Quad2
  1080. quad3_Percentage = 100 / all_Quads * Quad3
  1081. quad4_Percentage = 100 / all_Quads * Quad4
  1082.  
  1083. quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
  1084. quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
  1085. quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
  1086. quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
  1087.  
  1088. earth_String$ = "The sum of the earth signs in this birth chart is" + STR$(earth) + ". Thus, its owner is determined by the element of earth by" + STR$(Earth_percentage_Rounded#) + "%."
  1089. fire_String$ = "The sum of the fire signs in this birth chart is" + STR$(fire) + ". Thus, its owner is determined by the element of fire by" + STR$(Fire_percentage_Rounded#) + "%."
  1090. water_String$ = "The sum of the water signs in this birth chart is" + STR$(water) + ". Thus, its owner is determined by the element of water by" + STR$(Water_percentage_Rounded#) + "%."
  1091. air_String$ = "The sum of the air signs in this birth chart is" + STR$(air) + ". Thus, its owner is determined by the element of air by" + STR$(Air_percentage_Rounded#) + "%."
  1092.  
  1093. active_Signs = fire + earth
  1094. passive_Signs = water + air
  1095. polarity_Percentage = active_Signs + passive_Signs
  1096.  
  1097. active_Percentage = 100 / polarity_Percentage * active_Signs
  1098. passive_Percentage = 100 / polarity_Percentage * passive_Signs
  1099.  
  1100. active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
  1101. passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
  1102.  
  1103. active_String$ = "The sum of the active signs in this birth chart is" + STR$(active_Signs) + ". Thus, its owner is characterized by active polarities at" + STR$(active_percentage_Rounded#) + "%."
  1104. passive_String$ = "The sum of the passive signs in this birth chart is" + STR$(passive_Signs) + ". Thus, its owner is characterized by passive polarities at" + STR$(passive_percentage_Rounded#) + "%."
  1105.  
  1106. aries_String$ = "Strength of Aries:" + STR$(aries_Value) + " (" + STR$(Aries_percentage_Rounded#) + "%)"
  1107. taurus_String$ = "Strength of Taurus:" + STR$(taurus_Value) + " (" + STR$(Taurus_percentage_Rounded#) + "%)"
  1108. gemini_String$ = "Strength of Gemini:" + STR$(gemini_Value) + " (" + STR$(Gemini_percentage_Rounded#) + "%)"
  1109. cancer_String$ = "Strength of Cancer:" + STR$(cancer_Value) + " (" + STR$(Cancer_percentage_Rounded#) + "%)"
  1110. leo_String$ = "Strength of Leo:" + STR$(leo_Value) + " (" + STR$(Leo_percentage_Rounded#) + "%)"
  1111. virgo_String$ = "Strength of Virgo:" + STR$(virgo_Value) + " (" + STR$(Virgo_percentage_Rounded#) + "%)"
  1112. libra_String$ = "Strength of Libra:" + STR$(libra_Value) + " (" + STR$(Libra_percentage_Rounded#) + "%)"
  1113. scorpio_String$ = "Strength of Scorpio:" + STR$(scorpio_Value) + " (" + STR$(Scorpio_percentage_Rounded#) + "%)"
  1114. sagittarius_String$ = "Strength of Sagittarius:" + STR$(sagittarius_Value) + " (" + STR$(Sagittarius_percentage_Rounded#) + "%)"
  1115. capricorn_String$ = "Strength of Capricorn:" + STR$(capricorn_Value) + " (" + STR$(Capricorn_percentage_Rounded#) + "%)"
  1116. Aquarius_String$ = "Strength of Aquarius:" + STR$(Aquarius_Value) + " (" + STR$(Aquarius_percentage_Rounded#) + "%)"
  1117. pisces_String$ = "Strength of Pisces:" + STR$(pisces_Value) + " (" + STR$(Pisces_percentage_Rounded#) + "%)"
  1118.  
  1119. cardinal_String$ = "The sum of the cardinal signs in this birth chart is" + STR$(cardinals) + ". Thus, its owner is characterized by cardinal qualities at" + STR$(cardinal_percentage_Rounded#) + "%."
  1120. fixed_String$ = "The sum of the fixed signs in this birth chart is" + STR$(fixed) + ". Thus, its owner is characterized by fixed qualities at" + STR$(fixed_percentage_Rounded#) + "%."
  1121. mutable_String$ = "The sum of the mutable signs in this birth chart is" + STR$(mutable) + ". Thus, its owner is characterized by mutable qualities at" + STR$(mutable_percentage_Rounded#) + "%."
  1122.  
  1123. house1_String$ = "Strength of the 1st house: " + STR$(house(1)) + " (" + STR$(house1_percentage_Rounded#) + "%)"
  1124. house2_String$ = "Strength of the 2nd house: " + STR$(house(2)) + " (" + STR$(house2_percentage_Rounded#) + "%)"
  1125. house3_String$ = "Strength of the 3rd house: " + STR$(house(3)) + " (" + STR$(house3_percentage_Rounded#) + "%)"
  1126. house4_String$ = "Strength of the 4th house: " + STR$(house(4)) + " (" + STR$(house4_percentage_Rounded#) + "%)"
  1127. house5_String$ = "Strength of the 5th house: " + STR$(house(5)) + " (" + STR$(house5_percentage_Rounded#) + "%)"
  1128. house6_String$ = "Strength of the 6th house: " + STR$(house(6)) + " (" + STR$(house6_percentage_Rounded#) + "%)"
  1129. house7_String$ = "Strength of the 7th house: " + STR$(house(7)) + " (" + STR$(house7_percentage_Rounded#) + "%)"
  1130. house8_String$ = "Strength of the 8th house: " + STR$(house(8)) + " (" + STR$(house8_percentage_Rounded#) + "%)"
  1131. house9_String$ = "Strength of the 9th house: " + STR$(house(9)) + " (" + STR$(house9_percentage_Rounded#) + "%)"
  1132. house10_String$ = "Strength of the 10th house: " + STR$(house(10)) + " (" + STR$(house10_percentage_Rounded#) + "%)"
  1133. house11_String$ = "Strength of the 11th house: " + STR$(house(11)) + " (" + STR$(house11_percentage_Rounded#) + "%)"
  1134. house12_String$ = "Strength of the 12th house: " + STR$(house(12)) + " (" + STR$(house12_percentage_Rounded#) + "%)"
  1135.  
  1136. Quad1string$ = "Strength of the 1st quadrant: " + STR$(Quad1) + " (" + STR$(quad1_percentage_Rounded#) + "%)"
  1137. Quad2string$ = "Strength of the 2nd quadrant: " + STR$(Quad2) + " (" + STR$(quad2_percentage_Rounded#) + "%)"
  1138. Quad3string$ = "Strength of the 3rd quadrant: " + STR$(Quad3) + " (" + STR$(quad3_percentage_Rounded#) + "%)"
  1139. Quad4string$ = "Strength of the 4th quadrant: " + STR$(Quad4) + " (" + STR$(quad4_percentage_Rounded#) + "%)"
  1140.  
  1141. DECLARE SUB quicksort (min%, max%)
  1142. DECLARE SUB display ()
  1143. DIM SHARED elements_Table$(3), elements_table_Values(3)
  1144.  
  1145. elements_Table$(0) = earth_String$
  1146. elements_table_Values(0) = earth
  1147. elements_Table$(1) = fire_String$
  1148. elements_table_Values(1) = fire
  1149. elements_Table$(2) = water_String$
  1150. elements_table_Values(2) = water
  1151. elements_Table$(3) = air_String$
  1152. elements_table_Values(3) = air
  1153.  
  1154. DIM SHARED signs_Table$(11), signs_table_Values(11)
  1155.  
  1156. signs_Table$(0) = aries_String$
  1157. signs_table_Values(0) = aries_Value
  1158. signs_Table$(1) = taurus_String$
  1159. signs_table_Values(1) = taurus_Value
  1160. signs_Table$(2) = gemini_String$
  1161. signs_table_Values(2) = gemini_Value
  1162. signs_Table$(3) = cancer_String$
  1163. signs_table_Values(3) = cancer_Value
  1164. signs_Table$(4) = leo_String$
  1165. signs_table_Values(4) = leo_Value
  1166. signs_Table$(5) = virgo_String$
  1167. signs_table_Values(5) = virgo_Value
  1168. signs_Table$(6) = libra_String$
  1169. signs_table_Values(6) = libra_Value
  1170. signs_Table$(7) = Skoprionstring$
  1171. signs_table_Values(7) = scorpio_Value
  1172. signs_Table$(8) = sagittarius_String$
  1173. signs_table_Values(8) = sagittarius_Value
  1174. signs_Table$(9) = capricorn_String$
  1175. signs_table_Values(9) = capricorn_Value
  1176. signs_Table$(10) = Aquarius_String$
  1177. signs_table_Values(10) = Aquarius_Value
  1178. signs_Table$(11) = pisces_String$
  1179. signs_table_Values(11) = pisces_Value
  1180.  
  1182. PRINT "Elements:"
  1184. quicksort 0, 3, elements_Table$(), elements_table_Values()
  1185. display elements_Table$(), elements_table_Values()
  1188. PRINT "Dominance of the signs:"
  1190. quicksort 0, 11, signs_Table$(), signs_table_Values()
  1191. display signs_Table$(), signs_table_Values()
  1193. 'PRINT aries_String$
  1194. 'PRINT taurus_String$
  1195. 'PRINT gemini_String$
  1196. 'PRINT cancer_String$
  1197. 'PRINT leo_String$
  1198. 'PRINT virgo_String$
  1199. 'PRINT libra_String$
  1200. 'PRINT scorpio_String$
  1201. 'PRINT sagittarius_String$
  1202. 'PRINT capricorn_String$
  1203. 'PRINT Aquarius_String$
  1204. 'PRINT pisces_String$
  1206. PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
  1209. PRINT "Qualities:"
  1211. PRINT cardinal_String$
  1212. PRINT fixed_String$
  1213. PRINT mutable_String$
  1216. PRINT "Polarities:"
  1218. PRINT active_String$
  1219. PRINT passive_String$
  1222. PRINT "Dominance of the houses:"
  1224. PRINT house1_String$
  1225. PRINT house2_String$
  1226. PRINT house3_String$
  1227. PRINT house4_String$
  1228. PRINT house5_String$
  1229. PRINT house6_String$
  1230. PRINT house7_String$
  1231. PRINT house8_String$
  1232. PRINT house9_String$
  1233. PRINT house10_String$
  1234. PRINT house11_String$
  1235. PRINT house12_String$
  1237. PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
  1240. PRINT "Dominance of the quadrants:"
  1242. PRINT Quad1string$
  1243. PRINT Quad2string$
  1244. PRINT Quad3string$
  1245. PRINT Quad4string$
  1247. PRINT "The dominant quadrant is the "; dom_Quad$; " at "; large_dom_Quad_percentage_Rounded#; "%."
  1249. PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
  1251.  
  1252. SUB display (a$(), b())
  1253.     FOR i% = 0 TO UBOUND(a$)
  1254.         PRINT a$(i%) REM, b(i%)
  1255.     NEXT
  1257.  
  1258. SUB quicksort (min%, max%, a$(), b())
  1259.     IF min% < max% THEN
  1260.         p1% = min%
  1261.         p2% = max%
  1262.         mid = b((min% + max%) \ 2) '**
  1263.         DO UNTIL p1% > p2%
  1264.             DO WHILE b(p1%) > mid '**<<invert this unequality to sort ascending
  1265.                 p1% = p1% + 1
  1266.             LOOP
  1267.             DO WHILE mid > b(p2%) '**<<this one too
  1268.                 p2% = p2% - 1
  1269.             LOOP
  1270.             IF p1% <= p2% THEN
  1271.                 SWAP a$(p1%), a$(p2%) '**
  1272.                 SWAP b(p1%), b(p2%) '**
  1273.                 p1% = p1% + 1
  1274.                 p2% = p2% - 1
  1275.             END IF
  1276.         LOOP
  1277.         IF min% < p2% THEN quicksort min%, p2%, a$(), b()
  1278.         IF p1% < max% THEN quicksort p1%, max%, a$(), b()
  1279.     END IF
  1281.  
please try it.

2.
the
Code: QB64: [Select]
  1. WIDTH 150, 70 ' Bplus fixes fit in screen
is the solution that Bplus gives to me to let see all the output into  the screen because I have a notebook with a 15'' screen, but you needn't it for your personal screen!

3. You have a previous smart experience with VisualBasic. What version of VisualBasic?  I knew VB 3.0 for windows as first, then VB4.0. Then I left the world of programming for about 8 years, in the coming back VB was at 6.0 and it was becoming VB.net.... and I got in the web  and found RapidQ, when its community was at the last years of activity. My luck was that I had had enough experience with Qbasic and QB45 of DOS to not loose myself in so many informations useful only for single component of VB and not for being able to program. About VB it seems that Microsoft release free VBexpress 2008 for private personal use. So also if you make a program for free for a friend you are outlaw.  :-) Great marketing.
Yes Inform is an excellent interface that emulates very well the VB in the event driven programming .

4.
Quote
Quote
5. to solve the repetition of number in the first 2 sections  of output  you must simply REM out the second parameter of the SUB in the line 1254 of PRINT

I've tried that, but then QB told me to do the same on line 1252, and then it gave me a syntax error from that on line 1185.
this is fun!
Why? Because in your original code
this is the line 1252
Code: QB64: [Select]
  1. SUB display (a$(), b())
  that is the declaration of the SUB with its parameters
this is line 1254
Code: QB64: [Select]
  1.         PRINT a$(i%), b(i%)  
  that is a simple print on the screen of 2 variables with a distance of a tabulation between them
this is the line 1185
Code: QB64: [Select]
  1. display elements_Table$(), elements_table_Values()
that is a simple call of a SUB passing to it its parameters

so if you simply REM out the second variable from line 1254
Code: QB64: [Select]
  1.         PRINT a$(i%)  REM, b(i%)  
you cannot get these feedbacks from the QB64.

Otherwise if you use the new SUB display posted by me you must adjust all calling to it because it has one (and not 2) parameter
at lines 1191 and 1185
moreover you must REM or cancel the lines from 1193 to 1204
------------------

I hope that my feedbacks are clear and useful.

Good Coding

PS have you already done a flowchart or a pseudocode of the final program ?
It can be useful to understand programming with no matter what language and tool do you want to use!
See here to know more https://en.wikipedia.org/wiki/Pseudocode
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Still need help on my horoscope program
« Reply #11 on: June 07, 2020, 02:11:51 pm »
Hi  running my mod I got this issue
 
Horoscope issue5.jpg

the 2nd highest value is blank....

so I have tested it in a suitable mode
Code: QB64: [Select]
  1. DIM a$(11), b(11)
  4.     LOCATE 1, 1: PRINT " Press a key to repeat or Enter to quit"
  5.     initialize a$(), b()
  6.     quicksort 0, 11, a$(), b()
  7.     display a$(), b()
  8.     SLEEP
  11.  
  12. SUB initialize (Name$(), Value())
  13.     FOR z = 0 TO UBOUND(Name$) 'Name$() and Value have the same upper limit
  14.         Name$(z) = CHR$(65 + (RND * 25))
  15.         Value(z) = ASC(Name$(z))
  16.     NEXT z
  18.  
  19. SUB display (a$(), b())
  20.     FOR i% = 0 TO UBOUND(a$)
  21.         PRINT , a$(i%), b(i%)
  22.     NEXT
  24.  
  25. SUB quicksort (min%, max%, a$(), b())
  26.     IF min% < max% THEN
  27.         p1% = min%
  28.         p2% = max%
  29.         mid = b((min% + max%) \ 2) '**
  30.         DO UNTIL p1% > p2%
  31.             DO WHILE b(p1%) > mid '**<<invert this unequality to sort ascending
  32.                 p1% = p1% + 1
  33.             LOOP
  34.             DO WHILE mid > b(p2%) '**<<this one too
  35.                 p2% = p2% - 1
  36.             LOOP
  37.             IF p1% <= p2% THEN
  38.                 SWAP a$(p1%), a$(p2%) '**
  39.                 SWAP b(p1%), b(p2%) '**
  40.                 p1% = p1% + 1
  41.                 p2% = p2% - 1
  42.             END IF
  43.         LOOP
  44.         IF min% < p2% THEN quicksort min%, p2%, a$(), b()
  45.         IF p1% < max% THEN quicksort p1%, max%, a$(), b()
  46.     END IF
  48.  

but I have no issue into the test! 
.... who wants to repeat the quicksort algorythm?

Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Still need help on my horoscope program
« Reply #12 on: June 07, 2020, 02:29:16 pm »
Quote
.... who wants to repeat the quicksort algorythm?

@TempodiBasic

(referring to the code below) You will have to adjust your Quick Sort code to the Type array to sort.

If you have multiple fields, I would build a string array with fields concatenated in the order you want to sort by.
Make number fields right justified strings, string fields left justified and allow no variable width field (except maybe the last).

Quick and simple demo of Quick Sort:
Code: QB64: [Select]
  1. 'Quick Sort test.bas
  2.  
  3. RANDOMIZE TIMER '<<<< to get different results each test uncomment this line
  4. n = 10
  5. DIM a(n)
  6.  
  7. 'load test array
  8. FOR i = 1 TO n
  9.     a(i) = RND
  11.  
  12. 'sort the array  with sub copied from wiki (insert CR or LF as needed)
  13. CALL QuickSort(1, n, a())
  14.  
  15. 'have a look at array
  16. FOR i = 1 TO n
  17.     PRINT a(i)
  19.  
  20. SUB QuickSort (start AS INTEGER, finish AS INTEGER, array() AS SINGLE)
  21.     DIM Hi AS INTEGER, Lo AS INTEGER, Middle AS SINGLE
  22.     Hi = finish: Lo = start
  23.     Middle = array((Lo + Hi) / 2) 'find middle of array
  24.     DO
  25.         DO WHILE array(Lo) < Middle: Lo = Lo + 1: LOOP
  26.         DO WHILE array(Hi) > Middle: Hi = Hi - 1: LOOP
  27.         IF Lo <= Hi THEN
  28.             SWAP array(Lo), array(Hi)
  29.             Lo = Lo + 1: Hi = Hi - 1
  30.         END IF
  31.     LOOP UNTIL Lo > Hi
  32.     IF Hi > start THEN CALL QuickSort(start, Hi, array())
  33.     IF Lo < finish THEN CALL QuickSort(Lo, finish, array())
  35.  

For string array change Middle to Middle$ and of course the array() parameter.

« Last Edit: June 07, 2020, 02:59:23 pm by bplus »
Logged

Offline DDBE

  • Newbie
  • Posts: 26
    • View Profile
Re: Still need help on my horoscope program
« Reply #13 on: June 07, 2020, 03:46:48 pm »
Quote
3. You have a previous smart experience with VisualBasic. What version of VisualBasic?

I have no idea. It was just a one or two-weeks public evening course, where we were literally copying the instructor's code word-by-word, just so we could make a tiny clipart airplane fly on a pre-defined path across a background BMP map, touching 5 cities or so. All 2D. At the end of that course, I figured I could do the same within CorelMOVE or Premiere Pro within five minutes, rather than taking one or two weeks for it as in VBasic, and I found that VBasic was just unnessarily hugely overcomplicating things. Have never used VBasic again after that course roughly 15-20 years ago.

The only thing I'd taken home from that course that had nothing to do with CoreMOVE or Premiere Pro was that a VBasic program is basically one huge IF (or SELECT CASE) loop waiting for specific events to occur and is capable of doing severeal different things at once, which is a *WAY* different philosophy than Commodore64 BASIC or QBasic. I guess I really prefer the simplicity of good ol' linearity and just a few loops or GOTOs here and there. Couldn't make much sense of VBasic for that reason.

BTW...


Quote
I see that more actions are repetitive. [...] PS have you already done a flowchart or a pseudocode of the final program ?

Where exactly do you see unnecessary repetitions in my original program above? Somnething like a verbal flowchart following below:

Lines 1-956:

I wouldn't know how to further streamline especially the first 956 lines of my original program. The basic idea for those first 956 lines is that every celestial body (as well as ascendant and MC) has a specific fixed numerical value attached to it.

To further desribe the concept: Each birth chart is round like a clock, divided into 12 sections numbered counter-clockwise, beginning at roughly 9 o'clock (where the ascendant is located). These 12 sections are the 12 houses. The 2D chart representation of 3D space works as such that the 12 houses and the 12 signs are visualized basically as two concentric rings, with the houses ring inside the signs ring, and where the outer signs ring can be rotated independently from the houses ring. The rotation of the outer signs ring represents the earth's daily rotation around its own axis in relation to the stars within a 3D space (including a horizon line, formed by the AC-DC axis), so that the moment (as well as location) of birth defines not only the position of the planets, but also how the outer signs ring is rotated or positioned in relation to the inner houses ring, making signs individually end up in specific houses.

Random chart for clarification about the houses and the two concentric rings (houses and signs):

https://www.astro.com/tmpd/cplnfileetj1pG-u1581285156/astro_2atw_richard_nixon.71036.28570.png?33796

Now, each of the 12 houses in the circular house system is like a box, and each of those house boxes can hold:

a.) Celestial bodies (not all houses do),

b.) one out of the 12 signs (all houses have a sign inside of them),

c.) based upon the sign they're in, each celestial body also adds its numerical value to the sign's specific attributes. Each sign has three different attributes:

  • Element (there are 4 different elements a sign can belong to: Earth, water, fire, or air),
  • Quality (there are 3 different qualities a sign can belong to: Cardinal, fixed, or mutable),
  • Polarity (there are 2 different polarities a sign can belong to: Active or passive).

Now, based upon where every single celestial body (as well as ascendant and MC) is located inside the spherical house system, you add up the figures of all celestial bodies for each one of the 12 houses and each one of the 12 signs, as well as for the sign's three attributes (element, quality, and polarity).

One only needs to remember that ascendant and MC themselves don't add to a specific house, because unlike with celestial bodies, their position within the house sytem is fixed by being the boundary between the 12th and the 1st house (the ascendant, always located at roughly 9 o'clock on the circular chart) and between the 9th and the 10th house (the MC, always located at roughly 12 o'clock).

However, the planetary ruler of the ascendant sign does add to a house, to a sign, and to the three attributes of that sign. Only not to the sign that is directly in that house where the planetary ruler is in; here, the system works a bit differently as such that when it comes to the house position of an ascendant's planetary ruler, each house has a specific "natural" sign attributed to/associated with it, as opposed to the sign that is actually in that house.

Lines 957-1139:

Following that, lines 957-1139 of my original program deal with:

a.) calculating percentages of strengths within each category (houses, signs, elements, qualities, polarities),

b.) defining the four quadrants (each made out of three consecutive houses) and calculating their percentages,

c.) rounding all the percentages to two decimal places (neither rounding up nor rounding down indiscriminately, but rounding them either up *OR* down based upon what is the closest value) (where I found those operations don't really work exactly like QB64 documentation says, so I had to add one further operation every time by means of a colon in that same line),

d.) and assigning the alphanumerical $trings to print at the end that have resulted from all of the operations above.

Lines 1141-1179:

Lines 1141-1179 define the two-column tables for each category, where one column holds the sortable numerical value, the other holds the $tring to be printed attached to it, so we'll have tables that can be sorted further down.

Lines 1181-1280:

Now, it's the lines 1181 to the very end of my original program (particularly the sub-routines and their calls) that are a total mystery to me and came from Luke, intended to sort every single category table in descending order once this program is finished (where each table can hold two or more tables lines of identical numerical value).

Quote
please try [my new code].

Okay, I'll now screenshot the results of my old code (to still have the numerical results to compare), then I'll try your new code in a clean new program. Thank you so much so far! I guess right now, Bplus's further tweaks are a bit over my head even just how to implement them into your new code.
« Last Edit: June 07, 2020, 03:56:23 pm by DDBE »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Still need help on my horoscope program
« Reply #14 on: June 07, 2020, 04:49:50 pm »
Quote
Bplus's further tweaks are a bit over my head even just how to implement them into your new code.

@DDBE Sorry, Bplus is thinking data-basing but when I see your last post, now thinking complex mult-variable function that requires sub function assembly of data to solve the main function.

I posted the Quick Sort as requested by TempodiBasic only to discover he had a perfectly fine one posted for sorting an array by a field. Again sorry to complicate matters.
Logged
Pages: [1] 2 3   Go Up
« previous next »