This is a test I'm making.
DON'T STEAL MAH CODE, FOOS.
;begin setup
AppTitle "Test!" ;names the program
Graphics 600,600 ;sets the dialog box size
wrong% = 0 ;sets the variable 'wrong' to 0
;end setup
;begin instructions
Print "This test is multiple choice. There are ten questions." ;test description
Delay(1000) ;delays for one second
Print "To answer one question, simply say 1, 2, 3, or 4." ;gives instructions
Delay(1000) ;delays for one second
Print "The test will begin in..." ;begins countdown
Delay(1000) ;delays for one second
Write "5... " ;5
Delay(1000) ;delays for one second
Write "4... " ;4
Delay(1000) ;delays for one second
Write "3... " ;3
Delay(1000) ;delays for one second
Write "2... " ;2
Delay(1000) ;delays for one second
Print "1!" ;1 - ends countdown
Delay(1000) ;delays for one second
;end instructions
;begin test
;-------------------------------
;begin question 1
.ques1 ;sets up goto label for later reference
Print "Who was the second (2nd) President of the United States?" ;asks question 1
Print "Was it... 1) Benjamin Franklin; 2) Abraham Lincoln;" ;states possible answers
Print "3) John Adams; or 4) George Washington?" ;states possible answers
ques1 = Input$("") ;asks for user input
Select ques1 ;selects te variable 'ques1'
Case 1 ;if user answered 1...
Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly
wrong% = wrong% + 1 ;adds one to the variable 'wrong'
Goto ques2 ;jumps to question 2
Case 2 ;if user answered 2...
Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly
wrong% = wrong% + 1 ;adds one to the variable 'wrong'
Goto ques2 ;jumps to question 2
Case 3 ;if user ansered 3...
Print "Correct!" ;states user is correct
Goto ques2 ;jumps to question 2
Case 4 ;if user answered 4...
Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly
wrong% = wrong% + 1 ;adds one to the variable 'wrong'
Goto ques2 ;jumps to question 2
Default ;if the user answered neither 1, 2, 3, or 4...
Print "Please, 1 2 3 or 4 only." ;tells user to only have 1 2 3 or 4 answers
Goto ques1 ;goes back to question one
End Select ;ends the select
;end question 1
Delay(1000)
;begin question 2
.ques2
Print "What is the square root of 169?"
Print "Is it... 1) 17; 2) 12; 3) 14; or 4) 13?"
ques2 = Input$("")
Select ques2
Case 1
Print "I'm sorry, this is incorrect."
wrong% = wrong% + 1
Goto ques3
Case 2
Print "I'm sorry, this is incorrect."
wrong% = wrong% + 1
Goto ques3
Case 3
Print "I'm sorry, this is incorrect."
wrong% = wrong% + 1
Goto ques3
Case 4
Print "Correct!"
Goto ques3
Default
Print "Please, 1 2 3 or 4 only. This is your last warning."
Goto ques2
End Select
;end question 2
Delay(1000)
;begin question 3
.ques3
Print "What is the capital of Germany?"
Print "Is it... 1) Augusta; 2) Berlin; 3) Nokia;
Print "Or 4) Belgium?
