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

Fixed major code errors

Browse Source 
fixed code so it does jump over a section of code
This commit is contained in:
John Paul Wohlscheid 2022-01-22 01:31:04 -05:00
parent 00858b41c9
commit f8643b4ad5
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
FT-1.bas
View File

@ -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. 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 coconutcreampie$
Dim binaryquestion$ ' Hold value of key press Dim binaryquestion$ ' Hold value of key press
Dim heav% Dim heav%
Dim weight%
heav% = 0 heav% = 0
@ -109,10 +109,10 @@ Cls
Sleep 5 Sleep 5
Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user. Print "Thank you, " + fname$ ' Clear the screen and say thanks to the user.
Sleep 2 Sleep 5
Print Print
Print "Now let's get started." Print "Now let's get started."
Sleep 2 Sleep 5
Cls Cls
@ -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 paid 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 Print "Fine. It's your too bad.": Print "All further communications to the web will be made via unsecured http.": GoTo cheap 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: cheap:
@ -204,6 +204,6 @@ Print
Print "Thank you for trying our this expieramental Fortune telling program." 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 "If you found it insightful, share it with your friends and family."
Print Print
Print "To retry, press 1" Print "To retry, press 1 and hit ENTER. Otherwide, please close the window."
Input restart% Input restart%
If restart% = 1 Then GoTo start If restart% = 1 Then GoTo start

BIN
FT-1.exe
View File

Binary file not shown.