Man, I just wandered into here from Boris' site, and this is awesome stuff.
10 cls
20 screen 12
30 input "Episode: ", num
40 input "What was funny: ", char$
50 char$ = lcase$(char$)
60 if num = 4 and char$ = "thwomp" then goto 80
70 else end
80 for x = 1 to 5: print "Funniest Mario skit ever! "
90 end
c:\dos\>qbasic.exe /run:mario.bas
Episode: 4
What was funny: Thwomp
Funniest Mario skit ever! Funniest Mario skit ever! Funniest Mario skit ever! Funniest Mario skit ever! Funniest Mario skit ever!
... yeah, don't mind me... I'm bored
I'm at work, and I'm bored (I do tech support).