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

15 CLS
        CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 15
                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=28 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=28
        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 15

23 CALL MOVETO(20,50):PRINT"THANK YOU."
        SOUND 523,2,100:FOR D=1 TO 500:NEXT D:SOUND 350,4,50:FOR D=1 TO 2000:NEXT D
        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"    CLICK ON THE QUIT BUTTON.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH"
        PRINT"    A BLANK IN IT."
        PRINT"    TWO CHOICES OF PRONOUN(S) TO GO IN THE BLANK WILL BE"
        PRINT"    DISPLAYED IN BUTTONS."
        PRINT"    YOU WILL CLICK ON THE BUTTON TO INDICATE YOUR CHOICE OF"
        PRINT"    PRONOUN TO GO INTO THE BLANK."
        PRINT""
        PRINT"    EXERCISE HAS 15 SENTENCES, YOU MAY HAVE TWO TRIES AT IT."
24 PRINT""
        INPUT"    WHEN YOU ARE READY TO GO, INPUT 'GO'.", V$
        IF V$="GO" THEN 25
        CLS:BEEP:BEEP
        GOTO 24

25 CLS
        OPEN "UOC" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (30,20)-(456,260), IMAGE$
        CLOSE
        LINE(30,20)-(456,20):LINE-(456,260)
        LINE-(30,260):LINE-(30,20)
        GET(63,99)-(184,137),BUT
        LINE(63,99)-(184,137),30,BF
        GET(318,101)-(415,136),WRG
        PUT(318,101),WRG
        GET(207,101)-(305,136),COR
        PUT(207,101),COR
        GET(347,223)-(429,251),PIECE
        GET(30,20)-(456,260),SCR
        CLS

27 ITEM=0:CORRECT=0:TRY=0:TOT=15
        TIM$=TIME$
        TIM=VAL(RIGHT$(TIM$,1))+1
        ON TIM GOTO 101,103,106,110,113,117,119,123,125,127


30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=-1 THEN ITEM=ITEM-1:GOTO 600
        PUT(30,20),SCR
        CALL TEXTFACE(1):CALL MOVETO(200,242):PRINT NOMEN$
        CALL MOVETO(50,54):PRINT LEFT" LEFT"
        CALL MOVETO(320,54):PRINT SCORE"%"
        SOUND 110,2,80:FOR D=1 TO 400:NEXT D