1 line
8.3 KiB
Plaintext
1 line
8.3 KiB
Plaintext
5 N1$="A":T1$="B":N2$="C":T2$="D":N3$="E":T3$="F":N4$="G":T4$="H":N5$="I":T5$="J"
|
|
10 CLS:PRINT" THIS IS EXERCISE 12"
|
|
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=12 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=12
|
|
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
|
|
PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
|
|
PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
|
|
PRINT""
|
|
PRINT" A COMPLETE EXERCISE HAS 20 SENTENCES."
|
|
PRINT" YOU WILL BE ALLOWED UP TO THREE RUN-THROUGHS OF THIS EXERCISE."
|
|
PRINT""
|
|
INPUT"TO GO, PRESS THE 'RETURN' KEY.", V
|
|
TOT=20
|
|
|
|
25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0
|
|
26 TIM$=TIME$
|
|
27 TIM=VAL(RIGHT$(TIM$,1))+1
|
|
28 ON TIM GOTO 500,506,510,513,517,523,527,530,537,542
|
|
|
|
30 ITEM=ITEM+1:IF ITEM>=21 THEN 600
|
|
31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1
|
|
SOUND 1176,.5,100:FOR D=1 TO 100:NEXT D:SOUND 784,8,50
|
|
32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "20-ITEM" SCORE "SCORE"%"
|
|
33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:"
|
|
34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$
|
|
40 CALL MOVETO(20,100):INPUT"TYPE IN AN OBJECTIVE CASE NOUN FROM THE SENTENCE."; N$
|
|
41 IF N$="" THEN BEEP:GOTO 40
|
|
42 IF N$="QUIT" THEN ITEM=ITEM-1:GOTO 600
|
|
43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50
|
|
44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT AN OBJECTIVE NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL
|
|
45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY))
|
|
46 CLS:GOTO 32
|
|
|
|
50 IF N$=N1$ AND J1$<>"" THEN 62
|
|
51 IF N$=N1$ THEN J1$="YOU":TG$=T1$
|
|
52 IF N$=N2$ AND J2$<>"" THEN 62
|
|
53 IF N$=N2$ THEN J2$="YOU":TG$=T2$
|
|
54 IF N$=N3$ AND J3$<>"" THEN 62
|
|
55 IF N$=N3$ THEN J3$="YOU":TG$=T3$
|
|
56 IF N$=N4$ AND J4$<>"" THEN 62
|
|
57 IF N$=N4$ THEN J4$="YOU":TG$=T4$
|
|
58 IF N$=N5$ AND J5$<>"" THEN 62
|
|
59 IF N$=N5$ THEN J5$="YOU":TG$=T5$
|
|
60 GOSUB 64
|
|
61 GOTO 65
|
|
62 CALL MOVETO(20,150):PRINT"YOU ALREADY DID THAT ONE. TRY ANOTHER.":SOUND 131,4,100:FOR DL=1 TO 800:NEXT DL:SOUND 87,6,100:FOR DL=1 TO 1200:NEXT DL
|
|
63 CLS:GOTO 32
|
|
|
|
64 CALL TEXTSIZE(24):CALL MOVETO(20,200):PRINT"THAT IS CORRECT.":SOUND 175,4,30:FOR DL=1 TO 800:NEXT DL:SOUND 233,4,60:FOR DL=1 TO 800:NEXT DL:CORRECT=CORRECT+1:TRY=TRY+1
|
|
RETURN
|
|
|
|
65 LINE(10,220)-(480,270),30,BF:CALL TEXTFONT(CHICAGO):CALL TEXTSIZE(18):CALL MOVETO(20,250)
|
|
PRINT"CHOICES: DO, IO, OP, APP, AO, RO, OC, CO"
|
|
65 CALL TEXTFONT(12):CALL TEXTSIZE(12):LINE(15,150)-(480,220),30,BF
|
|
CALL MOVETO(20,160):INPUT"WHAT IS ITS SYNTAX"; T$
|
|
66 IF T$="" THEN BEEP:GOTO 65
|
|
67 IF T$ =TG$ THEN GOSUB 64 ELSE 80
|
|
72 LINE(10,220)-(480,270),30,BF:SOUND 393,.5,100:FOR D=1 TO 100:NEXT D:SOUND 524,3,50
|
|
CALL TEXTSIZE(12):CALL MOVETO(20,240):INPUT"ARE THERE ANY MORE OBJECTIVE NOUNS IN THE SENTENCE? Y/N ";CH$
|
|
73 IF CH$="Y" AND AT<>Q THEN PRINT"VERY GOOD, CHOOSE ANOTHER.":SOUND 523,5,80:FOR DL=1 TO 3000:NEXT DL:AT=AT+1:CORRECT=CORRECT+1:B=2:GOTO 77
|
|
74 IF CH$="N" AND AT=Q THEN PRINT"THAT IS CORRECT.":SOUND 523,5,80:FOR DL=1 TO 3000:NEXT DL:CORRECT=CORRECT+1:B=1:GOTO 77
|
|
75 IF CH$="Y" AND AT=Q THEN PRINT"SORRY, BUT THERE AREN'T.":SOUND 55,5,80:FOR DL=1 TO 3000:NEXT DL:B=1:GOTO 77
|
|
76 IF CH$="N" AND AT<>Q THEN PRINT"THERE SURE ARE. SEE IF YOU CAN FIND ANOTHER.":AT=AT+1:SOUND 55,5,80:FOR DL=1 TO 3000:NEXT DL:B=2:GOTO 77
|
|
77 IF CH$ ="Y" OR CH$="N" THEN 78 ELSE BEEP:GOTO 72
|
|
78 TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY)):ON B GOTO 79,32
|
|
79 RETURN
|
|
|
|
80 CALL TEXTSIZE(24):CALL MOVETO(20,200):PRINT"THAT IS NOT CORRECT":SOUND 60,6,100:FOR DL=1 TO 1200:NEXT DL
|
|
81 TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY))
|
|
82 LINE(10,220)-(480,270),30,BF:CALL MOVETO(20,240):CALL TEXTSIZE(12):INPUT"DO YOU WANT TO TRY AGAIN? Y/N";CH$
|
|
83 IF CH$="Y" THEN 65
|
|
84 IF CH$="N" THEN 72
|
|
85 BEEP:LINE(10,220)-(480,270),30,BF:GOTO 82
|
|
|
|
500 S$="I saw John at the church."
|
|
N1$="JOHN":T1$="DO":N2$="CHURCH":T2$="OP":Q=2:GOSUB 30
|
|
501 S$="Always say your daily rosary, John."
|
|
N1$="ROSARY":T1$="DO":Q=1:GOSUB 30
|
|
503 S$="Canada, our neighbor to the north, exports wheat."
|
|
N1$="NORTH":T1$="OP":N2$="WHEAT":T2$="DO":Q=2:GOSUB 30
|
|
504 S$="Seattle is the biggest city in our state, Washington."
|
|
N1$="STATE":T1$="OP":N2$="WASHINGTON":T2$="APP":Q=2:GOSUB 30
|
|
505 S$="My brother plays left field for the Mariners."
|
|
N1$="FIELD":T1$="DO":N2$="MARINERS":T2$="OP":Q=2:GOSUB 30
|
|
506 S$="The party searched the woods for the child three days."
|
|
N1$="WOODS":T1$="DO":N2$="CHILD":T2$="OP":N3$="DAYS":T3$="AO":Q=3:GOSUB 30
|
|
507 S$="John's grandfather came for a visit last summer."
|
|
N1$="VISIT":T1$="OP":N2$="SUMMER":T2$="AO":Q=2:GOSUB 30
|
|
508 S$="James was given permission by his mother.."
|
|
N1$="PERMISSION":T1$="RO":N2$="MOTHER":T2$="OP":Q=2:GOSUB 30
|
|
509 S$="The couple named their new child John."
|
|
N1$="CHILD":T1$="DO":N2$="JOHN":T2$="OC":Q=2:GOSUB 30
|
|
510 S$="St. Peter, the first pope, denied Jesus three times."
|
|
N1$="JESUS":T1$="DO":N2$="TIMES":T2$="AO":Q=2:GOSUB 30
|
|
511 S$="Mary was given a present, a medal of St. Thomas."
|
|
N1$="PRESENT":T1$="RO":N2$="MEDAL":T2$="APP":N3$="ST. THOMAS":T3$="OP":Q=3:GOSUB 30
|
|
512 S$="Terry dreamed a dream of future greatness, sainthood."
|
|
N1$="DREAM":T1$="CO":N2$="GREATNESS":T2$="OP":N3$="SAINTHOOD":T3$="APP":Q=3:GOSUB 30
|
|
513 S$="We saw John, our friend, yesterday.."
|
|
N1$="JOHN":T1$="DO":N2$="FRIEND":T2$="APP":N3$="YESTERDAY":T3$="AO":Q=3:GOSUB 30
|
|
514 S$="They considered slavery a remote cause of the Civil War."
|
|
N1$="SLAVERY":T1$="DO":N2$="CAUSE":T2$="OC":N3$="CIVIL WAR":T3$="OP":Q=3:GOSUB 30
|
|
515 S$="Which do you prefer, chocolate or vanilla?"
|
|
N1$="CHOCOLATE":T1$="APP":N2$="VANILLA":T2$="APP":Q=2:GOSUB 30
|
|
516 S$="They called Abraham Lincoln an honest man."
|
|
N1$="MAN":T1$="OC":N2$="ABRAHAM LINCOLN":T2$="DO":Q=2:GOSUB 30
|
|
517 S$="Please pass your sister Marie the salt."
|
|
N1$="SISTER":T1$="IO":N2$="MARIE":T2$="APP":N3$="SALT":T3$="DO":Q=3:GOSUB 30
|
|
518 S$="The boys ran a race for charity."
|
|
N1$="RACE":T1$="CO":N2$="CHARITY":T2$="OP":Q=2:GOSUB 30
|
|
519 S$="Julius Caesar titled his book GALLIC WARS."
|
|
N1$="BOOK":T1$="DO":N2$="GALLIC WARS":T2$="OC":Q=2:GOSUB 30
|
|
520 S$="Return the book to Miss Smith, the librarian."
|
|
N1$="MISS SMITH":T1$="OP":N2$="LIBRARIAN":T2$="APP":N3$="BOOK":T3$="DO":Q=3:GOSUB 30
|
|
521 S$="Dawn approaching, Jesus' actual body came back to life, boys"
|
|
N1$="LIFE":T1$="OP":Q=1:GOSUB 30
|
|
522 S$="Baptism and Penance are called sacraments of the dead."
|
|
N1$="DEAD":T1$="OP":Q=1:GOSUB 30
|
|
523 S$="St. Thomas called Aristotle, the Greek, THE philosopher."
|
|
N1$="PHILOSOPHER":T1$="OC":N2$="ARISTOTLE":T2$="DO":N3$="GREEK":T3$="APP":Q=3:GOSUB 30
|
|
524 S$="Fr. Demetrius Gallitzin spread the Church in our country."
|
|
N1$="CHURCH":T1$="DO":N2$="COUNTRY":T2$="OP":Q=2:GOSUB 30
|
|
525 S$="The boys are playing tag in the back yard, James."
|
|
N1$="TAG":T1$="DO":N2$="YARD":T2$="OP":Q=2:GOSUB 30
|
|
526 S$="This morning May will be awarded a scholarship."
|
|
N1$="MORNING":T1$="AO":N2$="SCHOLARSHIP":T2$="RO":Q=2:GOSUB 30
|
|
527 S$="A bishop is the usual minister of Confirmation."
|
|
N1$="CONFIRMATION":T1$="OP":Q=1:GOSUB 30
|
|
528 S$="Freedom of worship was granted the Christians by Constantine."
|
|
N1$="WORSHIP":T1$="OP":N2$="CHRISTIANS":T2$="IO":N3$="CONSTANTINE":T3$="OP":Q=3:GOSUB 30
|
|
529 S$="We studied about Fr. Peter Hylebos, an early priest in this area."
|
|
N1$="PRIEST":T1$="APP":N2$="FR. PETER HYLEBOS":T2$="OP":N3$="AREA":T3$="OP":Q=3:GOSUB 30
|
|
530 S$="This afternoon Frances will sing a song for the class."
|