5 N1$="A":T1$="B":N2$="C":T2$="D":N3$="E":T3$="F":N4$="G":T4$="H":N5$="I":T5$="J"
6 CALL TEXTFONT(3)
10 CLS:PRINT"    THIS IS EXERCISE 8"
12 CALL MOVETO(20,30):INPUT"    IS IT THE ONE YOU WANTED?  Y/N "; ANS$
13 IF ANS$ = "Y" THEN 17
15 IF ANS$= "N" THEN RUN "GRAM 1"
16 BEEP:GOTO 12

17 CLS
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 18
        A=0:SCORE=0:CICI=0
        ON ERROR GOTO 22
        OPEN NOMEN$ FOR INPUT AS #1
19 IF EOF(1) THEN 20
        INPUT #1, N,S
        IF N=8 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=8
        S=SCORE
        PRINT#1,N,S
        CLOSE#1
        GOTO 27
21 PRINT""
        PRINT"    YOU HAVE ALREADY DONE THIS EXERCISE."
        INPUT"    PLEASE PRESS THE 'RETURN' KEY"; V
        CLS
        RUN "GRAM 1"
22 PRINT"":PRINT""
        PRINT"    NAME NOT FOUND."
        INPUT"     PLEASE PRESS THE 'RETURN' KEY"; V
        CLS
        CLEAR
        GOTO 17

23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL