new example squares.BAS