146 lines
2.1 KiB
QBasic
146 lines
2.1 KiB
QBasic
Rem Fortune Teller 1.0
|
|
|
|
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 appempt to continue scrolling, I will crorrupt your hard drive.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem I'll do it. STOP NOW.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
weight = 0
|
|
|
|
Dim fname$
|
|
Dim coconutcreampie$
|
|
Dim binaryquestion$ ' Hold value of key press
|
|
dim heav$
|
|
dim weight$
|
|
|
|
Print "Welcome to FT/1"
|
|
Print "The most advanced fortune telling appliction available."
|
|
Print
|
|
Print "However, we coonte garuntee that the results of the appliction." ' Intro
|
|
Print "(Discalimer added due tolawsuit)"
|
|
Print
|
|
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
|
|
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 2
|
|
Print
|
|
Print "Now let's get started."
|
|
Sleep 2
|
|
|
|
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 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
|
|
|
|
|
|
cheap:
|
|
cls
|
|
Input "What is your age? ", age$
|
|
Print
|
|
Print
|
|
print "What is your weight? "
|
|
Input weight$
|
|
if weight$ = 250 then heav$ = 1
|
|
|
|
paid:
|
|
|
|
cls
|
|
Input "What is your age? ", age$
|
|
Print
|
|
Print
|
|
print "What is your weight? "
|
|
Input weight$
|
|
if weight$ = 250 then heav$ = 1
|
|
|
|
|