10 CLS
20 SCORE = 0:ITEM=0:TRY=0:COR=0:SK=0
25 WAVE 0, SIN
30 DIM ANS(1000):DIM A$(10):DIM B$(10)



190 CLS:PRINT"":PRINT""
        PRINT"  Please type in your name and press the ENTER key."
        PRINT"":PRINT"":INPUT; NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 190
        
193 CLS
        PRINT"":PRINT"   Which do you want to study?"
        PRINT""
        PRINT,"1. Pages 64 and 68, ALL -us,-a, or -um"
        PRINT,"2. Page 77, ONLY the -is, -e type"
        PRINT,"3. Page 26"
        PRINT,"4. Page 51"
        PRINT""
        PRINT"   Press the numbered key for your choice"
        PRINT"":PRINT"NOTE: Program runs until preset breaks.  If you stop"
        PRINT"    before a break, you get no score screen."
200 A$=""
        A$=INKEY$
        IF A$="1" THEN SEC=1:RESTORE 500:GOTO 300
        IF A$="2" THEN SEC=2:RESTORE 520:GOTO 300
        GOTO 200

300 ITEM = ITEM +1
        CLS
        LINE(10,20)-(470,50),,BF:LINE(12,22)-(468,48),30,BF:LINE(300,22)-(302,48),,BF
        CALL MOVETO(15,40):PRINT NOMEN$
        CALL MOVETO(307,40):PRINT"SCORE  =   "SCORE"  %"

305 FOR N=1 TO 10:READ A$(N):NEXT N
318 IF A$(1) = "CHOICE" THEN 450
319 IF A$(1) = "END" THEN 475
322 LINE(0,55)-(490,290),30,BF
323 LINE(165,80)-(230,80)
324 CALL MOVETO(175,75):PRINT A$(1)
325 CALL MOVETO(20,100):INPUT"NOMINATIVE  ",B$(1)
326 IF B$(1) = "SKIP" THEN SK=SK+1:GOTO 305
327 CALL MOVETO(20,130):INPUT"GENITIVE       ",B$(2)