1 line
2.8 KiB
Plaintext
1 line
2.8 KiB
Plaintext
5 CLS:DIM BUT(2000):DIM COR(800)
|
|
DIM WRG(800):DIM SCR(6000)
|
|
DIM PIECE(500)
|
|
|
|
10 CLS:PRINT" THIS IS EXERCISE 28"
|
|
CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
|
|
IF ANS$ = "Y" THEN 15
|
|
IF ANS$= "N" THEN RUN "GRAM 1"
|
|
BEEP:GOTO 10
|
|
|
|
15 CLS
|
|
CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|
|
IF NOMEN$="" THEN BEEP:GOTO 15
|
|
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=28 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=28
|
|
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 15
|
|
|
|
23 CALL MOVETO(20,50):PRINT"THANK YOU."
|
|
SOUND 523,2,100:FOR D=1 TO 500:NEXT D:SOUND 350,4,50:FOR D=1 TO 2000:NEXT D
|
|
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" CLICK ON THE QUIT BUTTON. REMEMBER THIS."
|
|
PRINT""
|
|
PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH"
|
|
PRINT" A BLANK IN IT."
|
|
PRINT" TWO CHOICES OF PRONOUN(S) TO GO IN THE BLANK WILL BE"
|
|
PRINT" DISPLAYED IN BUTTONS."
|
|
PRINT" YOU WILL CLICK ON THE BUTTON TO INDICATE YOUR CHOICE OF"
|
|
PRINT" PRONOUN TO GO INTO THE BLANK."
|
|
PRINT""
|
|
PRINT" EXERCISE HAS 15 SENTENCES, YOU MAY HAVE TWO TRIES AT IT."
|
|
24 PRINT""
|
|
INPUT" WHEN YOU ARE READY TO GO, INPUT 'GO'.", V$
|
|
IF V$="GO" THEN 25
|
|
CLS:BEEP:BEEP
|
|
GOTO 24
|
|
|
|
25 CLS
|
|
OPEN "UOC" FOR INPUT AS #1
|
|
IMAGE$=INPUT$(LOF(1),1)
|
|
PICTURE (30,20)-(456,260), IMAGE$
|
|
CLOSE
|
|
LINE(30,20)-(456,20):LINE-(456,260)
|
|
LINE-(30,260):LINE-(30,20)
|
|
GET(63,99)-(184,137),BUT
|
|
LINE(63,99)-(184,137),30,BF
|
|
GET(318,101)-(415,136),WRG
|
|
PUT(318,101),WRG
|
|
GET(207,101)-(305,136),COR
|
|
PUT(207,101),COR
|
|
GET(347,223)-(429,251),PIECE
|
|
GET(30,20)-(456,260),SCR
|
|
CLS
|
|
|
|
27 ITEM=0:CORRECT=0:TRY=0:TOT=15
|
|
TIM$=TIME$
|
|
TIM=VAL(RIGHT$(TIM$,1))+1
|
|
ON TIM GOTO 101,103,106,110,113,117,119,123,125,127
|
|
|
|
|
|
30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=-1 THEN ITEM=ITEM-1:GOTO 600
|
|
PUT(30,20),SCR
|
|
CALL TEXTFACE(1):CALL MOVETO(200,242):PRINT NOMEN$
|
|
CALL MOVETO(50,54):PRINT LEFT" LEFT"
|
|
CALL MOVETO(320,54):PRINT SCORE"%"
|
|
SOUND 110,2,80:FOR D=1 TO 400:NEXT D
|