johnblood/ft-1
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

close to the end

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-10 07:42:10 -04:00
parent ee7ecfef26
commit c3fbe1cdb2
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
FT-1.bas
View File

@ -81,6 +81,8 @@ weight = 0
Dim fname$ Dim fname$
Dim coconutcreampie$ Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press Dim binaryquestion$ ' Hold value of key press
dim heav$
dim weight$
Print "Welcome to FT/1" Print "Welcome to FT/1"
Print "The most advanced fortune telling appliction available." Print "The most advanced fortune telling appliction available."
@ -117,5 +119,27 @@ do
binaryquestion$ = INKEY$ binaryquestion$ = INKEY$
loop until ((LCASE$(binaryquestion$) = "y") or (LCASE$(binaryquestion$) = "n")) 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$ = "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." 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