1 line
3.6 KiB
Plaintext
1 line
3.6 KiB
Plaintext
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"%"
|