Well, I'm half an hour late… I completely forgot about the homework until 40 minutes ago when I saw your post, and freaked out. Then I made this small question game, however, one thing doesn't seem right. I had to use a label to end the game… is there a better way to do this?
Dim answer As String
Dim useranswer As String
Dim tryagain As Integer
Screen 19
NewGame:
Gosub QuestionOne
gameOver = 0
QuestionOne:
Print " This is a question game. There are 3 questions. Type True (T) or False (F) to answer "
Input " Question 1: Is the sky blue? " , useranswer
If lcase(useranswer) = "y" Then Goto QuestionTwo
If lcase(useranswer) = "n" Then Goto GameOver
QuestionTwo:
Input " Question 2: Programming is awesome. " , useranswer
If lcase(useranswer) = "y" Then Goto QuestionThree
If lcase(useranswer) = "n" Then Goto GameOver
QuestionThree:
Input " Question 3: bacon smells. " , useranswer
If lcase(useranswer) = "y" then Goto GameOver
If lcase(useranswer) = "n" Then
Input "Congrats, you have just won. Would you like to play again? (y/n)" , useranswer
If lcase(useranswer) = "y" Then Goto NewGame
End If
Goto Endgame
GameOver:
Input " You failed. Would you like to try again? (y/n) " , useranswer
If lcase(useranswer) = "y" then Goto NewGame
Endgame:
EDIT: For some reason, the compile fails… :(
