'Huo Writer v0.1
'Created by Spyridon Kakos (huo) [08/2020 - 09/2020]

'INSTRUCTIONS ON CONFIGURING
'To add an element in one of the phrases, simply add it to the tables.
'For each new element define the gender (m, f, n, a, i) and the number (s, p, i).
'Rememeber to also increase the size of the table by increasing the constant defining that size (e.g. constant H2size defines the size of the H2$ table).

OPTION BASE 1

'Define constants: The sizes of the phrases elements' tables
CONST H1size = 16
CONST H2size = 52
CONST H3size = 29
CONST H4size = 12
CONST H5size = 14
CONST K1size = 38
CONST K2size = 60
CONST K3size = 38
CONST I1size = 28
CONST I2size = 10
CONST Tsize = 10

'Declare variables
'The tables have 3 columns for each row
'First column: The text
'Second column: The gender (male, female, neutral, indifferent - m, f, n, i)
'Third column: The number (single, plural, indifferent - s, p, i)
DIM SHARED Tags$(20, 3)
DIM SHARED H1$(H1size, 4): DIM SHARED H2$(H2size, 3): DIM SHARED H3$(H3size, 3): DIM SHARED H3Q$(H3size, 3)
DIM SHARED H4$(H4size, 3): DIM SHARED H5$(H5size, 3)
DIM SHARED I1$(I1size)
DIM SHARED I2$(I2size)
DIM SHARED K1$(K1size, 3): DIM SHARED K2$(K2size, 3): DIM SHARED K3$(K3size, 3)
DIM SHARED T$(Tsize)
'Neural network tables
'Tables holding the combinations performed by the program to generate the phrases
COMMON SHARED learningMode
COMMON SHARED H1counter
COMMON SHARED H2counter
COMMON SHARED Kcounter
DIM SHARED TempCombinationsH1(100, 3) '(Phrase H.1)
DIM SHARED TempCombinationsH2(100, 2) '(Phrase H.2)
DIM SHARED TempCombinationsK(100, 3) '(Phrase K)
'Tables holding the combinations the human did not like, so that they do not repeat next time
DIM SHARED BadCombinationsH1(100, 3) '(Phrase H.1)
DIM SHARED BadCombinationsH2(100, 2) '(Phrase H.2)
DIM SHARED BadCombinationsK(100, 3) '(Phrase K)


'PHRASE 1 (Phrase H.1)

'Set Variables for first phrase (Phrase H.1) generation
'-------------------------------------------------------------------------------------------------------------------
'Start the phrase
'Set 4th dimension to 'q' if it is a question
H1$(1, 1) = "Think why ": H1$(1, 2) = "i": H1$(1, 3) = "i"
H1$(2, 1) = "The ": H1$(2, 2) = "i": H1$(2, 3) = "i"
H1$(3, 1) = "Consider that ": H1$(3, 2) = "i": H1$(3, 3) = "i"
H1$(4, 1) = "Remember that ": H1$(4, 2) = "i": H1$(4, 3) = "i"
H1$(5, 1) = "All ": H1$(5, 2) = "i": H1$(5, 3) = "p"
H1$(6, 1) = "You see ": H1$(6, 2) = "i": H1$(6, 3) = "i"
H1$(7, 1) = "Always ": H1$(7, 2) = "i": H1$(7, 3) = "i"
H1$(8, 1) = "Never do ": H1$(8, 2) = "i": H1$(8, 3) = "i"
H1$(9, 1) = "We always knew that ": H1$(9, 2) = "i": H1$(9, 3) = "i"
H1$(10, 1) = "It's not that ": H1$(10, 2) = "i": H1$(10, 3) = "i": H1$(10, 4) = "q"
H1$(11, 1) = "Do ": H1$(11, 2) = "i": H1$(11, 3) = "i": H1$(11, 4) = "q"
H1$(12, 1) = "How can ": H1$(12, 2) = "i": H1$(12, 3) = "i": H1$(12, 4) = "q"
H1$(13, 1) = "But don't ": H1$(13, 2) = "i": H1$(13, 3) = "i": H1$(13, 4) = "q"
H1$(14, 1) = "Could ": H1$(14, 2) = "i": H1$(14, 3) = "i": H1$(14, 4) = "q"
H1$(15, 1) = "But do ": H1$(15, 2) = "i": H1$(15, 3) = "i": H1$(15, 4) = "q"
H1$(16, 1) = "": H1$(16, 2) = "i": H1$(16, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------
'Tag to be added here
'-------------------------------------------------------------------------------------------------------------------
'Enter a verb...
H2$(1, 1) = " always obscure ": H2$(1, 2) = "i": H2$(1, 3) = "p"
H2$(2, 1) = " interact with ": H2$(2, 2) = "i": H2$(2, 3) = "p"
H2$(3, 1) = " promote ": H2$(3, 2) = "i": H2$(3, 3) = "p"
H2$(4, 1) = " destroy ": H2$(4, 2) = "i": H2$(4, 3) = "p"
H2$(5, 1) = " support ": H2$(5, 2) = "i": H2$(5, 3) = "p"
H2$(6, 1) = " exist with ": H2$(6, 2) = "i": H2$(6, 3) = "p"
H2$(7, 1) = " but give birth to ": H2$(7, 2) = "i": H2$(7, 3) = "p"
H2$(8, 1) = " never include ": H2$(8, 2) = "i": H2$(8, 3) = "p"
H2$(9, 1) = " are not part of ": H2$(9, 2) = "i": H2$(9, 3) = "p"
H2$(10, 1) = " can Be without ": H2$(10, 2) = "i": H2$(10, 3) = "i"
H2$(11, 1) = " cannot exist without ": H2$(11, 2) = "i": H2$(11, 3) = "i"
H2$(12, 1) = " only exist because of ": H2$(12, 2) = "i": H2$(12, 3) = "p"
H2$(13, 1) = " define ": H2$(13, 2) = "i": H2$(13, 3) = "p"
H2$(14, 1) = " interacts with ": H2$(14, 2) = "i": H2$(14, 3) = "s"
H2$(15, 1) = " promotes ": H2$(15, 2) = "i": H2$(15, 3) = "s"
H2$(16, 1) = " destroys ": H2$(16, 2) = "i": H2$(16, 3) = "s"
H2$(17, 1) = " supports ": H2$(17, 2) = "i": H2$(17, 3) = "s"
H2$(18, 1) = " exist with ": H2$(18, 2) = "i": H2$(18, 3) = "p"
H2$(19, 1) = " gives birth to ": H2$(19, 2) = "i": H2$(19, 3) = "s"
H2$(20, 1) = " never includes ": H2$(20, 2) = "i": H2$(20, 3) = "s"
H2$(21, 1) = " is not part of ": H2$(21, 2) = "i": H2$(21, 3) = "s"
H2$(22, 1) = " only exists because of ": H2$(22, 2) = "i": H2$(22, 3) = "s"
H2$(23, 1) = " create ": H2$(23, 2) = "i": H2$(23, 3) = "p"
H2$(24, 1) = " are created by ": H2$(24, 2) = "i": H2$(24, 3) = "p"
H2$(25, 1) = " creates ": H2$(25, 2) = "i": H2$(25, 3) = "s"
H2$(26, 1) = " is created by ": H2$(26, 2) = "i": H2$(26, 3) = "s"
H2$(27, 1) = " sustains ": H2$(27, 2) = "i": H2$(27, 3) = "s"
H2$(28, 1) = " sustain ": H2$(28, 2) = "i": H2$(28, 3) = "p"
H2$(29, 1) = " defines ": H2$(29, 2) = "i": H2$(29, 3) = "s"
H2$(30, 1) = " is defined by ": H2$(30, 2) = "i": H2$(30, 3) = "s"
H2$(31, 1) = " are defined by ": H2$(31, 2) = "i": H2$(31, 3) = "p"
H2$(32, 1) = " manifest through ": H2$(32, 2) = "i": H2$(32, 3) = "p"
H2$(33, 1) = " gives meaning to ": H2$(33, 2) = "i": H2$(33, 3) = "s"
H2$(34, 1) = " give meaning to ": H2$(34, 2) = "i": H2$(34, 3) = "p"
H2$(35, 1) = " change ": H2$(35, 2) = "i": H2$(35, 3) = "p"
H2$(36, 1) = " changes ": H2$(36, 2) = "i": H2$(36, 3) = "s"
H2$(37, 1) = " are born by ": H2$(37, 2) = "i": H2$(37, 3) = "p"
H2$(38, 1) = " exists with ": H2$(38, 2) = "i": H2$(38, 3) = "s"
H2$(39, 1) = " give birth to ": H2$(39, 2) = "i": H2$(39, 3) = "p"
H2$(40, 1) = " destroy ": H2$(40, 2) = "i": H2$(40, 3) = "p"
H2$(41, 1) = " affects ": H2$(41, 2) = "i": H2$(41, 3) = "s"
H2$(42, 1) = " affect ": H2$(42, 2) = "i": H2$(42, 3) = "p"
H2$(43, 1) = " contains ": H2$(43, 2) = "i": H2$(43, 3) = "s"
H2$(44, 1) = " contain ": H2$(44, 2) = "i": H2$(44, 3) = "p"
H2$(45, 1) = " stems from ": H2$(45, 2) = "i": H2$(45, 3) = "s"
H2$(46, 1) = " transforms ": H2$(46, 2) = "i": H2$(46, 3) = "s"
H2$(47, 1) = " alienates from ": H2$(47, 2) = "i": H2$(47, 3) = "s"
H2$(48, 1) = " nullifies ": H2$(48, 2) = "i": H2$(48, 3) = "s"
H2$(49, 1) = " obscures ": H2$(49, 2) = "i": H2$(49, 3) = "s"
H2$(50, 1) = " leads to ": H2$(50, 2) = "i": H2$(50, 3) = "s"
H2$(51, 1) = " bears ": H2$(51, 2) = "i": H2$(51, 3) = "s"
H2$(52, 1) = " bear ": H2$(52, 2) = "i": H2$(52, 3) = "p"
'-------------------------------------------------------------------------------------------------------------------
'What does the verb do?
H3$(1, 1) = "thinking.": H3$(1, 2) = "i": H3$(1, 3) = "i"
H3$(2, 1) = "knowledge.": H3$(2, 2) = "i": H3$(2, 3) = "i"
H3$(3, 1) = "the self.": H3$(3, 2) = "i": H3$(3, 3) = "i"
H3$(4, 1) = "humans.": H3$(4, 2) = "i": H3$(4, 3) = "i"
H3$(5, 1) = "us.": H3$(5, 2) = "i": H3$(5, 3) = "i"
H3$(6, 1) = "oblivion.": H3$(6, 2) = "i": H3$(6, 3) = "i"
H3$(7, 1) = "being.": H3$(7, 2) = "i": H3$(7, 3) = "i"
H3$(8, 1) = "existence.": H3$(8, 2) = "i": H3$(8, 3) = "i"
H3$(9, 1) = "the void.": H3$(9, 2) = "i": H3$(9, 3) = "i"
H3$(10, 1) = "nothingness.": H3$(10, 2) = "i": H3$(10, 3) = "i"
H3$(11, 1) = "reality.": H3$(11, 2) = "i": H3$(11, 3) = "i"
H3$(12, 1) = "life.": H3$(12, 2) = "i": H3$(12, 3) = "i"
H3$(13, 1) = "death.": H3$(13, 2) = "i": H3$(13, 3) = "i"
H3$(14, 1) = "phenomena.": H3$(14, 2) = "i": H3$(14, 3) = "p"
H3$(15, 1) = "God.": H3$(15, 2) = "i": H3$(15, 3) = "i"
H3$(16, 1) = "others.": H3$(16, 2) = "i": H3$(16, 3) = "i"
H3$(17, 1) = "perception.": H3$(17, 2) = "i": H3$(17, 3) = "i"
H3$(18, 1) = "change.": H3$(18, 2) = "i": H3$(18, 3) = "i"
H3$(19, 1) = "the senses.": H3$(19, 2) = "i": H3$(19, 3) = "i"
H3$(20, 1) = "thought.": H3$(20, 2) = "i": H3$(20, 3) = "i"
H3$(21, 1) = "the One.": H3$(21, 2) = "i": H3$(21, 3) = "i"
H3$(22, 1) = "nothing.": H3$(22, 2) = "i": H3$(22, 3) = "i"
H3$(23, 1) = "everything.": H3$(23, 2) = "i": H3$(23, 3) = "i"
H3$(24, 1) = "unity.": H3$(24, 2) = "i": H3$(24, 3) = "i"
H3$(25, 1) = "harmony.": H3$(25, 2) = "i": H3$(25, 3) = "i"
H3$(26, 1) = "the opposites.": H3$(26, 2) = "i": H3$(26, 3) = "i"
H3$(27, 1) = "all.": H3$(27, 2) = "i": H3$(27, 3) = "i"
H3$(28, 1) = "faith.": H3$(28, 2) = "i": H3$(28, 3) = "i"
H3$(29, 1) = "the truth.": H3$(29, 2) = "i": H3$(29, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------
'Endings with questions
H3Q$(1, 1) = "thinking?": H3Q$(1, 2) = "i": H3Q$(1, 3) = "i"
H3Q$(2, 1) = "knowledge?": H3Q$(2, 2) = "i": H3Q$(2, 3) = "i"
H3Q$(3, 1) = "the self?": H3Q$(3, 2) = "i": H3Q$(3, 3) = "i"
H3Q$(4, 1) = "humans?": H3Q$(4, 2) = "i": H3Q$(4, 3) = "i"
H3Q$(5, 1) = "us?": H3Q$(5, 2) = "i": H3Q$(5, 3) = "i"
H3Q$(6, 1) = "oblivion?": H3Q$(6, 2) = "i": H3Q$(6, 3) = "i"
H3Q$(7, 1) = "being?": H3Q$(7, 2) = "i": H3Q$(7, 3) = "i"
H3Q$(8, 1) = "existence?": H3Q$(8, 2) = "i": H3Q$(8, 3) = "i"
H3Q$(9, 1) = "the void?": H3Q$(9, 2) = "i": H3Q$(9, 3) = "i"
H3Q$(10, 1) = "nothingness?": H3Q$(10, 2) = "i": H3Q$(10, 3) = "i"
H3Q$(11, 1) = "reality?": H3Q$(11, 2) = "i": H3Q$(11, 3) = "i"
H3Q$(12, 1) = "life?": H3Q$(12, 2) = "i": H3Q$(12, 3) = "i"
H3Q$(13, 1) = "death?": H3Q$(13, 2) = "i": H3Q$(13, 3) = "i"
H3Q$(14, 1) = "phenomena?": H3Q$(14, 2) = "i": H3Q$(14, 3) = "p"
H3Q$(15, 1) = "God?": H3Q$(15, 2) = "i": H3Q$(15, 3) = "i"
H3Q$(16, 1) = "others?": H3Q$(16, 2) = "i": H3Q$(16, 3) = "i"
H3Q$(17, 1) = "perception?": H3Q$(17, 2) = "i": H3Q$(17, 3) = "i"
H3Q$(18, 1) = "change?": H3Q$(18, 2) = "i": H3Q$(18, 3) = "i"
H3Q$(19, 1) = "the senses?": H3Q$(19, 2) = "i": H3Q$(19, 3) = "i"
H3Q$(20, 1) = "thought?": H3Q$(20, 2) = "i": H3Q$(20, 3) = "i"
H3Q$(21, 1) = "the One?": H3Q$(21, 2) = "i": H3Q$(21, 3) = "i"
H3Q$(22, 1) = "nothing?": H3Q$(22, 2) = "i": H3Q$(22, 3) = "i"
H3Q$(23, 1) = "everything?": H3Q$(23, 2) = "i": H3Q$(23, 3) = "i"
H3Q$(24, 1) = "unity?": H3Q$(24, 2) = "i": H3Q$(24, 3) = "i"
H3Q$(25, 1) = "harmony?": H3Q$(25, 2) = "i": H3Q$(25, 3) = "i"
H3Q$(26, 1) = "the opposites?": H3Q$(26, 2) = "i": H3Q$(26, 3) = "i"
H3Q$(27, 1) = "all?": H3Q$(27, 2) = "i": H3Q$(27, 3) = "i"
H3Q$(28, 1) = "faith?": H3Q$(28, 2) = "i": H3Q$(28, 3) = "i"
H3Q$(29, 1) = "the truth?": H3Q$(29, 2) = "i": H3Q$(29, 3) = "i"

'-------------------------------------------------------------------------------------------------------------------


'PHRASE 2 (Phrase H.2)

'Set Variables for second phrase (Phrase H.2) generation
H4$(1, 1) = "Could ": H4$(1, 2) = "i": H4$(1, 3) = "i"
H4$(2, 1) = "Can ": H4$(2, 2) = "i": H4$(2, 3) = "i"
H4$(3, 1) = "Should ": H4$(3, 2) = "i": H4$(3, 3) = "i"
H4$(4, 1) = "Must ": H4$(4, 2) = "i": H4$(4, 3) = "i"
H4$(5, 1) = "Maybe ": H4$(5, 2) = "i": H4$(5, 3) = "i"
H4$(6, 1) = "Why ": H4$(6, 2) = "i": H4$(6, 3) = "i"
H4$(7, 1) = "Would ": H4$(7, 2) = "i": H4$(7, 3) = "i"
H4$(8, 1) = "How could ": H4$(8, 2) = "i": H4$(8, 3) = "i"
H4$(9, 1) = "Isn't that ": H4$(9, 2) = "i": H4$(9, 3) = "i"
H4$(10, 1) = "Why never ": H4$(10, 2) = "i": H4$(10, 3) = "i"
H4$(11, 1) = "How couldn't ": H4$(11, 2) = "i": H4$(11, 3) = "i"
H4$(12, 1) = "Don't ": H4$(12, 2) = "i": H4$(12, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------
'Tag to be added here
'-------------------------------------------------------------------------------------------------------------------
H5$(1, 1) = " create anything?": H5$(1, 2) = "i": H5$(1, 3) = "i"
H5$(2, 1) = " exist without you?": H5$(2, 2) = "i": H5$(2, 3) = "i"
H5$(3, 1) = " be part of anything?": H5$(3, 2) = "i": H5$(3, 3) = "i"
H5$(4, 1) = " not be?": H5$(4, 2) = "i": H5$(4, 3) = "i"
H5$(5, 1) = " include everything?": H5$(5, 2) = "i": H5$(5, 3) = "p"
H5$(6, 1) = " make you forget?": H5$(6, 2) = "i": H5$(6, 3) = "i"
H5$(7, 1) = " deny our being?": H5$(7, 2) = "i": H5$(7, 3) = "i"
H5$(8, 1) = " be without being?": H5$(8, 2) = "i": H5$(8, 3) = "i"
H5$(9, 1) = " reflect on the calm sea?": H5$(9, 2) = "i": H5$(9, 3) = "p"
H5$(10, 1) = " die?": H5$(10, 2) = "i": H5$(10, 3) = "i"
H5$(11, 1) = " includes everything?": H5$(11, 2) = "i": H5$(11, 3) = "s"
H5$(12, 1) = " be?": H5$(12, 2) = "i": H5$(12, 3) = "i"
H5$(13, 1) = " exist?": H5$(13, 2) = "i": H5$(13, 3) = "i"
H5$(14, 1) = " be born?": H5$(14, 2) = "i": H5$(14, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------


'INTERMEDIATE PHRASE 1

'Set variables for Intermediate 1 phrase generation
I1$(1) = "But this was always the case."
I1$(2) = "Petty humans."
I1$(3) = "Ignorant men."
I1$(4) = "So blinded we are."
I1$(5) = "Arrogant humans."
I1$(6) = "We have forgotten what we knew."
I1$(7) = "It is the light that casts shadows."
I1$(8) = "Can you dream of dreams?"
I1$(9) = "Could you convince yourself you are not crazy?"
I1$(10) = "Who speaks to yourself?"
I1$(11) = "Can there be noise in the silence?"
I1$(12) = "Nothing cannot exist."
I1$(13) = "All is One."
I1$(14) = "Credo quia absurdum!"
I1$(15) = "You are the river."
I1$(16) = "You could never step into the river."
I1$(17) = "Try to clap with one hand."
I1$(18) = "You can know the taste of a peach only be eating it."
I1$(19) = "How can you not be anything?"
I1$(20) = "Our wisdom is obscured by our knowledge."
I1$(21) = "We analyze things too much."
I1$(22) = "Stop looking at the stars. Watch the worms instead."
I1$(23) = "You are only reflected on the calm sea..."
I1$(24) = "Close your eyes to see."
I1$(25) = "Listen to your own footsteps."
I1$(26) = "Could the now exist without the future?"
I1$(27) = "We are the stars and the moon!"
I1$(28) = "You are still a child. Laughing on the beach."


'PHRASE 3 (Phrase K)

'Set Variables for third phrase (Phrase K) generation
'---------------------------------------------------------------------------------------------------
K1$(1, 1) = "Death": K1$(1, 2) = "i": K1$(1, 3) = "i"
K1$(2, 1) = "Life": K1$(2, 2) = "i": K1$(2, 3) = "i"
K1$(3, 1) = "Self": K1$(3, 2) = "i": K1$(3, 3) = "i"
K1$(4, 1) = "God": K1$(4, 2) = "i": K1$(4, 3) = "i"
K1$(5, 1) = "Existence": K1$(5, 2) = "i": K1$(5, 3) = "i"
K1$(6, 1) = "Being": K1$(6, 2) = "i": K1$(6, 3) = "i"
K1$(7, 1) = "Reality": K1$(7, 2) = "i": K1$(7, 3) = "i"
K1$(8, 1) = "Others": K1$(8, 2) = "i": K1$(8, 3) = "p"
K1$(9, 1) = "Thought": K1$(9, 2) = "i": K1$(9, 3) = "i"
K1$(10, 1) = "Knowledge": K1$(10, 2) = "i": K1$(10, 3) = "i"
K1$(11, 1) = "Reality": K1$(11, 2) = "i": K1$(11, 3) = "i"
K1$(12, 1) = "Life": K1$(12, 2) = "i": K1$(12, 3) = "i"
K1$(13, 1) = "Death": K1$(13, 2) = "i": K1$(13, 3) = "i"
K1$(14, 1) = "Phenomena": K1$(14, 2) = "i": K1$(14, 3) = "p"
K1$(15, 1) = "God": K1$(15, 2) = "i": K1$(15, 3) = "i"
K1$(16, 1) = "Others": K1$(16, 2) = "i": K1$(16, 3) = "p"
K1$(17, 1) = "Perception": K1$(17, 2) = "i": K1$(17, 3) = "i"
K1$(18, 1) = "Change": K1$(18, 2) = "i": K1$(18, 3) = "s"
K1$(19, 1) = "The senses": K1$(19, 2) = "i": K1$(19, 3) = "p"
K1$(20, 1) = "Thought": K1$(20, 2) = "i": K1$(20, 3) = "s"
K1$(21, 1) = "The One": K1$(21, 2) = "i": K1$(21, 3) = "s"
K1$(22, 1) = "Nothing": K1$(22, 2) = "i": K1$(22, 3) = "s"
K1$(23, 1) = "Everything": K1$(23, 2) = "i": K1$(23, 3) = "p"
K1$(24, 1) = "Unity": K1$(24, 2) = "i": K1$(24, 3) = "s"
K1$(25, 1) = "Harmony": K1$(25, 2) = "i": K1$(25, 3) = "s"
K1$(26, 1) = "The opposites": K1$(26, 2) = "i": K1$(26, 3) = "p"
K1$(27, 1) = "All": K1$(27, 2) = "i": K1$(27, 3) = "p"
K1$(28, 1) = "Faith": K1$(28, 2) = "i": K1$(28, 3) = "s"
K1$(29, 1) = "The truth": K1$(29, 2) = "i": K1$(29, 3) = "s"
K1$(30, 1) = "Thinking": K1$(30, 2) = "i": K1$(30, 3) = "s"
K1$(31, 1) = "The self": K1$(31, 2) = "i": K1$(31, 3) = "s"
K1$(32, 1) = "Humans": K1$(32, 2) = "i": K1$(32, 3) = "p"
K1$(33, 1) = "We": K1$(33, 2) = "i": K1$(33, 3) = "p"
K1$(34, 1) = "Oblivion": K1$(34, 2) = "i": K1$(34, 3) = "s"
K1$(35, 1) = "Being": K1$(35, 2) = "i": K1$(35, 3) = "s"
K1$(36, 1) = "Existence": K1$(36, 2) = "i": K1$(36, 3) = "s"
K1$(37, 1) = "The void": K1$(37, 2) = "i": K1$(37, 3) = "s"
K1$(38, 1) = "Nothingness": K1$(38, 2) = "i": K1$(38, 3) = "s"
'---------------------------------------------------------------------------------------------------
K2$(1, 1) = " defines ": K2$(1, 2) = "i": K2$(1, 3) = "s"
K2$(2, 1) = " is defined by ": K2$(2, 2) = "i": K2$(2, 3) = "s"
K2$(3, 1) = " creates ": K2$(3, 2) = "i": K2$(3, 3) = "s"
K2$(4, 1) = " is created by ": K2$(4, 2) = "i": K2$(4, 3) = "s"
K2$(5, 1) = " define ": K2$(5, 2) = "i": K2$(5, 3) = "p"
K2$(6, 1) = " are defined by ": K2$(6, 2) = "i": K2$(6, 3) = "p"
K2$(7, 1) = " create ": K2$(7, 2) = "i": K2$(7, 3) = "p"
K2$(8, 1) = " are created by ": K2$(8, 2) = "i": K2$(8, 3) = "p"
K2$(9, 1) = " are not part of ": K2$(9, 2) = "i": K2$(9, 3) = "p"
K2$(10, 1) = " can Be without ": K2$(10, 2) = "i": K2$(10, 3) = "i"
K2$(11, 1) = " cannot exist without ": K2$(11, 2) = "i": K2$(11, 3) = "i"
K2$(12, 1) = " only exist because of ": K2$(12, 2) = "i": K2$(12, 3) = "p"
K2$(13, 1) = " define ": K2$(13, 2) = "i": K2$(13, 3) = "p"
K2$(14, 1) = " interacts with ": K2$(14, 2) = "i": K2$(14, 3) = "s"
K2$(15, 1) = " promotes ": K2$(15, 2) = "i": K2$(15, 3) = "s"
K2$(16, 1) = " destroys ": K2$(16, 2) = "i": K2$(16, 3) = "s"
K2$(17, 1) = " supports ": K2$(17, 2) = "i": K2$(17, 3) = "s"
K2$(18, 1) = " exist with ": K2$(18, 2) = "i": K2$(18, 3) = "p"
K2$(19, 1) = " gives birth to ": K2$(19, 2) = "i": K2$(19, 3) = "s"
K2$(20, 1) = " never includes ": K2$(20, 2) = "i": K2$(20, 3) = "s"
K2$(21, 1) = " is not part of ": K2$(21, 2) = "i": K2$(21, 3) = "s"
K2$(22, 1) = " only exists because of ": K2$(22, 2) = "i": K2$(22, 3) = "s"
K2$(23, 1) = " create ": K2$(23, 2) = "i": K2$(23, 3) = "p"
K2$(24, 1) = " are created by ": K2$(24, 2) = "i": K2$(24, 3) = "p"
K2$(25, 1) = " creates ": K2$(25, 2) = "i": K2$(25, 3) = "s"
K2$(26, 1) = " is created by ": K2$(26, 2) = "i": K2$(26, 3) = "s"
K2$(27, 1) = " sustains ": K2$(27, 2) = "i": K2$(27, 3) = "s"
K2$(28, 1) = " sustain ": K2$(28, 2) = "i": K2$(28, 3) = "p"
K2$(29, 1) = " defines ": K2$(29, 2) = "i": K2$(29, 3) = "s"
K2$(30, 1) = " is defined by ": K2$(30, 2) = "i": K2$(30, 3) = "s"
K2$(31, 1) = " are defined by ": K2$(31, 2) = "i": K2$(31, 3) = "p"
K2$(32, 1) = " manifest through ": K2$(32, 2) = "i": K2$(32, 3) = "p"
K2$(33, 1) = " gives meaning to ": K2$(33, 2) = "i": K2$(33, 3) = "s"
K2$(34, 1) = " give meaning to ": K2$(34, 2) = "i": K2$(34, 3) = "p"
K2$(35, 1) = " change ": K2$(35, 2) = "i": K2$(35, 3) = "p"
K2$(36, 1) = " changes ": K2$(36, 2) = "i": K2$(36, 3) = "s"
K2$(37, 1) = " are born by ": K2$(37, 2) = "i": K2$(37, 3) = "p"
K2$(38, 1) = " exists with ": K2$(38, 2) = "i": K2$(38, 3) = "s"
K2$(39, 1) = " give birth to ": K2$(39, 2) = "i": K2$(39, 3) = "p"
K2$(40, 1) = " destroy ": K2$(40, 2) = "i": K2$(40, 3) = "p"
K2$(41, 1) = " affects ": K2$(41, 2) = "i": K2$(41, 3) = "s"
K2$(42, 1) = " affect ": K2$(42, 2) = "i": K2$(42, 3) = "p"
K2$(43, 1) = " contains ": K2$(43, 2) = "i": K2$(43, 3) = "s"
K2$(44, 1) = " contain ": K2$(44, 2) = "i": K2$(44, 3) = "p"
K2$(45, 1) = " stems from ": K2$(45, 2) = "i": K2$(45, 3) = "s"
K2$(46, 1) = " transforms ": K2$(46, 2) = "i": K2$(46, 3) = "s"
K2$(47, 1) = " alienates from ": K2$(47, 2) = "i": K2$(47, 3) = "s"
K2$(48, 1) = " nullifies ": K2$(48, 2) = "i": K2$(48, 3) = "s"
K2$(49, 1) = " obscures ": K2$(49, 2) = "i": K2$(49, 3) = "s"
K2$(50, 1) = " leads to ": K2$(50, 2) = "i": K2$(50, 3) = "s"
K2$(51, 1) = " bears ": K2$(51, 2) = "i": K2$(51, 3) = "s"
K2$(52, 1) = " bear ": K2$(52, 2) = "i": K2$(52, 3) = "p"
K2$(53, 1) = " always obscure ": K2$(53, 2) = "i": K2$(53, 3) = "p"
K2$(54, 1) = " interact with ": K2$(54, 2) = "i": K2$(54, 3) = "p"
K2$(55, 1) = " promote ": K2$(55, 2) = "i": K2$(55, 3) = "p"
K2$(56, 1) = " destroy ": K2$(56, 2) = "i": K2$(56, 3) = "p"
K2$(57, 1) = " support ": K2$(57, 2) = "i": K2$(57, 3) = "p"
K2$(58, 1) = " exist with ": K2$(58, 2) = "i": K2$(58, 3) = "p"
K2$(59, 1) = " but give birth to ": K2$(59, 2) = "i": K2$(59, 3) = "p"
K2$(60, 1) = " never include ": K2$(60, 2) = "i": K2$(60, 3) = "p"
'--------------------------------------------------------------------------------------------------
K3$(1, 1) = "death.": K3$(1, 2) = "i": K3$(1, 3) = "i"
K3$(2, 1) = "life.": K3$(2, 2) = "i": K3$(2, 3) = "i"
K3$(3, 1) = "self.": K3$(3, 2) = "i": K3$(3, 3) = "i"
K3$(4, 1) = "being.": K3$(4, 2) = "i": K3$(4, 3) = "i"
K3$(5, 1) = "others.": K3$(5, 2) = "i": K3$(5, 3) = "i"
K3$(6, 1) = "existence.": K3$(6, 2) = "i": K3$(6, 3) = "i"
K3$(7, 1) = "reality.": K3$(7, 2) = "i": K3$(7, 3) = "i"
K3$(8, 1) = "God.": K3$(8, 2) = "i": K3$(8, 3) = "i"
K3$(9, 1) = "thought.": K3$(9, 2) = "i": K3$(9, 3) = "i"
K3$(10, 1) = "knowledge.": K3$(10, 2) = "i": K3$(10, 3) = "i"
K3$(11, 1) = "reality.": K3$(11, 2) = "i": K3$(11, 3) = "s"
K3$(12, 1) = "life.": K3$(12, 2) = "i": K3$(12, 3) = "i"
K3$(13, 1) = "death.": K3$(13, 2) = "i": K3$(13, 3) = "i"
K3$(14, 1) = "phenomena.": K3$(14, 2) = "i": K3$(14, 3) = "p"
K3$(15, 1) = "God.": K3$(15, 2) = "i": K3$(15, 3) = "i"
K3$(16, 1) = "others.": K3$(16, 2) = "i": K3$(16, 3) = "p"
K3$(17, 1) = "perception.": K3$(17, 2) = "i": K3$(17, 3) = "i"
K3$(18, 1) = "change.": K3$(18, 2) = "i": K3$(18, 3) = "i"
K3$(19, 1) = "the senses.": K3$(19, 2) = "i": K3$(19, 3) = "p"
K3$(20, 1) = "thought.": K3$(20, 2) = "i": K3$(20, 3) = "i"
K3$(21, 1) = "the One.": K3$(21, 2) = "i": K3$(21, 3) = "i"
K3$(22, 1) = "nothing.": K3$(22, 2) = "i": K3$(22, 3) = "i"
K3$(23, 1) = "everything.": K3$(23, 2) = "i": K3$(23, 3) = "p"
K3$(24, 1) = "unity.": K3$(24, 2) = "i": K3$(24, 3) = "i"
K3$(25, 1) = "harmony.": K3$(25, 2) = "i": K3$(25, 3) = "i"
K3$(26, 1) = "the opposites.": K3$(26, 2) = "i": K3$(26, 3) = "p"
K3$(27, 1) = "all.": K3$(27, 2) = "i": K3$(27, 3) = "p"
K3$(28, 1) = "faith.": K3$(28, 2) = "i": K3$(28, 3) = "i"
K3$(29, 1) = "the truth.": K3$(29, 2) = "i": K3$(29, 3) = "s"
K3$(30, 1) = "thinking.": K3$(30, 2) = "i": K3$(30, 3) = "s"
K3$(31, 1) = "the self.": K3$(31, 2) = "i": K3$(31, 3) = "s"
K3$(32, 1) = "humans.": K3$(32, 2) = "i": K3$(32, 3) = "p"
K3$(33, 1) = "us.": K3$(33, 2) = "i": K3$(33, 3) = "p"
K3$(34, 1) = "oblivion.": K3$(34, 2) = "i": K3$(34, 3) = "i"
K3$(35, 1) = "being.": K3$(35, 2) = "i": K3$(35, 3) = "i"
K3$(36, 1) = "existence.": K3$(36, 2) = "i": K3$(36, 3) = "i"
K3$(37, 1) = "the void.": K3$(37, 2) = "i": K3$(37, 3) = "i"
K3$(38, 1) = "nothingness.": K3$(38, 2) = "i": K3$(38, 3) = "i"
'--------------------------------------------------------------------------------------------------


'INTERMEDIATE PHRASE 2

'Set variables for Intermediate 2 phrase generation
I2$(1) = "Don't you remember?"
I2$(2) = "Can't you see?"
I2$(3) = "Search deep inside."
I2$(4) = "Stop thinking."
I2$(5) = "Stop trying to understand."
I2$(6) = "Try to remember."
I2$(7) = "Stop trying to remember."
I2$(8) = "There is nothing to analyze."
I2$(9) = "Seek ignorance."
I2$(10) = "Laugh at wisdom."


'TERMINATING PHRASE

'Set variables for Terminating phrase generation
T$(1) = "Just let go..."
T$(2) = "Stop thinking. And you will see..."
T$(3) = "Search the abyss. You know it to be true..."
T$(4) = "Do you deel the terror?"
T$(5) = "Feel the breeze..."
T$(6) = "Smell that jasmine..."
T$(7) = "Do you remember when you were a child?"
T$(8) = "Don't cry..."
T$(9) = "Can you laugh under the Sun?"
T$(10) = "Smell that peach..."


'Neural network variables intialization
H1counter = 1
H2counter = 1
Kcounter = 1


CLS: SCREEN 9: COLOR 7

PRINT "ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
PRINT "Û                      Û"
PRINT "Û Huo Writer 2020 v0.1 Û"
PRINT "Û                      Û"
PRINT "ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ"

PRINT ""
PRINT "Welcome to Huo Writer!"
PRINT "A creation by Spyridon Kakos (huo)"
PRINT "The wisest program that cannot think!"

ProgramStart:
PRINT ""
PRINT "Press 'd' to start the discussion or 'h' for Help"

e$ = ""
DO
    DO
        hyn$ = INKEY$
    LOOP WHILE hyn$ = ""
    SELECT CASE hyn$
        CASE "d", "D"
            GOTO AskInput
        CASE "h", "H"
            GOTO Help
        CASE ELSE
            e$ = "A"
    END SELECT
LOOP WHILE e$ <> ""

Help:
CLS
PRINT "------------- HUO WRITER v0.1 HELP -------------"
PRINT ""
PRINT "I. HOW TO USE"
PRINT ""
PRINT "Enter tags related to the topic of discussion. Then wait for the output."
PRINT "Be patient. Give time to the wise program to think."
PRINT "No, it can't think. And that is immensely wiser than being able to."
PRINT ""
PRINT "II. ENTERING TAGS"
PRINT ""
PRINT "For each tag, define its parameters. The greater the quality of the tag definition, the greater the quality of the output."
PRINT ""
PRINT "Parameters to define:"
PRINT "> Gender: Is the gender of the tag male (m), female (f), neutral (n), an adjective (a) or indifferent (i) ? Tip: Choose neutral if the 'the' is needed, e.g. put 'Death' as male, the 'irrational' as neutral."
PRINT "> Number: Is the number of the tag single (s), plural (p) or indifferent (i) ?"
PRINT ""
PRINT "(press a key to continue...)"
DO
    hyn$ = INKEY$
LOOP WHILE hyn$ = ""
PRINT ""
PRINT "III. NEURAL NETWORK"
PRINT ""
PRINT "If learning mode is enabled, the computer will ask for feedback after each phrase. If the feedback is negative, the selected combination that generated the phrase will not be repeated again. After many iterations, computer 'learns' to think like you do. Bad combinations learned are erased every time the program starts."

GOTO ProgramStart

AskInput:
'Start the program and the discussion!

setLearningMode:
PRINT ""
PRINT "Enable learning mode? (y/n) "

e$ = ""
DO
    DO
        hyn$ = INKEY$
    LOOP WHILE hyn$ = ""
    SELECT CASE hyn$
        CASE "y", "Y"
            learningMode = 1
        CASE "n", "N"
            learningMode = 0
        CASE ELSE
            e$ = "A"
    END SELECT
LOOP WHILE e$ <> ""

CLS
PRINT "------------- HUO WRITER v0.1 DISCUSSION -------------"
PRINT ""
PRINT "Hello my friend."
SLEEP 2
PRINT "Come. Tell me."
SLEEP 2
PRINT "What is our theme of discussion to-day?"
PRINT ""
INPUT "Number of tags: ", tagsNo
PRINT "Thank you"
SLEEP 2
PRINT "": PRINT "Now...": PRINT ""
SLEEP 2
PRINT "Please enter related tags one by one..."
SLEEP 2
PRINT "One word only per tag please. All in small letters."
PRINT "Enter Bye or just press Enter to exit."

'Read related tags for the subject of discussion
FOR I = 1 TO tagsNo
    'textToShow$ = "Tag " + STR$(I) + ": "
    'INPUT textToShow$, Tags$(I)
    PRINT ""
    INPUT "Enter Tag: ", Tags$(I, 1)
    IF Tags$(I, 1) = "Bye" OR Tags$(I, 1) = "" THEN END
    TagGender:
    INPUT "ENTER THE TAG'S GENDER (m, f, n, a, i) : ", Tags$(I, 2)
    IF Tags$(I, 2) <> "m" AND Tags$(I, 2) <> "f" AND Tags$(I, 2) <> "n" AND Tags$(I, 2) <> "a" AND Tags$(I, 2) <> "i" THEN GOTO TagGender
    TagNumber:
    INPUT "ENTER THE NUMBER OF THE TAG (s, p, i)  : ", Tags$(I, 3)
    IF Tags$(I, 3) <> "s" AND Tags$(I, 3) <> "p" AND Tags$(I, 3) <> "i" THEN GOTO TagNumber
NEXT I

PRINT "": PRINT "Interesting. Let me think...": PRINT "": SLEEP 3

'------------------------------------------
'Generate first phrase (uses H1, H2, H3)
'------------------------------------------
PhraseH1:

RANDOMIZE TIMER
T1 = INT(RND * tagsNo) + 1
IF Tags$(T1, 2) = "a" THEN GOTO PhraseH1 'Cannot put an adjective in the beginning!
T2 = INT(RND * tagsNo) + 1
A = INT(RND * (H1size - 1)) + 1: B = INT(RND * (H2size - 1)) + 1: C = INT(RND * (H3size - 1)) + 1

'----- Validations -----
'If illegal combination (e.g. Always ... always) then, generate new phrase!
'Always + Always is forbidden
IF A = 7 AND B = 1 THEN GOTO PhraseH1
'If number is not equal (plural with plural, single with single) or the number of the next element is not indifferent, then generate phrase again
IF Tags$(T1, 3) <> H2$(B, 3) AND H2$(B, 3) <> "i" THEN GOTO PhraseH1

'Neural network: Check if the combination selected was discarded by human previously. If yes, generate a different one!
FOR I = 1 TO H1counter
    IF BadCombinationsH1(I, 1) = A AND BadCombinationsH1(I, 2) = B AND BadCombinationsH1(I, 3) = C THEN GOTO PhraseH1
NEXT I

'----- Create the phrase -----
'If a question phrase is selected from H1$, then you must select from specific endings from H3Q$, which contains questions
'If no question is selected, then print the phrase by selecting from the H3$ table
'Neutral tags need the The (Question)
IF Tags$(T1, 2) = "n" AND A >= 11 THEN PRINT H1$(A, 1) + "the " + Tags$(T1, 1) + H2$(B, 1) + H3Q$(C, 1): GOTO PhraseH2
'Neutral tags need the The (Non-question)
IF Tags$(T1, 2) = "n" AND A <= 10 THEN PRINT H1$(A, 1) + "the " + Tags$(T1, 1) + H2$(B, 1) + H3$(C, 1): GOTO PhraseH2
'Any other non-neutral tag (Question)
IF H1$(A, 4) = "q" THEN PRINT H1$(A, 1) + Tags$(T1, 1) + H2$(B, 1) + H3Q$(C, 1): GOTO PhraseH2
'Any other non-neutral tag (Non-question)
IF H1$(A, 4) = "" THEN PRINT H1$(A, 1) + Tags$(T1, 1) + H2$(B, 1) + H3$(C, 1): GOTO PhraseH2

'Neural network: Store selected combination if the user decides it is a bad one
IF learningMode = 1 THEN

    PRINT "": PRINT "Was this sentence a good one? (y/n)"
    e$ = ""
    DO
        DO
            hyn$ = INKEY$
        LOOP WHILE hyn$ = ""
        SELECT CASE hyn$
            CASE "y", "Y"
                e$ = ""
            CASE "n", "N"
                BadCombinationsH1(H1counter, 1) = A
                BadCombinationsH1(H1counter, 2) = B
                BadCombinationsH1(H1counter, 3) = C
            CASE ELSE
                e$ = "A"
        END SELECT
    LOOP WHILE e$ <> ""
    PRINT "Thank you for your input.": PRINT ""

END IF

SLEEP 3

'------------------------------------
'Generate second phrase (uses H4, H5)
'------------------------------------
PhraseH2:

A = INT(RND * (H4size - 1)) + 1
B = INT(RND * (H5size - 1)) + 1

'Validations
'If number is not equal (plural with plural, single with single) or the number of the next element is not indifferent, then generate phrase again
IF Tags$(T2, 3) <> H5$(B, 3) AND H5$(B, 3) <> "i" THEN GOTO PhraseH2

'Neural network: Check if the combination selected was discarded by human previously. If yes, generate a different one!
FOR I = 1 TO H2counter
    IF BadCombinationsH2(I, 1) = A AND BadCombinationsH2(I, 2) = B THEN GOTO PhraseH2
NEXT I

'----- Create the phrase -----
IF Tags$(T1, 2) = "n" THEN PRINT H4$(A, 1) + "the " + Tags$(T2, 1) + H5$(B, 1): GOTO Intermediate1
IF Tags$(T1, 2) <> "n" THEN PRINT H4$(A, 1) + Tags$(T2, 1) + H5$(B, 1)

'Neural network: Store selected combination if the user decides it is a bad one
IF learningMode = 1 THEN

    PRINT "": PRINT "Was this sentence a good one? (y/n)"
    e$ = ""
    DO
        DO
            hyn$ = INKEY$
        LOOP WHILE hyn$ = ""
        SELECT CASE hyn$
            CASE "y", "Y"
                e$ = ""
            CASE "n", "N"
                BadCombinationsH2(H2counter, 1) = A
                BadCombinationsH2(H2counter, 2) = B
            CASE ELSE
                e$ = "A"
        END SELECT
    LOOP WHILE e$ <> ""
    PRINT "Thank you for your input.": PRINT ""

END IF

SLEEP 3

'------------------------------
'Generate intermediate phrase 1
'------------------------------
Intermediate1:
RANDOMIZE TIMER
A = INT(RND * (I1size - 1)) + 1
PRINT I1$(A)
SLEEP 3

'---------------------------------------
'Generate third phrase (uses K1, K2, K3)
'---------------------------------------
PhraseK:
RANDOMIZE TIMER
A = INT(RND * (K1size - 1)) + 1: B = INT(RND * (K2size - 1)) + 1: C = INT(RND * (K3size - 1)) + 1
IF C = A THEN GOTO PhraseK
'If number is not equal (plural with plural, single with single) or the number of the next element is not indifferent, then generate phrase again
IF K1$(A, 3) <> K2$(B, 3) AND K2$(B, 3) <> "i" THEN GOTO PhraseK

'Neural network: Check if the combination selected was discarded by human previously. If yes, generate a different one!
FOR I = 1 TO Kcounter
    IF BadCombinationsK(I, 1) = A AND BadCombinationsK(I, 2) = B AND BadCombinationsK(I, 3) = C THEN GOTO PhraseK
NEXT I

'----- Create the phrase -----
PRINT K1$(A, 1) + K2$(B, 1) + K3$(C, 1)

'Neural network: Store selected combination if the user decides it is a bad one
IF learningMode = 1 THEN

    PRINT "": PRINT "Was this sentence a good one? (y/n)"
    e$ = ""
    DO
        DO
            hyn$ = INKEY$
        LOOP WHILE hyn$ = ""
        SELECT CASE hyn$
            CASE "y", "Y"
                e$ = ""
            CASE "n", "N"
                BadCombinationsK(Kcounter, 1) = A
                BadCombinationsK(Kcounter, 2) = B
                BadCombinationsK(Kcounter, 3) = C
            CASE ELSE
                e$ = "A"
        END SELECT
    LOOP WHILE e$ <> ""
    PRINT "Thank you for your input.": PRINT ""

END IF

SLEEP 3

'------------------------------
'Generate intermediate phrase 2
'------------------------------
Intermediate2:
RANDOMIZE TIMER
A = INT(RND * (I2size - 1)) + 1
PRINT I2$(A)
SLEEP 3

'---------------------------
'Generate terminating phrase
'---------------------------
Terminate:
RANDOMIZE TIMER
A = INT(RND * (Tsize - 1)) + 1
PRINT T$(A)
SLEEP 3

'Want to continue?
PRINT "": PRINT "Want more? (y/n) "

e$ = ""
DO
    DO
        hyn$ = INKEY$
    LOOP WHILE hyn$ = ""
    SELECT CASE hyn$
        CASE "y", "Y"
            H1counter = H1counter + 1
            H2counter = H2counter + 1
            Kcounter = Kcounter + 1
            GOTO AskInput
        CASE "n", "N"
            END
    END SELECT
LOOP WHILE e$ <> ""

END