10 PRINT CHR$(147):PRINT "            WORLD QUIZ":PRINT
20 PRINT "ANSWER SEVEN QUESTIONS ABOUT OUR WORLD."
30 PRINT "PRESS 1, 2, OR 3. Q=QUIT.":PRINT
40 PRINT "PRESS ANY KEY"
50 GET A$:IF A$="" THEN 50
60 R=RND(-TI):DIM Q$(10),A$(10),B$(10),C$(10),K(10),U(10)
70 FOR I=1 TO 10:READ Q$(I),A$(I),B$(I),C$(I),K(I):NEXT:S=0
80 FOR T=1 TO 7
85 N=INT(RND(1)*10)+1:IF U(N) THEN 85
90 U(N)=1:PRINT CHR$(147):PRINT "QUESTION";T;"OF 7":PRINT
100 PRINT Q$(N):PRINT:PRINT "1. ";A$(N):PRINT "2. ";B$(N):PRINT "3. ";C$(N)
110 GET X$:IF X$="" THEN 110
120 IF X$="Q" THEN 230
130 IF VAL(X$)<1 OR VAL(X$)>3 THEN 110
140 IF VAL(X$)=K(N) THEN PRINT:PRINT "CORRECT!":S=S+1:GOTO 160
150 PRINT:PRINT "NOT THIS TIME. ANSWER";K(N)
160 FOR D=1 TO 700:NEXT:NEXT
170 PRINT CHR$(147):PRINT "FINAL SCORE";S;"OUT OF 7":PRINT
180 IF S=7 THEN PRINT "PERFECT WORLD TOUR!"
190 IF S>=4 AND S<7 THEN PRINT "SEASONED TRAVELLER!"
200 IF S<4 THEN PRINT "ANOTHER JOURNEY AWAITS."
210 PRINT:PRINT "R=PLAY AGAIN  Q=QUIT"
230 GET X$:IF X$="R" THEN RUN
240 IF X$<>"Q" THEN 230
250 PRINT CHR$(147):END
300 DATA WHICH OCEAN IS LARGEST?,ATLANTIC,PACIFIC,INDIAN,2
310 DATA CAPITAL OF CANADA?,TORONTO,VANCOUVER,OTTAWA,3
320 DATA THE NILE FLOWS THROUGH?,EGYPT,SPAIN,INDIA,1
330 DATA MOUNT FUJI IS IN?,CHINA,JAPAN,NEPAL,2
340 DATA BRAZIL SPEAKS MAINLY?,SPANISH,PORTUGUESE,FRENCH,2
350 DATA SAHARA IS A?,RIVER,FOREST,DESERT,3
360 DATA CAPITAL OF DENMARK?,AARHUS,ODENSE,COPENHAGEN,3
370 DATA MACHU PICCHU IS IN?,PERU,MEXICO,CHILE,1
380 DATA THE ALPS ARE IN?,EUROPE,AFRICA,ASIA,1
390 DATA NEW ZEALAND LIES IN?,PACIFIC,ARCTIC,ATLANTIC,1