;;;;;;;;;;;;;;;;;;;;;;; START.BAT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\quiz.bat--
@echo off
txt 3
set lispstack=80000
set lispheap=160000
lisp quiz\cndnqz.lsp
set lispstack=
set lispheap=
;;;;;;;;;;;;;;;;;;;;; CANADIAN QUIZ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\cndnqz.lsp--
(defun quiz()
(defmacro while (test &rest forms)
`(do () ((not ,test))
,@forms
) )
(unless (fboundp 'strcat)
(defun strcat (&rest str)
(apply #'concatenate 'string str)
))
(defun sp()(princ " "))
(defun nl()(terpri))
(defun pr(x)(princ x)(nl))
(defun pa()(do((i 1(1+ i)))((> i 24))(nl)))(pa)
(defun i()(exit))
(defun in()(load "qz\\init"))
(defun qz()(load "qz\\cndnqz"))
(defun t(x)(setq f(open x))(do((i 0(1+ i)))((eq l 'nil))
(setq l(read-line f))(princ l)(nl))
)
(setq ot 't)
(defun tm();;needs ts=0 to start
(when ot
(setq z (/(get-internal-run-time) internal-time-units-per-second))
(setq z1 (- z ts))
(setq ts z)
(setq i(truncate z 3600))
(setq z(- z (* 3600 i)))
(setq j(truncate z 60))
(setq z(- z -0.5 (* 60 j)))
(setq w(truncate z 1))
(setq y1(truncate z1 60))
(setq z1(- z1 -0.5 (* 60 y1)))
(setq z1(truncate z1 1))
(format t "\n~1,54t ELAPSED TIME ~d:~2,d:~2,d <<- ~2,@d~a~2,d~a"
i j w y1 "'" z1 (int-char 34))
))
(pa)
(pr "
CANADIAN QUIZ!
Nick K. Van Vliet,
PO Box 92544 Carlton RPO.,
Toronto, Ont
M5A 4N9\n\n")
(pr (int-char 7))
;; (pr "Press enter!")(read-line)
(nl)
(pr (strcat " HI " "from " "NICK " "!!" " "))
(defun n(x)(+ (random x (make-random-state 't))1))
(nl)(nl)
;;(load "cndnqz.lsp")
;;(format t "\nWould you like to exit or cntrl c?")(read-line)(i)
(defun dt(x y) ;;data retrievehqz.dt=>h/p/s/g
(setq i 1)
(setq dtfl (list y))
(setq f(open x))
(defun lp() ;;loop
(setq l1 (read-line f));;(nl)(princ "= ")(if l1(princ l1))
(setq l2 (read-line f));;(nl)(princ "= ")(if l2(princ l2));;(read-char)
(when l1
(setq l3 (cons (list l1) (list l2)));;(nl)(princ l3)
(setq dtfl (append dtfl (list (cons i l3))));;(nl)(princ dtfl)(sp)(princ i)
(setq i(+ 1 i))
(lp)
)
)(lp)
(setq dtfl dtfl)
);;(dt "qz\\hqz.dt" 'history)
(setq h (dt "qz\\hqz.dt" 'history)) ;;list history;;(pr(length h))
(setq p (dt "qz\\pqz.dt" 'geography)) ;;list geography;;(pr(length p))
(setq s (dt "qz\\sqz.dt" 'sports)) ;;list sports;;(pr(length s))
(setq g (dt "qz\\gqz.dt" 'general)) ;;list general;;(pr(length g))
(defun n(x)(+ (random x (make-random-state 't))1))
(defun mmbrp(x y);;(pr "mmbrp= ")(princ x)(sp)(princ y)
(setq z nil)
(cond
((= x (car y))(setq z 't))
((cdr y) (mmbrp x (cdr y)))
(t (setq z nil))
)
(setq z z)
)
(defun nmbr(x y);a/hi/hi ;;(pr "nmbr= ")(princ x)(sp)(princ y)
(setq w (n x))
(if (mmbrp w y)
(nmbr x y)
(setq w w)
))
(setq ts 0)
(setq hi (list 0 -1) phi (list 0 -1) si (list 0 -1) gi (list 0 -1))
(defun qstns()
(setq a (-(length h)1));;no of questions in each catagory
(format t "\n Total tests ~d\n" a)
(setq a (nmbr a hi))(setq hi(cons a hi));; (sp)(princ a)(sp)(princ hi)
(format t "\n HISTORY question: ~3,' d\n" a)
(pr (caadr (assoc a h)))
(setq b (-(length p)1))
(setq b (nmbr b phi))(setq phi(cons b phi));; (pr b)(sp)(princ phi)
(format t "\n GEOG'PHY question: ~3,' d\n" b)
(pr (caadr (assoc b p)))
(setq c (-(length s)1))
(setq c (nmbr c si))(setq si(cons c si));; (pr c)(sp)(princ si)
(format t "\n SPORTS question: ~3,' d\n" c)
(pr (caadr (assoc c s)))
(setq d (-(length g)1))
(setq d (nmbr d gi))(setq gi(cons d gi));; (pr d)(sp)(princ gi)
(format t "\n GENERAL question: ~3,' d\n" d)
(pr (caadr (assoc d g)))
(nl)
(pr " To see answers just hit enter!")
(read-char)
(tm)
(format t "\n ~3,' d HISTORY answer= ~a" a (caddr (assoc a h)))
(format t "\n ~3,' d GEOG'PHY answer= ~a" b (caddr (assoc b p)))
(format t "\n ~3,' d SPORTS answer= ~a" c (caddr (assoc c s)))
(format t "\n ~3,' d GENERAL answer= ~a" d (caddr (assoc d g)))
);;(qstns)
(setq z 121 q 1)
(while (and(= z 121)(< q (length h)))
(pa)
(format t "\n ---CANADIAN QUIZ ~d---\n" q)
;; (n (n (n 1000)))
(qstns)
(format t "\n Would you like another turn (/n)? ")
(setq z(char-code(read-char)))
(if (or(= z 110)(= z 78))(setq z 0)(setq z 121))
(setq q(+ 1 q))
)
(format t "\n Would you like to exit or cntrl c?")
;(read-line)
(i)
)(quiz)
;;;;;;;;;;;;;;;; geogaraphy data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\gqz.dt--
Which Canadian rock group led the wonrld in record sales for 1970?
The Guess Who
What are baby beavers called?
Kittens or kits
Who was the Canadian member of the rock group Buffalo Springfield: Jim Messina, Neil Young or Steven Stills?
Neil Young
Which Canadian comedy team appeared on THE EDSULLIVAN SHOW a record 65 times?
Wayne & Shuster
What actor was the King of Kensigton?
Al Waxman
Max Ferguson's famous radio character was: Charlie Farquharson, Rawhide or The Shadow?
Rawhide
What is Canada's national business and finance magazine?
THE FINANCIAL POST
Nathan Cohen hosted a CBC Radio show called: FLASHBACK, TABLOID or FIGHTING WORDS?
FIGHTING WORDS
What popular TV show pits celebrities and politicians against university students?
UNDER ATTACK
Which TV network began operating in Ontario in 1974?
Global Television Network
What is Canada's national newspaper?
THE GLOBE & MAIL
A Toronto mansion called The Grange is now part of what public facility?
Art Gallery of Ontario
Who first sang the hit song SNOWBIRDS?
Anne Murray
Which Canadian-born country-and-western star sang I"M MOVING ON?
Hank Snow
Name the CBC-TV quiz show which asks questions of highschool students?
REACH FOR THE TOP
What is Margaret Trudeau's maiden name?
Margaret Sinclair
On DON MESSER'S JUBILEE what instrument did Don Messer play?
Violin: fiddle
What famous silent-screen actress was born Gladys Smith in Toronto?
Mary Pickford
;;;;;;;;;;;;;;;; history data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\hqz.dt--
Who was known as OLD TOMORROW and THE OLD CHIEFTAIN?
Sir John A. Macdonald
Which Prime Minister was affectionately called THE CHIEF?
John Diefenbaker
Which Indian culture used the FALSE FACE SOCIETY to heal the sick?
Iroquois
Name the Irish extremists who staged sporadic raids on Canada in the 1860's?
Fenians
Which Canadian politician was nicknamed BIBLE BILL?
William Aberhart
The ACCOMMODATION was launched in 1809. It was Canada's first: steamboat, schooner, ironside or barge?
Steamboat
The computer centre of Sir George Williams University was destroyed by rioters in 1969. In which city is this institution?
Montreal, Que.
Who was elected as leader of the federal New Democratic Party in 1971?
David Lewis
The title of a member of the Supreme Court of Canada is:?
Justice
Which Roman Catholic religious order was most active in New France's mission- aries after 1633?
The Jesuits: The Society of Jesus
The Battle of the Thames occured during which war: War of 1812, World War I or Korean War?
War of 1812
What happened to the army, navy and the airforce in 1968?
They were UNIFIED into the Canadian Armed Forces
What did Ottawa's library of Parliament survive in 1916?
The Great Fire
Supply the first name of the explorer who is remembered in the name of Nova Scotia's Cabot Trail?
John: Giovanni
In which building did the Law Society of Upper Canada establish its head- quarters in 1832?
Osgood Hall, Toronto
Soldiers from which country attacked Fort York during the War of 1812?
The United States
What was discovered on the shores of Bonanza Creek - a tributary of the Klon- dike River?
Gold
What was single word appears on the blue-and-yellow flag of the Governor Gen- neral?
CANADA
;;;;;;;;;;;;;;; places data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\pqz.dt--
Canada's lakes and rivers make up what percentage of the earth's fresh water: 1/12 1/3 or 1/7?
1/7
What is the capital of Newfoundland?
St. John's
In which city is Dalhousie University?
Halifax, N.S.
Middle Island in Lake Erie holds what geographic distinction in Canada?
Our southernmost extremity
What kind of tree is the tallest in Canada?
Douglas fir
What are the highest tides in Canada?
Bay of Fundy
A major tourist attraction on the St. John River in New Brunswick is the:?
Reversing Falls
The second largest city in Saskatchewan is:?
Saskatoon
What is the name of a treeless strip of land east of Halifax known as THE GRAVEYARD OF THE ATLANTIC?
Sable Island, N.S.
Canada's second-highest mountain is: St. Eve, St Joseph or St. Elias?
St. Elias
A region in Canada that has not achieved the status of a province is called a:?
Territory
T.O. is local slang for what?
Toronto, Ont.
The part of Quebec between the St. Lawrence Lowlands and the U.S. border is called the:?
Eastern Townships
The largest and most easterly of the Queen Elizabeth Islands of the Arctic is named:?
Ellesmere Island, N.W.T.
The shallow area off Newfoundland noted as a rich fishing area is called the:?
Great Banks
The resort town in Muskoka where Norman Bethune was born is called:?
Gravenhurst, Ont.
The largest lake totally within Canada is:?
Great Bear Lake, N.W.T.
Which Toronto mansion, built in 1817, now forms part of the Art Gallery of Ontario?
The Grange
;;;;;;;;;;;;;;;;;;;;;;; sports data ;;;;;;;;;;;;;;;;;;;;;;;;;;;
--c:\n\nic4\quiz\sqz.dt--
In which city was the 21st. Olympiad held?
Montreal
For which sport is Karen Magnussen well-known?
Figure skating
In which sport is Sandra Hawley one of the best?
Horse racing
What fishing event does the the TORONTO DAILY STAR sponsor?
The Great Salmon Derby
In what year did Marilyn Bell swim across Lake Ontario?
1954
Which number did Maurice Richard wear for the Montreal Canadians?
Nine
Who painted the picture AT THE CREASE of a hockey goalie?
Ken Danby
Nova Scotia boxer George Dixon held the world titles in which divisions?
Featherweight and Bantamweight
Who was the driving force trying to bring the St. loui Blues to Saskatoon in 1983?
Bill Hunter
What well-known race did James Duffy, Walter Young and Gerard Cote all win - at different times?
Boston Marathon
What was NHL goalie GUMP Worsley's first name?
Lorne
Red Dutton was president of which pro sports league from 1943 to 1946?
NHL
Who was the current president of the Canadian Olympic Association, along with George Hungerford, won a gold medal in rowing at the 1964 Tokyo Olympics?
Dr. Roger Jackson
What was the nickname given to the Canadian men's ski team in the 80's?
CRAZY CANUCKS
True or false: Canada has won the gold medal in Olympic soccer competition?
True: 1904 in St. louis
What do Gaetan Boucher, Brenda Webster and Sylvia Burka have in common?
All won a world championship for Canada in 1977 in speed skating?
In which sport did Canada win 8 of its 11 medals at the 1976 Montreal Olympics?
Swimming
In what sport would you find a shuttlecock?
Badminton
RETURN TO TOP
LOGIC MENU
HOME PAGE
You are visitor no. to this page.
