ft-1/FT-1.bas

129 lines
2.0 KiB
QBasic
Raw Normal View History

2021-06-20 03:32:27 +00:00
Rem Fortune Teller 1.0
2021-05-24 08:46:17 +00:00
2021-06-20 03:32:27 +00:00
Rem This file was originally named FT/1 as a reference to past tech names like OS/2 and CP/M, but Gitlab didn't like it.
2021-05-24 08:46:17 +00:00
2021-06-20 03:32:27 +00:00
Rem by John Paul Wohlscheid
2021-05-24 08:46:17 +00:00
2021-06-20 03:32:27 +00:00
Rem You are free to read this source code, but I would ask that you try the application first.
2021-05-24 08:46:17 +00:00
2021-07-07 10:59:50 +00:00
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.
2021-05-24 08:46:17 +00:00
weight = 0
2021-07-07 10:59:50 +00:00
Dim fname$
Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press
2021-06-20 03:32:27 +00:00
Print "Welcome to FT/1"
Print "The most advanced fortune telling appliction available."
Print
2021-07-07 10:59:50 +00:00
Print "However, we coonte garuntee that the results of the appliction." ' Intro
2021-06-20 03:32:27 +00:00
Print "(Discalimer added due tolawsuit)"
Print
Print
Print "Before we begin, please answer a few questions."
Print
Print
Print
2021-07-07 10:59:50 +00:00
Input "What is your frist name? ", fname$ 'Store first name for later
2021-06-20 03:32:27 +00:00
Print
Print
2021-07-07 10:59:50 +00:00
Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?
Cls
2021-06-20 03:32:27 +00:00
Sleep 5
2021-07-07 10:59:50 +00:00
Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.
2021-06-20 03:32:27 +00:00
Sleep 2
Print
Print "Now let's get started."
2021-07-07 10:59:50 +00:00
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."