1 line
5.4 KiB
Plaintext
1 line
5.4 KiB
Plaintext
5 DIM A$(5)
|
|
10 CLS:PRINT" THIS IS EXERCISE 11"
|
|
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=11 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=11
|
|
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
|
|
SOUND 196,2,100:FOR D=1 TO 400:NEXT D:SOUND 262,6,50:FOR D=1 TO 400:NEXT D
|
|
CLS
|
|
PRINT""
|
|
PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
|
|
PRINT" INPUT 'QUIT' FOR THE CHOICE OF ENDING. REMEMBER THIS."
|
|
PRINT""
|
|
PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH SOME"
|
|
PRINT" WORDS THAT HAVE (#) AFTER THEM."
|
|
PRINT" THE QUESTION WILL BE: DOES 'S OR ' OR NOTHING GO IN THE ( )."
|
|
PRINT" AS EACH NUMBER OF THE ( ) IS ASKED, YOU INPUT ONE OF:"
|
|
PRINT" 'S, ', OR 0--I.E. THE ZERO KEY--TO TELL WHAT GOES THERE."
|
|
PRINT""
|
|
PRINT" EXERCISE HAS 18 SENTENCES, YOU WILL GET TWO TRIES AT IT."
|
|
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
|
|
GOTO 130
|
|
26 TIM$=TIME$
|
|
27 TIM=VAL(RIGHT$(TIM$,1))+1
|
|
28 ON TIM GOTO 500,503,506,510,513,517,519,525,529,533
|
|
|
|
30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
|
|
SOUND 196,1,200:FOR D=1 TO 200:NEXT D:SOUND 131,4,30
|
|
CALL TEXTSIZE(18):CALL MOVETO(20,30)
|
|
PRINT"Name: "NOMEN$" Left:"LEFT" Score:"SCORE"%"
|
|
CALL TEXTFONT(CHICAGO):CALL MOVETO(20,70)
|
|
PRINT"Sample sentence:"
|
|
CALL TEXTFONT(12):CALL MOVETO(30,120):PRINT S1$
|
|
IF S2$<>"" THEN CALL MOVETO(40,150):PRINT S2$
|
|
FOR N=1 TO Q
|
|
CALL TEXTFONT(CHICAGO):CALL MOVETO(20,200)
|
|
PRINT"WHAT GOES IN ("N")?"
|
|
31 CALL TEXTFONT(12):CALL MOVETO(10,240)
|
|
INPUT CH$
|
|
IF CH$=A$(N) THEN 32
|
|
IF CH$="QUIT" THEN ITEM=ITEM-1:GOTO 600
|
|
SOUND 65,8,70
|
|
CALL MOVETO(20,260):PRINT"That is WRONG. Try again."
|
|
FOR D=1 TO 4000:NEXT D
|
|
LINE(10,220)-(480,280),30,BF
|
|
TRY=TRY+1
|
|
GOTO 31
|
|
32 SOUND 262,1,180:FOR D=1 TO 200:NEXT D:SOUND 262,2,10:FOR D=1 TO 400:NEXT D
|
|
SOUND 175,4,180:FOR D=1 TO 800:NEXT D:SOUND 175,6,0
|
|
TRY=TRY+1:CORRECT=CORRECT+1
|
|
CALL MOVETO(20,260):PRINT"That is CORRECT. Wonderful !"
|
|
FOR D=1 TO 2000:NEXT D
|
|
LINE(10,220)-(480,280),30,BF
|
|
NEXT N
|
|
35 SCORE=INT(100*(CORRECT/TRY))
|
|
RETURN
|
|
|
|
|
|
100 S1$="James(1), John(2), and Joseph(3) new boat":S2$="was launched yesterday.":A$(1)="0":A$(2)="0":A$(3)="'S":Q=3:GOSUB 30
|
|
101 S1$="Maria(1) and Patricia(2) papers are":S2$="always quite neat.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|
|
102 S1$="Frederick(1) and Nelson(2) store":S2$="has closed.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
103 S1$="We shall visit John(1) and Regina(2)":S2$="new house.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
104 S1$="Peter(1), Andrew(2), James(3), and John(4)":S2$="vision of the Lord was astounding.":A$(1)="0":A$(2)="0":A$(3)="0":A$(4)="'S":Q=4:GOSUB 30
|
|
105 S1$="I shall employ Dane(1) and Bosworth(2) firm":S2$="as my investors.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
106 S1$="John(1) and Luke(2) dogs are the ":S2$="same breed.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|
|
107 S1$="I particularly enjoy Bach(1) and":S2$="Buxtehude(2) works for the organ.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|
|
108 S1$="Have you ever met Sarah(1) and":S2$="Maria(2) uncle?":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
109 S1$="We studied Augustine(1) and Aquinas(2) ":S2$="philosophical writings.":A$(1)="'S":A$(2)="'":Q=2:GOSUB 30
|
|
110 S1$="Have you seen John(1) and James(2) shoes?":S2$="":A$(1)="'S":A$(2)="'":Q=2:GOSUB 30
|
|
111 S1$="Both Kenworth(1) and Boeing(2) factories":S2$="are in this area.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|
|
112 S1$="We especially like the new ":S2$="Funk(1) and Wagnall(2) encyclopedia.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
113 S1$="James(1) and TJ(2) new pigeons":S2$="get along well together.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|
|
114 S1$="Have you ever met Samuel(1), Sarah(2),":S2$="and Maria(3) mother?":A$(1)="0":A$(2)="0":A$(3)="'S":Q=3:GOSUB 30
|
|
115 S1$="Do you enjoy Rodgers(1) and ":S2$="Hammerstein(2) musicals?":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
116 S1$="Many people have heard of Abbot(1) and":S2$="Costello(2) 'Who's on first?' routine.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
|
|
117 S1$="The boys(1) and girls(2) rooms":S2$="must be kept clean.":A$(1)="'":A$(2)="'":Q=2:GOSUB 30
|
|
118 S1$="Ladies(1) and Gentlemen(2) coats may":S2$="be checked in at the entrance.":A$(1)="'":A$(2)="'S":Q=2:GOSUB 30
|
|
119 S1$="Matthew(1), Mark(2) and Luke(3) gospels":S2$="are known as the 'Synoptics'.":A$(1)="'S":A$(2)="'S":A$(3)="'S":Q=3:GOSUB 30
|
|
120 S1$="Leilani played some of Bach(1) and":S2$="Mozart(2) compositions.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
|