NEED QUICK HELP

Please help me i have a test and this is a great way to study, this code does not work please tell me why.


Graphics 800,600,32,3

selq()

Function qs1() : answer$="allocate" : Print "To set apart" : q1$=Input$("") : If q1$=answer$ Then Print "Right" Else Print "WRONG" : selq() :End Function
Function qs2() : answer$="ardent" : Print "very enthusiastic,impassioned" : q2$=Input$("") : If q2$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs3() : answer$="assiduous" : Print "persistent,attentive,diligent" : q3$=Input$("") : If q3$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs4() : answer$="brash" : Print "prone To act in a hasty manner" : q4$=Input$("") : If q1$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs5() : answer$="capricious" : Print "subject To whims Or passing fancies" : q5$=Input$("") : If q5$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs6() : answer$="chastise" : Print "To inflict physical punishment" : q6$=Input$("") : If q6$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs7() : answer$="copious" : Print "abudent:plentiful" : q7$=Input$("") : If q7$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs8() : answer$="deviate" : Print "To turn aside:To stray from a norm" : q8$=Input$("") : If q8$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs9() : answer$="emaciated" : Print "unnaturally thin" : q9$=Input$("") : If q9$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs10() : answer$="exult" : Print "To rejoice greatly" : q10$=Input$("") : If q10$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs11() : answer$="gnarled" : Print "knotted,twisted,lumpy" : q11$=Input$("") : If q11$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs12() : answer$="indemnity" : Print "a payment For damage Or loss" : q12$=Input$("") : If q12$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs13() : answer$="inkling" : Print "a hint: a vague notion" : q13$=Input$("") : If q13$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs14() : answer$="limpid" : Print "clear, transparent: readily understood" : q14$=Input$("") : If q14$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs15() : answer$="omnipotent" : Print "almighty, having unlimited power Or authority": q15$=Input$("") : If q15$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs16() : answer$="palatable" : Print "agreeable To taste Or one's sensibilities" : q16$=Input$("") : If q16$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs17() : answer$="poignant" : Print "deeply affecting" : q17$=Input$("") : If q17$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs18() : answer$="rancor" : Print "bitter resentment Or ill-will" : q18$=Input$("") : If q18$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs19() : answer$="sophomoric" : Print "immature And overconfident" : q19$=Input$("") : If q19$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function
Function qs20() : answer$="spontaneous" : Print "arising naturally, Not planned" : q20$=Input$("") : If q20$=answer$ Then Print "Right" Else Print "WRONG":selq():End Function

Function selq()
For x=1 To 20
rndq=Rnd(20)

If rndq=1 Then qs1()
If rndq=2 Then qs2()
If rndq=3 Then qs3()
If rndq=4 Then qs4()
If rndq=5 Then qs5()
If rndq=6 Then qs6()
If rndq=7 Then qs7()
If rndq=8 Then qs8()
If rndq=9 Then qs9()
If rndq=10 Then qs10()
If rndq=11 Then qs11()
If rndq=12 Then qs12()
If rndq=13 Then qs13()
If rndq=14 Then qs14()
If rndq=15 Then qs15()
If rndq=16 Then qs16()
If rndq=17 Then qs17()
If rndq=18 Then qs18()
If rndq=19 Then qs19()
If rndq=20 Then qs20()

Next
End Function