54 lines
819 B
QBasic
54 lines
819 B
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rem
|
|
|
|
weight = 0
|
|
|
|
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."
|
|
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$
|
|
Print
|
|
Print
|
|
input "What is your last name? ", coconutcreampie$
|
|
Clear
|
|
Sleep 5
|
|
Print "Thank you, " + fname$
|
|
Sleep 2
|
|
Print
|
|
Print "Now let's get started."
|
|
Clear
|
|
Print "But first"
|