close to the end

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."
+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
+
+