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

fixed decision

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-07 23:37:16 -04:00
parent 0d11c6fa24
commit ee7ecfef26
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
FT-1.bas
View File

@ -109,20 +109,13 @@ Sleep 2
Cls Cls
Do Print "But first"
Print "But first" Print "Would you be interested in donating to the continued"
Print "Would you be interested in donating to the continued" Print "development of this application? (Y/N): "; ' Will the user donate?
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$ do
If binaryquestion$ = "y" Then Print "Thank you for your generousity. You will be provided with payment options at the end" binaryquestion$ = INKEY$
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 until ((LCASE$(binaryquestion$) = "y") or (LCASE$(binaryquestion$) = "n"))
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."
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."