1 SCREEN 0
2 COLOR 14, 1
10 CLEAR
20 CLS
30 PRINT "ROOTESTRIV"
40 PRINT
50 PRINT "The Rootes Group trivia game"
60 PRINT
70 PRINT "Version 1.1, January 1991, Updated March 1996"
80 COUNT = 0
90 REM The above line sets the player's score count to 0
100 INPUT "Enter your name "; N$
110 INPUT "How many questions should I ask you (max 100)"; Q
120 RANDOMIZE
130 DIM RQ(Q)
140 REM Begin a loop to ask Q questions.
150 L = 1
160 FOR L = 1 TO Q
170 PRINT "Press any key to continue"
180 LET X$ = INKEY$: IF X$ = "" GOTO 180
190 CLS
200 GOSUB 470
210 PRINT QUESTION$
220 INPUT "What is your answer"; RESPONSE$
230 PRINT
240 REM Check to see if answer is correct.
250 IF ANSWER$ = RESPONSE$ THEN COUNT = COUNT + 1
255 IF ANSWER$ = RESPONSE$ THEN SOUND 1000, 10 ELSE SOUND 37, 15
260 IF ANSWER$ = RESPONSE$ THEN PRINT "Correct" ELSE PRINT "Sorry, the answer was "; ANSWER$
270 IF R = 84 THEN PRINT "There was no Humber variant."
280 IF R = 86 THEN PRINT "It was based on the Avenger floorpan."
290 IF R = 88 THEN PRINT "There was no Lancia variant."
300 IF R = 92 THEN PRINT "It was called the Sunbeam Chamois."
305 IF R = 101 THEN PRINT "This was to confuse motoring journalists trying to identify the car."
310 PRINT N$; ", your score so far is "; COUNT
320 REM Go to next question.
330 NEXT L
340 PRINT
350 PRINT N$; " your total score is "; COUNT; " out of "; Q; "."
360 Y = COUNT / Q * 100
370 PRINT "Your accuracy rate is"; Y; "%."
380 IF Y > 90 THEN PRINT "Excellent"
390 IF Y > 70 AND Y < 90 THEN PRINT "Well Done"
400 IF Y >= 50 AND Y < 70 THEN PRINT "Not Bad"
410 IF Y < 50 THEN PRINT "Tch Tch"
420 PRINT "Do you wish to play again "; N$; " (Y/N)?"
430 LET O$ = INKEY$: IF O$ = "" GOTO 430
440 IF O$ = "Y" OR O$ = "y" GOTO 10
450 END
460 REM Random question selection module.
470 R = INT(RND * 101)
480 REM Check that same question has not already been asked.
490 FOR Z = 1 TO Q
500     IF R = RQ(Z) THEN GOTO 470
510 NEXT Z
520 FOR X = 1 TO R
530     READ QUESTION$
540     READ ANSWER$
550 NEXT X
560 REM Record the number of each question asked so it won't be repeated.
570 LET RQ(L) = R
580 RESTORE
590 RETURN
600 REM Questions and Answers. More may be added by user.
610 DATA "When was the Imp released?","1963"
620 DATA "In what year was the Sunbeam company founded?","1899"
630 DATA "What was the surname of Sunbeam's founder?","Marston"
640 DATA "The Tiger was a V8 Alpine and a high performance derivative of another Rootes car. Which one?","Avenger"
650 DATA "The first production Sunbeam was the Sunbeam-______","Mabley"
660 DATA "Some early Sunbeams were built under license from a French firm called","Berliet"
670 DATA "Sunbeam's great years began when a Breton engineer joined the firm. What was his surname?","Coatalen"
680 DATA "In Australia, the Hunter GT was replaced by another Hunter model. What was its name?","Hustler"
690 DATA "Sunbeam merged with two other car makers in 1920. Name the British-based firm","Talbot"
700 DATA "Sunbeam merged with two other car makers in 1920. Name the French-based firm","Darracq"
710 DATA "In what year was STD Motors formed?","1920"
720 DATA "In what year did Rootes buy Sunbeam and Talbot?","1935"
730 DATA "A British specialist firm was Rootes' rival in the bidding for Sunbeam. It still produces cars today, under what name?","Jaguar"
740 DATA "When was the Sunbeam-Talbot marque created?","1938"
750 DATA "When was the Sunbeam-Talbot 80/90 range introduced?","1948"
760 DATA "When was the first Alpine introduced?","1953"
770 DATA "In what year was Talbot dropped from Sunbeam-Talbot?","1955"
780 DATA "In which year was the Rapier introduced?","1955"
790 DATA "In which year was the second generation Alpine introduced?","1959"
800 DATA "What was the name of the Sunbeam built in Italy","Venezia"
810 DATA "Who supplied the power for the Tiger?","Ford"
820 DATA "How many cylinders had the Tiger?","8"
830 DATA "In which year was the Tiger introduced?","1964"
840 DATA "When did Sunbeam badged Imps appear on the home market?","1966"
850 DATA "What was the name of the Sunbeam Imp coupe?","Stiletto"
860 DATA "Name the Hillman Imp coupe","Californian"
870 DATA "When did the fastback Rapier appear?","1967"
880 DATA "Not all fastback Sunbeams bore the Rapier badge. What other nameplate was used?","Alpine"
890 DATA "The fourth generation Alpine did not use the Sunbeam nameplate. Which did it use?","Chrysler"
900 DATA "In which year was the Hillman car company founded?","1907"
910 DATA "In which year did Rootes take control of Hillman-Humber?","1928"
920 DATA "When was the first Minx released?","1931"
930 DATA "What was the name of the hardtop coupe Minx of 1953?","Californian"
940 DATA "Name the short-wheelbase station wagon/van version of the Minx","Husky"
950 DATA "The Husky was also sold as the Commer ___","Cob"
960 DATA "The Minx was built in Japan by whom?","Isuzu"
970 DATA "When was the Super Minx released?","1962"
980 DATA "In which part of the United Kingdom was the Imp produced?","Scotland"
990 DATA "The standard Imp had an engine of ___cc","875"
1000 DATA "In which year was the Hunter released?","1966"
1010 DATA "Initially, in Britain, the Hunter was also sold as the Hillman ____","Minx"
1020 DATA "Hunters were also built in Iran for some time after they were axed elsewhere. What were they called there?","Peykan"
1030 DATA "When did the Avenger appear?","1970"
1040 DATA "What was the Avenger called in the USA? (Plymouth _______)","Cricket"
1050 DATA "In which year was the last Hillman built?","1978"
1060 DATA "When was the Humber car company founded?","1898"
1070 DATA "Originally Humber had two factories. One was in Coventry, where was the other?","Beeston"
1080 DATA "When did the Humber Snipe first appear?","1929"
1090 DATA "When did the Sceptre first appear?","1964"
1100 DATA "When did the Humber name disappear?","1976"
1110 DATA "When was the Singer car company founded","1905"
1120 DATA "In 1928, Morris and Austin were Britain's largest car makers. Who was number three?","Singer"
1130 DATA "When did Rootes take control of Singer?","1956"
1140 DATA "A Singer saloon was introduced in 1955 to replace the SM1500. What was its name?","Hunter"
1150 DATA "The original Gazelle was a derivative of which Hillman model?","Minx"
1160 DATA "The Singer Chamois was a derivative of which Hillman model?","Imp"
1170 DATA "The second generation Gazelle and Vogue were derivatives of which Hillman model?","Hunter"
1180 DATA "In which year was the Singer name dropped?","1970"
1190 DATA "In 1977, Chrysler UK introduced a new hatchback. What was it called?","Sunbeam"
1200 DATA "In which part of the UK was the Sunbeam hatchback built?","Scotland"
1210 DATA "Where was Rootes'Scottish plant?","Linwood"
1220 DATA "A French Chrysler model was designed in Britain as a new big Humber. It was the Chrysler ___","180"
1230 DATA "What was the Chrysler 180 called in Australia?","Centura"
1240 DATA "The Chrysler Alpine/Simca 1307 of 1975 was built in Britain and France. Where was it designed?","Britain"
1250 DATA "When was the Talbot car company founded?","1903"
1260 DATA "Early Talbots were based on which French company's products","Clement"
1270 DATA "Talbot's famous slogan was `The __________ Talbot'","Invincible"
1280 DATA "Talbot's most famous products were designed by Georges ______.","Roesch"
1290 DATA "Who bought out Chrysler Europe in 1978?","Peugeot"
1300 DATA "Which name was revived for ex-Chrysler Europe products by Peugeot","Talbot"
1310 DATA "Which British Talbot plant was closed in 1981","Linwood"
1320 DATA "Who supplied the power for the fastest Sunbeam hatchback?","Lotus"
1330 DATA "Which car and truck maker was taken over by Rootes after World War II. (Name begins with `V')","Vulcan"
1340 DATA "Who took total control of Rootes in 1967?","Chrysler"
1350 DATA "Humber acquired Commer in 1925 (before the Rootes takeover). True or False?","True"
1360 DATA "A Rootes model was still being produced in South America by Volkswagen until the early 1990s (They bought Chrysler Brazil & Argentina). Which one?","Avenger"
1370 DATA "Rootes' Ryton plant is still building cars today. Which Peugeot model is built there?","306"
1380 DATA "Peugeot sold the former Chrysler truck operation (including Commer and Karrier) in the early 80s. Who bought it?","Renault"
1390 DATA "Most Hillmans and Singers were sold under the Sunbeam name in continental Europe. True or False?","True"
1400 DATA "What was the surname of the man who took control of the French Talbot (nee Darracq) company in 1935?","Lago"
1410 DATA "Which firm took control of Lago Talbot in 1959 (With Rootes, it became part of Chrysler Europe)?","Simca"
1420 DATA "Humber bought Hillman in 1928 (before the Rootes takeover). True or False?","True"
1430 DATA "Alfa Romeo and Opel originally built which car for the Italian and German markets respectively?","Darracq"
1440 DATA "Imps were available in Britain in Hillman, Humber, Singer, Sunbeam and Commer variants. True or False?","False"
1450 DATA "The Avenger was sold initially as a Hillman, then as a Chrysler and finally as a what?","Talbot"
1460 DATA "The Sunbeam hatchback was based on the Hunter floorpan. True or False?","False"
1470 DATA "The Talbot Samba of 1982 was a derivative of the Peugeot 104/Citroen Visa. True or False?","True"
1480 DATA "The Talbot Express van was also sold by Peugeot, Citroen, Fiat, Lancia and Alfa Romeo. True or False?","False"
1490 DATA "In Australia, the Singer Vogue was sold as a ...","Humber"
1500 DATA "In continental Europe, the Avenger was sold as a ...","Sunbeam"
1510 DATA "Under what name were most Hillmans sold in the USA?","Sunbeam"
1520 DATA "The Singer Chamois was sold as a Hillman in mainland Europe. True or False?","False"
1530 DATA "The Talbot Solara was a booted version of which Talbot hatchback?","Alpine"
1540 DATA "The Talbot Alpine and Solara were renamed in Britain from 1984. What was the base model called?","Minx"
1550 DATA "The Talbot Alpine and Solara were renamed in Britain from 1984. What was the upmarket model called?","Rapier"
1560 DATA "Sunbeam were the first to achieve which landmark speed in 1927 (in mph)?","200"
1570 DATA "What was the codename of Rootes' stillborn rear-engined family car?","Swallow"
1580 DATA "What was the codename of Rootes' stillborn Imp sports car, intended to slot in under the Alpine?","Asp"
1590 DATA "What was the codename of the Imp range?","Apex"
1600 DATA "What was the codename of the Hunter range?","Arrow"
1610 DATA "What badge was used on the road-going Asp (sub-Alpine sports car) prototype?","Ferrari"