English - Parts of Speech v1.2 (1981)(MECC)(US)

by: Minnesota Educational Computing Corporation

Publication date: 1981

Topics: Educational, Language Arts

Language: English

The following drills review the most fundamental elements of grammar -- the parts of speech. The parts of speech name words according to their function in the sentence.

Each drill begins with a diagnostic quiz of three questions. With a perfect score on each quiz, the 7 drills can be completed in 21 sentences. You can master the drills with less than a perfect score. The computer will tell you how many sentences you use to achieve mastery.

Notes

Disk info for English_Parts_of_Speech_v1.2_1981_MECC_US.do:

File Name: a2_English_Parts_of_Speech_v1.2_1981_MECC_US/English_Parts_of_Speech_v1.2_1981_MECC_US.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 51712
Used Space (bytes): 91648
Physical Size (KB): 140
Free Space (KB): 50
Used Space (KB): 89
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 202
Used Sectors: 358
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for English_Parts_of_Speech_v1.2_1981_MECC_US.do:

a2_English_Parts_of_Speech_v1.2_1981_MECC_US/English_Parts_of_Speech_v1.2_1981_MECC_US.do DISK VOLUME #254
B 009 VARIABLES
* A 024 DRILL
* A 015 HELLO
* B 010 BPRT-SM-32
* B 005 PADDLE
* B 005 FLOWER
* B 005 TRUCK
* A 020 INTRO
* A 006 NOUN
* A 008 VERB
* A 008 PRONOUN
* A 012 ADJECTIVE
* A 013 ADVERB
* A 007 PREPOSITION
* A 009 CONJUNCTION
* A 011 INTERJECTION
* T 004 NOUNE
* T 004 NOUNH
* T 005 VERBE
* T 004 VERBH
* T 004 PRONOUNE
* T 004 PRONOUNH
* T 004 ADJECTIVEE
* T 004 ADJECTIVEH
* T 004 ADVERBE
* T 004 ADVERBH
* T 005 PREPOSITIONE
* T 004 PREPOSITIONH
* T 005 CONJUNCTIONE
* T 004 CONJUNCTIONH
* B 002 COMCARD
* B 002 TXC
* A 022 CREATE TEST
A 008 VARINIT
* B 034 LOGO
DOS 3.3 format; 51,712 bytes free; 91,648 bytes used.

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADJECTIVE.bas:

1 PRINT :X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT CHR$(4)"BRUNBPRT-SM-32"
2 REM LAST UPDATE: 81/9/18 AWM
100 REM COPYRIGHT 1980 MECC NAMEADJECTIVE VERSION:10/16/80AUTHOR: DARRELL RICKE
117 FOR Z = 768 TO 782: READ X: POKE Z,X: NEXT : DATA 1,0,4,0,17,23,53,54,13,36,44,28,28,6,0
150 HIMEM: 8192:NA = 10:NB = 7: DIM AJ$(NA),AK$(NB)
160 POKE 232,0: POKE 233,3: SCALE= 1: ROT= 32
200 D$ = CHR$(13) + CHR$(4): PRINT D$;"NOMON C,I,O":HO$ = CHR$(12): PRINT HO$: SPEED= 255
250 P0 = -16287:PD = PEEK(1022) = 1:PR = 128:QU$ = CHR$(34): HCOLOR= 3
300 CB = -16384:CL = -16368:ZR = 0
400 N = 700: POKE -16304,0:UC$ = CHR$(23):LC$ = CHR$(26):BO$ = CHR$(16) + CHR$(50):NO$ = CHR$(16) + CHR$(49):BS$ = CHR$(8)
1000 READ D1$: GOSUB 39000
2000 PRINT HO$: POKE 1023,4: PRINT D$"RUNDRILL"
6000 PRINT HO$: VTAB 1: HTAB 10: PRINT UC$BO$"A D J E C T I V E S"LC$NO$: VTAB 3: PRINT D1$: HPLOT 0,64 TO 279,64: RETURN
9000 FOR I = 1 TO 16: READ A$: VTAB 17: HTAB 19 - LEN(A$)
9010 PRINT A$
9020 FOR J = 1 TO N: NEXT J:N = N -20
9030 HTAB 19: VTAB 17: PRINT BS$BS$BS$BS$BS$BS$BS$BS$BS$
9040 NEXT I: READ A$: VTAB 17: HTAB 19 - LEN(A$): PRINT A$: RETURN
20000 GOSUB 60000: HCOLOR= 0: FOR I = 177 TO 190: HPLOT 0,I TO 279,I: NEXT : HCOLOR= 3: RETURN
30000 FOR N = 1 TO 3000: NEXT : RETURN
39000 GOSUB 6000: VTAB 10: PRINT "^IN THESE DRILLS, WORDS LIKE THOSE": PRINT "SHOWN BELOW WILL NOT BE CONSIDERED": PRINT "ADJECTIVES."
39020 VTAB 17: HTAB 7: PRINT BO$"THAT"NO$" GIRL";: HTAB 24: PRINT BO$"THESE"NO$" MEN": HTAB 7: PRINT "IN "BO$"A"NO$" BOTTLE";: HTAB 24: PRINT BO$"THE"NO$" BOY"
39030 HPLOT 42,153 TO 69,153: HPLOT 161,153 TO 195,153: HPLOT 63,171 TO 69,171: HPLOT 161,171 TO 181,171
39040 GOSUB 60000: PRINT HO$
40000 GOSUB 6000: VTAB 10: PRINT "^CONSIDER THE NOUN "QU$"PEOPLE"QU$" AND HOW MEANING CHANGES BY USING DIFFERENT ADJECTIVES."
40020 VTAB 17: HTAB 20: PRINT "PEOPLE"
40022 VTAB 19: PRINT " ^WATCH FOR SOME NEW ADJECTIVES."
40025 GOSUB 20000: GOSUB 9000: GOSUB 60000
40030 GOSUB 6000: VTAB 9: PRINT "^ONE OR MORE ADJECTIVES ARE OFTEN USED TO MODIFY A SINGLE NOUN. ^WATCH TO SEE HOW EACH ADJECTIVE FURTHER CLARIFIES THE NOUN "QU$"TRUCK"QU$"."
40040 VTAB 18: HTAB 17: PRINT "TRUCKS":EN = 0: GOSUB 20000
40050 DRAW 1 AT 131,152: VTAB 18: HTAB 11: PRINT "GREEN";: HPLOT 129,151 TO 129,145 TO 87,145 TO 87,151: GOSUB 30000
40070 VTAB 18: HTAB 7: PRINT "OLD";: HPLOT 129,145 TO 129,141 TO 52,141 TO 52,151: GOSUB 30000
40080 VTAB 18: HTAB 1: PRINT "RUSTY";: HPLOT 129,141 TO 129,137 TO 17,137 TO 17,151: GOSUB 60000
40085 GOSUB 6000: VTAB 10: HTAB 1: PRINT "^AN ADJECTIVE IS SOMETIMES LINKED BY A LINKING VERB TO THE NOUN IT MODIFIES. ^NOTE THE FOLLOWING EXAMPLE."
40090 VTAB 14: HTAB 24: PRINT "ARE LATE.": ROT= 0: DRAW 1 AT 137,126: HPLOT 139,128 TO 139,132 TO 202,132 TO 202,128: HPLOT 189,127 TO 216,127
40100 VTAB 14: HTAB 19: PRINT "THEY"
40102 VTAB 17: PRINT "^THE WORD "QU$"LATE"QU$" IS AN ADJECTIVE;": PRINT "^IT MODIFIES THE PRONOUN "QU$"THEY"QU$"."
40105 GOSUB 60000: RETURN
50010 DATA "^AN ADJECTIVE DESCRIBES OR MODIFIES A NOUN OR PRONOUN. ^EXAMPLES: BEAUTIFUL, RED, SMALL, OLD."
50030 DATA MARRIED,FAT,SEVERAL,COLD,CUTE,SMALL,OLD,CAPABLE,CRAZY,HAPPY
50040 DATA SLOW,CHEAP,DIRTY,UGLY,NICE,HOT,LATE
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADJECTIVEE.txt:

"^SHE BECAME PREGNANT."
3,1
2,2
4,1
0,0
"^THAT WATER WAS CLEAR AND COLD."
9,2
1,2
2,2
4,2
7,4
6
4,2
0,0
"^SOUTH ^TEXAS IS VERY WARM."
4,2
1,2
2,2
5,5
4,2
0,0
"^THE COLD SOUP TASTES SALTY."
9,3
4,3
1,2
2,2
4,3
0,0
"^THAT LITTLE GIRL ATE A HUGE MEAL."
9,3
4,3
1,1
2,1
9,7
4,7
1,2
0,0
"^TINY ^TIM GAVE THE OLD MAN A BIG HUG."
4,2
1,1
2,1
9,6
4,6
1,1
9,9
4,9
1,2
0,0
"^THE SUN SET OVER THE BLUE WATER."
9,2
1,2
2,1
6,7
9,7
4,7
1,2
0,0
"^ARNOLD WAS OLD."
1,1
2,2
4,1
0,0
"^BOTH BOYS ARE SILLY."
9,2
1,1
2,2
4,2
0,0
"^WHY WAS HE ANGRY?"
5,2
2,2
3,1
4,3
0,0
"^THAT OLD RUSTY TRUCK RAN VERY WELL."
9,4
4,4
4,4
1,2
2,1
5,7
5,5
0,0
"^THE SPEEDING BULLET PIERCED HIS SIDE."
9,3
4,3
1,2
2,1
4,6
1,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADJECTIVEH.txt:

"^FRAN IS A VERY GOOD TENNIS PLAYER."
1,1
2,2
9,7
5,5
4,7
4,7
1,2
0,0
"^TROY APPEARS ARTICULATE AND WELL-READ."
1,1
2,2
4,1
7,3
5
4,1
0,0
"^HUGH IS A VERY QUICK SCATBACK."
1,1
2,2
9,6
5,5
4,6
1,2
0,0
"^AN INEXPERIENCED TEAM LOSES MANY GAMES."
9,3
4,3
1,2
2,1
4,6
1,2
0,0
"^THE STUDENT COPIED THE ENTIRE QUOTE."
9,2
1,1
2,1
9,6
4,6
1,2
0,0
"^SARA BEAT THE FAMOUS ^RUSSIAN SCHOLAR."
1,1
2,1
9,6
4,6
4,6
1,1
0,0
"^CHICAGO WON THE FIRST PLAY-OFF GAME."
1,2
2,1
9,6
4,6
4,6
1,2
0,0
"^FEAR INFECTED THE ENTIRE CITY."
1,2
2,1
9,5
4,5
1,2
0,0
"^SPILLED PAINT COVERED THE NEW DESIGN."
4,2
1,2
2,1
9,6
4,6
1,2
0,0
"^RED AND WHITE ARE ^CHRISTMAS COLORS ALSO."
1,2
7,1
3
1,2
2,2
4,6
1,2
5,4
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADVERB.bas:

2 REM LAST UPDATE: 81/9/22 AWM
90 PRINT :X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT CHR$(4)"BRUNBPRT-SM-32"
100 REM COPYRIGHT 1980 MECC NAMEADVERB VERSION:10/16/80AUTHOR: DARRELL RICKE
150 HIMEM: 8192
200 D$ = CHR$(13) + CHR$(4): PRINT D$;"NOMONC,I,O":HO$ = CHR$(12): PRINT HO$: SPEED= 255
250 P0 = -16287:PD = PEEK(1022) = 1:PR = 128:QU$ = CHR$(34): HCOLOR= 3
300 POKE 232,0: POKE 233,80: ROT= 0: PRINT D$"BLOADFLOWER,A$5000":ZR = 0:WY = 140:TD = 400:HF = 105:TR = 3:WX = 45:SP = 10: SCALE= 1
800 POKE 8,215
1000 FOR X = 0 TO 35: READ D1: POKE 768 +X,D1: NEXT : GOSUB 40000
2000 PRINT HO$: POKE 1023,5: PRINT D$"RUNDRILL"
3000 DRAW 1 AT WX,WY: DRAW 2 AT WX,WY: DRAW 5 AT WX,WY: HCOLOR= ZR: DRAW 1 AT WX,WY: DRAW 2 AT WX,WY: DRAW 5 AT WX,WY: HCOLOR= TR:WX = WX +SP: IF WX ^AN ADVERB IS A WORD USED TO MODIFY A VERB, AN ADJECTIVE, OR ANOTHER ADVERB.
40010 GOSUB 60000: VTAB 14: PRINT "^THE FLOWER GROWS.": GOSUB 5000: GOSUB 60000
40020 VTAB 9: PRINT " ^AN ADVERB MODIFYING A VERB.": VTAB 14: PRINT "^THE FLOWER GROWS QUICKLY.": DRAW 7 AT 91,126: HPLOT 119,127 TO 167,127: HPLOT 93,127 TO 93,131 TO 143,131 TO 143,128:TD = 100: GOSUB 5000: GOSUB 60000
40100 VTAB 14: HTAB 10: PRINT "^A HIGH PITCH": FOR J = 1 TO 600: NEXT J: POKE 771,8: CALL 782: GOSUB 60000
40110 VTAB 10: PRINT "^AN ADVERB MODIFYING AN ADJECTIVE.": VTAB 14: HTAB 10: PRINT "^A VERY HIGH PITCH": DRAW 7 AT 120,126
40130 HPLOT 87,127 TO 87,131 TO 122,131 TO 122,127: HPLOT 77,127 TO 104,127: POKE 771,5: FOR J = 1 TO 800: NEXT J: POKE 771,5: CALL 782: GOSUB 60000
40200 PRINT D$"BLOADTRUCK,A$5000":TD = 400: VTAB 12: HTAB 7: PRINT "^THE TRUCK UNLOADS RAPIDLY.": GOSUB 3000: GOSUB 60000
40210 VTAB 10: PRINT "^AN ADVERB MODIFYING ANOTHER ADVERB."
40220 VTAB 14: PRINT " ^THE TRUCK UNLOADS VERY RAPIDLY.": DRAW 9 AT 196,126: HPLOT 140,127 TO 167,127: HPLOT 155,128 TO 155,131 TO 198,131 TO 198,126:SP = 20:WX = 45:TD = 75: GOSUB 3000
50000 DATA 160,255,169,5,32,168,252,173,48,192,136,208,245,96,162,15,32,0,3,202,208,250,96,32,2,3,32,2,3,32,2,3,32,2,3,32
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADVERBE.txt:

"^SHE SANG VERY WELL."
3,1
2,1
5,4
5,2
0,0
"^THE STOCKYARDS SMELL REALLY BAD."
9,2
1,2
2,2
5,5
4,2
0,0
"^JOHN DROVE THE CAR VERY CAREFULLY."
1,1
2,1
9,4
1,2
5,6
5,2
0,0
"^HE CAME LATER."
3,1
2,1
5,2
0,0
"^HE REGULARLY PLAYS GOLF AT OUR CLUB."
3,1
5,3
2,1
1,2
6,7
9,7
1,2
0,0
"^SHE DRIVES THE CAR TO WORK DAILY."
3,1
2,1
9,4
1,2
6,6
1,2
5,2
0,0
"^BOB IS AN UNUSUALLY GOOD DRIVER."
1,1
2,2
9,6
5,5
4,6
1,2
0,0
"^HE WORKS HARD."
3,1
2,1
5,2
0,0
"^DR. ^SIMONS TALKED FOREVER."
1,1
1,1
2,1
5,3
0,0
"^LINDA DRIVES EVERYWHERE."
1,1
2,1
5,2
0,0
"^JOHN SEEMS VERY HAPPY."
1,1
2,2
5,4
4,1
0,0
"^OUR COMPANY NEARLY WENT ON STRIKE."
9,2
1,2
5,4
2,1
6,6
1,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/ADVERBH.txt:

"^LENNY QUICKLY ATE ALL THE GREEN APPLES."
1,1
5,3
2,1
4,7
9,7
4,7
1,2
0,0
"^SAMANTHA SELDOM WORKS SO CARELESSLY."
1,1
5,3
2,1
5,5
5,3
0,0
"^RELATIVELY FEW PLAYERS WON VERY OFTEN."
5,2
4,3
1,1
2,1
5,6
5,4
0,0
"^GWEN BARELY SCORED THE LAST GOAL."
1,1
5,3
2,1
9,6
4,6
1,2
0,0
"^JANICE ASSEMBLED THE SET TOO QUICKLY."
1,1
2,1
9,4
1,2
5,6
5,2
0,0
"^RATHER QUIETLY, THE OLD REFUGEE BEGAN."
5,2
5,6
9,5
4,5
1,1
2,1
0,0
"^ODDLY, THE MAN WAS MUCH TOO TALL."
5,4
9,3
1,1
2,2
5,6
5,7
4,3
0,0
"^THESE PEOPLE ARE ALL HONEST, USUALLY."
9,2
1,1
2,2
4,2
4,2
5,3
0,0
"^THE INSTRUCTOR ALWAYS SCALED THE GRADES."
9,2
1,1
5,4
2,1
9,6
1,2
0,0
"^MOST PROGRAMS ARE NOT TOO DIFFICULT."
4,2
1,2
2,2
5,3
5,6
4,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/CONJUNCTION.bas:

0 X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT CHR$(13) CHR$(4)"BRUNBPRT-SM-32"
100 REM COPYRIGHT 1980 MECC NAMECONJUNCTION VERSION:10/16/80AUTHOR: DARRELL RICKE
150 HIMEM: 8192
200 D$ = CHR$(13) + CHR$(4): PRINT D$;"NOMONC,I,O": CALL 960: SPEED= 255
250 P0 = -16287:PD = PEEK(1022) = 1:PR = 128:LV = 7:QU$ = CHR$(34): HCOLOR= 3:BO$ = CHR$(16) + CHR$(50) + CHR$(23):NO$ = CHR$(26) + CHR$(16) + CHR$(49)
1000 READ D1$,D2$
2000 GOSUB 40000: GOSUB 40010: GOSUB 40000: GOSUB 40020: GOSUB 40028: PRINT : POKE 1023,7: PRINT CHR$(4)"RUNDRILL"
40000 VTAB 2: HTAB 9: PRINT BO$"C O N J U N C T I O N S"NO$: PRINT : PRINT D1$D2$: HPLOT 0,60 TO 279,60: VTAB 9: PRINT "^EXAMPLE:": RETURN
40010 VTAB 12: HTAB 6: PRINT "^BILL AND ^JANE WON AWARDS.": VTAB 15: HTAB 1: PRINT "^THE CONJUNCTION "QU$"AND"QU$" JOINS "QU$"^BILL"QU$" AND "QU$"^JANE"QU$".": HPLOT 70,108 TO 90,108: GOTO 60000
40020 VTAB 12: HTAB 1: PRINT "^WE SENT MANY INVITATIONS, BUT FEW PEOPLERESPONDED.": PRINT : PRINT "^THE CONJUNCTION "QU$"BUT"QU$" JOINS THE TWO PARTS OF THE SENTENCE."
40025 HPLOT 182,108 TO 202,108: GOTO 60000
40028 VTAB 3: HTAB 2: PRINT "^SOME CONJUNCTIONS HAVE TWO PARTS. ^BE SURE TO COMBINE THESE PAIRS CORRECTLY AS SHOWN BELOW."
40030 VTAB 10: HTAB 2: PRINT "^EXAMPLES:": VTAB 13: HTAB 2: PRINT "^FRANK COULD NEITHER SWIM NOR DANCE.": VTAB 15: HTAB 2: PRINT "^EITHER YOU LEAVE OR ^I'LL QUIT."
40040 VTAB 17: HTAB 2: PRINT "^IT WAS NOT ONLY HOT, BUT HUMID AS WELL.": VTAB 19: HTAB 2: PRINT "^BOTH ^JILL AND ^FRANK WERE TARDY."
40050 HPLOT 0,72 TO 279,72: HPLOT 90,117 TO 138,117: HPLOT 182,117 TO 201,117: HPLOT 7,135 TO 47,135: HPLOT 127,135 TO 137,135: HPLOT 56,153 TO 111,153: HPLOT 154,153 TO 173,153: HPLOT 7,171 TO 35,171: HPLOT 77,171 TO 97,171
50010 DATA "^A CONJUNCTION IS A WORD THAT JOINS WORDS","OR GROUPS OF WORDS:"
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/CONJUNCTIONE.txt:

"^RED AND BLUE ARE COMMON COLORS."
1,2
7,1
3
1,2
2,2
4,6
1,2
0,0
"^THE BOOKS ARE OLD AND FADED."
9,2
1,2
2,2
4,2
7,4
6
4,2
0,0
"^HE CALLED OR WROTE THE COLLEGE."
3,1
2,1
7,2
4
2,1
9,6
1,2
0,0
"^HE WALKED QUICKLY AND BRISKLY."
3,1
2,1
5,2
7,3
5
5,2
0,0
"^SHE AND ^I LEFT THE SCHOOL EARLY."
3,1
7,1
3
3,1
2,1
9,6
1,2
5,4
0,0
"^HE FOUND A PENCIL AND PAPER."
3,1
2,1
9,4
1,2
7,4
6
1,2
0,0
"^COOKIES AND CANDY ARE IN THE DIET."
1,2
7,1
3
1,2
2,2
6,7
9,7
1,2
0,0
"^WE WALKED THE DOG AND THE CAT."
3,1
2,1
9,4
1,2
7,4
7
9,7
1,2
0,0
"^TWO OR THREE WEEKS PASS BEFORE PAYDAY."
4,4
7,1
3
4,4
1,2
2,1
6,7
1,2
0,0
"^NEITHER HE NOR ^I WERE WITH THEM."
7,2
4
3,1
7,2
4
3,1
2,2
6,7
3,1
0,0
"^OATS, WHEAT, OR CORN GROW IN THE FIELD."
1,2
1,2
7,2
4
1,2
2,1
6,8
9,8
1,2
0,0
"^EVERYONE SMILES AND WINKS IN HIS FAMILY."
3,1
2,1
7,2
4
2,1
6,7
9,7
1,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/CONJUNCTIONH.txt:

"^HE BROUGHT A COUPON AND FIVE BOX TOPS."
3,1
2,1
9,4
1,2
7,4
8
4,8
4,8
1,2
0,0
"^THE COW ATE HAY AND THE DUCKS ATE CORN."
9,2
1,2
2,1
1,2
7,2
7
9,7
1,2
2,1
1,2
0,0
"^HE WAITED, YET HE MISSED THE BUS."
3,1
2,1
7,2
5
3,1
2,1
9,7
1,2
0,0
"^RAKE THE LEAVES OR GO TO YOUR ROOM!"
2,1
9,3
1,2
7,1
5
2,1
6,8
9,8
1,2
0,0
"^HE RUNS SLOWLY OR WALKS FAST."
3,1
2,1
5,2
7,2
5
2,1
5,5
0,0
"^HE LIKED READING, SPELLING, AND MATH."
3,1
2,1
1,2
1,2
7,4
6
1,2
0,0
"^YOU SMILED AND WALKED WITH PRIDE."
3,1
2,1
7,2
4
2,1
6,6
1,2
0,0
"^IS ^SAM AT HOME OR IN SCHOOL?"
2,2
1,1
6,4
1,2
7,4
7
6,7
1,2
0,0
"^BOB IS HAPPY, YET HE IS TROUBLED."
1,1
2,2
4,1
7,3
7
3,1
2,2
4,5
0,0
"^I AM TALLER THAN ^JACK."
3,1
2,2
4,1
7,1
5
1,1
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/CREATE TEST.bas:

1 REM *** CREATE TEST *** COPYRIGHT (C) 1981 MECC AUTHOR: A. MCCARTHY VERSION: 81/10/09.
100 HIMEM: 22016: LOMEM: 18757:Z$ = " ":Z = 0:CL = -16368:KE = -16384:CA = 251:PR = 128:LI = 10:WI = 0:UC = 1
105 OK = 60
110 D$ = CHR$(13) + CHR$(4):Z = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(Z) + PEEK(Z +1) *256 < >16406 THEN PRINT D$"BRUNBPRT-SM-32"
120 BO$ = CHR$(16) + CHR$(50):NO$ = CHR$(16) + CHR$(49):BS$ = CHR$(8):CU$ = CHR$(16) +"5." + CHR$(16) +"1"
130 DIM P$(7): FOR Z = 1 TO 7: READ P$(Z): NEXT : DATA NOUN,VERB,PRONOUN,ADJECTIVE,ADVERB,PREPOSITION,CONJUNCTION
140 DIM D$(5),FL(7),Z5(4),Z7(4),Z2(2),S$(OK),SE%(OK),SI%(21)
1000 CALL 960: POKE CASE,UC: HTAB 16: PRINT BO$"CREATE TEST"NO$: POKE CASE,WIPE
1010 PRINT " ^THIS PROGRAM WILL GENERATE A TESTON A PRINTER. ^THE COMPUTER WILL SELECTRANDOMLY FROM THE 154 SENTENCES IN THEFILES FOR NOUNS, VERBS, PRONOUNS, ADJEC-";
1020 PRINT "TIVES, ADVERBS, PREPOSITIONS, AND CON-JUNCTIONS, OR THE FILES FOR SENTENCES TOBE TAKEN FROM CAN BE SPECIFIED. ^UP TO22 SENTENCES MAY BE SELECTED FROM ANYONE FILE.
1030 PRINT " ^A TITLE MUST BE PROVIDED FOR THETEST. ^IN ADDITION, UP TO 5 LINES OFDIRECTIONS FOR STUDENTS MAY BE ENTEREDWHEN CREATING THE TEST.
1040 VTAB 21: PRINT TAB( 7)"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE...": POKE CLR,WIPE: WAIT KEY,PRESS
1050 CALL 960: PRINT "^WHAT IS THE TOTAL NUMBER OF SENTENCES YOU WANT ON THE TEST? ("OK" MAXIMUM)";: VTAB 5: HTAB 23:LI = 4: GOSUB 62000:NS = INT( VAL(A$)): IF NS <1 OR NS >OK THEN 1050
1060 VTAB 8: PRINT "^DO YOU WANT SENTENCES SELECTED RANDOMLY FROM ALL PARTS OF SPEECH (^Y/^N) ";: GOSUB 62000:A$ = LEFT$(A$,1): IF A$ = "N" THEN 1100
1070 IF A$ < >"Y" THEN VTAB 9: HTAB 36: PRINT BS$BS$BS$BS$: GOTO 1060
1080 X = INT(NS/7): FOR Z = 1 TO 7:FL(Z) = X: NEXT :X = NS -7 *X: IF X = 0 THEN 1140
1090 FOR Z = 1 TO X:FL(Z) = FL(Z) +1: NEXT : FOR Z = 1 TO 7:X = INT( RND(1) *(8 -Z) +Z):Y = FL(X):FL(X) = FL(Z):FL(Z) = Y: NEXT : GOTO 1140
1100 OK = NS:X = 1:NS = 0: FOR Z = 1 TO 7:FL(Z) = 0: NEXT : CALL 960
1105 VTAB 4: PRINT "^YOU MAY HAVE UP TO "OK;: HTAB 28: PRINT "SENTENCES (NOMORE THAN 22 SENTENCES FROM EACH PART OFSPEECH).": PRINT "^HOW MANY SENTENCES DO YOU WANT
1109 VTAB 8 +X: GOSUB 19900: IF X >1 THEN PRINT "^HOW MANY ";
1110 PRINT "FROM "P$(X)"S? ";:LI = 10: GOSUB 62000:FL(X) = INT( VAL(A$)):NS = NS +FL(X): VTAB 2: GOSUB 19900: IF NS >OK THEN NS = NS -FL(X):FL(X) = 0: PRINT "^YOU DON'T HAVE THAT MANY SENTENCES.": GOTO 1109
1115 IF FL(X) >22 THEN NS = NS -FL(X):FL(X) = 0: PRINT "^ONLY 22 SENTENCES PER UNIT.": GOTO 1109
1117 IF (FL(X) = 0 AND LEFT$(A$,1) < >"0") OR FL(X) <0 THEN PRINT "^INVALID INPUT.":NS = NS -FL(X): GOTO 1109
1120 VTAB 4: HTAB 22: PRINT BS$BS$OK -NS;: HTAB 23: PRINT "MORE":X = X +1: IF X <8 AND OK >NS THEN 1109
1140 VTAB 17: PRINT "^WHAT TITLE DO YOU WANT ON THE TEST (UP TO 39 CHARACTERS)?":LIMIT = 39: GOSUB 62000:T$ = A$
1200 CALL 960: PRINT " ^ENTER UP TO 5 LINES OF DIRECTIONS. ^WHEN FINISHED, TYPE ^E^N^D.
1210 POKE CASE,1:D$(0) = "DIRECTIONS:" + CHR$(13): VTAB 8: PRINT "0: "D$(0):DL = 0:LI = 76
1220 DL = DL +1: PRINT DL": ";: GOSUB 62000:D$(DL) = A$: IF A$ < >"END" AND DL <5 THEN 1220
1230 IF A$ = "END" THEN DL = DL -1
1240 IF DL = 0 THEN 1400
1300 CALL 960: POKE CASE,1: VTAB 2: FOR Z = 0 TO DL: PRINT Z": "D$(Z): NEXT : POKE CASE,WIPE
1310 VTAB 15: PRINT "^WOULD YOU LIKE TO CHANGE ANY OF THESE DIRECTIONS (^Y/^N)? ";
1320 LI = 10: GOSUB 62000:A$ = LEFT$(A$,1): IF A$ = "N" THEN 1400
1330 IF A$ < >"Y" THEN VTAB 16: HTAB 29: FOR Z = 0 TO 9: PRINT BS$;: NEXT : GOTO 1320
1340 VTAB 18: PRINT "^ENTER LINE# TO CHANGE: ";: GOSUB 62000:LN = INT( VAL(A$)): IF LN <1 OR LN >5 THEN 1300
1345 VTAB 18: HTAB 40: FOR Z = 1 TO 39: PRINT BS$;: NEXT : IF LN >DL THEN 1380
1350 PRINT "^ENTER NEW LINE. ^TYPE ^E^N^D TO REMOVE.": PRINT LN": ";:LI = 76: GOSUB 62000: IF A$ < >"END" THEN D$(LN) = A$: GOTO 1300
1360 IF LN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/DRILL.bas:

100 REM COPYRIGHT (C) 1980 MECC NAME: DRILL VERSION: 81/10/14 AUTHOR: A. MCCARTHY
101 VTAB 10: POKE 251,1: PRINT "O";: POKE 251,0: PRINT "NE MOMENT PLEASE..."
105 HIMEM: 22016: LOMEM: 18694: PRINT : PRINT "BLOADVARIABLES": POKE 107, PEEK(18688): POKE 108, PEEK(18689): POKE 109, PEEK(18690): POKE 110, PEEK(18691): POKE 111, PEEK(18692): POKE 112, PEEK(18693):X = FRE(0)
110 X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT D$"BRUNBPRT-SM-32"
117 FOR Z = 768 TO 782: READ X: POKE Z,X: NEXT : DATA 1,0,4,0,17,23,53,54,13,36,44,28,28,6,0
120 POKE 232,0: POKE 233,3
150 ONERR GOTO 9000
200 SPEED= 255: HCOLOR= 3: ROT= 0: SCALE= 1:PD = PEEK(1022) = 1
260 LV = PEEK(1023): POKE 1023,123: IF LV <1 OR LV >7 THEN PRINT D$"CLOSE": GOTO 1029
500 DEF FN A(Q1) = P(Q1,2) -P(Q1,1) +1
1000 D1$ = X$(LV,1):D2$ = X$(LV,2):TT = VAL(X$(LV,0)):T$ = D$(LV)
1010 PRINT D$"OPEN"T$"E"D$"OPEN"T$"H"
1020 ZT = FRE(0):Z9 = 0: IF SC <4 THEN 1030
1021 PRINT D$"CLOSE"
1022 IF TR = 3 THEN PRINT H$: VTAB 5: PRINT "^CONGRATULATIONS! ^YOU SCORED 100% ON THE ^"T$" ^QUIZ.": GOTO 1026
1024 VTAB 5: PRINT "^YOU HAVE MASTERED THE REVIEW IN "TR: PRINT "SENTENCES."
1026 VTAB 10: PRINT "^DO YOU WANT TO GO ON TO THE NEXT": PRINT "PART OF SPEECH? ";: GOSUB 62000: PRINT H$:A$ = LEFT$(A$,1)
1027 IF A$ = "Y" THEN VTAB 10:A$ = D$(LV +1): HTAB 19 - LEN(A$): PRINT B$;: FOR Z = 1 TO LEN(A$): PRINT MID$ (A$,Z,1)" ";: NEXT : PRINT "S"N$D$"RUN"D$(LV +1)
1028 IF A$ < >"N" THEN 1026
1029 PRINT D$"RUNHELLO"
1030 H = H -(H >2) +(H <0): ON H GOTO 2050,3050
1050 GOSUB 30000: CALL 960
1070 R = INT( RND(1) *NN +1): IF H = 0 THEN VTAB 5
1100 PRINT "^FIND THE "W$(R)T$;: IF LV <3 THEN PRINT " IN THIS SENTENCE";
1105 PRINT ":":VT = 11: GOSUB 30300:WT = 0:T = 0
1110 T = T +1: IF H(T,1) = LV THEN WT = WT +1: IF WT = R THEN 1150
1140 IF T <15 THEN 1110
1150 IF T = V THEN 1250
1160 H = H +1:SC = -1: IF H >1 THEN HPLOT 0,115 TO 279,115
1170 TR = TR +1: HTAB 1: VTAB 15: PRINT "^NO, THE ANSWER IS "Q$ MID$ (S$,P(T,1), FN A(T))Q$".":ZZ = T: GOSUB 6000
1180 IF H(V,1) = 9 AND LV = 4 THEN VTAB 18: PRINT "^REMEMBER, THE WORD "Q$ MID$ (S$,P(V,1), FN A(V))Q$" IS NOT": PRINT "CONSIDERED AN ADJECTIVE.": GOTO 1240
1190 VTAB 18: PRINT "^THE WORD "Q$ MID$ (S$,P(V,1), FN A(V))Q$" IS A";: IF H(V,1) = 4 OR H(V,1) = 5 THEN PRINT "N";
1195 PRINT " ";D$(H(V,1));"."
1200 IF H(V,1) = LV THEN VTAB 19: PRINT "^YOU HAVE CHOSEN THE ";: GOSUB 7000: PRINT T$;".": GOTO 1240
1220 ZZ = V: GOSUB 6000
1240 GOSUB 60000: PRINT H$: PRINT : GOTO 3105
1250 SC = SC +1: IF H = 2 THEN 3100
1255 HTAB 13: VTAB 17: PRINT C$:TR = TR +1: GOSUB 60000:H = H -1: GOTO 1020
2050 GOSUB 30000: PRINT H$: VTAB TT: PRINT D1$: PRINT D2$: VTAB 9:V1 = 13
2052 IF (H = 1) OR (H = 2) THEN FOR I = 1 TO 500: NEXT
2055 HPLOT 0,53 TO 279,53: GOTO 1070
3050 GOSUB 30000: PRINT H$;:N = 1: VTAB TT: HTAB 20 - LEN(T$): PRINT B$;: FOR I = 1 TO LEN(T$): PRINT MID$ (T$,I,1)" ";: NEXT I: PRINT "S"N$: VTAB TT +2: PRINT D1$: PRINT D2$: HPLOT 0,68 TO 279,68: VTAB 9: PRINT "^EXAMPLE:": VTAB 11:Z$ = S$: GOSUB 5000: HTAB 20 - INT(TL/2): PRINT S$;P$
3052 VTAB 13: PRINT "^IN THIS SENTENCE, THE "T$;: IF NN >1 THEN PRINT "S ARE": GOTO 3056
3054 PRINT " IS"
3056 VTAB 15: FOR T = 1 TO TW: IF H(T,1) < >LV THEN 3080
3060 QQ$ = MID$ (S$,P(T,1),P(T,2) -P(T,1) +1):Z$ = QQ$: GOSUB 5000: HTAB 10 -TL/2: PRINT U$QQ$L$;: HTAB 18: ON LV GOTO 3061,3063,3061,3065,3066,3067,3068,3068,3066
3061 PRINT "(TELLS ";: IF H(T,2) >1 THEN PRINT "WHAT)": GOTO 3070
3062 PRINT "WHO)": GOTO 3070
3063 IF H(T,2) <2 THEN PRINT "(ACTION)": GOTO 3070
3064 PRINT "(LINKING)": GOTO 3070
3065 PRINT "(DESCRIBES ";: GOTO 3069
3066 PRINT "(MODIFIES ";: GOTO 3069
3067 PRINT "(";: GOTO 3069
3068 PRINT : GOTO 3070
3069 PRINT MID$ (S$,P(H(T,2),1), FN A(H(T,2)))")"
3070 IF NN <4 THEN PRINT
3080 NEXT T: GOSUB 60000: GOTO 2050
3100 H = H -1: PRINT H$;: HTAB 13: PRINT C$: PRINT :TR = TR +1
3105 NU = 4: PRINT S$P$: FOR T = 1 TO TW: IF H(T,1) >LV THEN 3170
3150 HPLOT P(T,1) *7 -NU,27 TO P(T,1) *7 -NU,9 *(4.5 +(TW -T) *2) TO P(T,1) *7 +9 -NU,9 *(4.5 +(TW -T) *2): VTAB 5 +2 *(TW -T)
3160 HTAB P(T,1) +3 -NU/7: PRINT D$(H(T,1)): PRINT
3162 IF H(T,1) 0 THEN 4010
4020 NEXT I: RETURN
5000 TL = 0: FOR I = 1 TO LEN(Z$): IF ABS( ASC( MID$ (Z$,I,1)) -62) <32 THEN TL = TL +1
5010 NEXT I:TL = TL -2: RETURN
6000 Q1 = H(ZZ,2): ON H(ZZ,1) GOTO 6005,6010,6005,6015,6020,6025,6030,6040,6020
6005 PRINT "^IT ANSWERS THE QUESTION "Q$;: IF Q1 = 1 THEN PRINT "WHO"Q$".": RETURN
6008 PRINT "WHAT"Q$".": RETURN
6010 PRINT "^IT IS A";: IF Q1 = 2 THEN PRINT " LINKING VERB.": RETURN
6012 PRINT "N ACTION VERB.": RETURN
6015 PRINT "^IT DESCRIBES ";: GOTO 6050
6020 PRINT "^IT MODIFIES ";: GOTO 6050
6025 PRINT "^IT RELATES TO ";: GOTO 6050
6030 PRINT "^IT LINKS "Q$ MID$ (S$,P(Q1,1), FN A(Q1))Q$" AND "Q$ MID$ (S$,P(H(ZZ,3),1), FN A(H(ZZ,3)))Q$".
6040 RETURN
6050 PRINT Q$ MID$ (S$,P(Q1,1), FN A(Q1))Q$".": RETURN
7000 ZT = 0: FOR I = 1 TO TW: IF H(I,1) < >LV THEN 7040
7010 IF I < = V THEN ZT = ZT +1: IF (I < >V) AND (I < >TW) THEN 7040
7020 PRINT W$(ZT);: RETURN
7040 NEXT I: RETURN
8000 X = LEN(S$): IF MID$ (S$,X,1) < >" " THEN RETURN
8010 S$ = MID$ (S$,1,X -1): GOTO 8000
9000 PRINT H$D$"CLOSE": IF PEEK(222) < >5 THEN 9010
9002 VTAB 4: PRINT "^YOU SEEM TO BE HAVING DIFFICULTY;": PRINT "WOULD YOU LIKE TO TRY AGAIN? ";: GOSUB 62000:
9004 A$ = LEFT$(A$,1): IF A$ = "Y" THEN POKE 1023,LV: RUN
9005 IF A$ < >"N" THEN PRINT H$: GOTO 9002
9006 PRINT D$"RUNHELLO"
9010 IF PEEK(222) = 255 THEN 9006
9014 PRINT "^ERROR #" PEEK(222)" IN LINE " PEEK(218) + PEEK(219) *256".": END
30000 PRINT D$"READ"T$; CHR$(72 -3 *(SC <1)): INPUT S$: GOSUB 8000:P$ = RIGHT$(S$,1):S$ = MID$ (S$,1, LEN(S$) -1)
30020 V = 1:P(1,1) = 1:P(1,3) = 1:TC = 0: FOR T = 1 TO LEN(S$): IF MID$ (S$,T,1) < >"^" THEN TC = TC +1
30030 IF MID$ (S$,T,1) < >" " THEN 30060
30040 P(V,2) = T -1:V = V +1:P(V,1) = T +1:P(V,3) = TC +1
30060 NEXT T:P(V +1,2) = 99:P(V +1,1) = P(V,1):P(V,2) = LEN(S$):TW = V:NN = 0:T = 1
30070 INPUT H(T,1),H(T,2): IF H(T,1) = 0 THEN 30120
30080 IF H(T,1) = LV THEN NN = NN +1
30090 IF H(T,1) = 7 THEN INPUT H(T,3)
30110 T = T +1: GOTO 30070
30120 IF NN = 0 THEN 30000
30130 RETURN
30300 T1 = 39: VTAB VT: PRINT S$P$:TQ = TQ +1: IF PEEK(7) = 123 THEN 30400
30310 IF PEEK(P0 +PD) > = PR THEN 30310
30320 FOR T2 = 1 TO 10: NEXT :T2 = PDL(PD): FOR T3 = 1 TO TW: IF T2

T1 THEN HCOLOR= 0: DRAW 1 AT (T1 -1) *7,VT *9: HCOLOR= 3: DRAW 1 AT (PZ -1) *7,VT *9:T1 = PZ
30350 IF PEEK(P0 +PD) 1)
30460 PZ = P(T,3) +(P(T,2) -P(T,1))/2: IF PZ < >T1 THEN HCOLOR= 0: DRAW 1 AT (T1 -1) *7,VT *9: HCOLOR= 3: DRAW 1 AT (PZ -1) *7,VT *9:T1 = PZ:
30470 GOTO 30410
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0 +1) > = PR) OR ( PEEK(P0) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN
62000 A$ = "": POKE CLR,WIPE: POKE 251,1: PRINT CU$;
62010 GOSUB 62900: IF Z = 27 THEN UF = 1: GOTO 62010
62020 IF A$ = "" AND Z <32 THEN 62010
62030 IF Z = 8 THEN 62100
62040 IF Z = 24 THEN FOR Z = 0 TO LEN(A$): PRINT BS$;: NEXT : GOTO 62000
62050 IF Z = 13 THEN POKE 251,0: PRINT BS$: RETURN
62060 IF Z <32 OR Z >90 OR LEN(A$) > = LIMIT THEN 62010
62070 IF WIPE = UF AND WIPE = UC AND Z >64 THEN Z = Z +32
62080 PRINT BS$ CHR$(Z)CU$;:A$ = A$ + CHR$(Z):UF = 0: GOTO 62010
62100 PRINT BS$BS$;: IF LEN(A$) <2 THEN 62000
62110 PRINT CU$;:A$ = LEFT$(A$, LEN(A$) -1): GOTO 62010
62900 WAIT KEY,PRESS:Z = PEEK(KEY) -PRESS: POKE CLR,WIPE: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/HELLO.bas:

1 REM HELLO
2 REM VERSION D-1.0
3 REM LAST UPDATE: 10/11/81 AWM
8 REM (C) MECC 1980
11 HIMEM: 8192
15 D$ = CHR$(13) + CHR$(4):BO$ = CHR$(16) + CHR$(50) + CHR$(23):NO$ = CHR$(16) + CHR$(49) + CHR$(26):BS$ = CHR$(8):CU$ = CHR$(16) +"5." + CHR$(16) +"1"
18 P = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(P) + PEEK(P +1) *256 < >16406 THEN PRINT D$"BRUNBPRT-SM-32"
20 NORMAL : SPEED= 255: IF PEEK(1023) = 123 THEN 100
25 CALL 960: POKE -16303,0: PRINT D$"BLOAD LOGO": POKE -16302,0: POKE -16304,0: POKE -16368,0: FOR Z = 1 TO 400:Z = Z +500 *( PEEK( -16384) >127): NEXT
50 PRINT D$"NOMON CIO"
100 CL = -16368:KE = -16384:PR = 128:UC = 1:LI = 2:WI = 0
110 RESTORE : READ T$,N:N = N +1: DIM N$(N,2)
115 POKE 7,123 *( PEEK( -16287) >127 AND PEEK( -16286) >127)
120 FOR T = 1 TO N -1: FOR C = 0 TO 2: READ N$(T,C): NEXT : NEXT :N$(N,0) = "^END"
200 CALL 960: VTAB 2: HTAB 20 - LEN(T$)/2: PRINT BO$T$
205 VTAB 3: HTAB 11: PRINT CHR$(26)"^AVAILABLE ^PROGRAMS"NO$: VTAB 6
210 FOR T = 1 TO N: IF 2 *T >N +1 THEN HTAB 20
250 IF T <10 THEN PRINT " ";
260 PRINT T" "N$(T,0)
268 IF T = INT((N +1)/2) THEN VTAB 6
270 NEXT T: IF PEEK(1023) = 123 THEN 280
278 POKE -16368,0: POKE 1023,123
280 VTAB 12: HTAB 1: PRINT "^TYPE THE NUMBER OF THE PROGRAM YOU WANT.": PRINT "(^IF YOU WANT DESCRIPTIONS, TYPE '^D') ";
290 GOSUB 500
300 IF A$ = "D" THEN 800
440 Q = ZN
450 IF Q >0 AND Q LEN( STR$( VAL(A$))) THEN 520
510 IF VAL(A$) < >0 OR A$ = "0" THEN ZN = VAL(A$): RETURN
520 IF A$ = "D" THEN ZN = 0: RETURN
530 VTAB 20: GOSUB 550: PRINT "^THAT IS NOT A NUMBER - TRY AGAIN";: GOTO 500
550 HTAB 40: PRINT " ";: FOR Z = 1 TO 40: PRINT BS$;: NEXT : RETURN
600 CALL 960
610 VTAB 10: PRINT "^DO YOU WANT TO RUN ANOTHER": PRINT : PRINT "DISKETTE (^Y/^N)? ";:LI = 10: GOSUB 62000:A$ = LEFT$(A$,1)
620 IF A$ = "Y" THEN CALL 960: VTAB 10: PRINT "^INSERT THE NEW DISKETTE.": GOSUB 20500: GOTO 720
630 IF A$ < >"N" THEN 610
670 PRINT CHR$(29): TEXT : HOME : NEW
720 A = PEEK(999) + PEEK(1000) *256
730 B = PEEK(A) + PEEK(A +1) *256
740 CS = PEEK(B +1)/16: REM SLOT #
750 IF CS <1 OR CS >7 THEN CS = 6
760 PR# CS
770 END
800 REM DESCRIPTIONS
810 CALL 960
815 VTAB 2: HTAB 14: PRINT BO$"DESCRIPTIONS"NO$: VTAB 4
820 FOR T = 2 TO N -1: IF PEEK(37) >15 THEN GOSUB 20500: HTAB 14: VTAB 2: PRINT BO$"DESCRIPTIONS"NO$: VTAB 4
830 PRINT N$(T,0)":": PRINT N$(T,2)
835 PRINT : NEXT T: GOSUB 20500
840 GOTO 200
20500 POKE -16368,0
20510 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
20520 IF PEEK( -16384) < >160 THEN 20520
20530 CALL 960: RETURN
50000 DATA "ENGLISH VOLUME 1",9,^INSTRUCTIONS,INTRO,0
50010 DATA ^NOUNS,NOUN," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO NAME A PERSON, PLACE, THING, OR IDEA."
50020 DATA ^VERBS,VERB," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO EXPRESS ACTION OR LINKAGE IN A SENTENCE."
50030 DATA ^PRONOUNS,PRONOUN," ^A DIAGNOSTIC QUIZ AND LESSON OF WORDS USED IN PLACE OF A NOUN OR ANOTHER PRONOUN."
50040 DATA ^ADJECTIVES,ADJECTIVE," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO DESCRIBE OR MODIFY A NOUN OR PRONOUN."
50050 DATA ^ADVERBS,ADVERB," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO MODIFY A VERB, ADJECTIVE, OR ANOTHER ADVERB."
50060 DATA ^PREPOSITIONS,PREPOSITION," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO BEGIN A PHRASE WHICH SHOWS RELATIONSHIPS OR DIRECTION AND ARE RELATED TO SOME OTHER PART OF THE SENTENCE."
50070 DATA ^CONJUNCTIONS,CONJUNCTION," ^A DIAGNOSTIC QUIZ AND REVIEW OF WORDS USED TO JOIN WORDS OR GROUPS OF WORDS."
50080 DATA ^INTERJECTIONS,INTERJECTION," ^A DEMONSTRATION OF WORDS USED TO EXPRESS EMOTION THAT HAVE NO GRAMMATICAL RELATION TO OTHER WORDS IN THE SENTENCE."
62000 A$ = "": POKE CLR,WIPE: POKE 251,1: PRINT CU$;
62010 GOSUB 62900: IF Z = 27 THEN UF = 1: GOTO 62010
62015 IF Z = 1 THEN CALL 960: PRINT D$"RUN CREATE TEST"
62020 IF A$ = "" AND Z <32 THEN 62010
62030 IF Z = 8 THEN 62100
62040 IF Z = 24 THEN FOR Z = 0 TO LEN(A$): PRINT BS$;: NEXT : GOTO 62000
62050 IF Z = 13 THEN POKE 251,0: PRINT BS$: RETURN
62060 IF Z <32 OR Z >90 OR LEN(A$) > = LIMIT THEN 62010
62070 IF WIPE = UF AND WIPE = UC AND Z >64 THEN Z = Z +32
62080 PRINT BS$ CHR$(Z)CU$;:A$ = A$ + CHR$(Z):UF = 0: GOTO 62010
62100 PRINT BS$BS$;: IF LEN(A$) <2 THEN 62000
62110 PRINT CU$;:A$ = LEFT$(A$, LEN(A$) -1): GOTO 62010
62900 WAIT KEY,PRESS:Z = PEEK(KEY) -PRESS: POKE CLR,WIPE: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/INTERJECTION.bas:

100 REM COPYRIGHT 1981 MECC NAMEINTERJECTION VERSION:81/9/30AUTHOR: A. MCCARTHY
150 HIMEM: 8192:D$ = CHR$(13) + CHR$(4):X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT D$"BRUN BPRT-SM-32"
160 SPEED= 255: HCOLOR= 3:HO$ = CHR$(12):QU$ = CHR$(34):BO$ = CHR$(16) + CHR$(50):NO$ = CHR$(16) + CHR$(49):P0 = -16287:PD = PEEK(1022) = 1:PR = 128
170 CALL 960: GOSUB 60200
1000 VTAB 4: PRINT "^AN INTERJECTION IS A WORD THAT EXPRESSESEMOTION AND HAS NO GRAMMATICAL RELATION TO OTHER WORDS IN THE SENTENCE.": HPLOT 0,85 TO 279,85
1010 VTAB 12: PRINT " ^INTERJECTIONS CAN BE FOLLOWED BY EXPLANATION POINTS OR COMMAS.": VTAB 16: PRINT "^WELL! ^I HOPE YOU'RE HAPPY. (EMOTIONAL)^WELL, ^I DON'T KNOW. (NEUTRAL)": GOSUB 60000
2000 VTAB 7: PRINT "^EXAMPLES:": FOR X = 1 TO 17: HCOLOR= 0: FOR Z = 81 TO 90: HPLOT 0,Z TO 279,Z: NEXT : HCOLOR= 3
2010 VTAB 10: READ X$: PRINT TAB( 19 - LEN(X$)/2)"^"X$"!": FOR Z = 1 TO 400: NEXT : NEXT
2020 VTAB 14: PRINT TAB( 9)"(^YOU MADE IT THROUGH THE": PRINT TAB( 12)"PARTS OF SPEECH.)": GOSUB 60000
3000 VTAB 7: PRINT " ^KEEP IN MIND THAT A GIVEN WORD CAN FUNCTION AS MORE THAN ONE PART OF SPEECH. ^HERE IS A CURIOUS EXAMPLE..."
3010 HPLOT 20,45 TO 259,45 TO 259,127 TO 20,127 TO 20,45: GOSUB 60000
4000 VTAB 5: PRINT TAB( 7)"^AS TEARS "BO$"WELL"NO$" UP IN HER": PRINT TAB( 7)"EYES, THE GIRL BY THE "BO$"WELL"NO$
4010 PRINT TAB( 7)"EXCLAIMS, "QU$BO$"^WELL"NO$"! ^YOU": PRINT TAB( 7)"CERTAINLY LOOK "BO$"WELL"NO$" AND SEEM": PRINT TAB( 7)"TO BE DOING "BO$"WELL."NO$QU$
4020 HPLOT 104,45 TO 131,45: HPLOT 195,63 TO 222,63: HPLOT 118,81 TO 145,81: HPLOT 146,99 TO 173,99: HPLOT 125,117 TO 152,117
4030 VTAB 16: PRINT "^IN THIS SENTENCE, THE WORD "QU$"WELL"QU$" FUNC- TIONS AS FIVE DIFFERENT PARTS OF SPEECH:A VERB, A NOUN, AN INTERJECTION, AN ADJECTIVE, AND AN ADVERB.": GOSUB 60000
5000 VTAB 8: PRINT "^YOU HAVE COMPLETED THE PARTS OF SPEECH.
5010 IF PEEK(7) = 123 THEN PRINT "^PRESS THE SPACE BAR TO RETURN TO THE MENU.": POKE -16368,0: GOSUB 60170: GOTO 5030
5020 PRINT "^PRESS THE BUTTON TO RETURN TO THE MENU.": GOSUB 60020
5030 CALL 960: PRINT D$"RUNHELLO"
50000 DATA ZOUNDS,CURSES,SHUCKS,SHA-ZAM,OH,HOLY SMOKE,BOY,UFF-DA,ACHTUNG,OUCH,OK,PHEW,SACRE BLEU,UGH,OYVEY,CARAMBA,WOW
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 GOTO 60200
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 PRINT HO$: HTAB 8: PRINT CHR$(23)BO$"I N T E R J E C T I O N S" CHR$(26)NO$: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/INTRO.bas:

1 REM REM COPYRIGHT (C) 1890 MECC NAME: INTRO VERSION: 81/10/11 AWM AUTHOR: DARREL RICKE
9 REM LAST UPDATE: 81/11/24 AWM
150 HIMEM: 8192: DIM P(5,2)
200 D$ = CHR$(13) + CHR$(4): PRINT D$;"NOMONCIO": NORMAL : HOME :UC$ = CHR$(23):LC$ = CHR$(26):PN$ = CHR$(16): SPEED= 255
250 CR = 13:P0 = -16287:PD = 0:PR = 128:QU$ = CHR$(34)
275 IF PEEK(2966 + PEEK(54) + PEEK(55) *256) + PEEK(2967 + PEEK(54) + PEEK(55) *256) *256 < >16406 THEN PRINT D$"BRUN BPRT-SM-32"
300 ZR = 0: PRINT D$"BLOADPADDLE,A$5000": SCALE= 1: ROT= 0: HCOLOR= 3: POKE 232,0: POKE 233,80
800 CALL 960: VTAB 3: HTAB 14: PRINT UC$PN$"2THE PARTS OF": VTAB 5: HTAB 17: PRINT "SPEECH"LC$PN$"1": HPLOT 85,12 TO 180,12 TO 180,49 TO 85,49 TO 85,12
810 VTAB 9: PRINT " ^THE FOLLOWING DRILLS REVIEW THE MOST FUNDAMENTAL ELEMENTS OF GRAMMAR -- THE PARTS OF SPEECH. ^THE PARTS OF SPEECH NAME WORDS ACCORDING TO THEIR FUNCTION IN THE SENTENCE.": GOSUB 60100
830 VTAB 2: PRINT " ^EACH DRILL BEGINS WITH A DIAGNOSTIC QUIZ OF THREE QUESTIONS. ^WITH A PER- FECT SCORE ON EACH QUIZ, THE 7 DRILLS CAN BE COMPLETED IN 21 SENTENCES. ^YOU
835 PRINT "CAN MASTER THE DRILLS WITH A LESS THAN PERFECT SCORE. ^THE COMPUTER WILL TELL YOU HOW MANY SENTENCES YOU USE TO ACHIEVE MASTERY."
840 GOSUB 60100
1000 FOR J = 1 TO 4: READ P(J,1): NEXT J: FOR J = 1 TO 4: READ P(J,2): NEXT J
1010 IF PEEK(7) = 123 THEN 3000
2300 CALL 960: VTAB 2: PRINT " ^IN THESE DRILLS, YOU WILL NEED TO USE THE BUTTON AND DIAL ON THE GAME CONTROLS. ^THE GAME CONTROLS ARE THE BLACK DEVICES ATTACHED TO THE ^A^P^P^L^E. ^THEY LOOK LIKE THIS:"
2310 DRAW 1 AT 160,160: DRAW 2 AT 163,116
2320 GOSUB 60100
2500 CALL 960: VTAB 3: PRINT " ^PICK UP ONE OF THE CONTROLS AND PRESSTHE BUTTON.": DRAW 1 AT 160,128: DRAW 2 AT 163,84: VTAB 13: HTAB 1: PRINT "BUTTON"
2501 VTAB 14: HTAB 12: PRINT CHR$(17): HPLOT 45,107 TO 82,107
2505 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 2505
2520 IF PEEK(P0 +PD) AND TO INDICATE THAT YOU HAVE FINISHED READING A SCREEN OF INFORMATION.": GOSUB 60000
2600 CALL 960: VTAB 1: HTAB 1: PRINT " ^IN MANY DRILLS YOU WILL BE ASKED TO POINT OUT WORDS. ^TO DO THIS YOU USE THE DIAL ON THE GAME CONTROL.": VTAB 9: PRINT "^LOOK AT THIS SENTENCE:"
2610 VTAB 15: HTAB 1: PRINT " ^TURN THE DIAL AND WATCH WHAT HAPPENS TO THE ARROW BELOW THE SENTENCE.": VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE.";: GOSUB 30300
2700 CALL 960: VTAB 3: PRINT " ^USE THE DIAL TO MOVE THE POINTER. ^PRESS THE BUTTON WHEN YOU HAVE MADE YOUR SELECTION."
2702 PRINT "^FIND THE ^T^H^I^R^D WORD IN THIS SENTENCE:
2705 GOSUB 30300
2710 HCOLOR= 0: FOR ZZ = 126 TO 134: HPLOT 0,ZZ TO 279,ZZ: NEXT : HCOLOR= 3: IF T < >3 THEN VTAB 15: HTAB 1: PRINT "^THAT IS NOT THE RIGHT WORD - TRY AGAIN.": GOTO 2705
2800 CALL 960: VTAB 8: HTAB 8: PRINT "^THAT IS ABOUT ALL THERE": PRINT : HTAB 8: PRINT "IS TO IT. ^GOOD LUCK WITH": PRINT : HTAB 8: PRINT "THE ^ENGLISH ^COMPOSITION"
2810 PRINT : HTAB 8: PRINT "DRILLS.": GOSUB 60000
2820 POKE 1022,PD: PRINT D$"RUN HELLO"
3000 CALL 960: VTAB 3: PRINT " ^IN THESE DRILLS YOU WILL NEED TO USE THE "QU$"ARROW KEYS"QU$" ON THE RIGHT SIDE OF YOUR ^APPLE KEYBOARD. ^THEY ARE DIRECTLY BELOW THE "QU$UC$"RETURN"QU$LC$" KEY."
3005 VTAB 12: HTAB 24: PRINT UC$"RETURN"LC$: HPLOT 147,91 TO 216,91 TO 216,114 TO 147,114 TO 147,92 TO 215,92 TO 215,113 TO 148,113 TO 148,92
3006 FOR X = -1 TO 1 STEP 2: HPLOT 165 -42 *X,123 TO 165 -4 *X,123 TO 165 -4 *X,146 TO 165 -42 *X,146 TO 165 -42 *X,124 TO 165 -5 *X,124 TO 165 -5 *X,145 TO 165 -41 *X,145 TO 165 -41 *X,124: HPLOT 165 -36 *X,134 TO 165 -11 *X,134 TO 165 -11 *X,135 TO 165 -36 *X,135
3007 NEXT : FOR X = 1 TO 6: HPLOT 126 +X,134 +X TO 126 +X,135 -X: HPLOT 203 -X,135 -X TO 203 -X,134 +X: NEXT : GOSUB 60100
3010 CALL 960: VTAB 7: PRINT "^LOOK AT THIS SENTENCE:": VTAB 15: PRINT "^PRESS THE LEFT OR RIGHT ARROW KEYS TO MOVE THE POINTER.
3015 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE.";:CR = 32: GOSUB 35000:CR = 13
3020 CALL 960: VTAB 3: PRINT "^USE THE ARROW KEYS TO MOVE THE POINTER. ^PRESS "QU$UC$"RETURN"QU$LC$" WHEN YOU HAVE MADE YOUR SELECTION.": PRINT "^FIND THE ^T^H^I^R^D WORD IN THIS SENTENCE:": GOSUB 35000
3030 HCOLOR= 0: FOR ZZ = 90 TO 98: HPLOT 0,ZZ TO 279,ZZ: NEXT : FOR ZZ = 126 TO 134: HPLOT 0,ZZ TO 279,ZZ: NEXT : HCOLOR= 3: IF V = 3 THEN 2800
3040 VTAB 15: HTAB 1: PRINT "^THAT IS NOT THE RIGHT WORD - TRY AGAIN.": GOSUB 35000: GOTO 3030
30300 T1 = 39: VTAB 12: HTAB 11: PRINT "^JOHNNY CAME MARCHING HOME."
30305 IF PEEK(P0 +PD) > = PR THEN 30305
30310 FOR T2 = 1 TO 10: NEXT :T2 = PDL(PD): FOR T = 1 TO 4: IF T2

T1 THEN HCOLOR= 0: DRAW 3 AT (T1 -1) *7,108: HCOLOR= 3: DRAW 3 AT (PZ -1) *7,108
30360 IF PEEK(P0 +PD) > = PR THEN V = T: RETURN
30370 T1 = PZ: GOTO 30310
35000 T1 = 39:T = 1: VTAB 10: HTAB 12: PRINT "^JOHNNY CAME MARCHING HOME.";
35010 POKE -16368,0
35015 GOTO 35070
35020 POKE -16368,0
35025 Z = PEEK( -16384) -128: ON (Z = 8) +(Z = 21) *2 +(Z = CR) *3 GOTO 35040,35050,35060
35030 GOTO 35025
35040 T = T -(T >1): GOTO 35070
35050 T = T +(T <4): GOTO 35070
35060 V = T: RETURN
35070 PZ = P(T,2): IF PZ < >T1 THEN HCOLOR= 0: DRAW 3 AT (T1 -1) *7,90: HCOLOR= 3: DRAW 3 AT (PZ -1) *7,90
35080 T1 = PZ: GOTO 35020
40000 DATA 75,175,250,256
40010 DATA 14,20,27,34
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/NOUN.bas:

1 REM COPYRIGHT 1980 MECC NAME: NOUN VERSION:10/16/80AUTHOR: DARRELL RICKE
2 REM LAST UPDATE: 81/9/14 AWM
100 PRINT :X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT CHR$(4)"BRUNBPRT-SM-32"
110 PR = 128:P0 = -16287:PD = PEEK(1022): IF PD >1 THEN PD = 0
1000 PRINT CHR$(12): HTAB 15: PRINT CHR$(16)"2^N ^O ^U ^N ^S" CHR$(16)"1"
1010 PRINT "^A NOUN IS A WORD USED TO NAME A PERSON, PLACE, THING, OR IDEA. ^A NOUN ANSWERS
1030 PRINT "THE QUESTIONS " CHR$(34)"WHO?" CHR$(34)" OR " CHR$(34)"WHAT?" CHR$(34)".
1040 PRINT "^EXAMPLES: ^BILL, ^IOWA, DESK, BEAUTY
1050 HCOLOR= 3: HPLOT 0,81 TO 279,81
1060 VTAB 11: PRINT " ^THE MAGAZINES WERE ON THE SHELF.
1065 HPLOT 42,100 TO 104,100: HPLOT 196,100 TO 230,100
1070 PRINT "^IN THIS SENTENCE, THE NOUNS ARE
1080 HTAB 16: PRINT "^M^A^G^A^Z^I^N^E^S (TELLS WHAT)
1090 HTAB 18: PRINT "^S^H^E^L^F (TELLS WHAT)
2000 GOSUB 60000: PRINT : POKE 1023,1: PRINT CHR$(4)"RUN DRILL"
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN
61200 ZT = 0: FOR I = 1 TO TW: IF H%(I,1) < >LV THEN 61240
61210 IF I < = V THEN ZT = ZT +1: IF (I < >V) AND (I < >TW) THEN 61240
61220 PRINT W$(ZT);: RETURN
61240 NEXT I: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/NOUNE.txt:

"^FISH SEEK DEEP WATER IN THE SUMMER."
1,2
2,1
4,4
1,2
6,7
9,7
1,2
0,0
"^ELMS ARE VERY GRACEFUL TREES."
1,2
2,2
5,4
4,5
1,2
0,0
"^JOAN GAVE US A BASKET FOR THE PLAY."
1,1
2,1
3,1
9,5
1,2
6,8
9,8
1,2
0,0
"^TRUTH IS OFTEN VERY ELUSIVE."
1,2
2,2
5,4
5,5
4,1
0,0
"^THE WATER WAS CLEAR AND COLD."
9,2
1,2
2,2
4,2
7,4
6
4,2
0,0
"^ARNOLD DIED."
1,1
2,1
0,0
"^THE CAT IS HAPPY."
9,2
1,2
2,2
4,2
0,0
"^I WALKED FOR A MILE TO SCHOOL."
3,1
2,1
6,5
9,5
1,2
6,7
1,2
0,0
"^INTEGRITY IS AN ADMIRABLE TRAIT."
1,2
2,2
9,5
4,5
1,2
0,0
"^THE CLOCK CHIMES LOUDLY."
9,2
1,2
2,1
5,3
0,0
"^CLARENCE FINISHED THE BOOK EARLY."
1,1
2,1
9,4
1,2
5,2
0,0
"^DOGS RUN VERY FAST."
1,2
2,1
5,4
5,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/NOUNH.txt:

"^THE PRINT IN THAT BOOK IS VERY SMALL."
9,2
1,2
6,2
9,5
1,2
2,2
5,8
4,2
0,0
"^IN THE NORTH PART OF ^OHIO IS A PARK."
6,4
9,4
4,4
1,2
6,6
1,2
2,2
9,9
1,2
0,0
"^ON ^FRIDAY ^I HAVE A CLASS IN THAT ROOM."
6,2
1,2
3,1
2,1
9,6
1,2
6,9
9,9
1,2
0,0
"^A LITTLE WOMAN IN A PRINT DRESS CAME."
9,3
4,3
1,1
6,7
9,7
4,7
1,2
2,1
0,0
"^MADELYN OFTEN GIVES US VAGUE ANSWERS."
1,1
5,3
2,1
3,1
4,6
1,2
0,0
"^USUALLY HER VOICE IS STRONG AND CLEAR."
5,4
9,3
1,2
2,2
4,3
7,5
7
4,3
0,0
"^HE WAS FORMERLY A TEACHER OF ^ENGLISH."
3,1
2,2
5,2
9,5
1,1
6,7
1,2
0,0
"^INTEGRITY SEEMS OF LITTLE VALUE TODAY."
1,2
2,2
6,5
4,5
1,2
5,2
0,0
"^A CAR AND A VAN CRASHED NEAR THE SCHOOL."
9,2
1,2
7,2
5
9,5
1,2
2,1
6,9
9,9
1,2
0,0
"^THE ASSIGNMENT WAS SO DIFFICULT."
9,2
1,2
2,2
5,5
4,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PADDLE.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 03 00 1A 00 87 02 59 03 00 00 00 00 00 00 00 00 ......Y. ........
$000010 00 00 00 00 00 00 00 00 00 00 3F 3F 3F 3F 3F 3F ........ ..??????
$000020 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????? ????????
$000030 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3D 3F 3C ???????? ?????=?<
$000040 27 27 27 27 24 24 24 24 24 24 25 24 25 25 2C 24 ''''$$$$ $$%$%%,$
$000050 25 25 2C 24 25 25 2C 24 25 25 2C 24 25 25 2C 24 %%,$%%,$ %%,$%%,$
$000060 25 25 2C 2C 25 25 25 2D 2C 2C 2C 2D 2C 25 2D 2D %%,,%%%- ,,,-,%--
$000070 2C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ,------- --------
$000080 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000090 2E 2D 2E 2E 35 35 35 35 2E 36 36 3E 3E 36 37 3E .-..5555 .66>>67>
$0000A0 36 37 3E 36 3E 36 37 3E 36 37 3E 36 3E 36 37 3E 67>6>67> 67>6>67>
$0000B0 36 37 3E 36 37 3E 3E 3E 36 37 37 37 37 37 3F 3E 67>67>>> 677777?>
$0000C0 3F 07 80 01 80 80 01 80 80 01 80 80 01 80 80 01 ?....... ........
$0000D0 80 80 01 80 80 01 80 80 01 80 80 01 80 80 01 80 ........ ........
$0000E0 80 01 80 80 01 80 80 01 80 80 01 80 80 01 80 80 ........ ........
$0000F0 01 80 80 01 80 80 01 80 80 01 80 80 01 80 80 01 ........ ........
$000100 80 80 01 80 80 01 80 80 01 80 80 01 80 80 01 80 ........ ........
$000110 80 01 80 35 36 37 3E 36 37 3E 3E 36 37 3E 36 37 ...567>6 7>>67>67
$000120 37 3E 36 37 3E 36 37 37 3E 36 37 3E 3E 36 37 3F 7>67>677 >67>>67?
$000130 3E 36 3F 3E 3E 37 3F 3E 37 3F 2D 3F 3F 3F 3F 3F >6?>>7?> 7?-?????
$000140 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????? ????????
$000150 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3C 27 ???????? ??????<'
$000160 3F 3C 24 24 25 2C 24 25 2C 24 2C 24 25 2C 24 25 ?<$$%,$% ,$,$%,$%
$000170 3F 27 3F 3C 27 27 27 27 24 27 24 3C 24 25 24 2D ?'?<'''' $'$<$%$-
$000180 24 25 25 2C 24 25 2C 2C 24 25 25 25 25 25 35 35 $%%,$%,, $%%%%%55
$000190 35 3E 37 37 37 3E 37 3E 3E 36 37 3E 36 37 3E 2D 5>777>7> >67>67>-
$0001A0 36 2E 2E 2D 36 35 2D 2E 2E 3C 3F 3C 3F 34 34 26 6..-65-. . $0001B0 25 27 3F 24 37 37 2C D4 9A D3 22 2D 3F 56 8A 51 %'?$77,T .S"-?V.Q
$0001C0 2A 24 3D 3E 3E 25 0D 80 09 80 09 80 01 80 09 80 *$=>>%.. ........
$0001D0 09 80 01 80 09 80 09 80 01 80 09 80 09 80 09 80 ........ ........
$0001E0 3E 36 37 37 3E 36 37 37 3E 36 37 37 3E 36 37 37 >677>677 >677>677
$0001F0 3E 3E 2E 2D 2D 2D 2D 2D 24 25 2C 24 25 2C 24 25 >>.----- $%,$%,$%
$000200 24 25 2C 24 25 2C 24 25 3F 3F 3F D7 D2 D2 D2 D2 $%,$%,$% ???WRRRR
$000210 D2 D2 9A 9A 9A 9A 9A 9A 9A 13 0D 80 3F 36 3E 3D RR...... ....?6>=
$000220 35 2D 2D 25 25 3C 3C 3C BE 11 34 34 27 35 2C 3E 5--%%<<< >.44'5,>
$000230 04 80 80 01 80 80 80 01 80 80 80 01 80 80 01 80 ........ ........
$000240 37 2C 2E 35 25 25 3F 3F 2D 3F 2D 3D 3C 3D 34 2F 7,.5%%?? -?-=<=4/
$000250 2E 35 25 3D 34 80 80 80 03 80 36 2D E4 35 35 1C .5%=4... ..6-d55.
$000260 80 3C 2E 2D 80 80 03 80 2F 2E 26 27 27 2C 3E 2E .<.-.... /.&'',>.
$000270 05 80 80 80 03 80 35 35 25 80 80 80 80 80 3E 36 ......55 %.....>6
$000280 6D 80 3C 26 37 00 01 2F 35 2D 2E 36 35 35 36 36 m.<&7../ 5-.65566
$000290 36 37 3E 3E 3E 37 37 3F 3E 3E 37 3F 3F 3E 3F 3F 67>>>77? >>7??>??
$0002A0 3E 3F 3F 3F 3F 3F 3F 3F 3F 3C 3F 3F 27 27 3F 3C >??????? ? $0002B0 27 27 27 27 27 27 24 24 2C 24 25 25 2C 25 25 25 ''''''$$ ,$%%,%%%
$0002C0 2D 2C 25 4D 4A 4A 4A 4A 51 51 51 51 51 89 89 89 -,%MJJJJ QQQQQ...
$0002D0 89 49 3A 3E 37 37 3F 3F 3E 3F 3F 3F 3F 3F 3F 3F .I:>77?? >???????
$0002E0 3F 3F 3C 3F 3C 27 3F 04 80 3C 24 24 24 25 25 25 ?? $0002F0 65 89 49 4A 51 49 4A 51 89 49 51 89 49 4A 89 25 e.IJQIJQ .IQ.IJ.%
$000300 25 34 37 3E 3E 3E 37 37 25 25 2D 24 25 25 24 24 %47>>>77 %%-$%%$$
$000310 3C 24 27 2E 96 93 9A 37 3D 3D 37 37 3F 3E 3F 3E <$'....7 ==77?>?>
$000320 3F 37 3F 3F 3F 3F 3F 3F 3C 3F 27 3F 27 27 3F 3C ?7?????? $000330 24 27 24 2C 24 25 25 2D 2C 2C 25 2D 2C 2D 2D 2C $'$,$%%- ,,%-,--,
$000340 2D 2D 2D 2D 2D 35 2D 2D 2E 2D 2E 2E 35 2E 36 35 -----5-- .-..5.65
$000350 3E 36 3E 3E 3E 37 37 07 00 11 17 35 36 0D 24 2C >6>>>77. ...56.$,
$000360 1C 1C 06 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
** END **

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PREPOSITION.bas:

0 X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT : PRINT CHR$(4)"BRUNBPRT-SM-32"
1 HIMEM: 8192:P0 = -16287:PD = PEEK(1022) = 1:PR = 128: HCOLOR= 3
2 QU$ = CHR$(34):BO$ = CHR$(23) + CHR$(16) + CHR$(50):NO$ = CHR$(26) + CHR$(16) + CHR$(49)
3 REM PREPOSITION
5 READ D1$,D2$
10 PRINT CHR$(12): GOSUB 5000: GOSUB 5020
15 PRINT CHR$(12): GOSUB 5000: GOSUB 5030
20 POKE 1023,6: PRINT : PRINT CHR$(4)"RUN DRILL"
5000 VTAB 2: HTAB 9: PRINT BO$"P R E P O S I T I O N S"NO$: PRINT : PRINT D1$: PRINT D2$
5010 HPLOT 0,85 TO 279,85: RETURN
5020 VTAB 12: PRINT "^JANE ARRIVED BEFORE THE PICNIC.": VTAB 14: PRINT "^THE PREPOSITION "QU$"BEFORE"QU$" RELATES TO THE WORD "QU$"PICNIC"QU$".": PRINT "^THE WORD "QU$"PICNIC"QU$" IS THE OBJECT OF THE
5021 HPLOT 91,109 TO 132,109: PRINT "PREPOSITION "QU$"BEFORE"QU$".": GOTO 60000
5030 VTAB 12: PRINT "^THE KIT WITH INSTRUCTIONS IS EXPENSIVE.": VTAB 15: PRINT "^THE PREPOSITION IS "QU$"WITH"QU$". ^THE OBJECT": VTAB 17: PRINT "OF THE PREPOSITION IS "QU$"INSTRUCTIONS"QU$"."
5040 HPLOT 56,109 TO 83,109
50020 DATA "^A PREPOSTION IS USED TO BEGIN A PHRASE. ^PREPOSITIONS ARE WORDS WHICH SHOW RELATIONSHIPS OR DIRECTION.","^EXAMPLES: TO, ACROSS, UPON, EXCEPT, IN"
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PREPOSITIONE.txt:

"^THAT WEEK IS THE WEEK BEFORE FINALS."
9,2
1,2
2,2
9,5
1,2
6,7
1,2
0,0
"^HE SENT A LETTER TO HIS BROTHER."
3,1
2,1
9,4
1,2
6,7
9,7
1,1
0,0
"^COOKIES AND CANDY ARE IN THE DIET."
1,2
7,1
3
1,2
2,2
6,7
9,7
1,2
0,0
"^THAT PAINTING BURNED WITH OUR HOUSE."
9,2
1,2
2,1
6,6
9,6
1,2
0,0
"^THE KID IN THE BLUE SUIT IS MY SON."
9,2
1,1
6,6
9,6
4,6
1,2
2,2
9,8
1,1
0,0
"^JANICE ATE A BUNCH OF FRESH GRAPES."
1,1
2,1
9,4
1,2
6,7
4,7
1,2
0,0
"^WITHOUT A DOUBT, THAT WAS A MISTAKE."
6,3
9,3
1,2
3,2
2,2
9,7
1,2
0,0
"^RENAE TOOK THE OFFER AT FACE VALUE."
1,1
2,1
9,4
1,2
6,7
4,7
1,2
0,0
"^DO TROLLS REALLY LIVE UNDER BRIDGES?"
2,1
1,2
5,4
2,1
6,6
1,2
0,0
"^HE ALWAYS REVIEWS THROUGHOUT THE TERM."
3,1
5,3
2,1
6,6
9,6
1,2
0,0
"^AFTER ALL THE SCREAMING, SHE LEFT."
6,4
9,4
9,4
1,2
3,1
2,1
0,0
"^THEY WON THE GAME FOR THE COACH."
3,1
2,1
9,4
1,2
6,7
9,7
1,1
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PREPOSITIONH.txt:

"^IN WHAT PART OF ^AFRICA IS THE ^CONGO?"
6,3
4,3
1,2
6,5
1,2
2,2
9,8
1,2
0,0
"^THAT KIND OF ANSWER IS NEAR THE END."
9,2
1,2
6,4
1,2
2,2
6,8
9,8
1,2
0,0
"^HE FOUGHT AGAINST THE REVOLUTION."
3,1
2,1
6,5
9,5
1,2
0,0
"^TWILIGHT IS A TIME FOR GREATER CAUTION."
1,2
2,2
9,4
1,2
6,7
4,7
1,2
0,0
"^HE IS OUTSIDE AT THE CRACK OF DAWN."
3,1
2,2
5,2
6,6
9,6
1,2
6,8
1,2
0,0
"^OVER THE RAINBOW BLUEBIRDS FLY."
6,3
9,3
1,2
1,2
2,1
0,0
"^ON ^FRIDAY ^I HAD A TEST IN THAT ROOM."
6,2
1,2
3,1
2,1
9,6
1,2
6,9
9,9
1,2
0,0
"^IN THE NORTH PART OF ^OHIO IS A PARK."
6,4
9,4
4,4
1,2
6,6
1,2
2,2
9,9
1,2
0,0
"^THE SIGN TO THE LEFT SPOILED THE VIEW."
9,2
1,2
6,5
9,5
1,2
2,1
9,8
1,2
0,0
"^MARV BURNT HIS HAND ON ONE OF THEM."
1,1
2,1
9,4
1,2
6,6
3,2
6,8
3,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PRONOUN.bas:

1 PRINT :X = PEEK(54) + PEEK(55) *256 +2966: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT CHR$(4)"BRUNBPRT-SM-32"
2 REM PRONOUN
50 POKE 232,0: POKE 233,3
117 FOR Z = 768 TO 782: READ X: POKE Z,X: NEXT : DATA 1,0,4,0,17,23,53,54,13,36,44,28,28,6,0
150 HIMEM: 8192
200 D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": CALL 960: SPEED= 255: HCOLOR= 3: SCALE= 1: ROT= 0
250 P0 = -16287:PD = PEEK(1022) = 1:PR = 128:L = 3:LC$ = CHR$(26):UC$ = CHR$(23):PR$ = CHR$(16):W$(1) = UC$ +"FIRST " +LC$:W$(2) = UC$ +"SECOND " +LC$:W$(3) = UC$ +"THIRD " +LC$:C$ = UC$ +PR$ +"2C O R R E C T" +LC$ +PR$ +"1":Q$ = CHR$(34)
1000 READ D1$,TS,TS$(1),TS$(2):D1$ = D1$ +Q$ +"WHO?" +Q$ +" OR " +Q$ +"WHAT?" +Q$ +".": GOSUB 40000
1010 POKE 1023,3: PRINT D$"RUN DRILL"
40000 PRINT H$: VTAB 2: HTAB 13: PRINT UC$ +PR$"2P R O N O U N S"PR$"1"LC$: PRINT D1$
40010 VTAB 9: HTAB 5: PRINT "^THE CAR IS NOT HERE.": VTAB 12: HTAB 5: PRINT "^IT WAS HERE YESTERDAY.": VTAB 16: PRINT Q$"^IT"Q$" IS A PRONOUN AND TAKES THE PLACE OF"
40020 PRINT "THE NOUN "Q$"CAR"Q$". "Q$"^IT"Q$" ANSWERS "Q$"WHAT?"Q$".": DRAW 1 AT 63,81: ROT= 32: DRAW 1 AT 36,96: ROT= 0: HPLOT 34,90 TO 65,87: HPLOT 28,108 TO 40,108
50000 DATA "^A PRONOUN IS USED IN PLACE OF A NOUN. ^PRONOUNS, LIKE NOUNS, ANSWER THE QUESTIONS ",28,WHO,WHAT
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN
61200 X = 0: FOR I = 1 TO TW: IF H%(I,1) < >L THEN 61240
61210 IF I < = V THEN X = X +1: IF (I < >V) AND (I < >TW) THEN 61240
61220 PRINT W$(X);: RETURN
61240 NEXT I: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PRONOUNE.txt:

"^HE IS ALWAYS SLOW."
3,1
2,2
5,2
4,1
0,0
"^JOHN AND ^I HURT HER FEELINGS."
1,1
7,1
3
3,1
2,1
4,6
1,2
0,0
"^THE MAP IS THERE FOR YOU."
9,2
1,2
2,2
5,3
6,6
3,1
0,0
"^WAS HE ANGRY?"
2,2
3,1
4,2
0,0
"^THAT IS AWFUL."
3,2
2,2
4,1
0,0
"^HE HAS MY BOOK."
3,1
2,1
4,4
1,2
0,0
"^SHE AND ^I DROVE THE CAR."
3,1
7,1
3
3,1
2,1
9,6
1,2
0,0
"^THAT GIRL GAVE THOSE TO US."
9,2
1,1
2,1
3,2
6,6
3,1
0,0
"^THAT IS WHY HE LIKES ^CHICAGO."
3,2
2,2
5,5
3,1
2,1
1,2
0,0
"^THE MANAGER PAID ME."
9,2
1,1
2,1
3,1
0,0
"^THIS MONEY IS FOR HER."
9,2
1,2
2,2
6,5
3,1
0,0
"^WE LISTENED AS HE SPOKE QUIETLY."
3,1
2,1
7,2
5
3,1
2,1
5,5
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/PRONOUNH.txt:

"^NEITHER ^BILL NOR HE WERE IN SCHOOL."
7,2
4
1,1
7,2
4
3,1
2,2
6,7
1,2
0,0
"^HE MEANS ^PAUL AND ME."
3,1
2,2
1,1
7,3
5
3,1
0,0
"^I GAVE YOU AND HER ONE MORE CHANCE."
3,1
2,1
3,1
7,3
5
3,1
4,8
4,8
1,2
0,0
"^I LIVE TWO MILES FROM WHERE YOU WERE."
3,1
2,1
4,4
1,2
6,6
5,8
3,1
2,2
0,0
"^I LIKE ^FRED MORE THAN YOU."
3,1
2,1
1,1
5,2
7,3
6
3,1
0,0
"^HE TOLD ME THE WHOLE STORY HIMSELF."
3,1
2,1
3,1
9,6
4,6
1,2
3,1
0,0
"^HE ASKED WHO THE CAPTAIN WAS."
3,1
2,1
3,1
9,5
1,1
2,2
0,0
"^I BELIEVED IT WAS HIS IDEA."
3,1
2,1
3,2
2,2
4,6
1,2
0,0
"^YOU ARE IN MY PLACE."
3,1
2,2
6,5
9,5
1,2
0,0
"^THAT HOUSE IS READY FOR HER."
9,2
1,2
2,2
4,2
6,6
3,1
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/VARINIT.bas:

5 HIMEM: 22016
10 DATA NOUN,VERB,PRONOUN,ADJECTIVE,ADVERB,PREPOSITION,CONJUNCTION,INTERJECTION,DETERMINER
20 DATA "^A NOUN IS A WORD USED TO NAME A PERSON, PLACE, THING, OR IDEA. ^A NOUN ANSWERS THE QUESTIONS VTAB WHO? VTAB OR VTAB WHAT? VTAB .","^EXAMPLES: ^BILL, ^IOWA, DESK, BEAUTY",1
30 DATA "^THE VERB IS THE PART OF THE SENTENCE","THAT EXPRESSES ACTION OR LINKAGE.",3
40 DATA "^A PRONOUN IS USED IN PLACE OF A NOUN.","^PRONOUNS, LIKE NOUNS, ANSWER THE QUESTIONS VTAB WHO? VTAB AND VTAB WHAT? VTAB .",2
50 DATA "^AN ADJECTIVE DESCRIBES OR MODIFIES A NOUN OR PRONOUN.","^EXAMPLES: BEAUTIFUL, RED, SMALL, OLD",2
60 DATA "^AN ADVERB IS A WORD USED TO MODIFY A VERB, AN ADJECTIVE, OR ANOTHER ADVERB.","^ADVERBS TELL SUCH THINGS AS WHEN, WHERE,IN WHAT MANNER, OR TO WHAT DEGREE.",1
70 DATA "^A PREPOSTION IS USED TO BEGIN A PHRASE. ^PREPOSITIONS ARE WORDS WHICH SHOW RELATIONSHIPS OR DIRECTION.","^EXAMPLES: TO, ACROSS, UPON, EXCEPT, IN",1
80 DATA "^A CONJUNCTION IS A WORD THAT JOINS WORDS","OR GROUPS OF WORDS.",3
90 REM VARIABLES FOR DRILL
100 LOMEM: 18694:D$ = CHR$(13) + CHR$(4)
110 X = 0
120 DIM D$(9),H(15,3),P(15,3),W$(4): ONERR GOTO 9000
130 TR = 0:U$ = CHR$(23):L$ = CHR$(26):B$ = CHR$(16) +"2" +U$:N$ = CHR$(16) +"1" +L$
140 H$ = CHR$(12)
150 P0 = -16287:PD = 0:W$(1) = U$ +"FIRST " +L$:W$(2) = U$ +"SECOND " +L$:W$(3) = U$ +"THIRD " +L$:W$(4) = U$ +"FOURTH " +L$:C$ = B$ +"C O R R E C T" +N$:Q$ = CHR$(34): HCOLOR= 3
160 KE = -16384:CL = -16368:WI = 0:CA = 251:PR = 128:BS$ = CHR$(8):CU$ = CHR$(16) +"5." + CHR$(16) +"1"
170 TQ = 0:ZR = 0:H = 0:SC = 1:UC = 1:LI = 3
190 DIM X$(7,2): FOR T = 1 TO 9: READ D$(T):D$(T) = D$(T) +"": NEXT T: FOR T = 1 TO 7: READ X$(T,1),X$(T,2),X$(T,0):X$(T,1) = X$(T,1) +"":X$(T,2) = X$(T,2) +"":X$(T,0) = X$(T,0) +"": NEXT T
200 X = FRE(0): IF X >10 THEN HIMEM: PEEK(115) + PEEK(116) *256 +10 -X: RUN 10
205 FOR X = 0 TO 5: POKE 18688 +X, PEEK(107 +X): NEXT
210 PRINT D$"UNLOCKVARIABLES"D$"BSAVEVARIABLES,A18688,L" PEEK(115) + PEEK(116) *256 -18688D$"LOCKVARIABLES"

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/VERB.bas:

1 REM VERB
2 REM LAST UPDATE: 81/9/6 AWM
2000 D$ = CHR$(13) + CHR$(4): PRINT D$;"NOMONCIO": SPEED= 255
2010 P0 = -16287:PR = 128:PD = PEEK(1022) = 1:QU$ = CHR$(34): HCOLOR= 3:QU$ = CHR$(34):BO$ = CHR$(16) +"2":NO$ = CHR$(16) +"1"
2030 FOR Z = 768 TO 782: READ X: POKE Z,X: NEXT : POKE 232,0: POKE 233,3: SCALE= 1: ROT= 0: DATA 1,0,4,0,17,23,53,54,13,36,44,28,28,6,0
2035 X = 2966 + PEEK(54) + PEEK(55) *256: IF PEEK(X) + PEEK(X +1) *256 < >16406 THEN PRINT D$"BRUNBPRT-SM-32"
2040 CALL 960: HTAB 16: PRINT BO$"^V ^E ^R ^B ^S"NO$: VTAB 5: PRINT " ^THE VERB IS THE PART OF THE SENTENCE THAT EXPRESSES ACTION OR LINKAGE.
2045 VTAB 7: PRINT "^EXAMPLES OF "BO$"ACTION VERBS"NO$": SWIM, RIDE, WORK, THINK.": PRINT "^EXAMPLES OF "BO$"LINKING VERBS"NO$": IS, SEEMS, WAS.": VTAB 15: HTAB 8: PRINT "^THE BOY KICKED THE BALL."
2047 HPLOT 105,136 TO 146,136
2050 VTAB 18: PRINT " ^THE VERB "QU$"KICKED"QU$" SHOWS ACTION.": HPLOT 0,116 TO 279,116: GOSUB 60000
2060 CALL 960: PRINT "^LINKING VERBS CAN OFTEN BE REPLACED BY "QU$"EQUALS"QU$" OR "QU$"SEEMS"QU$".": VTAB 7: HTAB 10: PRINT "^JIM IS A TEACHER.": HTAB 14: PRINT "EQUALS": HTAB 8: PRINT "^THE WATER LOOKED COLD.
2065 HPLOT 91,64 TO 104,64: HPLOT 119,100 TO 160,100
2070 HTAB 18: PRINT "SEEMS": VTAB 16: PRINT "^NOTICE HOW LINKING VERBS SHOW A STATE OF BEING RATHER THAN ACTION.": DRAW 1 AT 71,63: DRAW 1 AT 148,63: DRAW 1 AT 92,99: DRAW 1 AT 183,99
2080 HPLOT 73,63 TO 73,75 TO 87,75: HPLOT 135,75 TO 150,75 TO 150,63: HPLOT 94,99 TO 94,111 TO 114,111: HPLOT 156,111 TO 185,111 TO 185,99: GOSUB 60000: POKE 1023,2: PRINT D$"RUN DRILL"
60000 IF PEEK(7) = 123 THEN 60100
60010 IF ( PEEK(P0) > = PR) OR ( PEEK(P0 +1) > = PR) THEN 60010
60018 VTAB 21: HTAB 6: PRINT "^PRESS THE ^B^U^T^T^O^N TO CONTINUE."
60020 IF PEEK(P0 +PD) = PR THEN 60030
60040 CALL 960: RETURN
60100 POKE -16368,0
60150 VTAB 21: HTAB 7: PRINT "^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE."
60170 IF PEEK( -16384) < >160 THEN 60170
60200 CALL 960: RETURN

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/VERBE.txt:

"^MARY BLEW THE ENTIRE ASSIGNMENT."
1,1
2,1
9,5
4,5
1,2
0,0
"^JACQUES STUDIED DILIGENTLY."
1,1
2,1
5,2
0,0
"^HUGH WAS A VERY QUICK SCATBACK."
1,1
2,2
9,6
5,5
4,6
1,2
0,0
"^THE CAR ROLLED DOWN THE STREET."
9,2
1,2
2,1
6,6
9,6
1,2
0,0
"^THE WATER LOOKED CLEAR AND COLD."
9,2
1,2
2,2
4,2
7,4
6
4,2
0,0
"^JEANNE COPIED THE ENTIRE QUOTE."
1,1
2,1
9,5
4,5
1,2
0,0
"^A VISIT TO THE ZOO INTRIGUES TOURISTS."
9,2
1,2
6,5
9,5
1,2
2,1
1,1
0,0
"^THE SIGN TO THE LEFT SPOILED THE VIEW."
9,2
1,2
6,5
9,5
1,2
2,1
9,8
1,2
0,0
"^THE SOUP TASTED SALTY."
9,2
1,2
2,2
4,2
0,0
"^BISMARCK IS THE CAPITAL OF THE STATE."
1,2
2,2
9,4
1,2
6,7
9,7
1,2
0,0
"^A LADY USUALLY WEEDS THE GARDEN."
9,2
1,1
5,4
2,1
9,6
1,2
0,0
"^WE USUALLY USE THE DARK BLUE BOOK."
3,1
5,3
2,1
9,7
5,6
4,7
1,2
0,0

Text found in English_Parts_of_Speech_v1.2_1981_MECC_US.do/VERBH.txt:

"^THE STUDENT WITHOUT A PEN HAD PROBLEMS."
9,2
1,1
6,5
9,5
1,2
2,1
1,2
0,0
"^THE LITTLE BOY LIKED THE IDEA VERY MUCH."
9,3
4,3
1,1
2,1
9,6
1,2
5,8
5,4
0,0
"^SPRINGFIELD IS A PROSPEROUS CITY."
1,2
2,2
9,5
4,5
1,2
0,0
"^IN SOME PLACES BIRCHES ARE WEED TREES."
6,3
4,3
1,2
1,2
2,2
4,7
1,2
0,0
"^I USUALLY AVOID WORK AT ALL COSTS."
3,1
5,3
2,1
1,2
6,7
4,7
1,2
0,0
"^HE ALWAYS WAITS AT THE BACK DOOR."
3,1
5,3
2,1
6,7
9,7
4,7
1,2
0,0
"^HE APPEARED SENSIBLE AND WELL INFORMED."
3,1
2,2
4,1
7,3
6
5,6
4,1
0,0
"^SARA LANDED THE FISH FAIRLY QUICKLY."
1,1
2,1
9,4
1,2
5,6
5,2
0,0
"^THAT OLD CAR ALWAYS SEEMS SO UNRELIABLE."
9,3
4,3
1,2
5,5
2,2
5,7
4,3
0,0
"^ELEANOR GAVE ^SANDY ALL HER NOTES."
1,1
2,1
1,1
4,6
9,6
1,2
0,0