MrCBASIC/20/20.TXT

3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800)
        DIM SIGN(800)
10 CLS:PRINT"    THIS IS EXERCISE 20"
        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
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$