johnblood/ft-1
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed code

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-06-19 23:32:27 -04:00
parent 59b248f419
commit caa3da3959
1 changed files with 29 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
FT-1.bas
View File

@ -1,8 +1,8 @@
rem Fortune Teller 1.0 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 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 by John Paul Wohlscheid
@ -10,37 +10,44 @@ 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 You are free to read this source code, but I would ask that you try the application first.
rem Rem
rem Rem
weight = 0 weight = 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 appliction available."
print Print
print "However, we coonte garuntee that the results of the appliction." Print "However, we coonte garuntee that the results of the appliction."
print "(Discalimer added due tolawsuit)" Print "(Discalimer added due tolawsuit)"
print Print
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
color 3; input "What is your frist name? ", fname$ Input "What is your frist name? ", fname$
print Print
print Print
input "What is your last name? ", coconutcreampie input "What is your last name? ", coconutcreampie$
cls Clear
Sleep 5
Print "Thank you, " + fname$
Sleep 2
Print
Print "Now let's get started."
Clear
Print "But first"