to quiz
;QUIZ by David Wess
;V 001 15/10/84
;Copyright (c) Tatung (UK) Ltd.1984
cs setbg 0 setpc 7 ss setscrunch 1.312
messprep beepmess1 [.......Quiz\-time with Dr. Logo......] qmark messprep beepmess1 [........Set ALPHA LOCK off now........] wait 8
jingle
runquiz
ct cs
end
to beepmess1 :mess
tones [100 1]
if emptyp :mess [stop]
make "mbuff se :mbuff first :mess
setcursor [0 20] pr :mbuff
beepmess1 bf :mess
end
to messprep
make "mbuff " ct
end
to jingle
tones [400 20]
tones [785 20]
tones [660 20]
tones [520 20]
tones [438 20]
tones [745 20]
tones [880 5]
tones [785 25]
end
to runquiz
recycle
messprep beepmess1 [...Press 1 or 2 to select a quiz \ \ \ \ \ \ ...Press e to end]
setcursor [19 21]
make "command (list rc)
if :command = [1] [quiz1]
if :command = [2] [quiz2]
if :command = [e] [stop]
runquiz
end
to quiz1
zeroscore
qout [1 Give the name of the nut used to make \ marzipan?] [almond]
qout [2 Which European country has the Zloty \ \ as its unit of currency?] [Poland]
qout [3 What is the scientific name for marsh \ gas?] [methane]
qout [4 Name the wood traditionally used to \ \ \ make black piano keys?] [ebony]
qout [5 In what year was the great fire of \ \ \ \ London] [1666]
qout [6 How many players are there in a Rugby \ league team?] [13]
qout [7 Damascus is the capital of....?] [Syria]
qout [8 How many farthings are there in one \ \ \ pound sterling] [960]
qout [9 In what year was Mount Everest first \ \ successfully climbed?] [1953]
qout [10 Who wrote the book titled "The Road \ \ \ to Wigan Pier" (surname) ?] [Orwell]
messprep beepmess1 (se [..End of Quiz 1 ..you scored] :score [points.])
if :score = 10 [pr [....Well done!..]]
tones [100 5] tones [95 5] tones [90 5]
tones [85 5] jingle
end
to zeroscore
make "score "0
end
to cheer
make "score :score + 1 ct
pr [...Correct answer.] rt 180 tones [120 2] tones [400 2] tones [800 1] tones [900 2] tones [920 1] tones [930 3] tones [1 30] rt 180 wait 2
ct make "mbuff " beepmess1 (se [...Your score is now] :score) wait 5
end
to retry
ct
pr [...No your answer is incorrect.] lt 10 repeat 2 [tones [50 10] rt 20 tones [45 10] lt 20] rt 10 tones [40 15]
pr [...Do you want to try again (y\/n)]
setcursor [36 21] make "reply (list rc)
if :reply = [n] [messprep beepmess1 se [....The answer was] :answer wait 5]
end
to qout :question :answer
ct pr :question if rl = :answer [cheer stop]
retry if :reply = [y] [qout :question :answer]
end
to quiz2
zeroscore
qout [1 What does a 'palaeontologist' study?] [fossils]
qout [2 What kind of creatures live in a \ \ \ \ \ \ 'formicary'] [ants]
qout [3 'Cats Tail' and 'Cocks Foot' are \ \ \ \ \ \ species of what?] [grass]
qout [4 What metal can be described as \ \ \ \ \ \ \ \ argentine?] [silver]
qout [5 What is the name of the chief muscle \ \ used in breathing which separates the \ chest from the abdomen] [diaphragm]
qout [6 What is the more common name for the \ \ 'patella'?] [kneecap]
qout [7 What is the name of Londons famous \ \ \ \ meat market?] [Smithfield]
qout [8 Which orange coloured dye is obtained \ from the autumn crocus?] [saffron]
qout [9 What planet in our solar system is \ \ \ \ closest to the Sun?] [Mercury]
qout [10 What is the name of the main Soviet \ \ \ news agency?] [Tass]
messprep beepmess1 (se [..End of Quiz 2 ..you scored] :score [points.])
if :score = 10 [pr [....Well done!..]]
tones [100 5] tones [95 5] tones [90 5]
tones [85 5] jingle
end
to zero :x :y
pu setx :x sety :y pd ht
label "loop repeat 4 [fd 10 rt 90]
end
to qmark
;draws a "?" on the screen for the quiz program.
setpc 9
setscrunch 1
make "z1 [-30 -30 -30 -25 -20 -10 0 10 20 25 30 30 30 30 20 10 0 -10 -10 -10 -10 -10]
make "y1 [60 65 70 75 80 80 80 80 80 75 70 60 50 40 30 20 15 10 0 -10 -20]
make "a 0
make "b 50
make "c 10 ht
pu home
sety 60
setx -30
pd
clean
label "loop3 make "x first :z1 make "y first :y1
label "loop2 make "z1 bf :z1 make "y1 bf :y1
zero :x :y
if emptyp :z1 [go "tur]
if emptyp :y1 [go "tur]
go "loop3
label "tur st pu bk 20 rt 90 fd 5 rt 270 pd
end
pprop "dog "bread "alsation
pprop "house "colour "green
on]
qout [9 What planet in our solar sy