1 line
1.4 KiB
Plaintext
1 line
1.4 KiB
Plaintext
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)
|