Added remarks to accredit myself for haxxing this code and the source sample.bas which comes with batariBASIC.