'***************************
                        '*         Trivia          *
                        '*     By Alex R. Ford     *
                        '*       Version 1.0       *
                        '*      July 19, 2001      *
                        '***************************

'****************************************************************************
SCREEN 12
RANDOMIZE TIMER
CONST true = -1, false = 0, pi = 3.14
question = 1
'****************************************************************************
'Main Subroutine
CLS
GOSUB trivia
CHAIN "c:\windows\profiles\alex\desktop\q-basi~1\gameinto"
'****************************************************************************
trivia:
donegame = false
WHILE NOT donegame
CLS
GOSUB edit
IF donegame = false THEN
LOCATE 8, 1
COLOR 10
PRINT question$
LOCATE 11, 1
COLOR 9
PRINT "1) "; answer1$
IF question = 17 THEN
LOCATE 12, 1
PRINT "2)"; right - 2
LOCATE 13, 1
PRINT "3)"; right
LOCATE 14, 1
PRINT "4)"; wrong
LOCATE 15, 1
PRINT "5)"; question + 1
ELSE
LOCATE 12, 1
PRINT "2) "; answer2$
LOCATE 13, 1
PRINT "3) "; answer3$
LOCATE 14, 1
PRINT "4) "; answer4$
LOCATE 15, 1
PRINT "5) "; answer5$
END IF
LOCATE 16, 1
COLOR 2
INPUT "What is your choice?: ", chc
IF chc = answer THEN
        COLOR 10
        LOCATE 17, 1
        INPUT "RIGHT!", g$
        right = right + 1
        question = question + 1
ELSEIF chc = 0 OR chc > 5 THEN
        COLOR 12
        LOCATE 17, 1
        INPUT "Choose one of the answers!", g$
ELSE
        COLOR 4
        LOCATE 17, 1
        PRINT "WRONG!"
        LOCATE 18, 1
        COLOR 3
        PRINT "Answer: "; answer
        INPUT "", g$
        wrong = wrong + 1
        question = question + 1
END IF
END IF
WEND
RETURN
'****************************************************************************
edit:
LOCATE 28, 1
COLOR 2
PRINT "Answers Right = ";
COLOR 9
PRINT right;
COLOR 2
PRINT "   Answers Wrong = ";
COLOR 4
PRINT wrong;
COLOR 2
PRINT "   Question = ";
COLOR 3
PRINT question
IF question = 1 THEN
        question$ = "What is on top of the Matterhorn at Disneyland?"
        answer1$ = "Basketball court"
        answer2$ = "Baseball diamond"
        answer3$ = "A giant hole"
        answer4$ = "A tub of worms"
        answer5$ = "A vaccum cleaner"
        answer = 1
ELSEIF question = 2 THEN
        question$ = "How many waterfalls are in the piraits of the caribean?"
        answer1$ = "2"
        answer2$ = "None"
        answer3$ = "3"
        answer4$ = "5"
        answer5$ = "1"
        answer = 3
ELSEIF question = 3 THEN
        question$ = "What land is the Matterhorn in?"
        answer1$ = "Frontier land"
        answer2$ = "Fantasy land"
        answer3$ = "Toon town"
        answer4$ = "Tommorow land"
        answer5$ = "Adventure land"
        answer = 2
ELSEIF question = 4 THEN
        question$ = "What is now in place of the people mover?"
        answer1$ = "Space mountain"
        answer2$ = "Splash mountain"
        answer3$ = "Piraits of the Caribean"
        answer4$ = "Roger rabit"
        answer5$ = "Rocket cars"
        answer = 5
ELSEIF question = 5 THEN
        question$ = "What is the newest attraction for year 2001 at Sea World?"
        answer1$ = "Shark encounter"
        answer2$ = "Penguin encounter"
        answer3$ = "Circle of flags"
        answer4$ = "Cirque de la mer"
        answer5$ = "Shamu's happy harbor"
        answer = 4
ELSEIF question = 6 THEN
        question$ = "Recently roger rabit was closed for 8 months at Disneyland. Why?"
        answer1$ = "Because a boy fell out of his car and was hit by the one behind him"
        answer2$ = "Because a man brought a gun in and held people as hostage"
        answer3$ = "Because one of the cars broke and got jammed on the track"
        answer4$ = "Because of the power outages"
        answer5$ = "Because they were thinking of putting in a different ride"
        answer = 1
ELSEIF question = 7 THEN
        question$ = "Disneyland recently made a new theme park what is it called?"
        answer1$ = "Disney's log cabin"
        answer2$ = "Hurricane harbor"
        answer3$ = "Disney's California Adventure"
        answer4$ = "Six Flags"
        answer5$ = "Disney's California Water World"
        answer = 3
ELSEIF question = 8 THEN
        question$ = "What ride involes the Temple of the Forbidden Eye?"
        answer1$ = "Piraits of the Caribean"
        answer2$ = "Matterhorn"
        answer3$ = "Monorail"
        answer4$ = "Indiana Jones"
        answer5$ = "Rocket cars"
        answer = 4
ELSEIF question = 9 THEN
        question$ = "How many lands are there at Disneyland?"
        answer1$ = "8"
        answer2$ = "4"
        answer3$ = "5"
        answer4$ = "6"
        answer5$ = "3"
        answer = 1
ELSEIF question = 10 THEN
        question$ = "What did Disneyland recently adapt to the front of thier park?"
        answer1$ = "Downtown California"
        answer2$ = "Uptown Disney"
        answer3$ = "Downtown SanFrancisco"
        answer4$ = "Another monorail track"
        answer5$ = "Downtown Disney"
        answer = 5
ELSEIF question = 11 THEN
        question$ = "What happens on splash mountain?"
        answer1$ = "You spin around really fast"
        answer2$ = "You drop down a huge waterfall"
        answer3$ = "You get wet"
        answer4$ = "Both answers 2 and 3"
        answer5$ = "Both answers 1 and 4"
        answer = 4
ELSEIF question = 12 THEN
        question$ = "Wich ride in Disneyland is a roller coaster train?"
        answer1$ = "Splash mountain"
        answer2$ = "Autopia"
        answer3$ = "Haunted house"
        answer4$ = "Thunder mountain"
        answer5$ = "None of the above"
        answer = 4
ELSEIF question = 13 THEN
        question$ = "Once you are out of Main street U.S.A. if you were to turn right, What land would you be in?"
        answer1$ = "Toon town"
        answer2$ = "Tomorrow land"
        answer3$ = "Frontier land"
        answer4$ = "New orleans square"
        answer5$ = "Fantasy land"
        answer = 2
ELSEIF question = 14 THEN
        question$ = "What land has Tarzan's treehouse in it?"
        answer1$ = "Adventure land"
        answer2$ = "New orleans square"
        answer3$ = "Tomorrow land"
        answer4$ = "Toon town"
        answer5$ = "None of the above"
        answer = 1
ELSEIF question = 15 THEN
        question$ = "In tomorrow land they have a 3D theatre called honey I shrunk the adience. What did it used to be called?"
        answer1$ = "Mickeys tomorrow land in 3D"
        answer2$ = "4D piraites"
        answer3$ = "Toy story in 3D"
        answer4$ = "Three blind mice 3D"
        answer5$ = "None of the above"
        answer = 5
ELSEIF question = 16 THEN
        question$ = "What land has the power rangers in it?"
        answer1$ = "Fantasy land"
        answer2$ = "Adventure land"
        answer3$ = "Power rangers are not in Disneyland"
        answer4$ = "Tomorrow land"
        answer5$ = "Power rangers are seen all over Disneyland"
        answer = 3
ELSEIF question = 17 THEN
        question$ = "How many questions have you gotten right so far?"
        answer1$ = "7"
        answer = 3
ELSEIF question = 18 THEN
        question$ = "What two types of food do they sell all over the park?"
        answer1$ = "Popcorn and jello"
        answer2$ = "Apples and churros"
        answer3$ = "Popcorn and brussel sprouts"
        answer4$ = "Icecream and jello"
        answer5$ = "Icecream and churros"
        answer = 5
ELSEIF question = 19 THEN
        question$ = "How do you get to Tom Sauyer island?"
        answer1$ = "The big huge boats"
        answer2$ = "Canoes"
        answer3$ = "A bridge"
        answer4$ = "A raft"
        answer5$ = "Underground tunnels"
        answer = 4
ELSEIF question = 20 THEN
        question$ = "What is Fantasia?"
        answer1$ = "A show with water and light"
        answer2$ = "A ride"
        answer3$ = "A petting zoo"
        answer4$ = "A movie"
        answer5$ = "A type of matress"
        answer = 1
ELSEIF question = 21 THEN
        question$ = "What do you ride in piraits of the caribean?"
        answer1$ = "Logs"
        answer2$ = "Race cars"
        answer3$ = "Boats"
        answer4$ = "Rafts"
        answer5$ = "Submarines"
        answer = 3
ELSEIF question = 22 THEN
        question$ = "What was the parade that disneyland moved from the magic kingdom to California Adventure?"
        answer1$ = "Fantasia"
        answer2$ = "Lion king parade"
        answer3$ = "Elephant parade"
        answer4$ = "Electrical parade"
        answer5$ = "None of the above"
        answer = 4
ELSEIF question = 23 THEN
        question$ = "What do you ride in the haunted house at Disneyland?"
        answer1$ = "A chair which they call the 'Doom Buggy'"
        answer2$ = "A chair which they call the 'Haunted Seat'"
        answer3$ = "A chair which they call the 'Haunted Chair'"
        answer4$ = "A chair which they call the 'Ghost Mobile'"
        answer5$ = "A Haunted Boat"
        answer = 1
ELSEIF question = 24 THEN
        question$ = "When your in the haunted house the chair your in will turn backward when you go down a hill, what do you see with red eyes on the tree branch above?"
        answer1$ = "An evil squirel"
        answer2$ = "A haunted toad"
        answer3$ = "An evil tree frog"
        answer4$ = "An evil crow"
        answer5$ = "A ghost"
        answer = 4
ELSEIF question = 25 THEN
        question$ = "In space mountain, what is the food that one of the space rocks looks like?"
        answer1$ = "A bike tire"
        answer2$ = "A Bana split"
        answer3$ = "A donut"
        answer4$ = "A sugar cookie"
        answer5$ = "A chocolate chip cookie"
        answer = 5
ELSEIF question = 26 THEN
        question$ = "Next to the matterhorn there is a small lake, what ride used to be in that lake?"
        answer1$ = "A airplane ride"
        answer2$ = "A submarine ride"
        answer3$ = "Both answers 1 and 2"
        answer4$ = "A car ride"
        answer5$ = "None of the above"
        answer = 2
ELSEIF question = 27 THEN
        question$ = "There used to be a giant hole in the matterhorn, what ride went through that hole?"
        answer1$ = "A spaceship ride"
        answer2$ = "A helicopter ride"
        answer3$ = "A skyride, where chairs on a cable would go through the hole"
        answer4$ = "Both answers 1 and 2"
        answer5$ = "Both answers 3 and 4"
        answer = 3
ELSEIF question = 28 THEN
        question$ = "What ride has a small man with a banana shaped hat on him and a face on the hat?"
        answer1$ = "Haunted house"
        answer2$ = "Pirates of the Caribean"
        answer3$ = "It's a small world"
        answer4$ = "Roger Rabit"
        answer5$ = "None of the above"
        answer = 3
ELSEIF question = 29 THEN
        question$ = "What ride involves the words 'Zippedy doo da, Zippedy day'?"
        answer1$ = "Haunted house"
        answer2$ = "Pirates of the caribean"
        answer3$ = "Splash mountain"
        answer4$ = "both answers 1 and 3"
        answer5$ = "All of the above"
        answer = 3
ELSEIF question = 30 THEN
        question$ = "What ride has a character called Sonic the Hedge Hog in it?"
        answer1$ = "Pirates of the caribean"
        answer2$ = "Space mountain"
        answer3$ = "Mickey's house"
        answer4$ = "Every ride has Sonic the Hedge Hog in it"
        answer5$ = "Sonic the Hedge Hog isn't even a disney character"
        answer = 5
ELSEIF question = 31 THEN
        CLS
        DO
        COLOR 10
        LOCATE 13, 30
        PRINT "Answers Right: ";
        COLOR 9
        PRINT right; "/ 30"
        LOCATE 15, 30
        COLOR 10
        PRINT "Answers Wrong: ";
        COLOR 4
        PRINT wrong; "/ 30"
        LOOP UNTIL INKEY$ <> ""
        donegame = true
ELSEIF question = 0 THEN
        question$ = "?"
        answer1$ = ""
        answer2$ = ""
        answer3$ = ""
        answer4$ = ""
        answer5$ = ""
        answer = 0
END IF
RETURN
'****************************************************************************