How to work with dynamic, Excel-style $tring tables in InForm?

[DDBE]

This in relation to this code that especially bplus, Luke, and Tempo helped me work out: https://www.qb64.org/forum/index.php?topic=2673.msg118943#msg118943

This is the InForm window that it's supposed to work with: https://abload.de/img/windowlmkf5.jpg The final results of all the calculations, about 60 lines or so (already had to break that up into two parts of about 30 lines each! see the two buttons for part 1 and part 2), are supposed to be displayed or printed out on the huge label at the bottom which currently reads "Please hit GO! buttons (one at a time)". The user is supposed to be able to use their mouse to manually select the resulting text and tables at the bottom and copy them to the clipboard, so they will be able to copy-paste it into Windows text editor or Word or any other text processor.

Okay, so it seems InForm has no equivalent to the simple PRINT command, which is very unfortunate because a large part of my above code is dependent upon PRINT, especially the sorting/displaying of the Excel-style $tring tables. It's those dynamically-sorted $tring tables that I can't see how to make them work with InForm.

Is there a simple InForm equivalent to PRINT that I can simply insert into the DISPLAY sub-routine?

If not, it seems I need a way (that would still work with my sorting sub-routine somehow) on how to feed a number of dynamically-sorted tables, each consisting of several lines, into a single $tring, lots of line breaks by means of /n included.

[bplus]

Okay, so it seems InForm has no equivalent to the simple PRINT command, which is very unfortunate because a large part of my above code is dependent upon PRINT, especially the sorting/displaying of the Excel-style $tring tables. It's those dynamically-sorted $tring tables that I can't see how to make them work with InForm.

Simply use a ListBox to replace your Display Subroutine. The ListBox takes an array and displays the entire contents with scrollers PLUS you can select items on the list if you want.

Use Text Boxes and Labels to display one or two liners.

[DDBE]

Huh, Fillippe said the content of a ListBox would not be selectable by the user to copy-paste it.

[DDBE]

Okay, I've looked at the InForm Wiki. Seems like when we take this section from our original code...

Code: QB64: [Select]

1. SUB display (a$())
2.     FOR i% = 0 TO UBOUND(a$)
3.         PRINT a$(i%)
4.     NEXT
5. END SUB

...it simply turns into the following with InForm?

Code: QB64: [Select]

1. SUB display (a$())
2.     FOR i% = 0 TO UBOUND(a$)
3.         AddItem ListBox1 a$(i%)
4.     NEXT
5. END SUB

Remember, I still wanna sort all six tables in descending order each. That's why I guess I'd prefer to stick to our two sub-routines for sorting and printing.

[bplus]

Huh, Fillippe said the content of a ListBox would not be selectable by the user to copy-paste it.

I would be extremely surprised if an item could not be selected from a List box after all isn't that what a List box is supposed to do but...

Having seen you app, you are probably going to want the whole array stored as a giant text string into the clipboard that would likely be done by clicking a button whose subroutine will join the array into a giant text string probably using CRLF to mark end of lines, piece of cake.

Your alternate code for display looks great!

Remember, I still wanna sort all six tables in descending order each. That's why I guess I'd prefer to stick to our two sub-routines for sorting and printing.

This too would be done with a button click which leads to code that does the sorting mostly the same code you have worked out already.

I am thinking InForm would make a Data Entry screen and then Click a button and presto-chango the output display is shown in a list box with all the data processing including the sorts done behind the scenes in mostly the routines you have already.

[DDBE]

Having seen you app, you are probably going to want the whole array stored as a giant text string

It doesn't need to be. I just want it all to be visible on the screen at the same time, just like it was in the QB64-only program without InForm before. I only want the user to be able to use the mouse and select the resulting text and do copy-paste, just like they would be able to with text on a website in a browser, for instance.

This too would be done with a button click which leads to code that does the sorting mostly the same code you have worked out already.

I am thinking InForm would make a Data Entry screen and then Click a button and presto-chango the output display is shown in a list box with all the data processing including the sorts done behind the scenes in mostly the routines you have already.

Yes, that's pretty much the idea here. First you enter all the data by means of the dropdowns, then just one button click, and BING! All the sorted tables appearing immediately at the bottom of the window, fully selectable and ready to copy.

[DDBE]

Okay, so I've tried to make InForm generate code from the thoroughly re-worked form. But I can't seem to find where I can define the event when the one single button is clicked. There's a sub-routine event called Click, but don't I have to adress Button1 with that inside the brackets somehow? No matter in which way I've tried to do that, it only gave me syntax errors.

I guess I need to write "Button1" somewhere in this line:

Code: QB64: [Select]

1. SUB __UI_Click (id AS LONG)

But as said, I can't seem to make it work without QB64 complaining even just because I'm trying to adress Button1.

[bplus]

There should be cases for every clickable "id" in the bas file created by InForm.

Code: QB64: [Select]

1. SUB __UI_Click (id AS LONG)
2.     SELECT CASE id
3.         CASE Cryptogram
4.  
5.         CASE lbMessage
6.  
7.         CASE tbMessage
8.  
9.         CASE btCode
10.             Caption(lbCodeMessage) = encrypt$(Text(tbMessage))
11.  
12.         CASE lbCoded
13.  
14.         CASE tbCode
15.  
16.         CASE btDecode
17.             Caption(lbDecodedMessage) = decode$(Text(tbCode))
18.             'SetFocus tbMessage  works
19.  
20.     END SELECT
21. END SUB
22.  

[DDBE]

There's no Button1 whatsoever inside that SELECT CASE. Button1 only exists at the top of the code as:

Code: QB64: [Select]

1. DIM SHARED Button1 AS LONG

All that's inside that SELECT CASE for the Click event is this:

Code: QB64: [Select]

1. SUB __UI_Click (id AS LONG)
2.     SELECT CASE id
3.         CASE Form1
4.  
5.         CASE Chartowner
6.  
7.         CASE TextBox1
8.  
9.         CASE __name
10.  
11.         CASE TextBox2
12.  
13.         CASE birthdate
14.  
15.         CASE TextBox3
16.  
17.         CASE birthtime
18.  
19.         CASE TextBox4
20.  
21.         CASE birthplace
22.  
23.     END SELECT
24. END SUB

[bplus]

You can just write it in I think. This is really Fellippe's domain of expertise.

[FellippeHeitor]

As I explained to you in the discord chatroom, InForm won't add new controls to existing select case blocks. It'll add the definition at the top but you should cater for new controls in the events yourself.

It is by design. InForm has no way of knowing  how much you may have customized the code it originally generated and avoids data loss by not attempting to do it.

What it will do is add the DIM SHARED line, as you've outlined, and a warning that says:

Code: QB64: [Select]

1. REM NOTICE: THIS FORM HAS BEEN RECENTLY EDITED
2. '>> The controls in the list below may have been added or renamed,
3. '>> and previously existing controls may have been deleted since
4. '>> this program's structure was first generated.
5. '>> Make sure to check your code in the events SUBs so that
6. '>> you can take your recent edits into consideration.
7.  

[DDBE]

Okay, so this is my code now:

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - v1.1
3. ': Fellippe Heitor, 2016-2019 - fellippe@qb64.org - [member=2]FellippeHeitor[/member]
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. REM NOTICE: THIS FORM HAS BEEN RECENTLY EDITED
9. '>> The controls in the list below may have been added or renamed,
10. '>> and previously existing controls may have been deleted since
11. '>> this program's structure was first generated.
12. '>> Make sure to check your code in the events SUBs so that
13. '>> you can take your recent edits into consideration.
14. ': ---------------------------------------------------------------------------------
15. DIM SHARED HC AS LONG
16. DIM SHARED Chartowner AS LONG
17. DIM SHARED Sun AS LONG
18. DIM SHARED moon AS LONG
19. DIM SHARED AscendantMC AS LONG
20. DIM SHARED mercury AS LONG
21. DIM SHARED venus AS LONG
22. DIM SHARED mars AS LONG
23. DIM SHARED jupiter AS LONG
24. DIM SHARED saturn AS LONG
25. DIM SHARED chiron AS LONG
26. DIM SHARED uranus AS LONG
27. DIM SHARED neptune AS LONG
28. DIM SHARED pluto AS LONG
29. DIM SHARED moon_node AS LONG
30. DIM SHARED lilith AS LONG
31. DIM SHARED TextBox1 AS LONG
32. DIM SHARED __name AS LONG
33. DIM SHARED TextBox2 AS LONG
34. DIM SHARED birthdate AS LONG
35. DIM SHARED TextBox3 AS LONG
36. DIM SHARED birthtime AS LONG
37. DIM SHARED TextBox4 AS LONG
38. DIM SHARED birthplace AS LONG
39. DIM SHARED DropdownList_sunHouse AS LONG
40. DIM SHARED sun_House AS LONG
41. DIM SHARED DropdownList_sunSign AS LONG
42. DIM SHARED sun_Sign AS LONG
43. DIM SHARED DropdownList_moonHouse AS LONG
44. DIM SHARED moon_House AS LONG
45. DIM SHARED moon_Sign AS LONG
46. DIM SHARED DropdownList_moonSign AS LONG
47. DIM SHARED DropdownList_ascendantSign AS LONG
48. DIM SHARED ascendant_Sign AS LONG
49. DIM SHARED mc_Sign AS LONG
50. DIM SHARED DropdownList_MCSign AS LONG
51. DIM SHARED DropdownList_mercuryHouse AS LONG
52. DIM SHARED mercury_House AS LONG
53. DIM SHARED DropdownList_mercurySign AS LONG
54. DIM SHARED mercury_Sign AS LONG
55. DIM SHARED DropdownList_venusHouse AS LONG
56. DIM SHARED venus_House AS LONG
57. DIM SHARED venus_Sign AS LONG
58. DIM SHARED DropdownList_venusSign AS LONG
59. DIM SHARED DropdownList_marsHouse AS LONG
60. DIM SHARED mars_House AS LONG
61. DIM SHARED mars_Sign AS LONG
62. DIM SHARED DropdownList_marsSign AS LONG
63. DIM SHARED DropdownList_jupiterHouse AS LONG
64. DIM SHARED jupiter_House AS LONG
65. DIM SHARED DropdownList_jupiterSign AS LONG
66. DIM SHARED jupiter_Sign AS LONG
67. DIM SHARED DropdownList_saturnHouse AS LONG
68. DIM SHARED saturn_House AS LONG
69. DIM SHARED saturn_Sign AS LONG
70. DIM SHARED DropdownList_saturnSign AS LONG
71. DIM SHARED DropdownList_chironHouse AS LONG
72. DIM SHARED chiron_House AS LONG
73. DIM SHARED chiron_Sign AS LONG
74. DIM SHARED DropdownList_chironSign AS LONG
75. DIM SHARED DropdownList_uranusHouse AS LONG
76. DIM SHARED uranus_House AS LONG
77. DIM SHARED DropdownList_uranusSign AS LONG
78. DIM SHARED uranus_Sign AS LONG
79. DIM SHARED DropdownList_neptuneHouse AS LONG
80. DIM SHARED neptune_House AS LONG
81. DIM SHARED neptune_Sign AS LONG
82. DIM SHARED DropdownList_neptuneSign AS LONG
83. DIM SHARED DropdownList_plutoHouse AS LONG
84. DIM SHARED pluto_House AS LONG
85. DIM SHARED pluto_Sign AS LONG
86. DIM SHARED DropdownList_plutoSign AS LONG
87. DIM SHARED DropdownList_moonnodeHouse AS LONG
88. DIM SHARED moonnode_House AS LONG
89. DIM SHARED moonnode_Sign AS LONG
90. DIM SHARED DropdownList_moonnodeSign AS LONG
91. DIM SHARED DropdownList_lilithHouse AS LONG
92. DIM SHARED lilith_House AS LONG
93. DIM SHARED lilith_Sign AS LONG
94. DIM SHARED DropdownList_lilithSign AS LONG
95. DIM SHARED Button1 AS LONG
96. DIM SHARED PictureBox1 AS LONG
97. DIM SHARED Label33 AS LONG
98. DIM SHARED PictureBox2 AS LONG
99. DIM SHARED PictureBox3 AS LONG
100. DIM SHARED Label34 AS LONG
101. DIM SHARED Label35 AS LONG
102. DIM SHARED Label36 AS LONG
103. DIM SHARED Label37 AS LONG
104. DIM SHARED Label38 AS LONG
105. DIM SHARED Label39 AS LONG
106. DIM SHARED Label40 AS LONG
107. DIM SHARED Label41 AS LONG
108. DIM SHARED ListBox1 AS LONG
109.  
110. DIM SHARED elements_Table$(3), elements_table_Values(3)
111. DIM SHARED signs_Table$(11), signs_table_Values(11)
112. DIM SHARED qualities_Table$(2), qualities_table_Values(2)
113. DIM SHARED polarities_Table$(1), polarities_table_Values(1)
114. DIM SHARED houses_Table$(11), houses_table_Values(11)
115. DIM SHARED quadrants_Table$(3), quadrants_table_Values(3)
116.  
117. __UI_Click
118.  
119. END
120.  
121.  
122. ': External modules: ---------------------------------------------------------------
123. '$INCLUDE:'InForm\InForm.ui'
124. '$INCLUDE:'InForm\xp.uitheme'
125. '$INCLUDE:'Horoscope calculator.frm'
126.  
127. ': Event procedures: ---------------------------------------------------------------
128. SUB __UI_BeforeInit
129.  
130. END SUB
131.  
132. SUB __UI_OnLoad
133.  
134. END SUB
135.  
136. SUB __UI_BeforeUpdateDisplay
137.     'This event occurs at approximately 30 frames per second.
138.     'You can change the update frequency by calling SetFrameRate DesiredRate%
139.  
140. END SUB
141.  
142. SUB __UI_BeforeUnload
143.     'If you set __UI_UnloadSignal = False here you can
144.     'cancel the user's request to close.
145.  
146. END SUB
147.  
148. SUB __UI_Click (id AS LONG)
149.     SELECT CASE id
150.         CASE Button1
151.             sun$ = GetItem$(DropdownList_sunSign, Control(DropdownList_sunSign).Value)
152.             sun_House = VAL(GetItem$(DropdownList_sunHouse, Control(DropdownList_sunHouse).Value))
153.             moon$ = GetItem$(DropdownList_moonSign, Control(DropdownList_moonSign).Value)
154.             moon_House = VAL(GetItem$(DropdownList_moonHouse, Control(DropdownList_moonHouse).Value))
155.             ascendent$ = GetItem$(DropdownList_ascendantSign, Control(DropdownList_ascendantSign).Value)
156.             'MC$ = VAL(GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value))
157.             mercury$ = GetItem$(DropdownList_mercuryHouse, Control(DropdownList_mercuryHouse).Value)
158.             mercury_House = VAL(GetItem$(DropdownList_mercurySign, Control(DropdownList_mercurySign).Value))
159.             Venus$ = GetItem$(DropdownList_venusSign, Control(DropdownList_venusSign).Value)
160.             venus_House = VAL(GetItem$(DropdownList_venusHouse, Control(DropdownList_venusHouse).Value))
161.             mars$ = GetItem$(DropdownList_marsSign, Control(DropdownList_marsSign).Value)
162.             mars_House = VAL(GetItem$(DropdownList_marsHouse, Control(DropdownList_marsHouse).Value))
163.             Jupiter$ = GetItem$(DropdownList_jupiterSign, Control(DropdownList_jupiterSign).Value)
164.             jupiter_House = VAL(GetItem$(DropdownList_jupiterHouse, Control(DropdownList_jupiterHouse).Value))
165.             Saturn$ = GetItem$(DropdownList_saturnSign, Control(DropdownList_saturnSign).Value)
166.             saturn_House = VAL(GetItem$(DropdownList_saturnHouse, Control(DropdownList_saturnHouse).Value))
167.             Chiron$ = GetItem$(DropdownList_chironSign, Control(DropdownList_chironSign).Value)
168.             chiron_House = VAL(GetItem$(DropdownList_chironHouse, Control(DropdownList_chironHouse).Value))
169.             Uranus$ = GetItem$(DropdownList_uranusSign, Control(DropdownList_uranusSign).Value)
170.             uranus_House = VAL(GetItem$(DropdownList_uranusHouse, Control(DropdownList_uranusHouse).Value))
171.             neptune$ = GetItem$(DropdownList_neptuneSign, Control(DropdownList_neptuneSign).Value)
172.             neptune_House = VAL(GetItem$(DropdownList_uranusHouse, Control(DropdownList_uranusHouse).Value))
173.             Pluto$ = GetItem$(DropdownList_plutoSign, Control(DropdownList_plutoSign).Value)
174.             pluto_House = VAL(GetItem$(DropdownList_plutoHouse, Control(DropdownList_plutoHouse).Value))
175.             moon_Node$ = GetItem$(DropdownList_moonnodeSign, Control(DropdownList_moonnodeSign).Value)
176.             moon_node_House = VAL(GetItem$(DropdownList_moonnodeHouse, Control(DropdownList_moonnodeHouse).Value))
177.             Lilith$ = GetItem$(DropdownList_lilithSign, Control(DropdownList_lilithSign).Value)
178.             lilith_House = VAL(GetItem$(DropdownList_lilithHouse, Control(DropdownList_lilithHouse).Value))
179.             DIM house(12) AS INTEGER 'Defining 12 houses that numerical values can be added to which can be subjected to mathematical operations.
180.             house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
181.             house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
182.             house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
183.             house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
184.             house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
185.             house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
186.             house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
187.             house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
188.             house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
189.             house(neptune_House) = house(neptune_House) + 2 'Adds 2 points to the house that has neptune in it.
190.             house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
191.             house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
192.             house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
193.  
194.             SELECT CASE sun$
195.                 CASE "Aries"
196.                     fire = fire + 12
197.                     aries_Value = aries_Value + 12
198.                     cardinals = cardinals + 12
199.                 CASE "Taurus"
200.                     earth = earth + 12
201.                     taurus_Value = taurus_Value + 12
202.                     fixed = fixed + 12
203.                 CASE "Gemini"
204.                     air = air + 12
205.                     gemini_Value = gemini_Value + 12
206.                     mutable = mutable + 12
207.                 CASE "Cancer"
208.                     water = water + 12
209.                     cancer_Value = cancer_Value + 12
210.                     cardinals = cardinals + 12
211.                 CASE "Leo"
212.                     fire = fire + 12
213.                     leo_Value = leo_Value + 12
214.                     fixed = fixed + 12
215.                 CASE "Virgo"
216.                     earth = earth + 12
217.                     virgo_Value = virgo_Value + 12
218.                     mutable = mutable + 12
219.                 CASE "Libra"
220.                     air = air + 12
221.                     libra_Value = libra_Value + 12
222.                     cardinals = cardinals + 12
223.                 CASE "Scorpio"
224.                     water = water + 12
225.                     scorpio_Value = scorpio_Value + 12
226.                     fixed = fixed + 12
227.                 CASE "Sagittarius"
228.                     fire = fire + 12
229.                     sagittarius_Value = sagittarius_Value + 12
230.                     mutable = mutable + 12
231.                 CASE "Capricorn"
232.                     earth = earth + 12
233.                     capricorn_Value = capricorn_Value + 12
234.                     cardinals = cardinals + 12
235.                 CASE "Aquarius"
236.                     air = air + 12
237.                     Aquarius_Value = Aquarius_Value + 12
238.                     fixed = fixed + 12
239.                 CASE "Pisces"
240.                     water = water + 12
241.                     pisces_Value = pisces_Value + 12
242.                     mutable = mutable + 12
243.             END SELECT
244.  
245.             SELECT CASE moon$
246.                 CASE "Aries"
247.                     fire = fire + 12
248.                     aries_Value = aries_Value + 12
249.                     cardinals = cardinals + 12
250.                 CASE "Taurus"
251.                     earth = earth + 12
252.                     taurus_Value = taurus_Value + 12
253.                     fixed = fixed + 12
254.                 CASE "Gemini"
255.                     air = air + 12
256.                     gemini_Value = gemini_Value + 12
257.                     mutable = mutable + 12
258.                 CASE "Cancer"
259.                     water = water + 12
260.                     cancer_Value = cancer_Value + 12
261.                     cardinals = cardinals + 12
262.                 CASE "Leo"
263.                     fire = fire + 12
264.                     leo_Value = leo_Value + 12
265.                     fixed = fixed + 12
266.                 CASE "Virgo"
267.                     earth = earth + 12
268.                     virgo_Value = virgo_Value + 12
269.                     mutable = mutable + 12
270.                 CASE "Libra"
271.                     air = air + 12
272.                     libra_Value = libra_Value + 12
273.                     cardinals = cardinals + 12
274.                 CASE "Scorpio"
275.                     water = water + 12
276.                     scorpio_Value = scorpio_Value + 12
277.                     fixed = fixed + 12
278.                 CASE "Sagittarius"
279.                     fire = fire + 12
280.                     sagittarius_Value = sagittarius_Value + 12
281.                     mutable = mutable + 12
282.                 CASE "Capricorn"
283.                     earth = earth + 12
284.                     capricorn_Value = capricorn_Value + 12
285.                     cardinals = cardinals + 12
286.                 CASE "Aquarius"
287.                     air = air + 12
288.                     Aquarius_Value = Aquarius_Value + 12
289.                     fixed = fixed + 12
290.                 CASE "Pisces"
291.                     water = water + 12
292.                     pisces_Value = pisces_Value + 12
293.                     mutable = mutable + 12
294.             END SELECT
295.  
296.             SELECT CASE ascendent$
297.                 CASE "Aries"
298.                     fire = fire + 12
299.                     aries_Value = aries_Value + 12
300.                     cardinals = cardinals + 12
301.                     IF mars_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
302.                     IF mars_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
303.                     IF mars_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
304.                     IF mars_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
305.                     IF mars_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
306.                     IF mars_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
307.                     IF mars_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
308.                     IF mars_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
309.                     IF mars_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
310.                     IF mars_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
311.                     IF mars_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
312.                     IF mars_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
313.                 CASE "Taurus"
314.                     earth = earth + 12
315.                     taurus_Value = taurus_Value + 12
316.                     fixed = fixed + 12
317.                     IF chiron_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
318.                     IF chiron_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
319.                     IF chiron_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
320.                     IF chiron_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
321.                     IF chiron_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
322.                     IF chiron_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
323.                     IF chiron_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
324.                     IF chiron_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
325.                     IF chiron_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
326.                     IF chiron_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
327.                     IF chiron_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
328.                     IF chiron_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
329.                 CASE "Gemini"
330.                     air = air + 12
331.                     gemini_Value = gemini_Value + 12
332.                     mutable = mutable + 12
333.                     IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
334.                     IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
335.                     IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
336.                     IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
337.                     IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
338.                     IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
339.                     IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
340.                     IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
341.                     IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
342.                     IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
343.                     IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
344.                     IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
345.                 CASE "Cancer"
346.                     water = water + 12
347.                     cancer_Value = cancer_Value + 12
348.                     cardinals = cardinals + 12
349.                     IF moon_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
350.                     IF moon_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
351.                     IF moon_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
352.                     IF moon_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
353.                     IF moon_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
354.                     IF moon_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
355.                     IF moon_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
356.                     IF moon_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
357.                     IF moon_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
358.                     IF moon_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
359.                     IF moon_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
360.                     IF moon_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
361.                 CASE "Leo"
362.                     fire = fire + 12
363.                     leo_Value = leo_Value + 12
364.                     fixed = fixed + 12
365.                     IF sun_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
366.                     IF sun_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
367.                     IF sun_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
368.                     IF sun_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
369.                     IF sun_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
370.                     IF sun_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
371.                     IF sun_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
372.                     IF sun_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
373.                     IF sun_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
374.                     IF sun_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
375.                     IF sun_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
376.                     IF sun_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
377.                 CASE "Virgo"
378.                     earth = earth + 12
379.                     virgo_Value = virgo_Value + 12
380.                     mutable = mutable + 12
381.                     IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
382.                     IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
383.                     IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
384.                     IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
385.                     IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
386.                     IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
387.                     IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
388.                     IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
389.                     IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
390.                     IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
391.                     IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
392.                     IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
393.                 CASE "Libra"
394.                     air = air + 12
395.                     libra_Value = libra_Value + 12
396.                     cardinals = cardinals + 12
397.                     IF venus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
398.                     IF venus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
399.                     IF venus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
400.                     IF venus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
401.                     IF venus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
402.                     IF venus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
403.                     IF venus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
404.                     IF venus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
405.                     IF venus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
406.                     IF venus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
407.                     IF venus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
408.                     IF venus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
409.                 CASE "Scorpio"
410.                     water = water + 12
411.                     scorpio_Value = scorpio_Value + 12
412.                     fixed = fixed + 12
413.                     IF pluto_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
414.                     IF pluto_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
415.                     IF pluto_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
416.                     IF pluto_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
417.                     IF pluto_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
418.                     IF pluto_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
419.                     IF pluto_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
420.                     IF pluto_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
421.                     IF pluto_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
422.                     IF pluto_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
423.                     IF pluto_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
424.                     IF pluto_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
425.                 CASE "Sagittarius"
426.                     fire = fire + 12
427.                     sagittarius_Value = sagittarius_Value + 12
428.                     mutable = mutable + 12
429.                     IF jupiter_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
430.                     IF jupiter_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
431.                     IF jupiter_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
432.                     IF jupiter_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
433.                     IF jupiter_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
434.                     IF jupiter_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
435.                     IF jupiter_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
436.                     IF jupiter_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
437.                     IF jupiter_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
438.                     IF jupiter_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
439.                     IF jupiter_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
440.                     IF jupiter_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
441.                 CASE "Capricorn"
442.                     earth = earth + 12
443.                     capricorn_Value = capricorn_Value + 12
444.                     cardinals = cardinals + 12
445.                     IF saturn_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
446.                     IF saturn_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
447.                     IF saturn_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
448.                     IF saturn_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
449.                     IF saturn_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
450.                     IF saturn_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
451.                     IF saturn_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
452.                     IF saturn_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
453.                     IF saturn_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
454.                     IF saturn_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
455.                     IF saturn_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
456.                     IF saturn_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
457.                 CASE "Aquarius"
458.                     air = air + 12
459.                     Aquarius_Value = Aquarius_Value + 12
460.                     fixed = fixed + 12
461.                     IF uranus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
462.                     IF uranus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
463.                     IF uranus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
464.                     IF uranus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
465.                     IF uranus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
466.                     IF uranus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
467.                     IF uranus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
468.                     IF uranus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
469.                     IF uranus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
470.                     IF uranus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
471.                     IF uranus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
472.                     IF uranus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
473.                 CASE "Pisces"
474.                     water = water + 12
475.                     pisces_Value = pisces_Value + 12
476.                     mutable = mutable + 12
477.                     IF neptune_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
478.                     IF neptune_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
479.                     IF neptune_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
480.                     IF neptune_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
481.                     IF neptune_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
482.                     IF neptune_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
483.                     IF neptune_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
484.                     IF neptune_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
485.                     IF neptune_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
486.                     IF neptune_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
487.                     IF neptune_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
488.                     IF neptune_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
489.             END SELECT
490.  
491.             SELECT CASE mercury$
492.                 CASE "Aries"
493.                     fire = fire + 6
494.                     aries_Value = aries_Value + 6
495.                     cardinals = cardinals + 6
496.                 CASE "Taurus"
497.                     earth = earth + 6
498.                     taurus_Value = taurus_Value + 6
499.                     fixed = fixed + 6
500.                 CASE "Gemini"
501.                     air = air + 6
502.                     gemini_Value = gemini_Value + 6
503.                     mutable = mutable + 6
504.                 CASE "Cancer"
505.                     water = water + 6
506.                     cancer_Value = cancer_Value + 6
507.                     cardinals = cardinals + 6
508.                 CASE "Leo"
509.                     fire = fire + 6
510.                     leo_Value = leo_Value + 6
511.                     fixed = fixed + 6
512.                 CASE "Virgo"
513.                     earth = earth + 6
514.                     virgo_Value = virgo_Value + 6
515.                     mutable = mutable + 6
516.                 CASE "Libra"
517.                     air = air + 6
518.                     libra_Value = libra_Value + 6
519.                     cardinals = cardinals + 6
520.                 CASE "Scorpio"
521.                     water = water + 6
522.                     scorpio_Value = scorpio_Value + 6
523.                     fixed = fixed + 6
524.                 CASE "Sagittarius"
525.                     fire = fire + 6
526.                     sagittarius_Value = sagittarius_Value + 6
527.                     mutable = mutable + 6
528.                 CASE "Capricorn"
529.                     earth = earth + 6
530.                     capricorn_Value = capricorn_Value + 6
531.                     cardinals = cardinals + 6
532.                 CASE "Aquarius"
533.                     air = air + 6
534.                     Aquarius_Value = Aquarius_Value + 6
535.                     fixed = fixed + 6
536.                 CASE "Pisces"
537.                     water = water + 6
538.                     pisces_Value = pisces_Value + 6
539.                     mutable = mutable + 6
540.             END SELECT
541.  
542.             SELECT CASE Venus$
543.                 CASE "Aries"
544.                     fire = fire + 6
545.                     aries_Value = aries_Value + 6
546.                     cardinals = cardinals + 6
547.                 CASE "Taurus"
548.                     earth = earth + 6
549.                     taurus_Value = taurus_Value + 6
550.                     fixed = fixed + 6
551.                 CASE "Gemini"
552.                     air = air + 6
553.                     gemini_Value = gemini_Value + 6
554.                     mutable = mutable + 6
555.                 CASE "Cancer"
556.                     water = water + 6
557.                     cancer_Value = cancer_Value + 6
558.                     cardinals = cardinals + 6
559.                 CASE "Leo"
560.                     fire = fire + 6
561.                     leo_Value = leo_Value + 6
562.                     fixed = fixed + 6
563.                 CASE "Virgo"
564.                     earth = earth + 6
565.                     virgo_Value = virgo_Value + 6
566.                     mutable = mutable + 6
567.                 CASE "Libra"
568.                     air = air + 6
569.                     libra_Value = libra_Value + 6
570.                     cardinals = cardinals + 6
571.                 CASE "Scorpio"
572.                     water = water + 6
573.                     scorpio_Value = scorpio_Value + 6
574.                     fixed = fixed + 5
575.                 CASE "Sagittarius"
576.                     fire = fire + 6
577.                     sagittarius_Value = sagittarius_Value + 6
578.                     mutable = mutable + 6
579.                 CASE "Capricorn"
580.                     earth = earth + 6
581.                     capricorn_Value = capricorn_Value + 6
582.                     cardinals = cardinals + 6
583.                 CASE "Aquarius"
584.                     air = air + 6
585.                     Aquarius_Value = Aquarius_Value + 6
586.                     fixed = fixed + 6
587.                 CASE "Pisces"
588.                     water = water + 6
589.                     pisces_Value = pisces_Value + 6
590.                     mutable = mutable + 6
591.             END SELECT
592.  
593.             SELECT CASE mars$
594.                 CASE "Aries"
595.                     fire = fire + 6
596.                     aries_Value = aries_Value + 6
597.                     cardinals = cardinals + 6
598.                 CASE "Taurus"
599.                     earth = earth + 6
600.                     taurus_Value = taurus_Value + 6
601.                     fixed = fixed + 6
602.                 CASE "Gemini"
603.                     air = air + 6
604.                     gemini_Value = gemini_Value + 6
605.                     mutable = mutable + 6
606.                 CASE "Cancer"
607.                     water = water + 6
608.                     cancer_Value = cancer_Value + 6
609.                     cardinals = cardinals + 6
610.                 CASE "Leo"
611.                     fire = fire + 6
612.                     leo_Value = leo_Value + 6
613.                     fixed = fixed + 6
614.                 CASE "Virgo"
615.                     earth = earth + 6
616.                     virgo_Value = virgo_Value + 6
617.                     mutable = mutable + 6
618.                 CASE "Libra"
619.                     air = air + 6
620.                     libra_Value = libra_Value + 6
621.                     cardinals = cardinals + 6
622.                 CASE "Scorpio"
623.                     water = water + 6
624.                     scorpio_Value = scorpio_Value + 6
625.                     fixed = fixed + 6
626.                 CASE "Sagittarius"
627.                     fire = fire + 6
628.                     sagittarius_Value = sagittarius_Value + 6
629.                     mutable = mutable + 6
630.                 CASE "Capricorn"
631.                     earth = earth + 6
632.                     capricorn_Value = capricorn_Value + 6
633.                     cardinals = cardinals + 6
634.                 CASE "Aquarius"
635.                     air = air + 6
636.                     Aquarius_Value = Aquarius_Value + 6
637.                     fixed = fixed + 6
638.                 CASE "Pisces"
639.                     water = water + 6
640.                     pisces_Value = pisces_Value + 6
641.                     mutable = mutable + 6
642.             END SELECT
643.  
644.             SELECT CASE Jupiter$
645.                 CASE "Aries"
646.                     fire = fire + 5
647.                     aries_Value = aries_Value + 5
648.                     cardinals = cardinals + 5
649.                 CASE "Taurus"
650.                     earth = earth + 5
651.                     taurus_Value = taurus_Value + 5
652.                     fixed = fixed + 5
653.                 CASE "Gemini"
654.                     air = air + 5
655.                     gemini_Value = gemini_Value + 5
656.                     mutable = mutable + 5
657.                 CASE "Cancer"
658.                     water = water + 5
659.                     cancer_Value = cancer_Value + 5
660.                     cardinals = cardinals + 5
661.                 CASE "Leo"
662.                     fire = fire + 5
663.                     leo_Value = leo_Value + 5
664.                     fixed = fixed + 5
665.                 CASE "Virgo"
666.                     earth = earth + 5
667.                     virgo_Value = virgo_Value + 5
668.                     mutable = mutable + 5
669.                 CASE "Libra"
670.                     air = air + 5
671.                     libra_Value = libra_Value + 5
672.                     cardinals = cardinals + 5
673.                 CASE "Scorpio"
674.                     water = water + 5
675.                     scorpio_Value = scorpio_Value + 5
676.                     fixed = fixed + 5
677.                 CASE "Sagittarius"
678.                     fire = fire + 5
679.                     sagittarius_Value = sagittarius_Value + 5
680.                     mutable = mutable + 5
681.                 CASE "Capricorn"
682.                     earth = earth + 5
683.                     capricorn_Value = capricorn_Value + 5
684.                     cardinals = cardinals + 5
685.                 CASE "Aquarius"
686.                     air = air + 5
687.                     Aquarius_Value = Aquarius_Value + 5
688.                     fixed = fixed + 5
689.                 CASE "Pisces"
690.                     water = water + 5
691.                     pisces_Value = pisces_Value + 5
692.                     mutable = mutable + 5
693.             END SELECT
694.  
695.             SELECT CASE Saturn$
696.                 CASE "Aries"
697.                     fire = fire + 5
698.                     aries_Value = aries_Value + 5
699.                     cardinals = cardinals + 5
700.                 CASE "Taurus"
701.                     earth = earth + 5
702.                     taurus_Value = taurus_Value + 5
703.                     fixed = fixed + 5
704.                 CASE "Gemini"
705.                     air = air + 5
706.                     gemini_Value = gemini_Value + 5
707.                     mutable = mutable + 5
708.                 CASE "Cancer"
709.                     water = water + 5
710.                     cancer_Value = cancer_Value + 5
711.                     cardinals = cardinals + 5
712.                 CASE "Leo"
713.                     fire = fire + 5
714.                     leo_Value = leo_Value + 5
715.                     fixed = fixed + 5
716.                 CASE "Virgo"
717.                     earth = earth + 5
718.                     virgo_Value = virgo_Value + 5
719.                     mutable = mutable + 5
720.                 CASE "Libra"
721.                     air = air + 5
722.                     libra_Value = libra_Value + 5
723.                     cardinals = cardinals + 5
724.                 CASE "Scorpio"
725.                     water = water + 5
726.                     scorpio_Value = scorpio_Value + 5
727.                     fixed = fixed + 5
728.                 CASE "Sagittarius"
729.                     fire = fire + 5
730.                     sagittarius_Value = sagittarius_Value + 5
731.                     mutable = mutable + 5
732.                 CASE "Capricorn"
733.                     earth = earth + 5
734.                     capricorn_Value = capricorn_Value + 5
735.                     cardinals = cardinals + 5
736.                 CASE "Aquarius"
737.                     air = air + 5
738.                     Aquarius_Value = Aquarius_Value + 5
739.                     fixed = fixed + 5
740.                 CASE "Pisces"
741.                     water = water + 5
742.                     pisces_Value = pisces_Value + 5
743.                     mutable = mutable + 5
744.             END SELECT
745.  
746.             SELECT CASE MC$
747.                 CASE "Aries"
748.                     fire = fire + 5
749.                     aries_Value = aries_Value + 5
750.                     cardinals = cardinals + 5
751.                 CASE "Taurus"
752.                     earth = earth + 5
753.                     taurus_Value = taurus_Value + 5
754.                     fixed = fixed + 5
755.                 CASE "Gemini"
756.                     air = air + 5
757.                     gemini_Value = gemini_Value + 5
758.                     mutable = mutable + 5
759.                 CASE "Cancer"
760.                     water = water + 5
761.                     cancer_Value = cancer_Value + 5
762.                     cardinals = cardinals + 5
763.                 CASE "Leo"
764.                     fire = fire + 5
765.                     leo_Value = leo_Value + 5
766.                     fixed = fixed + 5
767.                 CASE "Virgo"
768.                     earth = earth + 5
769.                     virgo_Value = virgo_Value + 5
770.                     mutable = mutable + 5
771.                 CASE "Libra"
772.                     air = air + 5
773.                     libra_Value = libra_Value + 5
774.                     cardinals = cardinals + 5
775.                 CASE "Scorpio"
776.                     water = water + 5
777.                     scorpio_Value = scorpio_Value + 5
778.                     fixed = fixed + 5
779.                 CASE "Sagittarius"
780.                     fire = fire + 5
781.                     sagittarius_Value = sagittarius_Value + 5
782.                     mutable = mutable + 5
783.                 CASE "Capricorn"
784.                     earth = earth + 5
785.                     capricorn_Value = capricorn_Value + 5
786.                     cardinals = cardinals + 5
787.                 CASE "Aquarius"
788.                     air = air + 5
789.                     Aquarius_Value = Aquarius_Value + 5
790.                     fixed = fixed + 5
791.                 CASE "Pisces"
792.                     water = water + 5
793.                     pisces_Value = pisces_Value + 5
794.                     mutable = mutable + 5
795.             END SELECT
796.  
797.             SELECT CASE Chiron$
798.                 CASE "Aries"
799.                     fire = fire + 2
800.                     aries_Value = aries_Value + 2
801.                     cardinals = cardinals + 2
802.                 CASE "Taurus"
803.                     earth = earth + 2
804.                     taurus_Value = taurus_Value + 2
805.                     fixed = fixed + 2
806.                 CASE "Gemini"
807.                     air = air + 2
808.                     gemini_Value = gemini_Value + 2
809.                     mutable = mutable + 2
810.                 CASE "Cancer"
811.                     water = water + 2
812.                     cancer_Value = cancer_Value + 2
813.                     cardinals = cardinals + 2
814.                 CASE "Leo"
815.                     fire = fire + 2
816.                     leo_Value = leo_Value + 2
817.                     fixed = fixed + 2
818.                 CASE "Virgo"
819.                     earth = earth + 2
820.                     virgo_Value = virgo_Value + 2
821.                     mutable = mutable + 2
822.                 CASE "Libra"
823.                     air = air + 2
824.                     libra_Value = libra_Value + 2
825.                     cardinals = cardinals + 2
826.                 CASE "Scorpio"
827.                     water = water + 2
828.                     scorpio_Value = scorpio_Value + 2
829.                     fixed = fixed + 2
830.                 CASE "Sagittarius"
831.                     fire = fire + 2
832.                     sagittarius_Value = sagittarius_Value + 2
833.                     mutable = mutable + 2
834.                 CASE "Capricorn"
835.                     earth = earth + 2
836.                     capricorn_Value = capricorn_Value + 2
837.                     cardinals = cardinals + 2
838.                 CASE "Aquarius"
839.                     air = air + 2
840.                     Aquarius_Value = Aquarius_Value + 2
841.                     fixed = fixed + 2
842.                 CASE "Pisces"
843.                     water = water + 2
844.                     pisces_Value = pisces_Value + 2
845.                     mutable = mutable + 2
846.             END SELECT
847.  
848.             SELECT CASE Uranus$
849.                 CASE "Aries"
850.                     fire = fire + 2
851.                     aries_Value = aries_Value + 2
852.                     cardinals = cardinals + 2
853.                 CASE "Taurus"
854.                     earth = earth + 2
855.                     taurus_Value = taurus_Value + 2
856.                     fixed = fixed + 2
857.                 CASE "Gemini"
858.                     air = air + 2
859.                     gemini_Value = gemini_Value + 2
860.                     mutable = mutable + 2
861.                 CASE "Cancer"
862.                     water = water + 2
863.                     cancer_Value = cancer_Value + 2
864.                     cardinals = cardinals + 2
865.                 CASE "Leo"
866.                     fire = fire + 2
867.                     leo_Value = leo_Value + 2
868.                     fixed = fixed + 2
869.                 CASE "Virgo"
870.                     earth = earth + 2
871.                     virgo_Value = virgo_Value + 2
872.                     mutable = mutable + 2
873.                 CASE "Libra"
874.                     air = air + 2
875.                     libra_Value = libra_Value + 2
876.                     cardinals = cardinals + 2
877.                 CASE "Scorpio"
878.                     water = water + 2
879.                     scorpio_Value = scorpio_Value + 2
880.                     fixed = fixed + 2
881.                 CASE "Sagittarius"
882.                     fire = fire + 2
883.                     sagittarius_Value = sagittarius_Value + 2
884.                     mutable = mutable + 2
885.                 CASE "Capricorn"
886.                     earth = earth + 2
887.                     capricorn_Value = capricorn_Value + 2
888.                     cardinals = cardinals + 2
889.                 CASE "Aquarius"
890.                     air = air + 2
891.                     Aquarius_Value = Aquarius_Value + 2
892.                     fixed = fixed + 2
893.                 CASE "Pisces"
894.                     water = water + 2
895.                     pisces_Value = pisces_Value + 2
896.                     mutable = mutable + 2
897.             END SELECT
898.  
899.             SELECT CASE neptune$
900.                 CASE "Aries"
901.                     fire = fire + 2
902.                     aries_Value = aries_Value + 2
903.                     cardinals = cardinals + 2
904.                 CASE "Taurus"
905.                     earth = earth + 2
906.                     taurus_Value = taurus_Value + 2
907.                     fixed = fixed + 2
908.                 CASE "Gemini"
909.                     air = air + 2
910.                     gemini_Value = gemini_Value + 2
911.                     mutable = mutable + 2
912.                 CASE "Cancer"
913.                     water = water + 2
914.                     cancer_Value = cancer_Value + 2
915.                     cardinals = cardinals + 2
916.                 CASE "Leo"
917.                     fire = fire + 2
918.                     leo_Value = leo_Value + 2
919.                     fixed = fixed + 2
920.                 CASE "Virgo"
921.                     earth = earth + 2
922.                     virgo_Value = virgo_Value + 2
923.                     mutable = mutable + 2
924.                 CASE "Libra"
925.                     air = air + 2
926.                     libra_Value = libra_Value + 2
927.                     cardinals = cardinals + 2
928.                 CASE "Scorpio"
929.                     water = water + 2
930.                     scorpio_Value = scorpio_Value + 2
931.                     fixed = fixed + 2
932.                 CASE "Sagittarius"
933.                     fire = fire + 2
934.                     sagittarius_Value = sagittarius_Value + 2
935.                     mutable = mutable + 2
936.                 CASE "Capricorn"
937.                     earth = earth + 2
938.                     capricorn_Value = capricorn_Value + 2
939.                     cardinals = cardinals + 2
940.                 CASE "Aquarius"
941.                     air = air + 2
942.                     Aquarius_Value = Aquarius_Value + 2
943.                     fixed = fixed + 2
944.                 CASE "Pisces"
945.                     water = water + 2
946.                     pisces_Value = pisces_Value + 2
947.                     mutable = mutable + 2
948.             END SELECT
949.  
950.             SELECT CASE Pluto$
951.                 CASE "Aries"
952.                     fire = fire + 2
953.                     aries_Value = aries_Value + 2
954.                     cardinals = cardinals + 2
955.                 CASE "Taurus"
956.                     earth = earth + 2
957.                     taurus_Value = taurus_Value + 2
958.                     fixed = fixed + 2
959.                 CASE "Gemini"
960.                     air = air + 2
961.                     gemini_Value = gemini_Value + 2
962.                     mutable = mutable + 2
963.                 CASE "Cancer"
964.                     water = water + 2
965.                     cancer_Value = cancer_Value + 2
966.                     cardinals = cardinals + 2
967.                 CASE "Leo"
968.                     fire = fire + 2
969.                     leo_Value = leo_Value + 2
970.                     fixed = fixed + 2
971.                 CASE "Virgo"
972.                     earth = earth + 2
973.                     virgo_Value = virgo_Value + 2
974.                     mutable = mutable + 2
975.                 CASE "Libra"
976.                     air = air + 2
977.                     libra_Value = libra_Value + 2
978.                     cardinals = cardinals + 2
979.                 CASE "Scorpio"
980.                     water = water + 2
981.                     scorpio_Value = scorpio_Value + 2
982.                     fixed = fixed + 2
983.                 CASE "Sagittarius"
984.                     fire = fire + 2
985.                     sagittarius_Value = sagittarius_Value + 2
986.                     mutable = mutable + 2
987.                 CASE "Capricorn"
988.                     earth = earth + 2
989.                     capricorn_Value = capricorn_Value + 2
990.                     cardinals = cardinals + 2
991.                 CASE "Aquarius"
992.                     air = air + 2
993.                     Aquarius_Value = Aquarius_Value + 2
994.                     fixed = fixed + 2
995.                 CASE "Pisces"
996.                     water = water + 2
997.                     pisces_Value = pisces_Value + 2
998.                     mutable = mutable + 2
999.             END SELECT
1000.  
1001.             SELECT CASE moon_Node$
1002.                 CASE "Aries"
1003.                     fire = fire + 2
1004.                     aries_Value = aries_Value + 2
1005.                     cardinals = cardinals + 2
1006.                 CASE "Taurus"
1007.                     earth = earth + 2
1008.                     taurus_Value = taurus_Value + 2
1009.                     fixed = fixed + 2
1010.                 CASE "Gemini"
1011.                     air = air + 2
1012.                     gemini_Value = gemini_Value + 2
1013.                     mutable = mutable + 2
1014.                 CASE "Cancer"
1015.                     water = water + 2
1016.                     cancer_Value = cancer_Value + 2
1017.                     cardinals = cardinals + 2
1018.                 CASE "Leo"
1019.                     fire = fire + 2
1020.                     leo_Value = leo_Value + 2
1021.                     fixed = fixed + 2
1022.                 CASE "Virgo"
1023.                     earth = earth + 2
1024.                     virgo_Value = virgo_Value + 2
1025.                     mutable = mutable + 2
1026.                 CASE "Libra"
1027.                     air = air + 2
1028.                     libra_Value = libra_Value + 2
1029.                     cardinals = cardinals + 2
1030.                 CASE "Scorpio"
1031.                     water = water + 2
1032.                     scorpio_Value = scorpio_Value + 2
1033.                     fixed = fixed + 2
1034.                 CASE "Sagittarius"
1035.                     fire = fire + 2
1036.                     sagittarius_Value = sagittarius_Value + 2
1037.                     mutable = mutable + 2
1038.                 CASE "Capricorn"
1039.                     earth = earth + 2
1040.                     capricorn_Value = capricorn_Value + 2
1041.                     cardinals = cardinals + 2
1042.                 CASE "Aquarius"
1043.                     air = air + 2
1044.                     Aquarius_Value = Aquarius_Value + 2
1045.                     fixed = fixed + 2
1046.                 CASE "Pisces"
1047.                     water = water + 2
1048.                     pisces_Value = pisces_Value + 2
1049.                     mutable = mutable + 2
1050.             END SELECT
1051.  
1052.             SELECT CASE Lilith$
1053.                 CASE "Aries"
1054.                     fire = fire + 1
1055.                     aries_Value = aries_Value + 1
1056.                     cardinals = cardinals + 1
1057.                 CASE "Taurus"
1058.                     earth = earth + 1
1059.                     taurus_Value = taurus_Value + 1
1060.                     fixed = fixed + 1
1061.                 CASE "Gemini"
1062.                     air = air + 1
1063.                     gemini_Value = gemini_Value + 1
1064.                     mutable = mutable + 1
1065.                 CASE "Cancer"
1066.                     water = water + 1
1067.                     cancer_Value = cancer_Value + 1
1068.                     cardinals = cardinals + 1
1069.                 CASE "Leo"
1070.                     fire = fire + 1
1071.                     leo_Value = leo_Value + 1
1072.                     fixed = fixed + 1
1073.                 CASE "Virgo"
1074.                     earth = earth + 1
1075.                     virgo_Value = virgo_Value + 1
1076.                     mutable = mutable + 1
1077.                 CASE "Libra"
1078.                     air = air + 1
1079.                     libra_Value = libra_Value + 1
1080.                     cardinals = cardinals + 1
1081.                 CASE "Scorpio"
1082.                     water = water + 1
1083.                     scorpio_Value = scorpio_Value + 1
1084.                     fixed = fixed + 1
1085.                 CASE "Sagittarius"
1086.                     fire = fire + 1
1087.                     sagittarius_Value = sagittarius_Value + 1
1088.                     mutable = mutable + 1
1089.                 CASE "Capricorn"
1090.                     earth = earth + 1
1091.                     capricorn_Value = capricorn_Value + 1
1092.                     cardinals = cardinals + 1
1093.                 CASE "Aquarius"
1094.                     air = air + 1
1095.                     Aquarius_Value = Aquarius_Value + 1
1096.                     fixed = fixed + 1
1097.                 CASE "Pisces"
1098.                     water = water + 1
1099.                     pisces_Value = pisces_Value + 1
1100.                     mutable = mutable + 1
1101.             END SELECT
1102.  
1103.             elements = earth + fire + water + air
1104.             Earth_Percentage = 100 / elements * earth
1105.             Fire_Percentage# = 100 / elements * fire
1106.             Water_Percentage# = 100 / elements * water
1107.             Air_Percentage# = 100 / elements * air
1108.  
1109.             Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
1110.             Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
1111.             Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
1112.             Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
1113.  
1114.             qualities = cardinals + fixed + mutable
1115.             cardinal_Percentage# = 100 / qualities * cardinals
1116.             fixed_Percentage# = 100 / qualities * fixed
1117.             mutable_Percentage# = 100 / qualities * mutable
1118.  
1119.             cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
1120.             fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
1121.             mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
1122.  
1123.             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
1124.             Aries_Percentage = 100 / all_Signs * aries_Value
1125.             Taurus_Percentage = 100 / all_Signs * taurus_Value
1126.             Gemini_Percentage = 100 / all_Signs * gemini_Value
1127.             Cancer_Percentage = 100 / all_Signs * cancer_Value
1128.             Leo_Percentage = 100 / all_Signs * leo_Value
1129.             Virgo_Percentage = 100 / all_Signs * virgo_Value
1130.             Libra_Percentage = 100 / all_Signs * libra_Value
1131.             Scorpio_Percentage = 100 / all_Signs * scorpio_Value
1132.             Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
1133.             Capricorn_Percentage = 100 / all_Signs * capricorn_Value
1134.             Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
1135.             Pisces_Percentage = 100 / all_Signs * pisces_Value
1136.  
1137.             Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
1138.             Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
1139.             Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
1140.             Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
1141.             Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
1142.             Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
1143.             Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
1144.             Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
1145.             Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
1146.             Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
1147.             Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
1148.             Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
1149.  
1150.             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)
1151.             house1_Percentage = 100 / all_Houses * house(1)
1152.             house2_Percentage = 100 / all_Houses * house(2)
1153.             house3_Percentage = 100 / all_Houses * house(3)
1154.             house4_Percentage = 100 / all_Houses * house(4)
1155.             house5_Percentage = 100 / all_Houses * house(5)
1156.             house6_Percentage = 100 / all_Houses * house(6)
1157.             house7_Percentage = 100 / all_Houses * house(7)
1158.             house8_Percentage = 100 / all_Houses * house(8)
1159.             house9_Percentage = 100 / all_Houses * house(9)
1160.             house10_Percentage = 100 / all_Houses * house(10)
1161.             house11_Percentage = 100 / all_Houses * house(11)
1162.             house12_Percentage = 100 / all_Houses * house(12)
1163.  
1164.             house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
1165.             house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
1166.             house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
1167.             house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
1168.             house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
1169.             house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
1170.             house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
1171.             house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
1172.             house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
1173.             house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
1174.             house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
1175.             house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
1176.  
1177.             largest = 0
1178.             IF aries_Value > largest THEN largest = aries_Value: dom_Sign$ = "Aries"
1179.             IF taurus_Value > largest THEN largest = taurus_Value: dom_Sign$ = "Taurus"
1180.             IF gemini_Value > largest THEN largest = gemini_Value: dom_Sign$ = "Gemini"
1181.             IF cancer_Value > largest THEN largest = cancer_Value: dom_Sign$ = "Cancer"
1182.             IF leo_Value > largest THEN largest = leo_Value: dom_Sign$ = "Leo"
1183.             IF virgo_Value > largest THEN largest = virgo_Value: dom_Sign$ = "Virgo"
1184.             IF libra_Value > largest THEN largest = libra_Value: dom_Sign$ = "Libra"
1185.             IF scorpio_Value > largest THEN largest = scorpio_Value: dom_Sign$ = "Scorpio"
1186.             IF sagittarius_Value > largest THEN largest = sagittarius_Value: dom_Sign$ = "Sagittarius"
1187.             IF capricorn_Value > largest THEN largest = capricorn_Value: dom_Sign$ = "Capricorn"
1188.             IF Aquarius_Value > largest THEN largest = Aquarius_Value: dom_Sign$ = "Aquarius"
1189.             IF pisces_Value > largest THEN largest = pisces_Value: dom_Sign$ = "Pisces"
1190.             signs_percentage = 100 / all_Signs * largest
1191.             signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
1192.  
1193.             largesthouse = 0
1194.             IF house(1) > largesthouse THEN largesthouse = house(1): dom_House = 1
1195.             IF house(2) > largesthouse THEN largesthouse = house(2): dom_House = 2
1196.             IF house(3) > largesthouse THEN largesthouse = house(3): dom_House = 3
1197.             IF house(4) > largesthouse THEN largesthouse = house(4): dom_House = 4
1198.             IF house(5) > largesthouse THEN largesthouse = house(5): dom_House = 5
1199.             IF house(6) > largesthouse THEN largesthouse = house(6): dom_House = 6
1200.             IF house(7) > largesthouse THEN largesthouse = house(7): dom_House = 7
1201.             IF house(8) > largesthouse THEN largesthouse = house(8): dom_House = 8
1202.             IF house(9) > largesthouse THEN largesthouse = house(9): dom_House = 9
1203.             IF house(10) > largesthouse THEN largesthouse = house(10): dom_House = 10
1204.             IF house(11) > largesthouse THEN largesthouse = house(11): dom_House = 11
1205.             IF house(12) > largesthouse THEN largesthouse = house(12): dom_House = 12
1206.             largesthouse_percentage = 100 / all_Houses * largesthouse
1207.             largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
1208.  
1209.             Quad1 = house(1) + house(2) + house(3)
1210.             Quad2 = house(4) + house(5) + house(6)
1211.             Quad3 = house(7) + house(8) + house(9)
1212.             Quad4 = house(10) + house(11) + house(12)
1213.             all_Quads = Quad1 + Quad2 + Quad3 + Quad4
1214.  
1215.             largedom_Quad = 0
1216.             IF Quad1 > largedom_Quad THEN largedom_Quad = Quad1: dom_Quad$ = "1st aka Fire or energy quadrant"
1217.             IF Quad2 > largedom_Quad THEN largedom_Quad = Quad2: dom_Quad$ = "2nd aka Water or emotional quadrant"
1218.             IF Quad3 > largedom_Quad THEN largedom_Quad = Quad3: dom_Quad$ = "3rd aka Air or intellectual quadrant"
1219.             IF Quad4 > largedom_Quad THEN largedom_Quad = Quad4: dom_Quad$ = "4th aka Earth or reality quadrant"
1220.             large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
1221.             large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
1222.  
1223.             quad1_Percentage = 100 / all_Quads * Quad1
1224.             quad2_Percentage = 100 / all_Quads * Quad2
1225.             quad3_Percentage = 100 / all_Quads * Quad3
1226.             quad4_Percentage = 100 / all_Quads * Quad4
1227.  
1228.             quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
1229.             quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
1230.             quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
1231.             quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
1232.  
1233.             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#) + "%."
1234.             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#) + "%."
1235.             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#) + "%."
1236.             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#) + "%."
1237.  
1238.             active_Signs = fire + earth
1239.             passive_Signs = water + air
1240.             polarity_Percentage = active_Signs + passive_Signs
1241.  
1242.             active_Percentage = 100 / polarity_Percentage * active_Signs
1243.             passive_Percentage = 100 / polarity_Percentage * passive_Signs
1244.  
1245.             active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
1246.             passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
1247.  
1248.             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#) + "%."
1249.             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#) + "%."
1250.  
1251.             aries_String$ = "Strength of Aries:" + STR$(aries_Value) + " (" + STR$(Aries_percentage_Rounded#) + "%)"
1252.             taurus_String$ = "Strength of Taurus:" + STR$(taurus_Value) + " (" + STR$(Taurus_percentage_Rounded#) + "%)"
1253.             gemini_String$ = "Strength of Gemini:" + STR$(gemini_Value) + " (" + STR$(Gemini_percentage_Rounded#) + "%)"
1254.             cancer_String$ = "Strength of Cancer:" + STR$(cancer_Value) + " (" + STR$(Cancer_percentage_Rounded#) + "%)"
1255.             leo_String$ = "Strength of Leo:" + STR$(leo_Value) + " (" + STR$(Leo_percentage_Rounded#) + "%)"
1256.             virgo_String$ = "Strength of Virgo:" + STR$(virgo_Value) + " (" + STR$(Virgo_percentage_Rounded#) + "%)"
1257.             libra_String$ = "Strength of Libra:" + STR$(libra_Value) + " (" + STR$(Libra_percentage_Rounded#) + "%)"
1258.             scorpio_String$ = "Strength of Scorpio:" + STR$(scorpio_Value) + " (" + STR$(Scorpio_percentage_Rounded#) + "%)"
1259.             sagittarius_String$ = "Strength of Sagittarius:" + STR$(sagittarius_Value) + " (" + STR$(Sagittarius_percentage_Rounded#) + "%)"
1260.             capricorn_String$ = "Strength of Capricorn:" + STR$(capricorn_Value) + " (" + STR$(Capricorn_percentage_Rounded#) + "%)"
1261.             Aquarius_String$ = "Strength of Aquarius:" + STR$(Aquarius_Value) + " (" + STR$(Aquarius_percentage_Rounded#) + "%)"
1262.             pisces_String$ = "Strength of Pisces:" + STR$(pisces_Value) + " (" + STR$(Pisces_percentage_Rounded#) + "%)"
1263.  
1264.             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#) + "%."
1265.             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#) + "%."
1266.             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#) + "%."
1267.  
1268.             house1_String$ = "Strength of the 1st house: " + STR$(house(1)) + " (" + STR$(house1_percentage_Rounded#) + "%)"
1269.             house2_String$ = "Strength of the 2nd house: " + STR$(house(2)) + " (" + STR$(house2_percentage_Rounded#) + "%)"
1270.             house3_String$ = "Strength of the 3rd house: " + STR$(house(3)) + " (" + STR$(house3_percentage_Rounded#) + "%)"
1271.             house4_String$ = "Strength of the 4th house: " + STR$(house(4)) + " (" + STR$(house4_percentage_Rounded#) + "%)"
1272.             house5_String$ = "Strength of the 5th house: " + STR$(house(5)) + " (" + STR$(house5_percentage_Rounded#) + "%)"
1273.             house6_String$ = "Strength of the 6th house: " + STR$(house(6)) + " (" + STR$(house6_percentage_Rounded#) + "%)"
1274.             house7_String$ = "Strength of the 7th house: " + STR$(house(7)) + " (" + STR$(house7_percentage_Rounded#) + "%)"
1275.             house8_String$ = "Strength of the 8th house: " + STR$(house(8)) + " (" + STR$(house8_percentage_Rounded#) + "%)"
1276.             house9_String$ = "Strength of the 9th house: " + STR$(house(9)) + " (" + STR$(house9_percentage_Rounded#) + "%)"
1277.             house10_String$ = "Strength of the 10th house: " + STR$(house(10)) + " (" + STR$(house10_percentage_Rounded#) + "%)"
1278.             house11_String$ = "Strength of the 11th house: " + STR$(house(11)) + " (" + STR$(house11_percentage_Rounded#) + "%)"
1279.             house12_String$ = "Strength of the 12th house: " + STR$(house(12)) + " (" + STR$(house12_percentage_Rounded#) + "%)"
1280.  
1281.             Quad1string$ = "Strength of the 1st quadrant: " + STR$(Quad1) + " (" + STR$(quad1_percentage_Rounded#) + "%)"
1282.             Quad2string$ = "Strength of the 2nd quadrant: " + STR$(Quad2) + " (" + STR$(quad2_percentage_Rounded#) + "%)"
1283.             Quad3string$ = "Strength of the 3rd quadrant: " + STR$(Quad3) + " (" + STR$(quad3_percentage_Rounded#) + "%)"
1284.             Quad4string$ = "Strength of the 4th quadrant: " + STR$(Quad4) + " (" + STR$(quad4_percentage_Rounded#) + "%)"
1285.  
1286.             DECLARE SUB quicksort (min%, max%)
1287.             DECLARE SUB display ()
1288.  
1289.             elements_Table$(0) = earth_String$
1290.             elements_table_Values(0) = earth
1291.             elements_Table$(1) = fire_String$
1292.             elements_table_Values(1) = fire
1293.             elements_Table$(2) = water_String$
1294.             elements_table_Values(2) = water
1295.             elements_Table$(3) = air_String$
1296.             elements_table_Values(3) = air
1297.  
1298.             signs_Table$(0) = aries_String$
1299.             signs_table_Values(0) = aries_Value
1300.             signs_Table$(1) = taurus_String$
1301.             signs_table_Values(1) = taurus_Value
1302.             signs_Table$(2) = gemini_String$
1303.             signs_table_Values(2) = gemini_Value
1304.             signs_Table$(3) = cancer_String$
1305.             signs_table_Values(3) = cancer_Value
1306.             signs_Table$(4) = leo_String$
1307.             signs_table_Values(4) = leo_Value
1308.             signs_Table$(5) = virgo_String$
1309.             signs_table_Values(5) = virgo_Value
1310.             signs_Table$(6) = libra_String$
1311.             signs_table_Values(6) = libra_Value
1312.             signs_Table$(7) = scorpio_String$
1313.             signs_table_Values(7) = scorpio_Value
1314.             signs_Table$(8) = sagittarius_String$
1315.             signs_table_Values(8) = sagittarius_Value
1316.             signs_Table$(9) = capricorn_String$
1317.             signs_table_Values(9) = capricorn_Value
1318.             signs_Table$(10) = Aquarius_String$
1319.             signs_table_Values(10) = Aquarius_Value
1320.             signs_Table$(11) = pisces_String$
1321.             signs_table_Values(11) = pisces_Value
1322.  
1323.             qualities_Table$(0) = cardinal_String$
1324.             qualities_table_Values(0) = cardinals
1325.             qualities_Table$(1) = fixed_String$
1326.             qualities_table_Values(1) = fixed
1327.             qualities_Table$(2) = mutable_String$
1328.             qualities_table_Values(2) = mutable
1329.  
1330.             polarities_Table$(0) = active_String$
1331.             polarities_table_Value(0) = active_Signs
1332.             polarities_Table$(1) = passive_String$
1333.             polarities_table_Value(1) = passive_Signs
1334.  
1335.             houses_Table$(0) = house1_String$
1336.             houses_table_Values(0) = house(1)
1337.             houses_Table$(1) = house2_String$
1338.             houses_table_Values(1) = house(2)
1339.             houses_Table$(2) = house3_String$
1340.             houses_table_Values(2) = house(3)
1341.             houses_Table$(3) = house4_String$
1342.             houses_table_Values(3) = house(4)
1343.             houses_Table$(4) = house5_String$
1344.             houses_table_Values(4) = house(5)
1345.             houses_Table$(5) = house6_String$
1346.             houses_table_Values(5) = house(6)
1347.             houses_Table$(6) = house7_String$
1348.             houses_table_Values(6) = house(7)
1349.             houses_Table$(7) = house8_String$
1350.             houses_table_Values(7) = house(8)
1351.             houses_Table$(8) = house9_String$
1352.             houses_table_Values(8) = house(9)
1353.             houses_Table$(9) = house10_String$
1354.             houses_table_Values(9) = house(10)
1355.             houses_Table$(10) = house11_String$
1356.             houses_table_Values(10) = house(11)
1357.             houses_Table$(11) = house12_String$
1358.             houses_table_Values(11) = house(12)
1359.  
1360.             quadrants_Table$(0) = Quad1string$
1361.             quadrants_table_Values(0) = Quad1
1362.             quadrants_Table$(1) = Quad2string$
1363.             quadrants_table_Values(1) = Quad2
1364.             quadrants_Table$(2) = Quad3string$
1365.             quadrants_table_Values(2) = Quad3
1366.             quadrants_Table$(3) = Quad4string$
1367.             quadrants_table_Values(3) = Quad4
1368.  
1369.             PRINT
1370.             COLOR 8
1371.             PRINT "Elements:"
1372.             PRINT
1373.             COLOR 0
1374.             quicksort 0, 3, elements_Table$(), elements_table_Values()
1375.             display elements_Table$()
1376.             PRINT
1377.             COLOR 8
1378.             PRINT "Dominance of the signs:"
1379.             PRINT
1380.             COLOR 0
1381.             quicksort 0, 11, signs_Table$(), signs_table_Values()
1382.             display signs_Table$()
1383.             PRINT
1384.             PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
1385.             PRINT
1386.             COLOR 8
1387.             PRINT "Qualities:"
1388.             PRINT
1389.             COLOR 0
1390.             quicksort 0, 2, qualities_Table$(), qualities_table_Values()
1391.             display qualities_Table$()
1392.             PRINT
1393.             COLOR 8
1394.             PRINT "Polarities:"
1395.             PRINT
1396.             COLOR 0
1397.             quicksort 0, 1, polarities_Table$(), polarities_table_Values()
1398.             display polarities_Table$()
1399.             PRINT
1400.             COLOR 8
1401.             PRINT "Dominance of the houses:"
1402.             PRINT
1403.             COLOR 0
1404.             quicksort 0, 11, houses_Table$(), houses_table_Values()
1405.             display houses_Table$()
1406.             PRINT
1407.             PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
1408.             PRINT
1409.             COLOR 8
1410.             PRINT "Dominance of the quadrants:"
1411.             COLOR 0
1412.             PRINT
1413.             quicksort 0, 3, quadrants_Table$(), quadrants_table_Values()
1414.             display quadrants_Table$()
1415.             PRINT
1416.             PRINT "The dominant quadrant is the "; dom_Quad$; " at "; large_dom_Quad_percentage_Rounded#; "%."
1417.             PRINT
1418.             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'."
1419.     END SELECT
1420. END SUB
1421.  
1422. SUB display (a$())
1423.     FOR i% = 0 TO UBOUND(a$)
1424.         AddItem ListBox1 a$(i%)
1425.     NEXT
1426. END SUB
1427.  
1428. SUB quicksort (min%, max%, a$(), b())
1429.     IF min% < max% THEN
1430.         p1% = min%
1431.         p2% = max%
1432.         mid = b((min% + max%) \ 2) '**
1433.         DO UNTIL p1% > p2%
1434.             DO WHILE b(p1%) > mid '**<<invert this unequality to sort ascending
1435.                 p1% = p1% + 1
1436.             LOOP
1437.             DO WHILE mid > b(p2%) '**<<this one too
1438.                 p2% = p2% - 1
1439.             LOOP
1440.             IF p1% <= p2% THEN
1441.                 SWAP a$(p1%), a$(p2%) '**
1442.                 SWAP b(p1%), b(p2%) '**
1443.                 p1% = p1% + 1
1444.                 p2% = p2% - 1
1445.             END IF
1446.         LOOP
1447.         IF min% < p2% THEN quicksort min%, p2%, a$(), b()
1448.         IF p1% < max% THEN quicksort p1%, max%, a$(), b()
1449.     END IF
1450. END SUB
1451.  
1452.  
1453. SUB __UI_MouseEnter (id AS LONG)
1454.     SELECT CASE id
1455.         CASE Form1
1456.  
1457.         CASE Chartowner
1458.  
1459.         CASE TextBox1
1460.  
1461.         CASE __name
1462.  
1463.         CASE TextBox2
1464.  
1465.         CASE birthdate
1466.  
1467.         CASE TextBox3
1468.  
1469.         CASE birthtime
1470.  
1471.         CASE TextBox4
1472.  
1473.         CASE birthplace
1474.  
1475.     END SELECT
1476. END SUB
1477.  
1478. SUB __UI_MouseLeave (id AS LONG)
1479.     SELECT CASE id
1480.         CASE Form1
1481.  
1482.         CASE Chartowner
1483.  
1484.         CASE TextBox1
1485.  
1486.         CASE __name
1487.  
1488.         CASE TextBox2
1489.  
1490.         CASE birthdate
1491.  
1492.         CASE TextBox3
1493.  
1494.         CASE birthtime
1495.  
1496.         CASE TextBox4
1497.  
1498.         CASE birthplace
1499.  
1500.     END SELECT
1501. END SUB
1502.  
1503. SUB __UI_FocusIn (id AS LONG)
1504.     SELECT CASE id
1505.         CASE TextBox1
1506.  
1507.         CASE TextBox2
1508.  
1509.         CASE TextBox3
1510.  
1511.         CASE TextBox4
1512.  
1513.     END SELECT
1514. END SUB
1515.  
1516. SUB __UI_FocusOut (id AS LONG)
1517.     'This event occurs right before a control loses focus.
1518.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
1519.     SELECT CASE id
1520.         CASE TextBox1
1521.  
1522.         CASE TextBox2
1523.  
1524.         CASE TextBox3
1525.  
1526.         CASE TextBox4
1527.  
1528.     END SELECT
1529. END SUB
1530.  
1531. SUB __UI_MouseDown (id AS LONG)
1532.     SELECT CASE id
1533.         CASE Form1
1534.  
1535.         CASE Chartowner
1536.  
1537.         CASE TextBox1
1538.  
1539.         CASE __name
1540.  
1541.         CASE TextBox2
1542.  
1543.         CASE birthdate
1544.  
1545.         CASE TextBox3
1546.  
1547.         CASE birthtime
1548.  
1549.         CASE TextBox4
1550.  
1551.         CASE birthplace
1552.  
1553.     END SELECT
1554. END SUB
1555.  
1556. SUB __UI_MouseUp (id AS LONG)
1557.     SELECT CASE id
1558.         CASE Form1
1559.  
1560.         CASE Chartowner
1561.  
1562.         CASE TextBox1
1563.  
1564.         CASE __name
1565.  
1566.         CASE TextBox2
1567.  
1568.         CASE birthdate
1569.  
1570.         CASE TextBox3
1571.  
1572.         CASE birthtime
1573.  
1574.         CASE TextBox4
1575.  
1576.         CASE birthplace
1577.  
1578.     END SELECT
1579. END SUB
1580.  
1581. SUB __UI_KeyPress (id AS LONG)
1582.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
1583.     'You can change it and even cancel it by making it = 0
1584.     SELECT CASE id
1585.         CASE TextBox1
1586.  
1587.         CASE TextBox2
1588.  
1589.         CASE TextBox3
1590.  
1591.         CASE TextBox4
1592.  
1593.     END SELECT
1594. END SUB
1595.  
1596. SUB __UI_TextChanged (id AS LONG)
1597.     SELECT CASE id
1598.         CASE TextBox1
1599.  
1600.         CASE TextBox2
1601.  
1602.         CASE TextBox3
1603.  
1604.         CASE TextBox4
1605.  
1606.     END SELECT
1607. END SUB
1608.  
1609. SUB __UI_ValueChanged (id AS LONG)
1610.     SELECT CASE id
1611.     END SELECT
1612. END SUB
1613.  
1614. SUB __UI_FormResized
1615.  
1616. END SUB

It's giving me syntax errors on line 117 (trying to call an existing sub-routine) and 1424 (trying to use AddItem ListBox1 a$(i%).

[FellippeHeitor]

Remove line 117.

You must separate parameters with a comma: AddItem ListBox1, a$(i%)

[bplus]

All the sorted tables appearing immediately at the bottom of the window, fully selectable and ready to copy.

Is there room even if you could do this below the input parts?

A list box has scrollable access so can fit 500 lines in 5 and scroll through, that is not only reason though I am advocating Listbox.

As we have said, selecting like in a text editor is not possible yet, there is no text editor box.
I did manage to select a block of array items in a list box by selecting the first line of the text and the last line of the text to be selected: In my Text Fetch app
https://www.qb64.org/forum/index.php?topic=1874.msg111060#msg111060

[DDBE]

As we have said, selecting like in a text editor is not possible yet, there is no text editor box.

No, that's what you've said:

I would be extremely surprised if an item could not be selected from a List box after all isn't that what a List box is supposed to do

From that, I gathered that a ListBox *EXISTS* so that you can select and copy-paste from it.

Remove line 117.

You must separate parameters with a comma: AddItem ListBox1, a$(i%)

I've done that, and now it's giving me lots of syntax errors not in the code, but in the .frm. Because there are no syntax errors in the code anymore, I can actually run the code, but nothing happens. No GUI opening, no error message, no nothing.

I've been working on this for 27 hours now without a single break. I think I'll give up for today and go to bed. -.-