1 line
2.3 KiB
Plaintext
1 line
2.3 KiB
Plaintext
10 CLS:PRINT" THIS IS EXERCISE 10"
|
|
12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
|
|
13 IF ANS$ = "Y" THEN 17
|
|
15 IF ANS$= "N" THEN RUN "GRAM 1"
|
|
16 BEEP:GOTO 12
|
|
|
|
17 CLS
|
|
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|
|
IF NOMEN$="" THEN BEEP:GOTO 18
|
|
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=10 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=10
|
|
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
|
|
24 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" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
|
|
PRINT""
|
|
PRINT" IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A BLANK."
|
|
PRINT" YOU WILL BE GIVEN A WORD; YOU ARE TO INPUT THE"
|
|
PRINT" APPROPRIATE FORM OF THE POSSESSIVE OF THAT WORD AS IT"
|
|
PRINT" WOULD GO INTO THAT BLANK--SINGULAR OR PLURAL."
|
|
PRINT" BE AWARE, TOO, THE PROGRAM WILL NOT GO ON UNTIL YOU"
|
|
PRINT" GET THE ITEM RIGHT. GET HELP, IF NEEDED."
|
|
PRINT" THE EXERCISE HAS 18 ITEMS AND YOU WILL GET AT MOST 2 TRIES."
|
|
PRINT""
|
|
INPUT" WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY.", V
|
|
|
|
25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=18
|
|
26 TIM$=TIME$
|
|
27 TIM=VAL(RIGHT$(TIM$,1))+1
|
|
28 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127
|
|
|
|
30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
|
|
CALL TEXTSIZE(18):CALL MOVETO(20,30)
|
|
PRINT"NAME: "NOMEN$" LEFT: "LEFT" SCORE="SCORE"%"
|
|
CALL TEXTFONT(CHICAGO):CALL MOVETO(20,80):PRINT"Sentence:"
|
|
CALL TEXTFONT(12):CALL MOVETO(30,100):PRINT S1$
|
|
IF S2$<>"" THEN CALL MOVETO(40,124):PRINT S2$
|
|
31 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,180):PRINT"Word for the blank: "W$
|