Programmeren in BASIC/Oefeningen 2/Oplossing

Onderstaand scriptje is een mogelijke oplossing voor opdracht 2

CLS
Dim sngHoeLang as single
input "Hoe lang breng je dagelijks op wikibooks door", sngHoeLang
' Ik heb in dit voorbeeldje gedaan alsof ik 2 uur per dag op wikibooks doorbreng
If Hoelang < 2
 print HoeLang; " uren, dan zit ik er langer op"
elseif HoeLang = 2 then
 print HoeLang; " uren, dat is even lang als ik"
'Als laatste pak je best altijd else, dat wil zeggen dat aan geen van voorgaande voorwaarden is voldaan
else
 print HoeLang; " uren, dat is langer dan ik"
end if
end