Language Usage

Timex Computer Corporation

Date: 1983

Type: Program

Platform(s): TS 2068

This is a three-part educational software suite called “Language Usage Master” targeting grades 4 through 12, covering grammar topics including subject/verb agreement, double negatives, pronoun usage, verb tense consistency, irregular verbs, may/can distinction, homonyms, lay/lie, set/sit, and among/between. Each part loads as a separate program file via LOAD, with a shared splash-screen loader that defines 12 User Defined Graphics (UDGs A–L) using POKE USR to render a diagonal-fill graphic logo. The suite offers three practice modes — a rules review screen, a drill mode, and a timed test requiring a password (“lan”) — and tracks per-category wrong answers in variables W1–W5 to produce a detailed score report with percentages. The timed test mode uses a PAUSE 60 loop with manual minute/second counters (K and L) to display elapsed time, and ON ERR with RESET and CONTINUE is used as an error-recovery trap throughout.

Program Analysis

This listing contains four distinct BASIC programs: a shared splash/loader stub (lines 5–130, repeated identically three times) and three main educational modules that are chain-loaded via LOAD "" or LOAD "lang1". Part I covers subject/verb agreement, double negatives, and pronoun usage; Part II covers verb tense, irregular verbs, and may/can; Part III covers homonyms, lay/lie, set/sit, and among/between.

Program Structure

Each module follows the same architectural pattern:

Lines 5–66: UDG definition stub (identical across all three loader stubs)
Lines 100–130: Splash screen rendering and chain-load
Lines 10–96/110: Question DATA banks, organized by topic number × 10 + question index
Line 500–590: Title screen with PLOT/DRAW borders and trademark logo
Lines 1000–1090: Main menu with bordered display and mode selection
Lines 1500–1560: Rules/preparation screen reader
Lines 2000–2650: Question loop (drill and timed-test modes)
Lines 3000–3540: Utility subroutines (splash art renderer, keypress wait, input handler)
Lines 4000–4030: Directions screen
Lines 4500–4580: Correct-answer acknowledgment
Lines 4990–5150: Score card and results display
Lines 5500–5600: Rule-hint display subroutine
Lines 6000–6170: Wrong-answer handler with in-sentence word substitution
Lines 9900/9990: ON ERR recovery chain

UDG Logo Technique

Lines 5–66 (the loader stub) define 12 UDGs (A through L) by POKEing 8 bytes each into USR L$+X. The bitmaps encode diagonal-ramp fill patterns (e.g., 128, 192, 240, 248, 252, 255, 255, 255 for UDG A — a bottom-left triangle fill). These 12 UDGs are then composed in line 100 using escape sequences \a–\l together with block graphic characters to draw a stylized diagonal-shaded logo panel, with PAPER 5 used to color one quadrant differently.

DATA Addressing Scheme

The DATA organization is a key structural idiom throughout all three modules. Topic rules are stored at line numbers C*10 (e.g., topic 1 → line 10, topic 2 → line 20). Individual questions are stored at C*10+Z (topic × 10 + question index). RESTORE C*10 rewinds to the rules for topic C, and RESTORE C*10+Z rewinds to question Z. The “Test Practice” and “Timed Test” modes use an indirect dispatch table: a DATA line (e.g., line 61 in Part I, line 40 in Part II, line 50 in Part III) stores a sequence of raw line numbers; the code reads the Zth entry from that table, then does RESTORE D to jump to the appropriate question DATA line.

Question Format

Parts II and III use a richer per-question DATA format than Part I:

Two lines of sentence text (with the choice words parenthesized, e.g., "(Can May) I go...")
L1: the PRINT row for the sentence line containing the choice
T1, T2: column positions of the “1” and “2” choice labels
D$: the correct answer character ("1" or "2")
For questions used in the test/practice modes, an extra field gives the correct word string (used in wrong-answer display)

Part I questions instead present four sentence-fragment lines and ask which numbered line contains the grammar error, with D$ being "1"–"4" and "4" used for “no error.”

Wrong-Answer Handler and In-Sentence Substitution

The subroutine at line 6000 is the most complex section in Parts II and III. When the user answers incorrectly, it reads the correct word (W$), displays it, then reconstructs the sentence at row L1 with the parenthesized choice replaced by W$. It does this by iterating character-by-character through D$, printing each character at column T1, skipping characters between ( and ), and substituting W$ at the opening parenthesis position. When in test/practice mode (C=4 or C=5), it temporarily saves and restores C and Z to display the topic’s rule hint via GO SUB 5500.

Timed Test Mode

The timed test (the highest-numbered mode in each part) requires the user to type the password "lan" (case-insensitive) before starting. Timing is implemented manually: PAUSE 60 approximates one second; a loop at lines 2540–2560 increments L (seconds) and rolls over to increment K (minutes) at 60. The display AT 0,22;"Time ";K;":";L shows elapsed time, with a trailing space printed when L<10 to prevent digit-count artifacts.

Per-Category Score Tracking

Wrong answers are tallied into W1–W5 (one per topic). In timed-test mode, the assignment of a wrong answer to a category is done differently per part: Part I uses explicit IF Z=... range checks; Part II also uses IF Z=... range checks; Part III computes Z1=Z MOD 8 to handle wrap-around across two passes. The results screen (line 5050+) computes R1–R5 as MaxScore - WrongCount and displays both raw and percentage scores.

ON ERR Recovery

Each module ends with an ON ERR recovery chain at lines 9900–9930 (or 9990–9993). The pattern is: trap to the handler, execute RESET, pause briefly, re-arm the trap with GO TO, then re-arm with CONTINUE. This is a belt-and-suspenders approach to prevent the program from dropping to a BASIC error prompt on unexpected errors, keeping the educational software running robustly in a classroom setting.

Notable Idioms and Anomalies

IF INKEY$<>"" THEN GO TO followed by LET A$=INKEY$: IF A$="" THEN GO TO is the standard flush-then-wait keypress pattern used consistently throughout.
IF A$=CHR$(13) THEN RUN at line 2085/3525 allows the user to restart the program by pressing ENTER at any input prompt.
In Part I, line 2140 is unreachable dead code — it follows GO TO 2110 (line 4580) and is never jumped to; a corresponding line in Part I’s loop structure suggests it was an artifact of an earlier design.
The subroutine at line 3000 displays block-graphic ASCII art spelling out “SOFTWARE FOR EXCELLENCE” using UDG-style block characters in DATA lines 3100–3120. A random paper/ink color combination is chosen via 1+INT(7*RND) with complementary ink 7-RP.
Part I’s LOAD "lang1" at line 130 loads the next module by explicit name; Parts II and III use LOAD "" to load the next tape file automatically.
In Part III, line 2140 contains STOP as the first statement — this is dead code that would halt execution if somehow reached, clearly a leftover from Part II where the same line number had STOP at the same position.
The DRAW commands at lines 1007–1012 (Part I) draw a nested decorative border by iterating X from 0 to 3, progressively inlining the rectangle — a technique for creating a thick multi-line border effect without hard-coding each line.

Variable Summary

Variable	Role
`C`	Current topic/category number chosen by user
`Z`	Current question index within the loop
`T`	Total number of questions for current mode
`D$`	Correct answer character (re-used for DATA reads)
`W1–W5`	Per-topic wrong-answer counters
`F`	Count of first-try correct answers
`S`	Count of second-try correct answers (Part I)
`E`	Error flag (0=first attempt, 1=second attempt)
`K`, `L`	Timed test elapsed minutes and seconds
`L1`, `T1`, `T2`	Row and column positions for choice labels
`N`	Number of rule lines to read/display; also menu input buffer

Content

Appears On

Related Products

Language Usage

Improve scores on standardized achievement tests. Stores records on work done, helps identify troublesome areas.

Image Gallery

Source Code
CLS 
FOR L=1 TO 12
READ L$
FOR X=0 TO 7
READ R: POKE USR L$+X,R
NEXT X
NEXT L
DATA "A",128,192,240,248,252,255,255,255,"C",240,248,252,255,255,255,255,255,"B",0,0,0,0,0,0,128,192,"D",0,0,0,0,128,192,240,248
DATA "E",252,255,255,255,255,255,255,255,"F",0,0,128,192,240,248,252,255,"G",255,255,255,255,255,255,255,252,"H",255,252,248,240,192,128,0,0
DATA "I",255,255,255,255,255,252,248,240,"J",248,240,192,128,0,0,0,0,"K",255,255,255,252,248,240,192,128,"L",192,128,0,0,0,0,0,0
PRINT AT 7,0;"::::::::::::::::::::::::::::::::";AT 8,0;"::::::::::::::::::::::::::::::::";AT 5,14;"ab";AT 6,14;"::cd";AT 7,16;"ef";AT 8,16; PAPER 5;"gh";AT 9,14;"::ij  ";AT 10,14;"kl";AT 10,16;"                                ";AT 11,16;"                "; INK 7;AT 11,14;"ab";AT 12,15;"cd  ";AT 13,16;"ef"
PAPER 7: INK 2: PRINT AT 5,3;"SOFTWARE";AT 13,20;"EXCELLENCE";AT 18,5; FLASH 1;"Loading Main Program"
PAPER 7: INK 7
LOAD "lang1"
DATA 10,"    SUBJECT/VERB AGREEMENT"," ","A verb must agree with","its subject in number."," ","Watch out for","1.contractions.","2.subjects coming after verbs.","3.intervening phrases.","4.compound subjects."
DATA "There's the boys","who took my hat","and gloves.","1"
DATA "Don't she care about","the complaints she","has been receiving?","1"
DATA "Here are the","keys for my","new automobile.","4"
DATA "Should we go","where there is","two movie theaters?","2"
DATA "One of the Boy Scouts","are looking for the","trail markings.","2"
DATA "The pail of cherries","are ready to take","to the market.","2"
DATA "Mike and Pat is going","with me to the county","fair this Saturday.","1"
DATA "After the class either","Alice or Margaret are","going to take my books.","2"
DATA 9,"     DOUBLE NEGATIVES","","Do not use more than one","negative in a clause.","(I cannot get no work done.)","","Remember that adverbs such as","hardly,barely,scarcely,etc.","are negatives."
DATA "The maps are so wrinkled","that we cannot make no","sense out of them.","2"
DATA "There is hardly any","wind on the back","bay this morning.","4"
DATA "After the big supper","they barely had no room","for any dessert.","2"
DATA "Debbie can't hardly be","expected to get a first","chair in the band this year.","1"
DATA "There is hardly any","wind on the back","bay this morning.","4"
DATA "Did you know that","we scarcely have any reserves","of funds at the bank?","4"
DATA 6,"     PRONOUNS AS SUBJECTS"," ","When a pronoun is the SUBJECT","of a verb, use the subjective","form.","  (They called Marsha.)"
DATA "Frank and me","are going to","the pool.","1"
DATA "Who did you say","had that crazy idea","about painting the grass?","4"
DATA "You and I should feel","free to exchange secrets","at any time.","4"
DATA "For the prizes","us girls had to","win or place each time.","2"
DATA "Who did you say","had that crazy idea","about painting the grass?","4"
DATA "You and them really","should have a chance","to try out for the parts.","1"
DATA 6,"     PRONOUNS AS OBJECTS"," ","When a pronoun is the OBJECT","of a verb or preposition, use","the objective form.","  (Marsha called them.)"
DATA "There should be no","reason for any differences","to occur between you and I.","3"
DATA "We shared the","donuts we cooked","with Sara and she.","3"
DATA "You should go with","whoever you prefer","to the dance.","2"
DATA "The defensive team had","two guards, along with","Roger,Tom,and I.","3"
DATA "The first decision which","must be made involves","a choice between they and me.","3" 
DATA "Please send this note","to whoever you think","will appreciate the idea.","4"
DATA 5," PRONOUN/ANTECEDENT AGREEMENT","","A pronoun must agree with","its antecedent in (1)number,","(2)gender, and (3)person.",""
DATA "The dog appears to","find his bones after","he buries them.","4"
DATA "Either Paul or Sam","has their numbers","reversed.","2"
DATA "Everyone must find","your books and papers","before class is over.","2"
DATA "They must be certain","to have their raincoats","if we are going sailing.","4"
DATA "Did she find her","good leather gloves","in the lost and found box?","4"
DATA "If each person does not","move carefully, their sense","of direction will be lost.","2"
GO TO 1000
DATA 121,13,141,17,11,131,15,151,25,35,45,55,112,114,116,118,26,36,46,56
GO SUB 3000
DATA "Let's go now. There","is, at the last count,","only three minutes left.","2"
DATA "Where's the funny","looking coat with","three sleeves?","4"
DATA "There is at least","two reasons for","my asking.","1"
DATA "Here is the two best","new movies","this year.","1"
DATA "Six months' effort","are involved in the","painting of that boat.","2"
DATA "Do not forget that","the hamper of clothes","is ready to go upstairs.","4"
DATA "In the book is a","colorful picture from Maine","and a brief history.","1"
DATA "Either the Gray or the","Blue is going to win","the football game.","4"
DATA "This algebra problem is","very hard to figure out.","It don't make sense.","3"
DATA "It hardly takes any","time to put wax on","a new car.","4"
DATA "With the unusually","bad weather you","can hardly fish anywhere.","4"
DATA "I cannot accept no","more checks for items","purchased at the store.","1"
DATA "Whomever goes should","be our very best","representative.","1"
DATA "Ben and me are","really unhappy with","them for their work.","1"
DATA "Will either he or","she be able to","meet the deadline?","4"
DATA "Please,whomever","you are, speak","up.","1"
DATA "A new car could be purchased","if we take all the money","saved by you and he.","3"
DATA "You decide. Choose","either him","or me.","4"
DATA "Just between you and me,","I do not think our poor","team has a chance.","4"
DATA "I think you","should take","whoever you wish.","3"
DATA "Jack and Mary show","excellent poise in","their acting roles.","4"
DATA "Each one must","immediately take","their position.","3"
DATA "Neither cherry nor","strawberry has lost","its flavor.","4"
DATA "Please take your","positions in the","line at this time.","4"
DATA "Where's the rabbits","you said you had","caught?","1"
DATA "Where is Harry","and Louise this","evening?","1"
DATA "The storm, with thunder","and lightning, were very","frightening to us.","2"
DATA "Is the dog and the","cat able to get along","in an automobile?","1"
DATA "It doesn't make any","difference who goes","first in this contest.","4"
DATA "She and Terri were","the best painters in","the community.","4"
DATA "Will your older brother","be able to act as a","chaperon for you and I?","3"
DATA "Both the Red team","and the Green team","won its games.","3"
PAPER 6: INK 2: BORDER 6: CLS 
PLOT 152,112: DRAW 0,15: DRAW 7,0: DRAW 0,-15: DRAW -7,0
PRINT AT 4,5;"lANGUAGE USAGE";
DRAW -120,0: DRAW 0,55: DRAW 127,0: DRAW 0,-40
PRINT AT 8,20;"MASTER"
DRAW 56,0: DRAW 0,-44: DRAW -63,0: DRAW 0,29
PRINT AT 5,27;"TM"
INK 4: PRINT AT 13,13;"Part I";AT 15,8;"Grades 4 thru 12";
INK 2: PRINT AT 20,7;"Copyright 1983 by";AT 21,4;"Software for Excellence";
PAUSE 240
PAPER 7: BORDER 7: INK 0: CLS 
LET K=0: LET L=0: LET KL=0: LET LL=0: LET N=0: LET W1=0: LET W2=0: LET W3=0: LET W4=0: LET W5=0: LET T=4: LET E=0: LET S=0: LET F=0
FOR X=0 TO 3
PLOT 0,140: DRAW 255-X,0: DRAW 0,-140+X: DRAW -255+(2*X),0: DRAW 0,171-(2*X): DRAW 255-(2*X),0: DRAW 0,-31+X
NEXT X
PRINT AT 2,5;"Language Usage Part I";AT 7,1;"1 Subject/Verb Agreement";AT 8,1;"2 Double Negatives";AT 9,1;"3 Pronouns as Subjects";AT 10,1;"4 Pronouns as Objects";AT 11,1;"5 Pronoun/Antecedent Agreement";AT 16,1;"6 Test Practice";AT 17,1;"7 Timed Test"; 
INK 5: PLOT 8,131: DRAW 239,0: PLOT 8,59: DRAW 239,0
INK 0: PAPER 5: PRINT AT 5,6;"Preparation - Rules";AT 14,8;"Training Camp";AT 20,7; FLASH 1;"CHOOSE A NUMBER";
GO SUB 3510
LET C=N
IF C<1 OR C>7 THEN GO TO 1050
IF C=7 THEN GO TO 2500
IF C=6 THEN GO TO 2000
GO TO 1500
RESTORE C*10: PAPER 7: INK 0: CLS : READ N
PLOT 0,16: DRAW 0,159: DRAW 255,0: DRAW 0,-159: DRAW -255,0
FOR X=1 TO N: READ D$: PRINT AT X+1,1;D$: NEXT X
IF C<3 THEN GO TO 1550
IF C=3 OR C=4 THEN PRINT AT 10,4;"SUBJECTIVE     OBJECTIVE";AT 11,8;"I";TAB 23;"ME";AT 12,8;"WE";TAB 23;"US";AT 13,7;"YOU";TAB 22;"YOU";AT 14,6;"HE,SHE";TAB 21;"HIM,HER";AT 15,7;"THEY";TAB 22;"THEM";AT 16,4;"WHO,WHOEVER   WHOM,WHOMEVER"
IF C=5 THEN PRINT AT 5,20; FLASH 1;"1"; FLASH 0;AT 9,1;"-Error in NUMBER-";AT 11,2;"Every boy to their post.";AT 15,1;"-Correct-";AT 17,2;"Every boy to his post.";AT 20,7;"PRESS C TO CONTINUE": PAUSE 0: PRINT AT 6,2; FLASH 1;"2"; FLASH 0;AT 5,20;"1";AT 9,11;"GENDER-";AT 11,15;"her post.  ": PAUSE 0: PRINT AT 6,17; FLASH 1;"3"; FLASH 0;AT 6,2;"2";AT 9,11;"PERSON-";AT 11,15;"your post."
GO SUB 3500
GO TO 2000
GO SUB 4000
IF C=1 THEN LET T=8
IF C=6 THEN LET VS=8: LET NS=3: LET PS=3: LET OS=3: LET AS=3: LET SS=20: LET T=20
IF C=7 THEN LET VS=12: LET NS=4: LET PS=4: LET OS=4: LET AS=4: LET SS=28: LET T=28
FOR Z=1 TO T
PAPER 7: CLS 
IF C<6 THEN GO SUB 5500
IF C=6 THEN GO SUB 5584
PRINT AT 9,9;"SELECT THE LINE";AT 10,7;"WHICH HAS THE ERROR"
FOR Y=1 TO 3: READ D$: PRINT AT Y+12,1;Y;" ";D$: NEXT Y
PRINT AT 16,1;"4 No Error"
READ D$
IF INKEY$<>"" THEN GO TO 2070
IF C=7 THEN GO TO 2540
LET A$=INKEY$: IF A$="" THEN GO TO 2080
IF A$=CHR$ (13) THEN RUN 
IF A$<"1" OR A$>"4" THEN GO TO 2080
IF A$=D$ THEN GO TO 4500
GO TO 6000
NEXT Z
GO SUB 4990
GO TO 1000
IF C<>1 THEN RESTORE C*10+1: READ D$: PRINT AT 5,1;D$: GO TO 2040
GO TO 1000
LET K$="                ": PAPER 7: CLS : PAPER 6: FOR X=1 TO 5: PRINT AT X,8;K$;: NEXT X: PLOT 64,128: DRAW 0,39: DRAW 127,0: DRAW 0,-39: DRAW -127,0: PRINT AT 3,11;"TIMED TEST";AT 8,2; PAPER 7;"To start the test,";AT 9,2;"type the code letters,";AT 10,2;"then press ENTER.": INPUT A$: IF A$<>"lan" AND A$<>"LAN" THEN PRINT AT 20,8;"SORRY WRONG CODE": PAUSE 100: GO TO 1000
RESTORE 70
GO SUB 2000
GO TO 1000
PRINT AT 0,22;"Time ";K;":";L;: IF L<10 THEN PRINT AT 0,30;" "
PAUSE 60: LET A$=INKEY$: IF A$<>"" THEN GO TO 2600
LET L=L+1: IF L=60 THEN LET K=K+1: LET L=0
GO TO 2540
IF A$=D$ THEN GO TO 2110
IF A$<"1" OR A$>"4" THEN GO TO 2540
IF Z<9 THEN LET W1=W1+1
IF Z=9 OR Z=10 OR Z=11 OR Z=12 THEN LET W2=W2+1
IF Z=13 OR Z=14 OR Z=15 OR Z=16 THEN LET W3=W3+1
IF Z=17 OR Z=18 OR Z=19 OR Z=20 THEN LET W4=W4+1
IF Z=21 OR Z=22 OR Z=23 OR Z=24 THEN LET W5=W5+1
GO TO 2110
LET RP=1+INT (7*RND): PAPER RP: INK 7-RP: CLS : RESTORE 3100
ON ERR GO TO 9990
FOR X=3 TO 17: READ G$: PRINT AT X,8;G$: NEXT X
PRINT AT 20,7; INVERSE 1;"PRESS C TO CONTINUE"
IF INKEY$="" THEN BEEP .3,10: GO TO 3030
RETURN 
DATA ".''''. ''':'''  .''.  :''''.",":      :  :   : :   :"," ''''.   :  :   : :....'",".   :   :  '. .' : "," ''''    '   ''  ' "
DATA "  ''':''' :   : :'''' ","    :  :   : : ","    :  :'''': :'''","    :  :   : : ","    '  '   ' ''''' "
DATA "''':'''  .''.  :''''. :'''' ","  :  :   : :   : : ","  :  :....: :''''  :'''","  :  :   : :    : ","  '  '   ' '    ''''' "
PRINT AT 20,7;"PRESS C TO CONTINUE"
IF INKEY$<>"" THEN GO TO 3510
LET C$=INKEY$: IF C$="" THEN GO TO 3520
IF C$=CHR$ (13) THEN RUN 
IF C$<"0" OR C$>"9" THEN RETURN 
LET N=VAL (C$): RETURN 
PAPER 7: CLS : PRINT AT 2,11;"DIRECTIONS";AT 4,2;"(1) You will be given";AT 5,6;"four lines of words.";AT 7,2;"(2) Find the line that";AT 8,6;"has an error in it.";AT 10,2;"(3) Press the number";AT 11,6;"of that line."
PLOT 8,16: DRAW 0,152: DRAW 240,0: DRAW 0,-152: DRAW -240,0
GO SUB 3500
RETURN 
CLS : PAPER 5: LET K$="             "
FOR X=1 TO 5: PRINT AT X+4,10;K$: NEXT X
FOR X=1 TO 5: PRINT AT X+11,4;K$;AT X+11,15;K$;: NEXT X
PRINT AT 7,13;"CORRECT";AT 14,6;Z;" DONE";AT 14,18;T-Z;" TO GO"
PAPER 7: GO SUB 3500
IF E=1 THEN LET S=S+1
IF E<>1 THEN LET F=F+1
LET E=0
GO TO 2110
IF C=7 THEN GO TO 5050
PAPER 7: CLS : PLOT 4,16: DRAW 0,137: DRAW 245,0: DRAW 0,-137: DRAW -245,0
IF C=7 THEN LET VS=12: LET NS=4: LET PS=4: LET OS=4: LET AS=4
PRINT AT 2,8;"YOUR SCORE CARD";AT 5,2;F;" Right on first try";AT 7,2;S;" Right on second try";AT 9,2;T-F-S;" Wrong";
LET F=0: LET S=0
GO SUB 3500
IF C=6 THEN GO TO 5050
RETURN 
PAPER 7: CLS : PLOT 0,15: DRAW 0,154: DRAW 255,0: DRAW 0,-154: DRAW -255,0
LET R1=VS-W1: LET R2=NS-W2: LET R3=PS-W3: LET R4=OS-W4: LET R5=AS-W5: LET R6=R1+R2+R3+R4+R5
PRINT AT 0,10;"TEST RESULTS";AT 2,1;"Subject/Verb";AT 2,17;R1;" of  ";VS;AT 2,27;INT ((R1/VS)*100);"%";AT 3,2;"Agreement";
PRINT AT 5,1;"Dbl. Negatives";AT 5,17;R2;" of  ";NS;AT 5,27;INT ((R2/NS)*100);"%";
PRINT AT 7,1;"Pronoun as";AT 7,17;R3;" of  ";PS;AT 7,27;INT ((R3/PS)*100);"%";AT 8,2;"Subject";
PRINT AT 10,1;"Pronouns as";AT 10,17;R4;" of  ";OS;AT 10,27;INT ((R4/OS)*100);"%";AT 11,2;"Object";
PRINT AT 13,1;"Pronouns and";AT 13,17;R5;" of  ";AS;AT 13,27;INT ((R5/AS)*100);"%";AT 14,2;"Antecedents";
PRINT AT 16,1;"Total";AT 16,16;R6;AT 16,18;" of ";SS;AT 16,27;INT ((R6/SS)*100);"%"
IF C=7 THEN PRINT AT 19,1;"Time Used : ";K;":";L;
GO SUB 3500
RETURN 
PLOT 3,171: DRAW 249,0: DRAW 0,-56: DRAW -249,0: DRAW 0,56
RESTORE C*10: READ D: READ D$: READ D$
FOR X=1 TO 4: READ D$: IF C=1 AND X=3 THEN READ D$
PRINT AT X+1,1;D$
NEXT X
IF C<>1 THEN GO TO 5580
IF Z=3 OR Z=4 THEN READ D$: PRINT AT 5,1;D$
IF Z=5 OR Z=6 THEN READ D$: READ D$: PRINT AT 5,1;D$
IF Z=7 OR Z=8 THEN READ D$: READ D$: READ D$: PRINT AT 5,1;D$
RESTORE C*10+Z
RETURN 
RESTORE 61
FOR X=1 TO Z: READ D: NEXT X
RESTORE D
RETURN 
LET E=E+1: IF E>1 THEN PRINT AT 6,1;"The correct answer is ";D$: GO SUB 3500: LET E=0: GO SUB 6030: GO TO 2110
IF D>100 THEN LET D=D-100
IF C<>6 THEN GO TO 6010
LET U=C: LET V=Z: LET C=INT (D/10): LET Z=D-C*10
GO SUB 5500
LET C=U: LET Z=V
PRINT AT 1,1;"The rule is --";AT 6,11;"TRY AGAIN": IF C=6 THEN GO TO 2022
GO TO 2070
IF D>100 THEN LET D=D-100
LET U=INT (D/10)
IF U=1 THEN LET W1=W1+1
IF U=2 THEN LET W2=W2+1
IF U=3 THEN LET W3=W3+1
IF U=4 THEN LET W4=W4+1
IF U=5 THEN LET W5=W5+1
RETURN 
ON ERR RESET 
PAUSE 100
ON ERR GO TO 9990
ON ERR CONTINUE 
 
 
CLS 
FOR L=1 TO 12
READ L$
FOR X=0 TO 7
READ R: POKE USR L$+X,R
NEXT X
NEXT L
DATA "A",128,192,240,248,252,255,255,255,"C",240,248,252,255,255,255,255,255,"B",0,0,0,0,0,0,128,192,"D",0,0,0,0,128,192,240,248
DATA "E",252,255,255,255,255,255,255,255,"F",0,0,128,192,240,248,252,255,"G",255,255,255,255,255,255,255,252,"H",255,252,248,240,192,128,0,0
DATA "I",255,255,255,255,255,252,248,240,"J",248,240,192,128,0,0,0,0,"K",255,255,255,252,248,240,192,128,"L",192,128,0,0,0,0,0,0
PRINT AT 7,0;"::::::::::::::::::::::::::::::::";AT 8,0;"::::::::::::::::::::::::::::::::";AT 5,14;"ab";AT 6,14;"::cd";AT 7,16;"ef";AT 8,16; PAPER 5;"gh";AT 9,14;"::ij  ";AT 10,14;"kl";AT 10,16;"                                ";AT 11,16;"                "; INK 7;AT 11,14;"ab";AT 12,15;"cd  ";AT 13,16;"ef"
PAPER 7: INK 2: PRINT AT 5,3;"SOFTWARE";AT 13,20;"EXCELLENCE";AT 18,5; FLASH 1;"Loading Main Program"
PAPER 7: INK 7
LOAD ""
DATA 6,"   CONSISTENCY of TENSE"," ","Make the tense of a verb","consistent with the present,","past, or future tense implied","by the rest of the sentence."
DATA "Yesterday I (see saw)","the storm coming.",14,14,18,"2","saw"
DATA "The arts in Great Britain","(are were) supported now.",16,2,7,"1","are"
DATA "He (will go  went) to","the game tomorrow.",14,6,14,"1","will go"
DATA "They (sing sang) the","main chorus already.",14,8,13,"2","sang"
DATA 11,"      IRREGULAR VERBS"," ","Irregular verbs do not show","past tense by simply adding","-ed, -t, or -d to the","present tense."," ","Your memory of the principal","parts of irregular verbs","will be tested in the work","to follow."
DATA "He (bore beared) up well","under the load.",14,6,12,"1","bore"
DATA "The crops in the garden were","(frozen freezed) by the cold.",16,3,11,"1","frozen"
DATA "The visitor had (ringed rung)","the bell several times.",14,19,25,"2","rung"
DATA "The farmer has (writted written)","to the truck manufacturer.",14,19,26,"2","written"
DATA 7,"       MAY and CAN"," ","May and might imply permission","to do something."," ","Can and could imply capability","to do something."
DATA "(Can May) I go to the movie","after I finish my music lesson?",14,2,6,"2","May"
DATA "He (can may) carry a football","as well as anyone.",14,5,9,"1","can"
DATA "(Can May) you decide","who is the best candidate?",14,2,6,"1","Can"
DATA "When (may can) you find","the time to fix this skate?",14,7,11,"2","can"
DATA 111,121,131,113,123,133,11,125,135,115,21,137,117,127,31
GO TO 1000
GO SUB 3000
DATA "Did you decide whether I","(may can) go or not?",16,2,6,"1"
DATA "He (may can) lift over 200","pounds in most practice trials.",14,5,9,"2"
DATA "The girls (singed sang) with","unusual clarity.",14,13,19,"2"
DATA "They (will fly  flew) to","Chicago in about an hour.",14,10,18,"1"
DATA "She has (swum swimmed) at","near record speed.",14,11,17,"1"
DATA "In Hawaii the sun","(shined shone) the best.",16,3,10,"2"
DATA "Now (is was) the best","time to order seed.",14,6,9,"1"
DATA "(May Can) I eat some of","your raw squid?",14,2,6,"1"
DATA "When (can may) you get","the lawn mower working?",14,7,11,"1"
DATA "She (chooses chose) to stay","at Margaret's last night.",14,8,15,"2"
DATA "How (is was) the play","practice currently going?",14,6,9,"1"
DATA "We need groceries. Tomorrow","we (run  will run) to town.",16,5,12,"2"
DATA "(May Can) I take your order","for dinner?",14,2,6,"1"
DATA "Had he (braked broken) the seal,","the gas would have escaped.",14,10,17,"2"
DATA "He (fled fleed) the scene","of the accident.",14,5,11,"1"
DATA "You may. But, I doubt","that you (may can).",16,11,15,"2"
DATA "Yesterday's grades (are were)","possible to make up today.",14,21,25,"1"
DATA "She (may can) run the hundred","yard dash in 12 seconds.",14,6,10,"2"
DATA "Now (is was) the time","to throw the long pass.",14,5,9,"1"
DATA "I definitely feel well enough","so that I (can may) get up.",16,12,16,"1"
DATA  "About ten minutes ago he","(fleed fled) from the room.",16,3,9,"2"
DATA "How (can may) you say that","to me?",14,6,10,"1"
DATA "The man (stole stealed)","over $1,000,000.",14,11,18,"1"
DATA "She (catched caught) the","last pitch of the game.",14,8,15,"2"
DATA "He (spoke speaked) the words","which encouraged his team.",14,6,13,"1"
DATA "I (may can) not go","until I feel better.",14,4,8,"2"
DATA "The soccer team (losed lost)","the game last night.",14,19,24,"2"
DATA "Now is the time to","(lent lend) the money.",16,2,7,"2"
DATA "He (sinked sank) deeper","into the water.",14,6,12,"2"
DATA "The Golden Age of Greece","(is was) long ago.",16,2,5,"2","was"
DATA "Last Monday was when he","(taught teached) long division.",16,4,12,"1","taught"
DATA "In about two hours the train","(will come  has come) past.",16,5,15,"1","has come"
DATA "I just got (stinged stung)","by a bee.",14,15,22,"2","stung"
DATA "The chorus (rose rised)","to sing.",14,14,19,"1","rose"
DATA "A few minutes ago a deer","(sprang springed) from the path.",16,4,12,"1","sprang"
DATA "Had they (chosed chosen) the","red, they would have won.",14,13,19,"2","chosen"
DATA "Who (busted burst) into","this room?",14,7,14,"2","burst"
DATA "(Can May) I start watching","the ball game now?",14,2,6,"2","May"
DATA "What (may can) I serve you?"," ",14,7,11,"1","may"
DATA "Does the coach think that","you (may can) lift that?",16,6,10,"2","can"
DATA "(Can May) you be able","to leave on a minute's notice?",14,2,6,"1","Can"
PAPER 6: INK 2: BORDER 6: CLS 
PLOT 152,112: DRAW 0,15: DRAW 7,0: DRAW 0,-15: DRAW -7,0
PRINT AT 4,5;"LANGUAGE USAGE";
DRAW -120,0: DRAW 0,55: DRAW 127,0: DRAW 0,-40
PRINT AT 8,20;"MASTER"
DRAW 56,0: DRAW 0,-44: DRAW -63,0: DRAW 0,29
PRINT AT 5,27;"TM"
INK 4: PRINT AT 13,13;"Part II";AT 15,8;"Grades 4 thru 12";
INK 2: PRINT AT 20,7;"Copyright 1983 by";AT 21,4;"Software for Excellence";
PAUSE 240
PAPER 7: BORDER 7: INK 0: CLS 
LET K=0: LET L=0: LET KL=0: LET LL=0: LET N=0: LET W1=0: LET W2=0: LET W3=0: LET W4=0: LET W5=0: LET T=0: LET E=0: LET S=0: LET F=0
FOR X=0 TO 3
PLOT 0,140: DRAW 255-X,0: DRAW 0,-140+X: DRAW -255+(2*X),0: DRAW 0,171-(2*X): DRAW 255-(2*X),0: DRAW 0,-31
NEXT X
PRINT AT 2,5;"Language Usage Part II";AT 7,1;"1 Consistency of Tense";AT 8,1;"2 Irregular Verb Form";AT 9,1;"3 May and Can";AT 16,1;"4 Test Practice";AT 17,1;"5 Timed Test"; 
INK 5: PLOT 8,131: DRAW 239,0: PLOT 8,59: DRAW 239,0
INK 0: PAPER 5: PRINT AT 5,6;"Preparation - Rules";AT 14,8;"Training Camp";AT 20,7; FLASH 1;"CHOOSE A NUMBER";
GO SUB 3510
LET C=N
IF C<1 OR C>5 THEN GO TO 1050
IF C=5 THEN GO TO 2500
IF C=4 THEN GO TO 2000
GO TO 1500
RESTORE C*10: PAPER 7: INK 0: CLS : READ N
PLOT 0,16: DRAW 0,159: DRAW 255,0: DRAW 0,-159: DRAW -255,0
FOR X=1 TO N: READ D$: PRINT AT X+1,1;D$: NEXT X
IF C<>2 THEN GO TO 1550
GO SUB 3500: CLS : PLOT 0,16: DRAW 0,159: DRAW 255,0: DRAW 0,-159: DRAW -255,0: PRINT AT 1,8;"Examples of the";AT 2,7;"Principal Parts of";AT 3,3;"Regular and Irregular Verbs"; PAPER 5;AT 5,10;"Regular Verbs"; PAPER 7;AT 7,2;"Present";TAB 13;"Past";TAB 23;"Past";AT 8,3;"Tense";TAB 13;"Tense";TAB 21;"Participle";AT 10,3;"walk";TAB 13;"walked";TAB 23;"walked";AT 12,3;"toss";TAB 13;"tossed";TAB 23;"tossed";AT 14,2;"listen";TAB 12;"listened";TAB 22;"listened": GO SUB 3500
PRINT AT 5,9; PAPER 5;"Irregular Verbs"; PAPER 7;AT 10,3;"sing";TAB 13;"sang";TAB 23;"sung  ";AT 12,3;"burst";TAB 13;"burst";TAB 23;"burst ";AT 14,2;" feel";TAB 13;"felt";TAB 23;"felt   "
GO SUB 3500
GO TO 2000
GO SUB 4000
IF C=1 THEN LET T=4
IF C=2 THEN LET T=4
IF C=3 THEN LET T=4
IF C=4 THEN LET T=15
IF C=5 THEN LET T=30
FOR Z=1 TO T
PAPER 7: CLS 
IF C<4 THEN GO SUB 5500
IF C=4 THEN GO SUB 5584
PRINT AT 9,5;"SELECT THE CORRECT WORD"
READ D$: PRINT AT 13,0;D$: READ D$: PRINT AT 15,0;D$
READ L1: READ T1: READ T2: PRINT AT L1,T1;1;TAB T2;2
READ D$
IF INKEY$<>"" THEN GO TO 2070
IF C=5 THEN GO TO 2540
LET A$=INKEY$: IF A$="" THEN GO TO 2080
IF A$=CHR$ (13) THEN RUN 
IF A$<>"1" AND A$<>"2" THEN GO TO 2080
IF A$=D$ THEN GO TO 4500
GO SUB 6000
NEXT Z
GO SUB 4990
GO TO 1000
STOP : IF C<>1 THEN RESTORE C*10+1: READ D$: PRINT AT 5,1;D$: GO TO 2040
GO TO 1000
LET K$="                ": PAPER 7: CLS : PAPER 6: FOR X=1 TO 5: PRINT AT X,8;K$;: NEXT X: PLOT 64,128: DRAW 0,39: DRAW 127,0: DRAW 0,-39: DRAW -127,0: PRINT AT 3,11;"TIMED TEST";AT 8,2; PAPER 7;"To start the test,";AT 9,2;"type the code letters,";AT 10,2;"then press ENTER.": INPUT A$: IF A$<>"lan" AND A$<>"LAN" THEN PRINT AT 20,8;"SORRY WRONG CODE": PAUSE 100: GO TO 1000
RESTORE 80
GO SUB 2000
GO TO 1000
PRINT AT 0,22;"Time ";K;":";L;: IF L<10 THEN PRINT AT 0,30;" "
PAUSE 60: LET A$=INKEY$: IF A$<>"" THEN GO TO 2600
LET L=L+1: IF L=60 THEN LET K=K+1: LET L=0
GO TO 2540
IF A$=D$ THEN GO TO 2110
IF A$<>"1" AND A$<>"2" THEN GO TO 2540
IF Z=4 OR Z=7 OR Z=10 OR Z=11 OR Z=12 OR Z=17 OR Z=18 OR Z=20 OR Z=25 OR Z=29 THEN LET W1=W1+1
IF Z=3 OR Z=5 OR Z=6 OR Z=14 OR Z=15 OR Z=22 OR Z=24 OR Z=26 OR Z=28 OR Z=30 THEN LET W2=W2+1
IF Z=1 OR Z=2 OR Z=8 OR Z=9 OR Z=13 OR Z=16 OR Z=19 OR Z=21 OR Z=23 OR Z=27 THEN LET W3=W3+1
GO TO 2110
LET RP=1+INT (7*RND): PAPER RP: INK 7-RP: CLS : RESTORE 3100
ON ERR GO TO 9900
FOR X=3 TO 17: READ G$: PRINT AT X,8;G$: NEXT X
PRINT AT 20,7; INVERSE 1;"PRESS C TO CONTINUE"
IF INKEY$="" THEN BEEP .3,10: GO TO 3030
RETURN 
DATA ".''''. ''':'''  .''.  :''''.",":      :  :   : :   :"," ''''.   :  :   : :....'",".   :   :  '. .' : "," ''''    '   ''  ' "
DATA "  ''':''' :   : :'''' ","    :  :   : : ","    :  :'''': :'''","    :  :   : : ","    '  '   ' ''''' "
DATA "''':'''  .''.  :''''. :'''' ","  :  :   : :   : : ","  :  :....: :''''  :'''","  :  :   : :    : ","  '  '   ' '    ''''' "
PRINT AT 20,7;"PRESS C TO CONTINUE"
IF INKEY$<>"" THEN GO TO 3510
LET C$=INKEY$: IF C$="" THEN GO TO 3520
IF C$=CHR$ (13) THEN RUN 
IF C$<"0" OR C$>"9" THEN RETURN 
LET N=VAL (C$): RETURN 
PAPER 7: CLS : PRINT AT 2,11;"DIRECTIONS";AT 4,2;"(1) You will be given";AT 5,6;"one or more sentences.";AT 7,2;"(2) There will be a choice";AT 8,6;"of two possible words.";AT 10,2;"(3) Press the number";AT 11,6;"of the correct word."
PLOT 8,16: DRAW 0,152: DRAW 240,0: DRAW 0,-152: DRAW -240,0
GO SUB 3500
RETURN 
CLS : PAPER 5: LET K$="             "
FOR X=1 TO 5: PRINT AT X+4,10;K$: NEXT X
FOR X=1 TO 5: PRINT AT X+11,4;K$;AT X+11,15;K$;: NEXT X
PRINT AT 7,13;"CORRECT";AT 14,6;Z;" DONE";AT 14,18;T-Z;" TO GO"
PAPER 7: GO SUB 3500
IF E=1 THEN LET S=S+1
IF E<>1 THEN LET F=F+1
LET E=0
GO TO 2110
IF C=5 THEN LET QA=10: LET GQ=30: GO TO 5050
LET QA=5: LET GQ=15
PAPER 7: CLS : PLOT 4,16: DRAW 0,137: DRAW 245,0: DRAW 0,-137: DRAW -245,0
PRINT AT 2,8;"YOUR SCORE CARD";AT 5,2;F;" Right";AT 9,2;T-F;" Wrong";
LET F=0
GO SUB 3500
IF C=4 THEN GO TO 5050
RETURN 
PAPER 7: CLS : PLOT 0,15: DRAW 0,154: DRAW 255,0: DRAW 0,-154: DRAW -255,0
LET R1=QA-W1: LET R2=QA-W2: LET R3=QA-W3: LET R4=R1+R2+R3
IF C=4 THEN PRINT AT 0,5;"PRACTICE TEST RESULTS"
IF C=5 THEN PRINT AT 0,10;"TEST RESULTS"
PRINT AT 3,1;"Consistency";AT 3,16;R1;" of  ";QA;AT 3,27;INT ((R1/QA)*100);"%";AT 4,1;"of Tense";
PRINT AT 6,1;"Irregular";AT 6,16;R2;" of  ";QA;AT 6,27;INT ((R2/QA)*100);"%";AT 7,1;"Verb Form"
PRINT AT 9,1;"May and Can";AT 9,16;R3;" of  ";QA;AT 9,27;INT ((R3/QA)*100);"%"
PRINT AT 11,1;"Total";AT 11,15;R4;" of  ";GQ;AT 11,27;INT ((R4/GQ)*100);"%"
IF C=5 THEN PRINT AT 16,1;"Time Used : ";K;":";L;
GO SUB 3500
RETURN 
PLOT 3,171: DRAW 249,0: DRAW 0,-56: DRAW -249,0: DRAW 0,56
RESTORE C*10: READ DT: READ D$: READ D$
FOR X=1 TO 4: READ D$: IF C=3 AND X=3 THEN READ D$
PRINT AT X+1,1;D$
NEXT X
REM IF Z=3 OR Z=4 THEN READ D$: PRINT AT 5,1;D$
REM IF Z=5 OR Z=6 THEN READ D$: READ D$: PRINT AT 5,1;D$
REM IF Z=7 OR Z=8 THEN READ D$: READ D$: READ D$: PRINT AT 5,1;D$
RESTORE C*10+Z
RETURN 
RESTORE 40
FOR X=1 TO Z: READ D: NEXT X
RESTORE D
RETURN 
PRINT AT 9,0;TAB 7;"The correct word is: ": READ W$: LET WL=LEN (W$): LET T1=INT (32-WL)/2: PRINT AT 10,T1;W$
IF C<>4 THEN GO TO 6070
LET DH=D: IF D>100 THEN LET DH=D-100
LET U=C: LET V=Z: LET C=INT (DH/10): LET Z=DH-C*10
GO SUB 5500
IF C=1 THEN LET W1=W1+1
IF C=2 THEN LET W2=W2+1
IF C=3 THEN LET W3=W3+1
LET C=U: LET Z=V
RESTORE C*10+Z: IF C=4 THEN RESTORE D
IF L1=14 THEN READ D$
IF L1=16 THEN READ D$: READ D$
LET SL=LEN (D$): LET SK=0: LET T1=0
PRINT AT L1,0;TAB 29;" ": PRINT AT L1-1,0;TAB 31;" "
FOR P=1 TO SL
IF D$(P)="(" THEN PRINT AT L1-1,T1;W$: LET T1=T1+WL: LET SK=1
IF D$(P)=")" THEN LET SK=0: GO TO 6160
IF SK=1 THEN GO TO 6160
PRINT AT L1-1,T1;D$(P): LET T1=T1+1
NEXT P
GO SUB 3500
RETURN 
ON ERR RESET 
PAUSE 100
ON ERR GO TO 9900
ON ERR CONTINUE 
 
 
CLS 
FOR L=1 TO 12
READ L$
FOR X=0 TO 7
READ R: POKE USR L$+X,R
NEXT X
NEXT L
DATA "A",128,192,240,248,252,255,255,255,"C",240,248,252,255,255,255,255,255,"B",0,0,0,0,0,0,128,192,"D",0,0,0,0,128,192,240,248
DATA "E",252,255,255,255,255,255,255,255,"F",0,0,128,192,240,248,252,255,"G",255,255,255,255,255,255,255,252,"H",255,252,248,240,192,128,0,0
DATA "I",255,255,255,255,255,252,248,240,"J",248,240,192,128,0,0,0,0,"K",255,255,255,252,248,240,192,128,"L",192,128,0,0,0,0,0,0
PRINT AT 7,0;"::::::::::::::::::::::::::::::::";AT 8,0;"::::::::::::::::::::::::::::::::";AT 5,14;"ab";AT 6,14;"::cd";AT 7,16;"ef";AT 8,16; PAPER 5;"gh";AT 9,14;"::ij  ";AT 10,14;"kl";AT 10,16;"                                ";AT 11,16;"                "; INK 7;AT 11,14;"ab";AT 12,15;"cd  ";AT 13,16;"ef"
PAPER 7: INK 2: PRINT AT 5,3;"SOFTWARE";AT 13,20;"EXCELLENCE";AT 18,5; FLASH 1;"Loading Main Program"
PAPER 7: INK 7
LOAD ""
DATA 9,"           HOMONYMS"," ","Homonyms are words similar","in sound but different in","meaning. Examples:to,two,too"," ","The meaning and spelling of","homonyms must be memorized. No","general rules are available."
DATA "Tell me (weather whether) or","not you are going.",14,11,20,"2","whether"
DATA "The reading (coarse course) was","difficult but worthwhile.",14,15,22,"2","course"
DATA "The (principles principals) of","gravity are partially known.",14,9,20,"1","principles"
DATA "The fire chief asked us to","keep the (aisle isle) clear.",16,12,17,"1","aisle"
DATA "She (led lead) the band during","this year's concert.",14,6,10,"1","led"
DATA "If you have a (loose lose) flap,","the tent may tear.",14,17,22,"1","loose"
DATA "Has your (sun son)","come back from practice?",14,11,15,"2","son"
DATA "You just would not believe","how the wind (blue blew).",16,16,21,"2","blew"
DATA "We were able get a","(steel steal) bar at the store.",16,3,9,"1","steel"
DATA 9,"          LAY and LIE"," ","Lay means to put or place.","Principal parts are:lay,","laid, have laid, laying."," ","Lie means to rest or recline.","Principal parts are:lie,","lay, have lain, lying."
DATA "(Lay Lie) down if you are","tired.",14,2,6,"2","Lie"
DATA "Is that old dog","(laying lying) in the yard?",16,3,10,"2","lying"
DATA "(Lay Lie) aside your disputes","and arguments this evening.",14,2,6,"1","Lay"
DATA "Judy (laid lay) the gloves","there yesterday.",14,8,12,"1","laid"
DATA "The gifts are not","(laying lying) on the table.",16,3,10,"2","lying"
DATA "Do not (lay lie) on the","bed I just made.",14,9,13,"2","lie"
DATA 10,"        SET and SIT"," ","Set means to place or put","something.","The principal parts are:","set, set, setting."," ","Sit means to be seated.","The principal parts are:","sit, sat, sitting."
DATA "Please (set sit) wherever","you wish.",14,9,13,"2","sit"
DATA "Could you (set sit) your","boots on the newspapers?",14,12,16,"1","set"
DATA "He found us (setting sitting)","on the swing.",14,16,24,"2","sitting"
DATA "That cat is (setting sitting)","in my lap.",14,16,24,"2","sitting"
DATA "You may (set sit) in any","chair in the first four rows.",14,10,14,"2","sit"
DATA "The gray rock was","(sitting setting) on the table.",16,5,13,"1","sitting"
DATA 7,"       AMONG and BETWEEN"," ","Use between when two people","or things are involved."," ","Use among when more than two","are involved."
DATA "This is a great secret to keep","(among between) the two of us.",16,3,10,"2","between"
DATA "Judy, Karen, and Lynn shared","the paper (among between) them.",16,13,20,"1","among"
DATA "The lead shifted","(among between) trio members.",16,3,10,"1","among"
DATA "It is hard to choose the winner","from (between among) the six.",16,9,16,"2","among"
DATA "Two high peaks stood out","(between among) the many.",16,4,11,"2","among"
DATA 17,18,19,25,26,35,36,45,111,112,113,121,122,131,132,141
GO TO 1000
GO SUB 3000
DATA "Do not let the (rains reins)","hang loosely in your hands.",14,18,24,"2"
DATA "Chocolate, in any form, is my","favorite (desert dessert).",16,12,20,"2"
DATA "A (peace piece) was achieved","before war broke out.",14,5,11,"1"
DATA "The voters were (laying lying)","ballots in the box.",14,19,26,"1"
DATA "You have already (laid lain)","in bed for half the day.",14,20,25,"2"
DATA "(Setting Sitting) the table","is easy.",14,4,12,"1"
DATA "Is your dog (setting sitting)","in your father's chair again?",14,16,24,"2"
DATA "(Among Between) the Colonies","there were some disputes.",14,3,10,"1"
DATA "If you go (to too) the","play, I will join you.",14,12,15,"1"
DATA "Do you know which pedal is","the (brake break)?",16,7,13,"1"
DATA "To me, that is only","(passed past) history.",16,4,10,"2"
DATA "She has (laid lain) aside her","school work again.",14,11,16,"1"
DATA "Is the bracelet (laying lying)","on the counter?",14,19,26,"2"
DATA "(Setting Sitting) will feel good","after all our walking.",14,4,12,"2"
DATA "If you (set sit) that cat on","my lap, I will scream.",14,9,13,"1"
DATA "Your time has to be divided","(among between) many tasks.",16,3,10,"1"
DATA "Would you like to hear","us sing the (hymn him)?",16,14,19,"1"
DATA "I think that we can squeeze","through the (great grate).",16,15,21,"2"
DATA "Do you know the","(sum some) of the equations?",16,2,6,"1"
DATA "Judy has (laid lain) the","old tennis balls on the rack.",14,12,17,"1"
DATA "She has been (laying lying)","on that couch all day.",14,16,23,"2"
DATA "Do not (set sit) that test","tube on the shelf.",14,9,13,"1"
DATA "Whoever said that","(setting sitting) was relaxing?",16,4,12,"2"
DATA "Choose one from (among between)","the red and the green items.",14,18,25,"2"
DATA "If you would rather play cards","(it's its) really your choice.",16,2,7,"1","it's"
DATA "Kitty Hawk was the (sight site)","of the Wright brothers' flight.",14,22,27,"2","site"
DATA "Texas was (all ready already)","a state by 1850.",14,17,24,"2","already"
DATA "Harry (lay laid) on the couch","watching TV.",14,8,12,"1","lay"
DATA "If you (lay lie) in the sun","too long, you will burn.",14,9,13,"2","lie"
DATA "(Set Sit) the packages on","the table in the kitchen.",14,2,6,"1","Sit"
DATA "The vase was (setting sitting)","on the edge of the table.",14,17,25,"2","sitting"
DATA "Do not put your fingers","(among between) two rocks.",16,3,10,"2","between"
PAPER 6: INK 2: BORDER 6: CLS 
PLOT 152,112: DRAW 0,15: DRAW 7,0: DRAW 0,-15: DRAW -7,0
PRINT AT 4,5;"LANGUAGE USAGE";
DRAW -120,0: DRAW 0,55: DRAW 127,0: DRAW 0,-40
PRINT AT 8,20;"MASTER"
DRAW 56,0: DRAW 0,-44: DRAW -63,0: DRAW 0,29
PRINT AT 5,27;"TM"
INK 4: PRINT AT 13,12;"Part III";AT 15,8;"Grades 4 thru 12";
INK 2: PRINT AT 20,7;"Copyright 1983 by";AT 21,4;"Software for Excellence";
PAUSE 240
PAPER 7: BORDER 7: INK 0: CLS 
LET F=0: LET K=0: LET L=0: LET KL=0: LET LL=0: LET N=0: LET W1=0: LET W2=0: LET W3=0: LET W4=0: LET W5=0
PLOT 0,140: DRAW 255,0: DRAW 0,-140: DRAW -255,0: DRAW 0,171: DRAW 255,0: DRAW 0,-31
PRINT AT 2,4;"Language Usage Part III";AT 7,1;"1 Homonyms";AT 8,1;"2 Lay and Lie";AT 9,1;"3 Set and Sit";AT 10,1;"4 Among and Between";AT 16,1;"5 Test Practice";AT 17,1;"6 Timed Test"; 
INK 5: PLOT 8,131: DRAW 239,0: PLOT 8,59: DRAW 239,0
INK 0: PAPER 5: PRINT AT 5,6;"Preparation - Rules";AT 14,8;"Training Camp";AT 20,7; FLASH 1;"CHOOSE A NUMBER";
GO SUB 3510
LET C=N
IF C<1 OR C>6 THEN GO TO 1050
IF C=6 THEN GO TO 2500
IF C=5 THEN GO TO 2000
GO TO 1500
RESTORE C*10: PAPER 7: INK 0: CLS : READ N
PLOT 0,16: DRAW 0,159: DRAW 255,0: DRAW 0,-159: DRAW -255,0
FOR X=1 TO N: READ D$: PRINT AT X+1,1;D$: NEXT X
GO SUB 3500
GO TO 2000
GO SUB 4000
IF C=1 THEN LET T=6
IF C=5 THEN LET T=16
IF C=2 OR C=3 OR C=4 THEN LET T=4
IF C=6 THEN LET T=25
IF C=5 THEN LET HS=6: LET LS=4: LET SS=4: LET AS=2: LET TS=16
IF C=6 THEN LET HS=9: LET LS=6: LET SS=6: LET AS=4: LET TS=25
FOR Z=1 TO T
PAPER 7: CLS 
IF C<5 THEN GO SUB 5500
IF C=5 THEN GO SUB 5584
PRINT AT 9,5;"SELECT THE CORRECT WORD"
READ D$: PRINT AT 13,0;D$: READ D$: PRINT AT 15,0;D$
READ L1: READ T1: READ T2: PRINT AT L1,T1;1;TAB T2;2
READ D$
IF INKEY$<>"" THEN GO TO 2070
IF C=6 THEN GO TO 2540
LET A$=INKEY$: IF A$="" THEN GO TO 2080
IF A$=CHR$ (13) THEN RUN 
IF A$<>"1" AND A$<>"2" THEN GO TO 2080
IF A$=D$ THEN GO TO 4500
GO SUB 6000
NEXT Z
GO SUB 4990
GO TO 1000
LET K$="                ": PAPER 7: CLS : PAPER 6: FOR X=1 TO 5: PRINT AT X,8;K$;: NEXT X: PLOT 64,128: DRAW 0,39: DRAW 127,0: DRAW 0,-39: DRAW -127,0: PRINT AT 3,11;"TIMED TEST";AT 8,2; PAPER 7;"To start the test,";AT 9,2;"type the code letters,";AT 10,2;"then press ENTER.": INPUT A$: IF A$<>"lan" AND A$<>"LAN" THEN PRINT AT 20,8;"SORRY WRONG CODE": PAUSE 100: GO TO 1000
RESTORE 80
GO SUB 2000
GO TO 1000
PRINT AT 0,22;"Time ";K;":";L;: IF L<10 THEN PRINT AT 0,30;" "
PAUSE 60: LET A$=INKEY$: IF A$<>"" THEN GO TO 2600
LET L=L+1: IF L=60 THEN LET K=K+1: LET L=0
GO TO 2540
IF A$=D$ THEN GO TO 2110
IF A$<"1" OR A$>"2" THEN GO TO 2540
LET Z1=Z: IF Z>8 THEN LET Z1=Z-8
IF Z1<4 THEN LET W1=W1+1
IF Z1=4 OR Z1=5 THEN LET W2=W2+1
IF Z1=6 OR Z1=7 THEN LET W3=W3+1
IF Z1=8 THEN LET W4=W4+1
GO TO 2110
LET RP=1+INT (7*RND): PAPER RP: INK 7-RP: CLS : RESTORE 3100
ON ERR GO TO 9900
FOR X=3 TO 17: READ G$: PRINT AT X,8;G$: NEXT X
PRINT AT 20,7; INVERSE 1;"PRESS C TO CONTINUE"
IF INKEY$="" THEN BEEP .3,10: GO TO 3030
RETURN 
DATA ".''''. ''':'''  .''.  :''''.",":      :  :   : :   :"," ''''.   :  :   : :....'",".   :   :  '. .' : "," ''''    '   ''  ' "
DATA "  ''':''' :   : :'''' ","    :  :   : : ","    :  :'''': :'''","    :  :   : : ","    '  '   ' ''''' "
DATA "''':'''  .''.  :''''. :'''' ","  :  :   : :   : : ","  :  :....: :''''  :'''","  :  :   : :    : ","  '  '   ' '    ''''' "
PRINT AT 20,7; INVERSE 1;"PRESS C TO CONTINUE"
IF INKEY$<>"" THEN GO TO 3510
LET C$=INKEY$: IF C$="" THEN GO TO 3520
IF C$=CHR$ (13) THEN RUN 
IF C$<"0" OR C$>"9" THEN RETURN 
LET N=VAL (C$): RETURN 
PAPER 7: CLS : PRINT AT 2,11;"DIRECTIONS";AT 4,2;"(1) You will be given";AT 5,6;"one or more sentences.";AT 7,2;"(2) There will be a choice";AT 8,6;"of two possible words.";AT 10,2;"(3) Press the number";AT 11,6;"of the correct word."
PLOT 8,16: DRAW 0,152: DRAW 240,0: DRAW 0,-152: DRAW -240,0
GO SUB 3500
RETURN 
CLS : PAPER 5: LET K$="             "
FOR X=1 TO 5: PRINT AT X+4,10;K$: NEXT X
FOR X=1 TO 5: PRINT AT X+11,4;K$;AT X+11,15;K$;: NEXT X
PRINT AT 7,13;"CORRECT";AT 14,6;Z;" DONE";AT 14,18;T-Z;" TO GO"
PAPER 7: GO SUB 3500
LET F=F+1
GO TO 2110
IF C=6 THEN GO TO 5050
PAPER 7: CLS : PLOT 4,16: DRAW 0,137: DRAW 245,0: DRAW 0,-137: DRAW -245,0
PRINT AT 2,8;"YOUR SCORE CARD";AT 5,2;F;" Right";AT 9,2;T-F;" Wrong";
LET F=0
GO SUB 3500
IF C=5 THEN GO TO 5050
RETURN 
PAPER 7: CLS : PLOT 0,15: DRAW 0,154: DRAW 255,0: DRAW 0,-154: DRAW -255,0
LET R1=HS-W1: LET R2=LS-W2: LET R3=SS-W3: LET R4=AS-W4: LET R5=R1+R2+R3+R4
IF C=5 THEN PRINT AT 0,5;"PRACTICE TEST RESULTS"
IF C=6 THEN PRINT AT 0,10;"TEST RESULTS"
PRINT AT 3,1;"Homonyms";AT 3,17;R1;" of ";HS;AT 3,27;INT ((R1/HS)*100);"%"
PRINT AT 5,1;"Lay and Lie";AT 5,17;R2;" of ";LS;AT 5,27;INT ((R2/LS)*100);"%"
PRINT AT 7,1;"Set and Sit";AT 7,17;R3;" of ";SS;AT 7,27;INT ((R3/SS)*100);"%"
PRINT AT 9,1;"Among and";AT 9,17;R4;" of ";AS;AT 9,27;INT ((R4/AS)*100);"%";AT 10,2;"Between"
PRINT AT 15,1;"Total";AT 15,17;R5;" of ";TS;AT 15,27;INT ((R5/TS)*100);"%"
IF C=6 THEN PRINT AT 16,1;"Time Used : ";K;":";L;
GO SUB 3500
RETURN 
PLOT 3,171: DRAW 249,0: DRAW 0,-56: DRAW -249,0: DRAW 0,56
RESTORE C*10: READ DT: READ D$: READ D$
FOR X=1 TO 4: READ D$: IF C=2 AND X=2 THEN READ D$: READ D$: LET X=3
IF C=3 AND X=3 THEN READ D$: READ D$
IF C=4 AND X=3 THEN READ D$
PRINT AT X+1,1;D$
NEXT X
RESTORE C*10+Z
RETURN 
RESTORE 50
FOR X=1 TO Z: READ D: NEXT X
RESTORE D
RETURN 
PRINT AT 9,0;TAB 7;"The correct word is: ": READ W$: LET WL=LEN (W$): LET T1=INT (32-WL)/2: PRINT AT 10,T1;W$
IF C<>5 THEN GO TO 6070
LET DH=D: IF D>100 THEN LET DH=D-100
LET U=C: LET V=Z: LET C=INT (DH/10): LET Z=DH-C*10
GO SUB 5500
IF C=1 THEN LET W1=W1+1
IF C=2 THEN LET W2=W2+1
IF C=3 THEN LET W3=W3+1
IF C=4 THEN LET W4=W4+1
LET C=U: LET Z=V
RESTORE C*10+Z: IF C=5 THEN RESTORE D
IF L1=14 THEN READ D$
IF L1=16 THEN READ D$: READ D$
LET SL=LEN (D$): LET SK=0: LET T1=0
PRINT AT L1,0;TAB 29;" ": PRINT AT L1-1,0;TAB 31;" "
FOR P=1 TO SL
IF D$(P)="(" THEN PRINT AT L1-1,T1;W$: LET T1=T1+WL: LET SK=1
IF D$(P)=")" THEN LET SK=0: GO TO 6160
IF SK=1 THEN GO TO 6160
PRINT AT L1-1,T1;D$(P): LET T1=T1+1
NEXT P
GO SUB 3500
RETURN 
ON ERR RESET 
PAUSE 100
ON ERR GO TO 9900
ON ERR CONTINUE 

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.