From a9dcd1bd01c77a167e7cf91e393b01c579e034a0 Mon Sep 17 00:00:00 2001
From: John Paul Wohlscheid <wohlschied@gmail.com>
Date: Sun, 11 Jul 2021 20:14:46 -0400
Subject: [PATCH] 1.0 release

---
 FT-1.bas | 110 +++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 87 insertions(+), 23 deletions(-)

diff --git a/FT-1.bas b/FT-1.bas
index 457b0f0..7a9d28d 100644
--- a/FT-1.bas
+++ b/FT-1.bas
@@ -41,7 +41,7 @@ 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 If you attempt to continue scrolling, I will attempt your hard drive.
 
 
 
@@ -74,28 +74,33 @@ Rem I'll do it. STOP NOW.
 
 
 
-
+screen 12
 
 weight = 0
 
 Dim fname$
 Dim coconutcreampie$
 Dim binaryquestion$ ' Hold value of key press
-dim heav$
-dim weight$
+Dim heav%
+Dim weight%
+Dim restart$
+
+heav% = 0
 
 Print "Welcome to FT/1"
-Print "The most advanced fortune telling appliction available."
+Print "The most advanced fortune-telling application available."
 Print
-Print "However, we coonte garuntee that the results of the appliction." ' Intro
-Print "(Discalimer added due tolawsuit)"
+Print "However, we can't guarantee that the results of the application." ' Intro
+Print "(Disclaimer added due to lawsuit.)"
 Print
+start:
+cls
 Print
 Print "Before we begin, please answer a few questions."
 Print
 Print
 Print
-Input "What is your frist name? ", fname$ 'Store first name for later
+Input "What is your first name? ", fname$ 'Store first name for later
 Print
 Print
 Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?
@@ -115,31 +120,90 @@ 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$ = INKEY$
-loop until ((LCASE$(binaryquestion$) = "y") or (LCASE$(binaryquestion$) = "n"))
+Do
+    binaryquestion$ = InKey$
+Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n"))
 
-if binaryquestion$ = "y" then print "Thank you for your patronage."; print "19999999999.99 has been deducted from your bacnk account as a one time, non-renewing payment."; goto cheep
-if binaryquestion$ = "n" then print "Fine. It's your too bad."; print "All further communications will be made via unsecured http."; goto paid
+If binaryquestion$ = "y" Then Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": GoTo cheap
+If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All further communications will be made via unsecured http.": GoTo paid
 
 
 cheap:
-cls
+print "I hope your information is safe."
+sleep 1
+Cls
 Input "What is your age? ", age$
 Print
 Print
-print "What is your weight? "
-Input weight$
-if weight$ = 250 then heav$ = 1
+Print "What is your weight? "
+Input weight%
+If weight% > 250 Then heav% = 1
+Cls
+Print
+Print "Transferring data to server"
+Print
+Print
+Sleep 5
+Print "Working"
+Sleep 3
+Print "Working"
+Sleep 2
+Print "Working"
+Sleep 5
+Print "Working"
+Print
+Print
+Print
+Print
+Print "Sometime in the future, you will pay taxes and you will die."
+Sleep 2
+Print "You are also a cheapskate."
+Sleep 2
+If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
+Print
+Print "Thank you for trying our this expieramental Fortune telling program."
+Print "If you found it insightful, share it with your friends and family."
+Print
+Print "To retry, press 1"
+Input restart%
+If restart% = 1 Then GoTo start
+
 
 paid:
 
-cls
+Cls
 Input "What is your age? ", age$
 Print
 Print
-print "What is your weight? "
-Input weight$
-if weight$ = 250 then heav$ = 1
-
-
+Print "What is your weight? "
+Input weight%
+If weight% > 250 Then heav% = 1
+Cls
+Print
+Print "Transferring data to server via https."
+Print
+Print
+Sleep 5
+Print "Working"
+Sleep 3
+Print "Working"
+Sleep 2
+Print "Working"
+Sleep 5
+Print "Working"
+Print
+Print
+Print
+Print
+Print "Sometime in the future, you will pay taxes and you will die."
+Sleep 2
+Print "Thank you for youe contributions."
+Sleep 2
+If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
+Print
+Print "Thank you for trying our this expieramental Fortune telling program."
+Print "If you found it insightful, share it with your friends and family."
+Print
+Print "To retry, press 1"
+Input restart%
+If restart% = 1 Then GoTo start