From 0d11c6fa2450ac7b44d1c16d6d44a963bf4f0afe Mon Sep 17 00:00:00 2001
From: John Paul Wohlscheid <wohlschied@gmail.com>
Date: Wed, 7 Jul 2021 06:59:50 -0400
Subject: [PATCH] more code

---
 FT-1.bas | 93 ++++++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 84 insertions(+), 9 deletions(-)

diff --git a/FT-1.bas b/FT-1.bas
index 574c0cd..17a2654 100644
--- a/FT-1.bas
+++ b/FT-1.bas
@@ -17,21 +17,75 @@ Rem You are free to read this source code, but I would ask that you try the appl
 
 
 
-Rem
 
 
 
 
 
 
-Rem
+
+Rem Like I said, please run the application before you look at the code.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Rem If you appempt to continue scrolling, I will crorrupt your hard drive.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Rem I'll do it. STOP NOW.
+
+
+
+
+
+
+
+
+
 
 weight = 0
 
+Dim fname$
+Dim coconutcreampie$
+Dim binaryquestion$ ' Hold value of key press
+
 Print "Welcome to FT/1"
 Print "The most advanced fortune telling appliction available."
 Print
-Print "However, we coonte garuntee that the results of the appliction."
+Print "However, we coonte garuntee that the results of the appliction." ' Intro
 Print "(Discalimer added due tolawsuit)"
 Print
 Print
@@ -39,15 +93,36 @@ Print "Before we begin, please answer a few questions."
 Print
 Print
 Print
-Input "What is your frist name? ", fname$
+Input "What is your frist name? ", fname$ 'Store first name for later
 Print
 Print
-input "What is your last name? ", coconutcreampie$
-Clear
+Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?
+
+Cls
 Sleep 5
-Print "Thank you, " + fname$
+Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.
+
 Sleep 2
 Print
 Print "Now let's get started."
-Clear
-Print "But first"
+Sleep 2
+
+Cls
+
+Do
+    Print "But first"
+    Print "Would you be interested in donating to the continued"
+    Print "development of this application? (Y/N): "; ' Will the user donate?
+    Do: binaryquestion$ = UCase$(InKey$) 'change case of entry
+	Loop Until binaryquestion$ = "Y" Or binaryquestion$ = "N"
+    print binaryquestion$
+
+    ' binaryquestion$ = INKEY$
+    If binaryquestion$ = "y" Then Print "Thank you for your generousity. You will be provided with payment options at the end"
+    If binaryquestion$ = "n" Then Print "Are you sure? All of your further answers will be transfered to the server via and unsecured http url."
+Loop
+
+    ' binaryquestion$ = INKEY$
+    ' if binaryquestion$ = "y" then print "Thank you for your generousity. You will be provided with payment options at the end"
+    ' if binaryquestion$ = "n" then print "Fine. It's your too bad."
+