diff --git a/FT-1.bas b/FT-1.bas index 574c0cd..17a2654 100644 --- a/FT-1.bas +++ b/FT-1.bas @@ -17,21 +17,75 @@ Rem You are free to read this source code, but I would ask that you try the appl -Rem -Rem + +Rem Like I said, please run the application before you look at the code. + + + + + + + + + + + + + + + + +Rem If you appempt to continue scrolling, I will crorrupt your hard drive. + + + + + + + + + + + + + + + + + + + + + + + +Rem I'll do it. STOP NOW. + + + + + + + + + weight = 0 +Dim fname$ +Dim coconutcreampie$ +Dim binaryquestion$ ' Hold value of key press + Print "Welcome to FT/1" Print "The most advanced fortune telling appliction available." Print -Print "However, we coonte garuntee that the results of the appliction." +Print "However, we coonte garuntee that the results of the appliction." ' Intro Print "(Discalimer added due tolawsuit)" Print Print @@ -39,15 +93,36 @@ Print "Before we begin, please answer a few questions." Print Print Print -Input "What is your frist name? ", fname$ +Input "What is your frist name? ", fname$ 'Store first name for later Print Print -input "What is your last name? ", coconutcreampie$ -Clear +Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows? + +Cls Sleep 5 -Print "Thank you, " + fname$ +Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user. + Sleep 2 Print Print "Now let's get started." -Clear -Print "But first" +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$ + + ' 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." +