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 weight = 0
Dim fname$ Dim fname$
Dim coconutcreampie$ Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press Dim binaryquestion$ ' Hold value of key press
dim heav$ Dim heav%
dim weight$ Dim weight%
Dim restart$
heav% = 0
Print "Welcome to FT/1" Print "Welcome to FT/1"
Print "The most advanced fortune telling appliction available." Print "The most advanced fortune-telling application available."
Print Print
Print "However, we coonte garuntee that the results of the appliction." ' Intro Print "However, we can't guarantee that the results of the application." ' Intro
Print "(Discalimer added due tolawsuit)" Print "(Disclaimer added due to lawsuit.)"
Print Print
start:
cls
Print Print
Print "Before we begin, please answer a few questions." Print "Before we begin, please answer a few questions."
Print Print
Print 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
Print Print
Input "What is your last name? ", coconutcreampie$ 'Store last name. Why? Who knows? 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 "Would you be interested in donating to the continued"
Print "development of this application? (Y/N): "; ' Will the user donate? Print "development of this application? (Y/N): "; ' Will the user donate?
do Do
binaryquestion$ = INKEY$ binaryquestion$ = InKey$
loop until ((LCASE$(binaryquestion$) = "y") or (LCASE$(binaryquestion$) = "n")) 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$ = "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 If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All further communications will be made via unsecured http.": GoTo paid
cheap: cheap:
cls print "I hope your information is safe."
sleep 1
Cls
Input "What is your age? ", age$ Input "What is your age? ", age$
Print Print
Print Print
print "What is your weight? " Print "What is your weight? "
Input weight$ Input weight%
if weight$ = 250 then heav$ = 1 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: paid:
cls Cls
Input "What is your age? ", age$ Input "What is your age? ", age$
Print Print
Print Print
print "What is your weight? " Print "What is your weight? "
Input weight$ Input weight%
if weight$ = 250 then heav$ = 1 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