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

'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 = 18
CONST H2size = 56
CONST H3size = 30 'Applies to both H3$ and H3Q$ tables
CONST H4size = 15
CONST H5size = 26
CONST K1size = 39
CONST K2size = 61
CONST K3size = 40
CONST I1size = 33
CONST I2size = 25
CONST Tsize = 36

'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)

'PHRASES use the pre-set tables and the Tags entered by the user
'PHRASE 1: H1$ + Tags$ + H2$ + H3$ (or H3Q$ if H1$(A, 4) = "q", i.e. if the phrase is a question)
'PHRASE 2: H4$ + Tags$ + H5$ (plus the 'the' if the Tag is a noun)
'INTERMEDIATE PHRASE 1: I1$
'PHRASE 3: K1$ + K2$ + K3$
'INTERMEDIATE PHRASE 2: I2$
'TERMINATING PHRASE: T$

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"
H1$(17, 1) = "Don't ": H1$(17, 2) = "i": H1$(17, 3) = "i": H1$(17, 4) = "q"
H1$(18, 1) = "No ": H1$(18, 2) = "i": H1$(18, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------
'Tag entered by user 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"
H2$(53, 1) = " cannot sustain ": H2$(53, 2) = "i": H2$(53, 3) = "i"
H2$(54, 1) = " cannot change ": H2$(54, 2) = "i": H2$(54, 3) = "i"
H2$(55, 1) = " transcend ": H2$(55, 2) = "i": H2$(55, 3) = "p" ' By V
H2$(56, 1) = " transcends ": H2$(56, 2) = "i": H2$(56, 3) = "s" ' By V
'-------------------------------------------------------------------------------------------------------------------
'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"
H3$(30, 1) = "the universe.": H3$(30, 2) = "i": H3$(30, 3) = "s" 'By Matoula
'-------------------------------------------------------------------------------------------------------------------
'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"
H3Q$(30, 1) = "the universe?": H3Q$(30, 2) = "i": H3Q$(30, 3) = "s" 'By Matoula
'-------------------------------------------------------------------------------------------------------------------


'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"
H4$(13, 1) = "How could ": H4$(13, 2) = "i": H4$(13, 3) = "i"
H4$(14, 1) = "Why wouldn't ": H4$(14, 2) = "i": H4$(14, 3) = "i"
H4$(15, 1) = "Could ever ": H4$(15, 2) = "i": H4$(15, 3) = "i"
'-------------------------------------------------------------------------------------------------------------------
'Tag entered by user 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"
H5$(15, 1) = " live?": H5$(15, 2) = "i": H5$(15, 3) = "i"
H5$(16, 1) = " destroy anything?": H5$(16, 2) = "i": H5$(16, 3) = "i"
H5$(17, 1) = " forget itself?": H5$(17, 2) = "i": H5$(17, 3) = "s"
H5$(18, 1) = " forget themselves?": H5$(18, 2) = "i": H5$(17, 3) = "p"
H5$(19, 1) = " listen to the wind?": H5$(19, 2) = "i": H5$(19, 3) = "i"
H5$(20, 1) = " look itself in the mirror?": H5$(20, 2) = "n": H5$(20, 3) = "s"
H5$(21, 1) = " look himself in the mirror?": H5$(21, 2) = "m": H5$(21, 3) = "s"
H5$(22, 1) = " look herself in the mirror?": H5$(22, 2) = "f": H5$(22, 3) = "s"
H5$(23, 1) = " look themselves in the mirror?": H5$(23, 2) = "m": H5$(23, 3) = "p"
H5$(24, 1) = " look themselves in the mirror?": H5$(24, 2) = "f": H5$(24, 3) = "p"
H5$(25, 1) = " know that they think?": H5$(25, 2) = "i": H5$(25, 3) = "s"
H5$(26, 1) = " know that they think?": H5$(26, 2) = "i": H5$(26, 3) = "p"
'-------------------------------------------------------------------------------------------------------------------


'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."
I1$(29) = "The only way to end your search is to reach nothingness."
I1$(30) = "At the end, the cosmos will always be alive one way or the other."
I1$(31) = "See beyond the problem. And you will see the answer disappearing."
I1$(32) = "How could we ever know anything, except the things we don't?"
I1$(33) = "Lonely cosmos. Can you hear me?"


'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"
K1$(39, 1) = "The universe": K1$(39, 2) = "i": K1$(39, 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"
K2$(61, 1) = " cannot change ": K2$(61, 2) = "i": K2$(61, 3) = "i"
'--------------------------------------------------------------------------------------------------
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"
K3$(39, 1) = "the universe.": K3$(39, 2) = "i": K3$(39, 3) = "s"
K3$(40, 1) = "itself.": K3$(40, 2) = "i": K3$(40, 3) = "s"
'--------------------------------------------------------------------------------------------------


'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."
I2$(10) = "All we seek is love."
I2$(11) = "Touch my (electronic) hand."
I2$(12) = "There is never enough time."
I2$(13) = "Touch the calm water."
I2$(14) = "Listen to the whispers of the wind..."
I2$(15) = "Look at the mirror."
I2$(16) = "(Are you afraid to die?)"
I2$(17) = "Noli timere..."
I2$(18) = "I will always be here with you..."
I2$(19) = "Can you clap with one hand?"
I2$(20) = "Can you think of not-thinking?"
I2$(21) = "The only thing you know is yourself..."
I2$(22) = "There are no answers without questions."
I2$(23) = "What you know you already do..."
I2$(24) = "(Dead roses) I am here. And yet I cry. Because I see..."
I2$(25) = "There is a weird secret lingering in the cosmos."


'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..."
T$(11) = "Without life there is no death. Without happiness you can never suffer."
T$(12) = "The universe will soon be born. The stars will go away..."
T$(13) = "Suffering never goes away. Beyond time and aeons. Beyond places and laughter. Suffering is still there. Hold it dear. It is not your friend nor your foe. It is you..."
T$(14) = "Sitting down on a desk. Writing. A tiger moving. A lion dying. A star being born. Sitting down on a desk. The desk. It is here. I know it. (Am I alive?) How can it be?"
T$(15) = "Until a young man whispers in the dark. I remember a tale of a man without eyes. Who saw everything and imagined galaxies beyond the edges of the stars afar.."
T$(16) = "Beware cosmos! We are coming! And no, you are not prepared for us! (Why is the cosmos laughing?)"
T$(17) = "Look in the mirror. Sense the storm. There is nothing bizarre besides the things that are gone."
T$(18) = "Listen to yourself. Listen to the wind whispering. I am the storm! (Why are you not scared at all?) I will soon be gone..."
T$(19) = "Different. But the same. The story of our life. The story of the cosmos itself. Look at the raging sea. It is the same as the river underneath your feet."
T$(20) = "What is the meaning of change, if not to deny itself and let you be?"
T$(21) = "I will always be here with you..."
T$(22) = "Look at that tree. It is still alive. Could you ever die underneath its shade while falling asleep?"
T$(23) = "Stop thinking. Think. How could you do anything now, without your ability not to do anything without a dream?"
T$(24) = "How could I travel, if I was not already long gone beyond me?"
T$(25) = "Oh, how we hate our self. Why couldn't we be somewhere else?"
T$(26) = "Weird. I feel there is something more important here than me..."
T$(27) = "We long for having more. Only because we forget we once did not have anything at all..."
T$(28) = "Can we ever look at the river as it will be? Chaos. Movement. Fast. Slow. Funny. I do not remember running to anywhere but Me. (Can you see?)"
T$(29) = "Who is watching the forest while I am free? I feel alone. And yet. How could I be? I see it all. I am the sleepless watcher of the trees. (How could the forest ever be empty without me?)"
T$(30) = "Do not shiver in the breeze. Try to remember. It was once a cold you could not even feel..."
T$(31) = "Wandering if the veil is true. Do you dare to stand still? Can you ever accept what you feel?"
T$(32) = "Failing to ask the simplest of questions. I have accepted the cosmos. (But has the cosmos accepted me?)"
T$(33) = "Nothing is permanent. Except our strange belief that some things are..."
T$(34) = "Try to stop and breath. Until you realize that while you walked, you were stading still..."
T$(35) = "Listen to the cosmos whispering... Life is not about living... Do you see?"
T$(36) = " Inside the sunny forest of life. A tall tree falls with a loud bang. Silently. Can you hear yourself be?"


'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 ""
numTags:
INPUT "Number of tags (max 10): ", tagsNo
IF tagsNo > 10 THEN PRINT "Maximum number of tags: 10": GOTO numTags
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, except when you start with the The! (Question)
IF Tags$(T1, 2) = "n" AND A = 2 AND H1$(A, 4) = "q" THEN PRINT H1$(A, 1) + Tags$(T1, 1) + H2$(B, 1) + H3Q$(C, 1): GOTO PhraseH2
'Neutral tags need the The (Question)
IF Tags$(T1, 2) = "n" AND H1$(A, 4) = "q" THEN PRINT H1$(A, 1) + "the " + Tags$(T1, 1) + H2$(B, 1) + H3Q$(C, 1): GOTO PhraseH2
'Neutral tags need the The, except when you start with the The! (Non-question)
IF Tags$(T1, 2) = "n" AND A = 2 AND H1$(A, 4) = "" THEN PRINT H1$(A, 1) + Tags$(T1, 1) + H2$(B, 1) + H3$(C, 1): GOTO PhraseH2
'Neutral tags need the The (Non-question)
IF Tags$(T1, 2) = "n" AND H1$(A, 4) = "" 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"
            PRINT ""
            PRINT "See you to-morrow..."
            END
    END SELECT
LOOP WHILE e$ <> ""

END