Macintosh-SW
/
MrCBASIC
mirror of https://github.com/stevemac321/MrCBASIC.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
MrCBASIC/12/12.TXT

1 line
8.3 KiB
Plaintext
Raw Blame History

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."
Reference in New Issue View Git Blame Copy Permalink