5 DIM SCR(6000):DIM COR(500)
        DIM WRG(500):DIM CLK(1000)
        DIM BUT(800)
10 CLS:PRINT"    THIS IS EXERCISE 34"
        CALL MOVETO(20,30):INPUT"    IS IT THE ONE YOU WANTED?  Y/N "; ANS$
        IF ANS$ = "Y" THEN 12
        IF ANS$= "N" THEN RUN "GRAM 1"