My Old QBasic code