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$