I need help with my program, please help

[chadjohnson]

Ok. I am supposed to make this quiz for clss but the problem is that i need some basic functions/arrays/procedures. I have none in my program so im asking plz if anyone could make my code smaller with functions/arrays/procedures. Plz im desperate.Heres my code.

functions/arrays/procedures.

%loop to redo quiz
loop
% program description
locate (10, 12)
put "This program is a quiz about Cd/DVD discs and drives. At the end"
locate (11, 12)
put "of the quiz it will output the number of correct"
locate (12, 12)
put "answers and the number of incorrect answers"
locate (13, 12)
put "along with the percent of correct answers."
locate (16, 12)
put "Note:Lower Case only,Capitals will be considered invalid"
% var dec
var test : string
var answer : string
var correct_ans : int := 0
var incorrect_ans : int
var percent : real
% One try multiple choice questions
% Question 1
% Display Q and possible Answer
delay (100)
cls
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "Which one of these companies does not make CD/DVD Drives?"
locate (13, 12)
put "a)Sony"
locate (14, 12)
put "b)HP"
locate (15, 12)
put "c)Intel"
locate (16, 12)
put "d)Sanyo"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "c" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect,the correct answer is C"
% put picture
end if
delay (500)
cls
% Question 2
% display Q and possible Ans
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "Why can a Blu-Ray disc hold more data than a CD?"
locate (13, 12)
put "a)The Blu-Ray Disc has a different colour bottom than the other"
locate (14, 12)
put "b)The Blu-Ray Discs laser is smaller"
locate (15, 12)
put "c)The Blu-Ray Disc spins at a faster speed"
locate (16, 12)
put "d)The Blu-Ray is thicker"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "b" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect,the correct answer is B"
% put picture
end if
delay (500)
cls
% Question 3
% display Q and possible Ans
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "A Peripheral is"
locate (13, 12)
put "a)Any hardware under the control of the CPU"
locate (14, 12)
put "b)Software for disk management"
locate (15, 12)
put "c)Optional extras for computers"
locate (16, 12)
put "d)A storage device"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "a" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect,the correct answer is A"
% put picture
end if
delay (500)
cls
% Question 4
% display Q and possible Ans
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "A letter that usually represents the floppy drive"
locate (13, 12)
put "a)C Drive"
locate (14, 12)
put "b)E Drive"
locate (15, 12)
put "c)B Drive"
locate (16, 12)
put "d)A Drive"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "d" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect,the correct answer is D"
% put picture
end if
delay (500)
cls
% Question 5
% display Q and possible Ans
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "If you want to format a floppy disk the write-protect slide must be"
locate (13, 12)
put "a)Right Clicked"
locate (14, 12)
put "b)Open"
locate (15, 12)
put "c)Closed"
locate (16, 12)
put "d)Double Clicked"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "c" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect,the correct answer is C"
% put picture
end if
delay (500)
cls
% Question 6
% display Q and possible Ans
locate (10, 12)
put "You have 1 try to answer this question"
locate (12, 12)
put "The average amount of GB a DVD can hold is"
locate (13, 12)
put "a)3.8"
locate (14, 12)
put "b)4.7"
locate (15, 12)
put "c)5.1"
locate (16, 12)
put "d)2.4"
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "b" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
else
put repeat (" ", 11), "That is incorrect, the correct answer is B"
% put picture
end if
delay (500)
cls
% 3 try multiple choice questions
% question 7
% display Q and possible Ans
locate (10, 12)
put "You have 3 tries to answer this question"
locate (12, 12)
put "The average diameter of a compact disc is"
locate (13, 12)
put "a)120mm"
locate (14, 12)
put "b)150mm"
locate (15, 12)
put "c)110mm"
locate (16, 12)
put "d)116mm"
locate (17, 12)
put "e)135mm"
% counter to tell user number of tries left
for decreasing counter : 3 .. 1
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d" or answer = "e"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "a" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
exit
% put picture
else
put repeat (" ", 11), "That is incorrect"
put "you have ", counter - 1, " tries left."
end if
end for
delay (500)
cls
% question 8
% display Q and possible Ans
locate (10, 12)
put "You have 3 tries to answer this question"
locate (12, 12)
put "DVD+RW DVDs enable you to"
locate (13, 12)
put "a)Burn at a faster speed"
locate (14, 12)
put "b)Watch movies with better quality"
locate (15, 12)
put "c)Clean your DVD Drive"
locate (16, 12)
put "d)Hold more data"
locate (17, 12)
put "e)Rewrite files"
% counter to tell user number of tries left
for decreasing counter : 3 .. 1
% loop to check for validity
loop
put repeat (" ", 11) ..
get answer
exit when answer = "a" or answer = "b" or answer = "c" or answer = "d" or answer = "e"
put repeat (" ", 11), "The answer you have put is invalid, please put another anwer"
end loop
if answer = "e" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put picture
exit
else
put repeat (" ", 11), "That is incorrect"
put "you have ", counter - 1, " tries left."
end if
end for
delay (500)
cls
% fill in the blanks
% question 9
% display Q
locate (10, 12)
put "Fill in the blank, you have 1 try to answer"
locate (12, 12)
put repeat (" ", 15), "question"
put repeat (" ", 11) ..
get answer
if answer = "ans" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put pic
else
put repeat (" ", 11), "That is incorrect"
end if
delay (500)
cls
% question 10
% display Q
locate (10, 12)
put "Fill in the blank, you have 1 try to answer"
locate (12, 12)
put repeat (" ", 15), "Video Disc is what DVD stands for"
put repeat (" ", 11) ..
get answer
if answer = "digital" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put pic
else
put repeat (" ", 11), "That is incorrect, the correct answer is Digital"
end if
delay (500)
cls
% question 11
% display Q
locate (10, 12)
put "Fill in the blank, you have 1 try to answer"
locate (12, 12)
put repeat (" ", 15), "question"
put repeat (" ", 11) ..
get answer
if answer = "ans" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put pic
else
put repeat (" ", 11), "That is incorrect"
end if
delay (500)
cls
% question 12
% display Q
locate (10, 12)
put "Fill in the blank, you have 1 try to answer"
locate (12, 12)
put repeat (" ", 15), "question"
put repeat (" ", 11) ..
get answer
if answer = "ans" then
put repeat (" ", 11), "That is correct!"
correct_ans := correct_ans + 1
% put pic
else
put repeat (" ", 11), "That is incorrect"
end if
delay (500)
cls
incorrect_ans := 12 - correct_ans
percent := (correct_ans / 12) * 100
% display results
locate (10, 12)
put "The number of answers that you got correct were ", correct_ans, " ."
locate (11, 12)
put "The number of answer you got incorrect were ", incorrect_ans, " ."
locate (12, 12)
put "The percentage that you have recieved on this quiz is ", percent : 5 : 2, " %."
delay (10000)
cls
% ask user if they want to take the test again
put "Type anything to take the test again, else type no?"
get test
% exit loop
exit when test = "no"
% end loop
end loop
put "Thank you for taking the test"