35 lines
516 B
QBasic
35 lines
516 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)"
|