From caa3da3959f0d064fd622dae8ab8da8d8f4cddb2 Mon Sep 17 00:00:00 2001 From: John Paul Wohlscheid Date: Sat, 19 Jun 2021 23:32:27 -0400 Subject: [PATCH] Fixed code --- FT-1.bas | 51 +++++++++++++++++++++++++++++---------------------- 1 file changed, 29 insertions(+), 22 deletions(-) diff --git a/FT-1.bas b/FT-1.bas index 655802b..574c0cd 100644 --- a/FT-1.bas +++ b/FT-1.bas @@ -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 -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 +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"