QBasic code from my youth.