diff --git a/FT-1.bas b/FT-1.bas
index 17a2654..8559699 100644
--- a/FT-1.bas
+++ b/FT-1.bas
@@ -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."
\ No newline at end of file