Yes, BC. That looks good.
By using a SUB with parameters you can CALL the same fragment of code over and over again. Just invoke with different parameters and c get various results. Because the SUB uses just local variables, the is no need to be afraid of it doing something bad on your global variables.. (Unless you let it.) The is.was one of the great improvements in QBASIC that set it apart from other BASIC packages of the era.
Remarkable, it even works in a 64 Windows 7. QBASIC still has a number of friends.
Of course, it one wants to do any visual effects, one ought to try and learn Visual Basic. Still free for the express version. Early version still available.