ft-1/FT-1.bas

Rem Fortune Teller 1.1

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.

Rem by John Paul Wohlscheid







Rem You are free to read this source code, but I would ask that you try the application first.













Rem Like I said, please run the application before you look at the code.
















Rem If you attempt to continue scrolling, I will attempt to corrupt your hard drive.























Rem I'll do it. STOP NOW.






_Title "FT/1"

Screen 12

weight% = 0

Dim fname$
Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press
Dim heav%



heav% = 0

Print "Welcome to FT/1"
Print "The most advanced fortune-telling application available."
Print
Print "However, we can't guarantee that the results of the application." ' Intro
Print "(Disclaimer added due to lawsuit.)"
Print
start:
Cls
Print
Print "Before we begin, please answer a few questions."
Print
Print
Print
Input "What is your first name? ", fname$ 'Store first name for later
Print
Print
Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows?

Cls
Sleep 5
Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.

Sleep 5
Print
Print "Now let's get started."
Sleep 5

Cls

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$ = InKey$
Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n"))

If binaryquestion$ = "y" Then cls: Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": sleep 8: GoTo paid
If binaryquestion$ = "n" Then cls: Print "Fine. It's your too bad.": Print "All further communications to the web will be made via unsecured http.": sleep 8: GoTo cheap


cheap:
Print "I hope your information is safe."
Sleep 1
Cls
Input "What is your age? ", age$
Print
Print
Print "What is your weight? "
Input weight%
If weight% > 250 Then heav% = 1
Cls
Print
Print "Transferring data to server"
Print
Print
Sleep 5
Print "Working"
Sleep 3
Print "Working"
Sleep 2
Print "Working"
Sleep 5
Print "Working"
Print
Print
Print
Print
Print "Sometime in the future, you will pay taxes and you will die."
Sleep 2
Print "You are also a cheapskate."
Sleep 2
If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
Print
Print "Thank you for trying our this expieramental Fortune telling program."
Print "If you found it insightful, share it with your friends and family."
Print
Print "To retry, press 1"
Input restart%
If restart% = 1 Then GoTo start


paid:

Cls
Input "What is your age? ", age$
Print
Print
Print "What is your weight? "
Input weight%
If weight% > 250 Then heav% = 1
Cls
Print
Print "Transferring data to server via https."
Print
Print
Sleep 5
Print "Working"
Sleep 3
Print "Working"
Sleep 2
Print "Working"
Sleep 5
Print "Working"
Print
Print
Print
Print
Print "Sometime in the future, you will pay taxes and you will die."
Sleep 2
Print "Thank you for youe contributions."
Sleep 2
If heav% = 1 Then Print "Stay away from the potato chips. Your computer chair will thank you."
Print
Print "Thank you for trying our this expieramental Fortune telling program."
Print "If you found it insightful, share it with your friends and family."
Print
Print "To retry, press 1 and hit ENTER. Otherwide, please close the window."
Input restart%
If restart% = 1 Then GoTo start