Soukoban in QBasic