10 CLS:PRINT" THIS IS EXERCISE 33" CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$ IF ANS$ = "Y" THEN 17 IF ANS$= "N" THEN RUN "GRAM 1" BEEP:GOTO 10 17 CLS CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$