5 DIM GP$(75):DIM SP$(75):DIM IP$(75)
        FOR N=1 TO 75
        GP$(N)=""
        NEXT N
        FOR N=1 TO 75
        SP$(N)=""
        NEXT N
15 WAVE 0, SIN
10 SOUND 524,6,80:FOR DL=1 TO 1100:NEXT DL
        SOUND 392,3,50:FOR DL=1 TO 500:NEXT DL
        SOUND 330,2,30:FOR DL=1 TO 300:NEXT DL
        SOUND 262,3,10:FOR DL=1 TO 700:NEXT DL
        SOUND 330,2,10:FOR DL=1 TO 300:NEXT DL
        SOUND 444,2,80:FOR DL=1 TO 300:NEXT DL
        SOUND 392,2,10:FOR DL=1 TO 500:NEXT DL
        SOUND 524,3,80:FOR DL=1 TO 800:NEXT DL
        SOUND 392,8,50:FOR DL=1 TO 1400:NEXT DL
        SOUND 524,12,180:FOR DL=1 TO 2400:NEXT DL
12 CLS:PRINT""
        PRINT""
        INPUT"    WHAT IS YOUR NAME"; NOMEN$
        IF NOMEN$="" THEN SOUND 1500,1,100:FOR DL=1 TO 200:NEXT DL:GOTO 12
        PRINT""
        PRINT"    THANK YOU."
        FOR DL=1 TO 3000:NEXT DL
15 CLS
        PRINT""
        PRINT"    FIRST THING YOU WILL BE ASKED IS TO INPUT A LIST OF"
        PRINT"    ADJECTIVES YOU WANT TO DRILL ON."
        PRINT"    MINIMUM NUMBER IS 10; MAXIMUM IS 70"
        PRINT""
        PRINT"    YOU WILL THEN BE PRESENTED AN ADJECTIVE."
        PRINT"    YOU MUST TELL THE COMPARATIVE AND SUPERLATIVE."
        PRINT""
        PRINT"    IF YOU ARE CORRECT, FINE; BUT IF YOU ARE WRONG"
        PRINT"    THAT WRONG ONE WILL BE SAVED AND PRESENTED"
        PRINT"    AGAIN AT A LATER TIME IN THE DRILL."
        PRINT""
        PRINT"    SUCCESS IN THE DRILL IS HAVING NONE LEFT TO DO."
        PRINT""
        PRINT"    WHEN YOU UNDERSTAND THIS AND ARE READY TO GO, PRESS 'RETURN'."
        INPUT V
        FOR DL=1 TO 200:NEXT DL
        AM=0:TRY=0:CORRECT=0:SCORE=0
        CHK=1
        MES1$="INPUT YOUR FIRST CHOICE OF ADJECTIVE."
        MES2$="INPUT ANOTHER ADJECTIVE"
        MES3$="INPUT ANOTHER ADJECTIVE.  IF YOU HAVE NO MORE, INPUT 'K'."
20 CLS
        WHILE CHK=1
        AM=AM+1
        IF AM=1 THEN MES$=MES1$
        IF AM>1 AND AM<11 THEN MES$=MES2$
        IF AM>10 THEN MES$=MES3$
        IF AM=71 THEN CHK=1
        CALL MOVETO(20,50):PRINT MES$
        SOUND 523,1,50:FOR DL=1 TO 200:NEXT DL
        CALL MOVETO(50,80):INPUT GP$(AM)
                AN=AM-1
                FOR Q=1 TO AN
                IF GP$(AM)=IP$(Q) THEN CALL MOVETO(20,100):PRINT"YOU DID THAT ALREADY, TRY ANOTHER":FOR DL=1 TO 2000:NEXT DL:AM=AM-1:KL=1
                
                NEXT Q
        IF GP$(AM)="K" AND AM>10 THEN CHK=0:GOTO 25
21 READ P$,C$,S$
        IF P$="YOU PUT IN SOMETHING THAT IS NOT ON THE LIST" THEN 24
        IF P$=GP$(AM) THEN 25 ELSE 21
        
24 CALL MOVETO(20,180):PRINT P$
        AM=AM-1
        SOUND 50,1,100:FOR DL=1 TO 2000:NEXT DL
        
25 IP$(AM)=GP$(AM)
        RESTORE 100
        CLS
        WEND
        MM=0
        F=AM-1
26  FOR MM=1 TO AM
        SP$(MM)=GP$(MM)
        NEXT MM
        MM=0
        GOTO 28
27  FOR MM=1 TO AM
        GP$(MM)=SP$(MM)
        NEXT MM
        MM=0


28 MM=MM+1
        IF GP$(MM)="" AND MM<AM THEN 28
        IF GP$(MM)="K" THEN 60
29 READ P$,C$,S$
        
        IF P$=GP$(MM) THEN 30
        IF P$="PPP" THEN RESTORE 100
        GOTO 29

30 CLS
        SOUND 32,1,100:FOR DL=1 TO 200:NEXT DL
        SOUND 523,3,30:FOR DL=1 TO 600:NEXT DL
        CALL MOVETO(30,70):PRINT P$
        CALL MOVETO(30,110):PRINT"WHAT IS ITS COMPARATIVE AND SUPERLATIVE?"
32 CALL MOVETO(50,150):PRINT"COMPARATIVE:  "
        CALL MOVETO(150,150):INPUT GC$
        CALL MOVETO(50,200):PRINT"SUPERLATIVE:  "
        CALL MOVETO(150,200):INPUT GS$
        
        IF GC$=C$ AND GS$=S$ THEN 35 ELSE 45
        

35 TRY=TRY+1:CORRECT=CORRECT+1
        SCORE=INT(100*(CORRECT/TRY))
        GP$(MM)=""
        CALL MOVETO(30,250):PRINT"THAT IS CORRECT.  SCORE = "SCORE"%"