zmienne literowe w basicu

[Lollus]

Jak zrobić prosty quiz w basic? Czyli

Input "pytanie"; zmienna

i potem tylko i tylko wtedy gdy zmienna=odpowiedź

print "Masz racje" ?

[Pery]

Cóż, ostatnio pisałem w VB .Net więc mogłem trochę namotać [uczyłem się QBasic, nie Basic chociaż składnia jest podobna (jeżeli nie taka sama)]

prawidlowaodpowiedz$ = "jakas odpowiedz"
input "Pytanie"; odpowiedz$
if odpowiedz$ = prawidlowaodpowiedz$ then
print "Strzał w dziesiątkę! Prawidłowa odpowiedź!"
else
print "Niestety, podałeś złą odpowiedź."

lub to samo ale:

print "Odpowiedzi:"
print ""
print "a) odpowiedź 1"
print "b) odpowiedź 2"
print "c) odpowiedź 3"

itd...

(nie mam pewności czy kod jest prawidłowy, podczas przepisywania, (q)basic powinien poprawić błędy, piszę z pamięci ;D