NEED QUICK HELP

Using so many functions it really bad practice. This can be really simplified.

Graphics 800,600,32,3

While Not KeyHit(1)
	AskQuestion()
Wend

Function AskQuestion()

	q = Rand(1,20)
	Restore Questions
	For l = 1 To q
		Read Answer$, Question$
	Next
	
	Print Question$
	Guess$ = Input$("")
	If Guess$ = Answer$
		Print "Right"
	Else
		Print "Wrong"
	EndIf
	
End Function		

.Questions
Data "allocate","To set apart"
Data "ardent" , "very enthusiastic,impassioned" 
Data "assiduous" , "persistent,attentive,diligent" 
Data "brash" , "prone To act in a hasty manner"
Data "capricious" , "subject To whims Or passing fancies"
Data "chastise" , "To inflict physical punishment" 
Data "copious" , "abudent:plentiful" 
Data "deviate" , "To turn aside:To stray from a norm" 
Data "emaciated" , "unnaturally thin" 
Data "exult" , "To rejoice greatly" 
Data "gnarled" , "knotted,twisted,lumpy" 
Data "indemnity" , "a payment For damage Or loss" 
Data "inkling" , "a hint: a vague notion" 
Data "limpid" , "clear, transparent: readily understood" 
Data "omnipotent" , "almighty, having unlimited power Or authority"
Data "palatable" , "agreeable To taste Or one's sensibilities"
Data "poignant" , "deeply affecting"
Data "rancor" , "bitter resentment Or ill-will"
Data "sophomoric" , "immature And overconfident"
Data "spontaneous" , "arising naturally, Not planned"

Stevie