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 23"
        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
        CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 17
        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=23 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=23
        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
        CLS
        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' SQUARE.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH ONE OR"
        PRINT"    MORE POSSESSIVE WORDS IN IT."
        PRINT"    YOU WILL ENTER A POSSIBLE POSSESSIVE WORD."
        PRINT"    YOU WILL BE TOLD IF YOU ARE RIGHT OR WRONG, AND BE GIVEN"
        PRINT"    ADDITIONAL CHANCES AS NEEDED.  YOU WILL NOT GO ON UNTIL YOU"
        PRINT"    GET IT RIGHT."
        PRINT"    THEN YOU WILL CLICK ON THE BOX TO TELL IF IT IS"
        PRINT"    AN ADJECTIVE OR A PRONOUN."
        PRINT"    EXERCISE HAS 15 SENTENCES; YOU MAY DO IT TWICE, MAXIMUM."
24    PRINT""
        INPUT"    WHEN YOU ARE READY, INPUT A 'G'.", V$
        IF V$="G" THEN 25 ELSE BEEP:BEEP:CLS:GOTO 24

25 CLS
        OPEN "AQP" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (30,26)-(445,265), IMAGE$
        CLOSE
        LINE(90,110)-(232,146),,BF:LINE(92,112)-(230,144),30,BF
        GET(90,110)-(232,146),BOX
        PUT(90,110),BOX
        GET (58,170)-(84,208),SMFC
        PUT(58,170),SMFC
        GET(390,170)-(418,208),FFC
        PUT(390,170),FFC
        GET(30,26)-(445,265),SCR
        GET(203,34)-(272,74),SIGN
27 CLS:SCORE =100:ITEM=-1:TRY=0:CORRECT=0:TOT=15
        TIM$=TIME$
        TIM=VAL(RIGHT$(TIM$,1))+1
        ON TIM GOTO 101,103,106,110,113,115,119,121,125,127

30 ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
        J1$="":J2$=""
31 CLS:PUT(30,26)-(445,265),SCR
        PUT(203,34)-(272,74),SIGN
        CALL TEXTFONT(CHICAGO):CALL TEXTSIZE(9):CALL MOVETO(153,180):PRINT"POSSESSIVE WORD:              "
        CALL TEXTFONT(12):CALL TEXTSIZE(12):CALL TEXTFACE(1)
        CALL MOVETO(100,248):PRINT NOMEN$
        CALL MOVETO(304,248):PRINT LEFT
        CALL MOVETO(370,248):PRINT SCORE"%"
        IF S2$="" THEN 32
        CALL MOVETO(60,120):PRINT S1$
        CALL MOVETO(60,140):PRINT S2$
        GOTO 33
32 CALL MOVETO(60,130):PRINT S1$
33 GET(330,188)-(460,203),PIECE
        CALL MOVETO(170,200):INPUT GW$
        PUT(330,188),PIECE
        IF GW$=W1$ AND J1$="" THEN J1$="YOU ALREADY DID ":GOTO 50
        IF GW$=W2$ AND J2$="" THEN J2$="YOU ALREADY DID ":GOTO 50
        IF GW$=W1$ AND J1$<>"" THEN CALL MOVETO(20,280):PRINT J1$ W1$:FOR D=1 TO 3000:NEXT D:GOTO 33
        IF GW$=W2$ AND J2$<>"" THEN CALL MOVETO(20,280):PRINT J2$ W2$:FOR D=1 TO 3000:NEXT D:GOTO 33
        LINE(203,34)-(272,74),,BF
        CALL MOVETO(210,60):PRINT"WRONG"
        SOUND 55,8,100:FOR D=1 TO 2000:NEXT D
        LINE(203,34)-(272,74),,BF
        TRY=TRY+1
        CALL MOVETO(210,46):PRINT"TRY"
        CALL MOVETO(210,58):PRINT"AGAIN?"
        CALL MOVETO(210,71):PRINT" Y/N "
35  A$=""
        A$=INKEY$
        IF A$="Y" THEN LINE(203,34)-(272,74),30,BF:PUT (203,34), SIGN:GOTO 33
        IF A$="N" THEN 99
        GOTO 35
50 LINE(203,34)-(272,74),,BF
        CALL MOVETO(210,60):PRINT" RIGHT "
        SOUND 196,4,100:FOR D=1 TO 800:NEXT D
        SOUND 196,2,0:FOR D=1 TO 400:NEXT D
        SOUND 262,6,50:FOR D=1 TO 1200:NEXT D
        TRY=TRY+1:CORRECT=CORRECT+1
60 LINE(203,34)-(272,74),,BF