5 DIM SCR(8000):DIM BUT(2000)

10 CLS:PRINT"    THIS IS EXERCISE 7"
12 CALL MOVETO(20,30):INPUT"    IS IT THE ONE YOU WANTED?  Y/N "; ANS$