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