10 CLS:PRINT"    THIS IS EXERCISE 10"
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=10 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=10
        S=SCORE
        PRINT#1,N,S
        CLOSE#1
        GOTO 23
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
24 PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100
        CLS
        PRINT"    IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
        PRINT"    INPUT 'QUIT' FOR THE CHOICE OF NOUN.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A BLANK."
        PRINT"    YOU WILL BE GIVEN A WORD; YOU ARE TO INPUT THE"
        PRINT"    APPROPRIATE FORM OF THE POSSESSIVE OF THAT WORD AS IT"
        PRINT"    WOULD GO INTO THAT BLANK--SINGULAR OR PLURAL."
        PRINT"    BE AWARE, TOO, THE PROGRAM WILL NOT GO ON UNTIL YOU"
        PRINT"    GET THE ITEM RIGHT.  GET HELP, IF NEEDED."
        PRINT"    THE EXERCISE HAS 18 ITEMS AND YOU WILL GET AT MOST 2 TRIES."
        PRINT""
        INPUT"    WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY.", V

25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=18
26 TIM$=TIME$
27 TIM=VAL(RIGHT$(TIM$,1))+1
28 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127

30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
        CALL TEXTSIZE(18):CALL MOVETO(20,30)
        PRINT"NAME: "NOMEN$"     LEFT: "LEFT"   SCORE="SCORE"%"
        CALL TEXTFONT(CHICAGO):CALL MOVETO(20,80):PRINT"Sentence:"
        CALL TEXTFONT(12):CALL MOVETO(30,100):PRINT S1$
        IF S2$<>"" THEN CALL MOVETO(40,124):PRINT S2$
31 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,180):PRINT"Word for the blank: "W$