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
![Tongue :P](https://www.fybertech.com/forums/Smileys/default/tongue.gif)
I'm at work, and I'm bored (I do tech support).