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

more code

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-07 06:59:50 -04:00
parent caa3da3959
commit 0d11c6fa24
1 changed files with 84 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
FT-1.bas
View File

@ -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 weight = 0
Dim fname$
Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press
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."
Print 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 "(Discalimer added due tolawsuit)"
Print Print
Print Print
@ -39,15 +93,36 @@ Print "Before we begin, please answer a few questions."
Print Print
Print Print
Print Print
Input "What is your frist name? ", fname$ Input "What is your frist name? ", fname$ 'Store first name for later
Print Print
Print Print
input "What is your last name? ", coconutcreampie$ Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?
Clear
Cls
Sleep 5 Sleep 5
Print "Thank you, " + fname$ Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.
Sleep 2 Sleep 2
Print Print
Print "Now let's get started." Print "Now let's get started."
Clear Sleep 2
Print "But first"
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."