5 DIM SCN(8000):DIM BUT(300):DIM BTN(300)
        DIM Wf%(255):DIM Wg%(255):DIM Wa%(255)
        FOR I=0 TO 127
        Wf%(I)=127
        Wf%(255-I)=-128
        NEXT I
        FOR I=127 TO 0 STEP -1
        I2=I+2
        Wg%(I)=I2-128
        Wg%(255-I)=I2-128
        NEXT I
        FOR I=255 TO 0 STEP -1
        Wa%(I)=I-128
        NEXT I
        GOTO 10
6 WAVE 0,Wa%
        WAVE 1,SIN
        WAVE 2,SIN
        WAVE 3,SIN
        MUS=0
7 MUS=MUS+1
        SOUND WAIT
        SOUND 1175,3.5,,0
        SOUND 0,.5,,0
        SOUND 1175,1.8,,0
        SOUND 0,.2,,0
        SOUND 1175,2,,0
        SOUND 880,4,,0
        SOUND 740,4,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 784,4,,0
        SOUND 988,4,,0
        SOUND 880,8,,0
        SOUND 494,4,,1
        SOUND 392,4,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 1174,3.5,,0
        SOUND 0,.5,,0
        SOUND 1174,4,,0
        SOUND 880,4,,0
        SOUND 740,4,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 587,8,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 277,8,,2
        SOUND 294,8,,2
        SOUND RESUME
        IF MUS<2 THEN 7
        RETURN
8 MUS=MUS+1
        SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 659,2,,0
        SOUND 587,2,,0
        SOUND 494,4,,0
        SOUND 0,1,,1
        SOUND 440,7,,1
        SOUND 0,1,,1
        SOUND 392,7,,1
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 698,2,,0
        SOUND 740,3.8,,0
        SOUND 0,.2,,0
        SOUND 740,2,,0
        SOUND 440,8,,0
        SOUND 0,.2,,1
        SOUND 440,3.8,,1
        SOUND 0,4,,1
        SOUND 370,8,,1
        SOUND 0,.2,,2
        SOUND 294,3.8,,2
        SOUND 0,4,,2
        SOUND 294,8,,2
        SOUND RESUME
9 SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 659,2,,0
        SOUND 587,2,,0
        SOUND 494,4,,0
        SOUND 0,1,,1
        SOUND 440,7,,1
        SOUND 0,1,,1
        SOUND 392,7,,1
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 440,5,,0
        SOUND 494,5,,0
        SOUND 587,12,,0
        SOUND 370,5,,1
        SOUND 392,5,,1
        SOUND 370,12,,1
        SOUND 0,5,,2
        SOUND 330,5,,2
        SOUND 294,12,,2
        SOUND RESUME
        RETURN
        

10 OPEN "Mr.C" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (40,30)-(455,269), IMAGE$
        CLOSE
        GOSUB 6
        FOR DLY=1 TO 1000:NEXT DLY
        CLS
15 CALL TEXTFONT(0):CALL TEXTSIZE(72)
        CALL MOVETO(100,70):PRINT "Author"
        CALL MOVETO(200,180):PRINT"Author"
        CALL TEXTFONT(3):CALL TEXTSIZE(12)
        GOSUB 8
        FOR DLY=1 TO 3000: NEXT DLY
16 PRINT,"THE GAME DISPLAYS A SCREEN WITH THE NAME OF AN AUTHOR AND"
        PRINT,"THE NAMES OF TWO OF HIS BOOKS."
        PRINT""
        PRINT,"THE GOAL IS TO FIND THE LOCATION IN COLUMN ONE OF THE NAME"
        PRINT,"OF THE FIRST BOOK  - - AND - -"
        PRINT,"THEN TO FIND THE NAME OF THE SECOND BOOK AT THE SAME TIME."
        PRINT""
        PRINT,"IF ONE FINDS ONLY THE FIRST ONE, THAT DOES NOT COUNT, "
        PRINT,"BOTH NAMES HAVE TO SHOW AT THE SAME TIME FOR A PLAYER"
        PRINT,"TO GET THE SCORE POINT."
        PRINT""
        INPUT "PRESS THE 'RETURN' KEY.", V
        
20 OPEN "scrn" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (0,0)-(496,310), IMAGE$
        CLOSE
        GET (0,0)-(496,310), SCN
        CLS
25 CALL MOVETO(50,50)
        INPUT"NAME OF PLAYER #1-- ", NOMEN1$
        IF NOMEN1$="" THEN BEEP:GOTO 25
26 CALL MOVETO(50,100)
        INPUT "NAME OF PLAYER #2-- ", NOMEN2$
        IF NOMEN2$="" THEN BEEP:GOTO 26
        CALL MOVETO(50,150)
        PRINT"THANK YOU"
        FOR DLY=1 TO 2000:NEXT DLY
        PRINT""
        CALL TEXTFACE(5)
        PRINT"    TO END, CLICK ON THE AUTHOR NAME."
        CALL TEXTFACE(0)
        PRINT""
        INPUT"    TO GET GOING, PRESS THE 'RETURN' KEY.", V
        
28 CLS
        GOSUB 9
        SCORE1=0:SCORE2=0:PLR=1

        CHC=VAL(RIGHT$(TIME$,1))+1
        ON CHC GOTO 101,102,103,104,105,106,107,108,109,110

        
30 CLS:ATT=0
        PUT (0,0), SCN
        CALL MOVETO(22,46):PRINT AUTH$

        CALL MOVETO(46,72):PRINT TIT1$
        CALL MOVETO(247,72):PRINT TIT2$
31 IF PLR=1 THEN LINE(245,6)-(465,19),30,BF:CALL MOVETO(19,17):PRINT NOMEN1$"   SCORE="SCORE1
        IF PLR=2 THEN LINE(19,6)-(230,19),30,BF:CALL MOVETO(245,17):PRINT NOMEN2$"   SCORE="SCORE2

        WAVE 0,Wf%
        SOUND 196,3,,0
        SOUND 262,8,,0
32 B=0
        B=MOUSE(0)
        IF B=-1 THEN 33 ELSE 32
33 X=MOUSE(1):Y=MOUSE(2)
        IF X>17 AND X<247 AND Y>25 AND Y<46 THEN 700
        IF X>43 AND X<232 AND ATT=0 THEN 35 
        IF X>245 AND X<433 AND ATT=1 THEN 40 ELSE 32
        GOTO 32
35 IF Y>85 AND Y<107 THEN X1=43:X2=232:Y1=85:Y2=107:TI=1:GOTO 50
        IF Y>115 AND Y<137 THEN X1=43:X2=232:Y1=115:Y2=137:TI=2:GOTO 50
        IF Y>145 AND Y<167 THEN X1=43:X2=232:Y1=145:Y2=167:TI=3:GOTO 50
        IF Y>175 AND Y<197 THEN X1=43:X2=232:Y1=175:Y2=197:TI=4:GOTO 50
        IF Y>205 AND Y<227 THEN X1=43:X2=232:Y1=205:Y2=227:TI=5:GOTO 50
        IF Y>235 AND Y<257 THEN X1=43:X2=232:Y1=235:Y2=257:TI=6:GOTO 50
40 IF Y>85 AND Y<107 THEN X3=245:X4=433:Y3=85:Y4=107:TI=11:GOTO 52
        IF Y>115 AND Y<137 THEN X3=245:X4=433:Y3=115:Y4=137:TI=12:GOTO 52
        IF Y>145 AND Y<167 THEN X3=245:X4=433:Y3=145:Y4=167:TI=13:GOTO 52
        IF Y>175 AND Y<197 THEN X3=245:X4=433:Y3=175:Y4=197:TI=14:GOTO 52
        IF Y>205 AND Y<227 THEN X3=244:X4=433:Y3=206:Y4=227:TI=15:GOTO 52
        IF Y>235 AND Y<257 THEN X3=244:X4=433:Y3=236:Y4=257:TI=16:GOTO 52
        BEEP
        GOTO 32
        
        
50 GET(X1,Y1)-(X2,Y2),BUT
        LINE(X1,Y1)-(X2,Y2),30,BF
        SOUND 16,5,,0
        SOUND 131,1,,0
        IF TI=TT1 THEN 51 ELSE 55
51 CALL MOVETO(X1+3,Y2-3):PRINT TIT1$:ATT=1:GOTO 32

52 GET(X3,Y3)-(X4,Y4),BTN
        LINE(X3,Y3)-(X4,Y4),30,BF
        SOUND 16,5,,0
        SOUND 131,1,,0
        IF TI=TT2 THEN 53 ELSE 55
53 CALL MOVETO(X3+3,Y4-3):PRINT TIT2$
        IF PLR=1 THEN SCORE1=SCORE1+1:PLR=2:GOTO 54
        IF PLR=2 THEN SCORE2=SCORE2+1:PLR=1
54 GOSUB 9
        FOR DLY=1 TO 5000:NEXT DLY
        RETURN
55 FOR DLY=1 TO 2000:NEXT DLY
        LINE(X1,Y1)-(X2,Y2),30,BF
        PUT(X1,Y1),BUT
        SOUND WAIT
        SOUND 131,1,,0
        SOUND 16,5,,0
        SOUND RESUME
56 IF TI<10 THEN 58
        FOR DLY=1 TO 1000:NEXT DLY
        LINE(X3,Y3)-(X4,Y4),30,BF
        PUT(X3,Y3),BTN
        SOUND WAIT
        SOUND 131,1,,0
        SOUND 16,5,,0
        SOUND RESUME
58 FOR DLY=1 TO 800:NEXT DLY
        IF PLR=1 THEN PLR=2:ATT=0:GOTO 31
        IF PLR=2 THEN PLR=1:ATT=0:GOTO 31
        
101 AUTH$="Nathaniel Hawthorne"
        TIT1$="The Scarlet Letter":TIT2$="House of the Seven Gables"
        TT1=5:TT2=12
        GOSUB 30
102 AUTH$="James Fenimore Cooper"
        TIT1$="Pathfinder":TIT2$="Last of the Mohicans"
        TT1=3:TT2=16
        GOSUB 30
103 AUTH$="Edgar Allen Poe"
        TIT1$="The Raven":TIT2$="The Telltale Heart"
        TT1=1:TT2=13
        GOSUB 30
104 AUTH$="William Shakespeare"
        TIT1$="Romeo and Juliet":TIT2$="Julius Caesar"
        TT1=6:TT2=12
        GOSUB 30
105 AUTH$="Marcus Tullius Cicero"
        TIT1$="On Friendship":TIT2$="On Old Age"
        TT1=2:TT2=12
        GOSUB 30
106 AUTH$="Saint John"
        TIT1$="John's Gospel":TIT2$="The Apocalypse"
        TT1=4:TT2=11
        GOSUB 30
107 AUTH$="St. Thomas Aquinas"
        TIT1$="Summa Theologiae":TIT2$="De Veritate"
        TT1=3:TT2=16
        GOSUB 30
108 AUTH$="Mark Twain"
        TIT1$="Huckleberry Finn":TIT2$="Tom Sawyer"
        TT1=6:TT2=16
        GOSUB 30
109 AUTH$="John Greenleaf Whittier"
        TIT1$="The Fish I didn't Catch":TIT2$="The Corn Song"
        TT1=2:TT2=13
        GOSUB 30
110 AUTH$="Oliver Goldsmith"
        TIT1$="Vicar of Wakefield":TIT2$="She Stoops to Conquer"
        TT1=3:TT2=15
        GOSUB 30
111 AUTH$="Henry Wadsworth Longfellow"
        TIT1$="The Song of Hiawatha":TIT2$="The Village Blacksmith"
        TT1=4:TT2=12
        GOSUB 30
112 AUTH$="Louisa May Alcott"
        TIT1$="Little Women":TIT2$="Little Men"
        TT1=2:TT2=15
        GOSUB 30
113 AUTH$="Henry D. Thoreau"
        TIT1$="Walden":TIT2$="Civil Disobedience"
        TT1=4:TT2=11
        GOSUB 30
114 AUTH$="William Makepeace Thackeray"
        TIT1$="Vanity Fair":TIT2$="The Virginians"
        TT1=5:TT2=12
        GOSUB 30
115 AUTH$="James Sheridan Knowles"
        TIT1$="William Tell":TIT2$="Caius Gracchus"
        TT1=5:TT2=14
        GOSUB 30
116 AUTH$="James Henry Leigh Hunt"
        TIT1$="Abou Ben Adhem":TIT2$="The Story of Bimini"
        TT1=4:TT2=11
        GOSUB 30
117 AUTH$="William Cullen Bryant"
        TIT1$="Thanatopsis":TIT2$="The Death of the Flowers"
        TT1=3:TT2=16
        GOSUB 30
118 AUTH$="James Russell Lowell"
        TIT1$="The Vision of Sir Launfal":TIT2$="My Study Windows"
        TT1=3:TT2=15
        GOSUB 30
119 AUTH$="Charles Dickins"
        TIT1$="Pickwick Papers":TIT2$="Nicholas Nickelby"
        TT1=2:TT2=14
        GOSUB 30
120 AUTH$="Alfred Lord Tennyson"
        TIT1$="Idyls of the King":TIT2$="Crossing the Bar"
        TT1=6:TT2=13
        GOSUB 30
121 AUTH$="Washington Irving"
        TIT1$="Salmagundi":TIT2$="Bracebridge Hall"
        TT1=1:TT2=13
        GOSUB 30
122 AUTH$="Sir Francis Bacon"
        TIT1$="Novum Organum":TIT2$="Advancement of Learning"
        TT1=2:TT2=12
        GOSUB 30
123 AUTH$="Elizabeth Barrett Browning"
        TIT1$="He Giveth His Beloved Sleep":TIT2$="Aurora Leigh"
        TT1=1:TT2=16
        GOSUB 30
123 AUTH$="Edmund Burke"
        TIT1$="Conciliation with America":TIT2$="Revolution in France"
        TT1=3:TT2=12
        GOSUB 30
124 AUTH$="John Milton"
        TIT1$="On His Blindness":TIT2$="Paradise Lost"
        TT1=5:TT2=13
        GOSUB 30
125 AUTH$="Alexander Pope"
        TIT1$="Rape of the Lock":TIT2$="The Dunciad"
        TT1=4:TT2=16
        GOSUB 30
126 AUTH$="Robert Louis Stevenson"
        TIT1$="Treasure Island":TIT2$="Kidnapped"
        TT1=4:TT2=11
        GOSUB 30
127 AUTH$="Rudyard Kipling"
        TIT1$="Rikki-tikki-tavi":TIT2$="Gunga Din"
        TT1=2:TT2=15
        GOSUB 30
128 AUTH$="Walt Whitman"
        TIT1$="O Captain! My Captain!":TIT2$="I Hear America Singing"
        TT1=4:TT2=13
        GOSUB 30
129 AUTH$="Leonard Feeney"
        TIT1$="The Bread of Life":TIT2$="The Altar Boy"
        TT1=2:TT2=12
        GOSUB 30
130 AUTH$="John Masefield"
        TIT1$="Sea Fever":TIT2$="Jim Davis"
        TT1=1:TT2=15
        GOSUB 30
131 AUTH$="Washington Irving"
        TIT1$="Rip Van Winkle":TIT2$="Legend of Sleepy Hollow"
        TT1=4:TT2=15
        GOSUB 30
132 AUTH$="William Shakespeare"
        TIT1$="Hamlet":TIT2$="Macbeth"
        TT1=2:TT2=13
        GOSUB 30
133 AUTH$="G. K. Chesterton"
        TIT1$="Orthodoxy":TIT2$="The Everlasting Man"
        TT1=6:TT2=12
        GOSUB 30
134 AUTH$="C. S. Lewis"
        TIT1$="Chronicles of Narnia":TIT2$="Screwtape Letters"
        TT1=5:TT2=14
        GOSUB 30
135 AUTH$="Laura Ingalls Wilder"
        TIT1$="Little House on the Prairie":TIT2$="Little House in the Big Woods"
        TT1=4:TT2=11
        GOSUB 30
136 AUTH$="Richard Weaver"
        TIT1$="Ideas Have Consequences":TIT2$="Visions of Order"
        TT1=1:TT2=11
        GOSUB 30
137 AUTH$="Sterling North"
        TIT1$="So Dear to my Heart":TIT2$="Rascal"
        TT1=3:TT2=13
        GOSUB 30
138 AUTH$="Charles Dickins"
        TIT1$="Oliver Twist":TIT2$="David Copperfiled"
        TT1=3:TT2=11
        GOSUB 30
139 AUTH$="Robert W. Service"
        TIT1$="The Cremation of Sam McGee":TIT2$="Carry On!"
        TT1=2:TT2=11
        GOSUB 30
140 AUTH$="Henry Wadsworth Longfellow"
        TIT1$="Paul Revere's Ride":TIT2$="Evangeline"
        TT1=3:TT2=16
        GOSUB 30
141 AUTH$="Sir Walter Scott"
        TIT1$="Ivanhoe":TIT2$="Lochinvar"
        TT1=4:TT2=11
        GOSUB 30
142 AUTH$="Nicollo Machiavelli"
        TIT1$="The Prince":TIT2$="The Discourses"
        TT1=1:TT2=11
        GOSUB 30
143 AUTH$="St. Augustine"
        TIT1$="Confessions":TIT2$="City of God"
        TT1=3:TT2=16
        GOSUB 30
144 AUTH$="Bede the Venerable"
        TIT1$="History of England":TIT2$="Life of Cuthbert"
        TT1=2:TT2=15
        GOSUB 30
145 AUTH$="Sir Arthur Conan Doyle"
        TIT1$="Adventures of Sherlock Holmes":TIT2$="A Study in Scarlet"
        TT1=5:TT2=12
        GOSUB 30
146 AUTH$="Charles Dickins"
        TIT1$="A Christmas Carol":TIT2$="The Old Curiosity Shop"
        TT1=6:TT2=15
        GOSUB 30
147 AUTH$="O. Henry"
        TIT1$="Ransom of Redchief":TIT2$="Gift of the Magi"
        TT1=5:TT2=15
        GOSUB 30
148 AUTH$="Plato"
        TIT1$="The Republic":TIT2$="Laws"
        TT1=4:TT2=12
        GOSUB 30
149 AUTH$="William Shakespeare"
        TIT1$="A Midsummer-night's Dream":TIT2$="A Comedy of Errors"
        TT1=5:TT2=12
        GOSUB 30
150 AUTH$="Homer"
        TIT1$="Illiad":TIT2$="Oddessy"
        TT1=5:TT2=12
        GOSUB 30
151 AUTH$="Charles Dickins"
        TIT1$="Great Expectations":TIT2$="A Tale of Two Cities"
        TT1=3:TT2=15
        GOSUB 30
152 GOTO 101
1 AUTH$=""
        TIT1$="":TIT2$=""
        TT1=:TT2=
        GOSUB 30

        INPUT v
        M=0
650 B=0
        B=MOUSE(0)
        IF B=-1 THEN 655 ELSE 650
655 X=MOUSE(1)
        Y=MOUSE(2)
        M=M+1
        CALL MOVETO(50,270)
        PRINT M,X,Y
        FOR DL=1 TO 2000:NEXT DL
        GOTO 650
700 CLS
        PRINT""
        PRINT""
        PRINT"    "NOMEN1$"    SCORE="SCORE1
        PRINT""
        PRINT""
        PRINT"    "NOMEN2$"     SCORE ="SCORE2
        PRINT""
        PRINT""
        PRINT"    RECORD YOUR SCORES AND SUBMIT FOR EXTRA CREDIT."
        PRINT""
        PRINT""
        INPUT"    WHEN FINISHED, PRESS THE 'RETURN' KEY.", V
750 END

700