From c3fbe1cdb20463be7e2c20f1f3203fbd32ff3960 Mon Sep 17 00:00:00 2001
From: John Paul Wohlscheid <wohlschied@gmail.com>
Date: Sat, 10 Jul 2021 07:42:10 -0400
Subject: [PATCH] close to the end

---
 FT-1.bas | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/FT-1.bas b/FT-1.bas
index 8559699..457b0f0 100644
--- a/FT-1.bas
+++ b/FT-1.bas
@@ -81,6 +81,8 @@ weight = 0
 Dim fname$
 Dim coconutcreampie$
 Dim binaryquestion$ ' Hold value of key press
+dim heav$
+dim weight$
 
 Print "Welcome to FT/1"
 Print "The most advanced fortune telling appliction available."
@@ -117,5 +119,27 @@ do
 	binaryquestion$ = INKEY$
 loop until ((LCASE$(binaryquestion$) = "y") or (LCASE$(binaryquestion$) = "n"))
 
-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."
\ No newline at end of file
+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
+
+
+cheap:
+cls
+Input "What is your age? ", age$
+Print
+Print
+print "What is your weight? "
+Input weight$
+if weight$ = 250 then heav$ = 1
+
+paid:
+
+cls
+Input "What is your age? ", age$
+Print
+Print
+print "What is your weight? "
+Input weight$
+if weight$ = 250 then heav$ = 1
+
+