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
Do
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$ = UCase$(InKey$) 'change case of entry
Loop Until binaryquestion$ = "Y" Or binaryquestion$ = "N"
print binaryquestion$
Print "But first"
Print "Would you be interested in donating to the continued"
Print "development of this application? (Y/N): "; ' Will the user donate?
' 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 "Are you sure? All of your further answers will be transfered to the server via and unsecured http url."
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."
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."