47 lines
722 B
QBasic
47 lines
722 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
|
|
color 3; input "What is your frist name? ", fname$
|
|
print
|
|
print
|
|
input "What is your last name? ", coconutcreampie
|
|
cls
|