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

1.0 release

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-11 20:14:46 -04:00
parent c3fbe1cdb2
commit a9dcd1bd01
1 changed files with 87 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
FT-1.bas
View File

@ -41,7 +41,7 @@ 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 If you attempt to continue scrolling, I will attempt your hard drive.
@ -74,28 +74,33 @@ Rem I'll do it. STOP NOW.
screen 12
weight = 0
Dim fname$
Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press
dim heav$
dim weight$
Dim heav%
Dim weight%
Dim restart$
heav% = 0
Print "Welcome to FT/1"
Print "The most advanced fortune telling appliction available."
Print "The most advanced fortune-telling application available."
Print
Print "However, we coonte garuntee that the results of the appliction." ' Intro
Print "(Discalimer added due tolawsuit)"
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 frist name? ", fname$ 'Store first name for later
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?
@ -115,31 +120,90 @@ 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"))
Do
binaryquestion$ = InKey$
Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n"))
if binaryquestion$ = "y" then print "Thank you for your patronage."; print "19999999999.99 has been deducted from your bacnk account as a one time, non-renewing payment."; goto cheep
if binaryquestion$ = "n" then print "Fine. It's your too bad."; print "All further communications will be made via unsecured http."; goto paid
If binaryquestion$ = "y" Then Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": GoTo cheap
If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All further communications will be made via unsecured http.": GoTo paid
cheap:
cls
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
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
Cls
Input "What is your age? ", age$
Print
Print
print "What is your weight? "
Input weight$
if weight$ = 250 then heav$ = 1
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"
Input restart%
If restart% = 1 Then GoTo start