1 line
14 KiB
Plaintext
1 line
14 KiB
Plaintext
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
|