self inquiry program in FB

[ron77]

'Screen _NewImage(1000, 800, 32)
'Print _Width / _FontWidth, _Height / _FontHeight
#lang "qb"

screen 19

ReDim Shared array1(0) As String, array2(0) As String, array3(0) As String
Dim Shared As String t1, b1, c1, c2

Sub cp (row As Integer, s$)
    Locate row, (100 - Len(s$)) / 2: Print s$
End Sub

Sub sappend (arr() As String, temp As String)
    ReDim Preserve arr(LBound(arr) To UBound(arr) + 1)
    arr(UBound(arr)) = temp
End Sub



FUNCTION _
	getKeys$(_
	BYREF keysToCatch AS CONST STRING) _
	
	
	DIM AS STRING _
	k
	
	DO
        k =  INKEY$
        
        SLEEP(1 , 1)
    LOOP UNTIL (INSTR(keysToCatch , k))
	
	'CLEAR keyboard buffer
	DO WHILE (LEN(INKEY$()) > 0)
        SLEEP(1 , 1)
    LOOP
	
	getKeys$ = k
END FUNCTION

Sub multipy (arr() As String)
    Dim r$
    Do
        Input "", r$
        sappend arr(), r$

    Loop Until r$ = ""
End Sub

Sub inqury
    Cls
    cp 4, "WRITE A STREESUL THOUGHT OR BELIEF ABOUT SOMEONE THAT YOU HAVE"
    Input "THE THOUGHT IS: ", t1
    Input "IS THAT THE TRUTH?: ", c1
    Input "CAN YOU KNOW FOR SURE THAT IT IS THE TRUTH?: ", c2
    cp 9, "HOW DO YOU REACT? WHAT HAPPENS, WHEN YOU BELIEVE THIS THOUGHT?: "
    multipy array1()

    Cls
    cp 4, "WHAT IS THE BELIEF THAT YOU ARE INQUIRING?:"
    Input "", b1
    cp 7, "CLOSE YOUR EYES AND IMAGINE WHO OR HOW WILL YOU BE WITHOUT THAT BELIEF?:"
    multipy array2()

    Cls
    cp 4, "NOW REVERSE THE INQUIRY:"
    cp 5, "EXAMPLE INSTEAD OF - HE HURT ME - I HURT HIM"
    cp 6, "POSSIBLE REVESRSED OPTIONS: - 1. TO MYSELF (I HURT MYSELF)"
    cp 7, "2. TO ANOTHER (I HURT HIM)"
    cp 8, "3. TO THE NEGATIVE (HE DIDN'T HURT ME OR HE HELPED ME)"
    multipy array3()

    Cls
    cp 4, "NOW FIND AT LEAST 3 EXAMPLES AND EXAMINE HOW THEY ARE TRUE TO YOU IN GIVEN SITUATION"

    For i = 0 To UBound(array1)
        Print array3(i)
    Next
    Sleep

End Sub

Sub main
    Do
        Cls
        Dim k$
        cp 5, "SELF INQUIRY DEMO PROGRAM"
        cp 6, "BY RON77"
        cp 8, "VERSION 0.1.0"
        cp 9, "THIS PROGRAM DOES NOT STORE DATA ON YOUR COMPUTER"
        cp 10, "THE IDEA BEHIND THIS PROGRAM IS -"
        cp 11, "KATIE BYRON'S WORK -"
        cp 12, "(SEARCH GOOGLE/WIKIPHEDIA FOR 'THE WORK BY KATIE BYRON')"
        cp 15, "PRESS ENTER TO BEGIN SELF INQUIRY OR -"
        cp 16, "PRESS ESCAPE KEY TO EXIT"
        k$ = getKeys$(Chr$(13) + Chr$(27))
        If k$ = Chr$(13) Then
            'cp 20, "okay let's begin"
            'multipy
            inqury
        ElseIf k$ = Chr$(27) Then
            End
        End If
    Loop
End Sub

main()