Still need help on my horoscope program

[TempodiBasic]

@bplus
The quicksort isn't one of mine, it is the original that had posted DDBE .
I have only checked it in a simpler code than original post. In this last it seems to loose an element that has the same value of another. But in my littler example I never got the glitch!
So my question was : is really there something wrong? Why does it disappear Scorpio from the list printed out after sorting the array of signes?


@DDBE
your code is very huge and works. IMHO it is possible to understand what are the fundamental data to create an UDT (User Defined Data) to manage so many variables all together....
thinking raw about your program
you use:
 12 houses
 12 signs
 14 planets
 4 elements
 3 quality
 2 polarity

and your goal is to calculate:
 1 dominance of elements
 2 dominance of signs
 3 dominance of houses
 4 dominance of qualities
 5 dominance of polarities
 6 dominance of quadrants


I'll take a look into the forest of sum...
Please gimme a feedback  about Mars (that is the only one planet to show 2 different values into different sections of calculations)
into House calculation it gives 6 to its house, while into signs it gives 5 to element, quality and polarity. Is this correct for your calculations?

Thanks for read

[DDBE]

@bplus Please gimme a feedback  about Mars (that is the only one planet to show 2 different values into different sections of calculations)
into House calculation it gives 6 to its house, while into signs it gives 5 to element, quality and polarity. Is this correct for your calculations?

Oh shit, you're right! It should always be 6 instead of 5 points added within the SELECT CASE Mars$ loop!

[bplus]

@bplus
The quicksort isn't one of mine, it is the original that had posted DDBE .
I have only checked it in a simpler code than original post. In this last it seems to loose an element that has the same value of another. But in my littler example I never got the glitch!
So my question was : is really there something wrong? Why does it disappear Scorpio from the list printed out after sorting the array of signes?

Hi TempodiBasic,

I looked over your simplified quicksort and looks good. Is the missing item in the array(s) before quicksort is called?
Is it a top or bottom item in an array list? (There could be a problem if an array assumed to start at 1 starts at 0 or vice versa).

Intuitively I sense that UDT might organize and reduce code lines also, but maybe not.

Man! I admire how you are getting into the details here!

[TempodiBasic]

@DDBE ok now you can fix it in your code and I in my MOD  :-)

@bplus  the missed value is the 2nd highest after quicksort and yes the array DIMmed by DDBE is 0-11 and quicksort is called with min%,Max%  as  0,11

Code: QB64: [Select]

1. PRINT "Dominance of the signs:"
2. COLOR 15
3. quicksort 0, 11, signs_Table$(), signs_table_Values()
4. display signs_Table$(), signs_table_Values()
5. PRINT
6. 'PRINT aries_String$
7. 'PRINT taurus_String$
8. 'PRINT gemini_String$
9. 'PRINT cancer_String$
10. 'PRINT leo_String$
11. 'PRINT virgo_String$
12. 'PRINT libra_String$
13. PRINT scorpio_String$, signs_Table$(1) '<-- printing original string and array item of Scorpio
14. 'PRINT sagittarius_String$
15. 'PRINT capricorn_String$
16. 'PRINT Aquarius_String$
17. 'PRINT pisces_String$

if you run my code unREMming the Scorpio line of code you'll get its value

 

any idea?

[bplus]

@bplus  the missed value is the 2nd highest after quicksort and yes the array DIMmed by DDBE is 0-11 and quicksort is called with min%,Max%  as  0,11

@TempodiBasic, taking your code from reply #11 I made these changes:
at top, for readablility and screen fit

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(150, 70, 0) 'make screen size that fits my laptop and can read
2. 'WIDTH 150, 70 ' Bplus fixes fit in screen
3. CLS
4.  

focus in on the code around 1190 the call to quicksort, check the arrays before and after and then quit program:

Code: QB64: [Select]

1. CLS
2. PRINT "Dominance of the signs: Before quicksort call"
3. PRINT
4. display signs_Table$(), signs_table_Values()
5. quicksort 0, 11, signs_Table$(), signs_table_Values()
6. PRINT
7. PRINT "Dominance of the signs: After quicksort call"
8. PRINT
9. display signs_Table$(), signs_table_Values()
10. END
11.  

and a little change to display sub to see both arrays and format a little better

Code: QB64: [Select]

1. SUB display (a$(), b())
2.     FOR i% = 0 TO UBOUND(a$)
3.         'PRINT a$(i%) REM, b(i%)  'reply #11 code
4.         PRINT i%; ": "; a$(i%); "  >> b(): "; b(i%) ' let us see what b() has as well
5.     NEXT
6. END SUB

Here is the result:
 

You can plainly see that Scorpio was missing from signs_Table$() even before the call to quicksort (but signs_table_Values() array did have it and so sorted properly as key to the sort algo).

I have now I think proved quicksort is not the problem. I suspect some typo or other mistake when assigning the Scorpio value to the signs_Table$() array.

[TempodiBasic]

@bplus
EXCELLENT session of debug!
Yes your research puts light on the mistery!  And Yes you're right about the nature of the error that is before quicksort SUB!

here is the genesis of the issue!

1170 signs_Table$(7) = Skoprionstring$

it is clearly a mystype error!
Thanks to solve the issue  Bplus.

[bplus]

@bplus
EXCELLENT session of debug!
Yes your research puts light on the mistery!  And Yes you're right about the nature of the error that is before quicksort SUB!

here is the genesis of the issue! it is clearly a mystype error!
Thanks to solve the issue  Bplus.

Aha! @TempodiBasic you found it!

[DDBE]

OMG, thank you so, so much guys! This is the final code now, and it works absolutely fine:

Code: QB64: [Select]

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

BTW, I've now tried to change the background color to white, as that will be the background color of the final output field in InForm.

As you can see, thanks to you I've been able to create an own table for every one of the 6 categories (elements, signs, qualities, polarities, houses, and quadrants) and sort them in descending order by means of just one versatile sub-routine!

Again, I do believe somebody should write an own article or tutorital on how to create and sort such Excel-style tables over at the QB64 wiki:

• First by using DIM SHARED,
• then assigning every single field of the table with an own column each value(s) according to which one wishes to sort the table,
• and finally an own versatile descending or ascending sorting sub-routine, which can be directly copy-pasted from that tutorial.

Anyways, the execution of my above code now works absolutely fine, but the status field at the bottom of QB64 still gives me a warning about an "unused variable" at line 1286. Do you know what's wrong there?

[bplus]

Since b() array was REM'd out in body of display SUB routine, you don't need it in the parameters call, I removed b() in calls to sub:

Code: QB64: [Select]

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

Should not effect anything else, are we still good?

[DDBE]

That immediately gives me a syntax error on line 1240 again. :(

[bplus]

Oh that's weird, it was working fine when I posted the changed program. But not fine when I copy paste from forum code??? I run it, it blinks and nothing.

I will try again.

[bplus]

That immediately gives me a syntax error on line 1240 again. :(

What does your error say, I am getting nothing, a blink and then nothing.

[bplus]

Here is a dumb fix, let's check copy/paste from forum on this one:

Code: QB64: [Select]

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

OK that works from copy/paste from forum.

[bplus]

Well now my copy/paste from forum reply #23 is working???  That's the better fix because I eliminated the unused b() parameter in display sub.

[DDBE]

Yay, that dummy line seems to have fixed the issue!