2048, In QBasic.