Post by Deleted on Jul 10, 2021 2:59:33 GMT -5
hello here is a self inquiry program based on "Katie Byron - the work" : en.wikipedia.org/wiki/Byron_Katie
Screen _NewImage(1000, 800, 32)
'Print _Width / _FontWidth, _Height / _FontHeight
ReDim Shared array1(0) As String, array2(0) As String, array3(0) As String
Dim Shared As String t1, b1, c1, c2
main
Sleep
Sub cp (row As Integer, s$)
Locate row, (125 - 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
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$ = GetKey$(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
Function GetKey$ (keysToCatch$)
Dim k$
_KeyClear
Do
k$ = InKey$
While Len(k$) = 0
k$ = InKey$
_Limit 60
Wend
Loop Until InStr(keysToCatch$, k$)
GetKey$ = 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