diff --git a/FT-1.bas b/FT-1.bas index 383ab09..1a121ca 100644 --- a/FT-1.bas +++ b/FT-1.bas @@ -1,4 +1,4 @@ -Rem Fortune Teller 1.0 +Rem Fortune Teller 1.1 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. @@ -41,7 +41,7 @@ Rem Like I said, please run the application before you look at the code. -Rem If you attempt to continue scrolling, I will attempt your hard drive. +Rem If you attempt to continue scrolling, I will attempt to corrupt your hard drive. @@ -82,7 +82,7 @@ Dim fname$ Dim coconutcreampie$ Dim binaryquestion$ ' Hold value of key press Dim heav% -Dim weight% + heav% = 0 @@ -109,10 +109,10 @@ Cls Sleep 5 Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user. -Sleep 2 +Sleep 5 Print Print "Now let's get started." -Sleep 2 +Sleep 5 Cls @@ -124,8 +124,8 @@ Do binaryquestion$ = InKey$ 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 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 +If binaryquestion$ = "y" Then cls: Print "Thank you for your patronage.": Print "19999999999.99 has been deducted from your bank account as a one time, non-renewing payment.": sleep 8: GoTo paid +If binaryquestion$ = "n" Then cls: Print "Fine. It's your too bad.": Print "All further communications to the web will be made via unsecured http.": sleep 8: GoTo cheap cheap: @@ -204,6 +204,6 @@ Print Print "Thank you for trying our this expieramental Fortune telling program." Print "If you found it insightful, share it with your friends and family." Print -Print "To retry, press 1" +Print "To retry, press 1 and hit ENTER. Otherwide, please close the window." Input restart% If restart% = 1 Then GoTo start diff --git a/FT-1.exe b/FT-1.exe index c1bf573..947d94e 100644 Binary files a/FT-1.exe and b/FT-1.exe differ