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

1.0 fix

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-11 20:17:06 -04:00
parent a9dcd1bd01
commit 8a23216392
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
FT-1.bas
View File

@ -74,7 +74,7 @@ Rem I'll do it. STOP NOW.
screen 12 Screen 12
weight = 0 weight = 0
@ -83,7 +83,7 @@ Dim coconutcreampie$
Dim binaryquestion$ ' Hold value of key press Dim binaryquestion$ ' Hold value of key press
Dim heav% Dim heav%
Dim weight% Dim weight%
Dim restart$
heav% = 0 heav% = 0
@ -94,7 +94,7 @@ Print "However, we can't guarantee that the results of the application." ' Intro
Print "(Disclaimer added due to lawsuit.)" Print "(Disclaimer added due to lawsuit.)"
Print Print
start: start:
cls Cls
Print Print
Print "Before we begin, please answer a few questions." Print "Before we begin, please answer a few questions."
Print Print
@ -129,8 +129,8 @@ If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All furth
cheap: cheap:
print "I hope your information is safe." Print "I hope your information is safe."
sleep 1 Sleep 1
Cls Cls
Input "What is your age? ", age$ Input "What is your age? ", age$
Print Print