qbasic demo – coded together with @messagemaetens