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

fix branching error

Browse Source
This commit is contained in:
John Paul Wohlscheid 2021-07-12 06:43:25 -04:00
parent fe7c17af9e
commit 539ca81af9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FT-1.bas
View File

@ -124,8 +124,8 @@ Do
binaryquestion$ = InKey$ binaryquestion$ = InKey$
Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n")) Loop Until ((LCase$(binaryquestion$) = "y") Or (LCase$(binaryquestion$) = "n"))
If binaryquestion$ = "y" Then Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": GoTo cheap If binaryquestion$ = "y" Then Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": GoTo paid
If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All further communications will be made via unsecured http.": GoTo paid If binaryquestion$ = "n" Then Print "Fine. It's your too bad.": Print "All further communications to the web will be made via unsecured http.": GoTo cheap
cheap: cheap:

BIN
FT-1.exe
View File

Binary file not shown.