mutichoice format countries and capitals
dim Q$(995)
dim A(995)
dim f(995)
dim t(995)
for a=1 to 995
read Q$(a)
read A(a)
next a
'keys=16
'dim go(keys)
'dim g(keys)
sel=990
row=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
text 100,100,"What is the capital of"
for a=1+sel to 5+sel
if row=a-sel then
setrgb 1,0,256,0
else
setrgb 1,256,256,256
endif
if a>1+sel text 110,(a-sel)*20+100,Q$(a)
setrgb 1,256,256,0
if a=1+sel text 110,(a-sel)*20+100,upper$(Q$(a))
setrgb 1,256,256,256
text 80,(a-sel)*20+100,chr$(a+95-sel)+"."
next a
g$=inkey$(0)
if g$="'" row=1
if g$="a" row=2
if g$="b" row=3
if g$="c" row=4
if g$="d" row=5
for a=1+sel to 5+sel
if row=a-sel and g$="enter" f(a)=1
if f(a)=1 t(a)=t(a)+1
if t(a)>100 then
if row=1 sel=sel1
if row>1 sel=int(ran(199))*5
f(a)=0
t(a)=0
row=1
endif
if f(a)=1 then
if A(a)=0 text 110,220,"No. That's wrong."
if A(a)=1 text 110,220,"You got it right."
if A(a)=2 text 110,220,"Quiz is starting."
if A(a)=4 text 110,220,"That's the question dummy"
if A(a)=4 text 110,235,"Pick a letter. Try again."
if A(a)=4 sel1=sel
endif
next a
c=peek("port1")
for a=2+sel to 5+sel
if and(c,1)<>0 text (a-sel)*20+60,250,str$(A(a))
next a
until (1=0)
data "Afghanistan",4,"Herat",0,"Kabul",1,"Kandahar",0,"Kunduz",0
data "Albania",4,"Vlore",0,"Shkoder",0,"Durres",0,"Tirana",1
data "Algeria",4,"Oran",0,"Qacentina",0,"Algiers",1,"Beskra",0
data "Andorra",4,"Engordany",0,"Andorra La Vella",1,"Arinsal",0,"Canillo",0
data "Angola",4,"Uige",0,"Malanje",0,"Lubango",0,"Luanda",1
data "Antigua",4,"Saint Johns",1,"Potters Village",0,"Willikies",0,"Urlings",0
data "Argentina",4,"Cordoba",0,"Buenos Aires",1,"Mar Del Plata",0,"Rosano",0
data "Armenia",4,"Vanadzor",0,"Jermuk",0,"Gyumri",0,"Yerevan",1
data "Australia",4,"Sydney",0,"Melbourne",0,"Canberra",1,"Brisbane",0
data "Austria",4,"Vienna",1,"Graz",0,"Linz",0,"Salzburg",0
data "Azerbaijan",4,"Ganja",0,"Mingachevir",0,"Sumgait",0,"Baku",1
data "Bahamas",4,"Congo Town",0,"Nassau",1,"Owens Town",0,"Moxey Town",0
data "Bahrain",4,"Muharraq",0,"Hamad Town",0,"Manama",1,"Riffa",0
data "Bangladesh",4,"Dhaka",1,"Chittagong",0,"Khulna",0,"Rajshahi",0
data "Barbados",4,"Charnocks",0,"Saint John",0,"Bridgetown",1,"Speights Town",0
data "Belarus",4,"Minsk",1,"Grodno",0,"Gomel",0,"Vitebsk",0
data "Belgium",4,"Antwerp",0,"Charleroi",0,"Ghent",0,"Brussels",1
data "Belize",4,"San Ignacio",0,"Belmopan",1,"Belize City",0,"Dangriga",0
data "Benin",4,"Malanville",0,"Cotonou",0,"Porto Novo",1,"Sakete",0
data "Bhutan",4,"Thimphu",1,"Jaigaon",0,"Sakteng",0,"Paro",0
data "Bolivia",4,"Cochabamba",0,"El Alto",0,"La Paz",1,"Sucre",1
data "Bosnia",4,"Banja Luka",0,"Zenica",0,"Sarajevo",1,"Mostar",0
data "Botswana",4,"Gaborone",1,"Francis Town",0,"Ghanzi",0,"Maun",0
data "Brazil",4,"Sao Paulo",0,"Brasilia",1,"Belem",0,"Curitiba",0
data "Brunei",4,"Tutong",0,"Liang",0,"Kuala Belait",0,"Bandar Seri Begawan",1
data "Bulgaria",4,"Varna",0,"Sofia",1,"Plovdiv",0,"Burgas",0
data "Burkina Faso",4,"Ouahigouya",0,"Bobo Dioulasso",0,"Ouagadougou",1,"Koudougou",0
data "Burundi",4,"Bujumbura",0,"Bubanza",0,"Gitega",1,"Ngozi",0
data "Cabo",4,"Santiago",0,"Miraflores",0,"Verde Praia",1,"Caduano",0
data "Cambodia",4,"Bat Dambang",0,"Sihanoukville",0,"Siem Reap",0,"Phnom Penh",1
data "Cameroon",4,"Douala",0,"Yaounde",1,"Bamenda",0,"Bafoussam",0
data "Canada",4,"Ottawa",1,"Toronto",0,"Montreal",0,"Calgary",0
data "Central African Republic",4,"Bimbo",0,"Bangui",1,"Begoua",0,"Carnot",0
data "Chad",4,"Am Timan",0,"Mongo",0,"Moundou",0,"N'Djamena",1
data "Chile",4,"Vina Del Mar",0,"Antofagasta",0,"Santiago",1,"Puente Alto",0
data "China",4,"Beijing",1,"Tianjin",0,"Shenzhen",0,"Shanghai",0
data "Columbia",4,"Cali",0,"Bogota",1,"Cartagena",0,"Medellin",0
data "Comoros",4,"Moheli",0,"Anjouan",0,"Mayoette",0,"Moroni",1
data "Congo D",4,"Kinshasa",1,"Lubumbashi",0,"Mbuji Mayi",0,"Kananga",0
data "Congo R",4,"Pointe Noire",0,"Brazzaville",1,"Dolisie",0,"Nkayi",0
data "Costa Rica",4,"Ala Juela",0,"Desamparados",0,"Cartago",0,"San Jose",1
data "Cote D'Ivoire",4,"Abdijan",1,"Yamoussoukro",1,"Dimbokro",0,"Sassandra",0
data "Croatia",4,"Split",0,"Rijeka",0,"Zagreb",1,"Ozijek",0
data "Cuba",4,"Havana",1,"Santiago De Cuba",0,"Holguin",0,"Camaguey",0
data "Cyprus",4,"Lemesos",0,"Peyia",0,"Nicosia",1,"Larnaca",0
data "Czech R",4,"Brno",0,"Prague",1,"Ostrava",0,"Pizen",0
data "Denmark",4,"Aarhus",0,"Aalborg",0,"Odense",0,"Copenhagen",1
data "Djibouti",4,"Ali Sabih",0,"Dikhil",0,"Djibouti City",1,"Obock",0
data "Dominica",4,"Roseau",1,"Massacre",0,"Lauat",0,"Portsmouth",0
data "Dominican R",4,"Santo Domingo Este",0,"Santo Domingo Norte",0,"Santo Domingo",1,"Santo Domingo Oeste",0
data "Ecuador",4,"Guayaquil",0,"Santo Domingo e Los Colorados",0,"Duran",0,"Quito",1
data "Egypt",4,"Cairo",1,"Alexandria",0,"Giza",0,"Shubra El Kheima",0
data "El Salvador",4,"Soya Pango",0,"Santa Ana",0,"San Salvador",1,"San Miguel",0
data "Equatorial Guinea",4,"Bata",0,"Malabo",1,"Evinayong",0,"Mongomo",0
data "Eritrea",4,"Asmara",1,"Assab",0,"Teseney",0,"Keren",0
data "Estonia",4,"Parnu",0,"Vilijandi",0,"Tartu",0,"Tallinn",1
data "Ethiopia",4,"Hawassa",0,"Addis Ababa",1,"Dire Dawa",0,"Gondar",0
data "Fiji",4,"Buca",0,"Lautoka",0,"Labasa",0,"Suva",1
data "Finland",4,"Espoo",0,"Helsinki",1,"Tampere",0,"Vantaa",0
data "France",4,"Paris",1,"Lyon",0,"Marseille",0,"Toulouse",0
data "Gabon",4,"Port Gentil",0,"Franceville",0,"Lambarene",0,"Liberville",1
data "Gambia",4,"Bintang",0,"Georgetown",0,"Banjul",1,"Faratenni",0
data "Georgia",4,"Batumi",0,"Tbilisi",1,"Rustavi",0,"Kutaisi",0
data "Germany",4,"Berlin",1,"Cologne",0,"Hamburg",0,"Munich",0
data "Ghana",4,"Kumasi",0,"Tema",0,"Accra",1,"Tamale",0
data "Greece",4,"Thessaloniki",0,"Piraeus",0,"Patras",0,"Athens",1
data "Grenada",4,"Grand Roy",0,"Saint Georges",1,"Grenville",0,"Victoria",0
data "Guatamala",4,"Guatemala City",1,"Mixco",0,"Villa Nueva",0,"Quetzaltenango",0
data "Guinea",4,"Nzerekore",0,"Kankan",0,"Conakry",1,"Maneah",0
data "Guinea-Bissau",4,"Nova Lamego",0,"Buba",0,"Cato",0,"Bissau",1
data "Guyana",4,"Georgetown",1,"Mabaruma",0,"Parika",0,"Bartica",0
data "Haiti",4,"Cap Haitien",0,"Carrefour",0,"Port Au Prince",1,"Delmas",0
data "Honduras",4,"Choloma",0,"Tegucigalpa",1,"Danli",0,"San Pero Sula",0
data "Hungary",4,"Debrecen",0,"Gyor",0,"Szeged",0,"Budapest",1
data "Iceland",4,"Reykjavik",1,"Akranes",0,"Reykholt",0,"Kirkjubaejarklaustur",0
data "India",4,"Ahmadabad",0,"Bangalore",0,"New Delhi",1,"Mumbai",0
data "Indonesia",4,"Jakarta",1,"Medan",0,"Depok",0,"Surabaya",0
data "Iran",4,"Mashhad",0,"Tehran",1,"Karaj",0,"Esfahan",0
data "Iraq",4,"Al Basrah",0,"Al Mawsli",0,"Kirkuk",0,"Baghdad",1
data "Ireland",4,"Cork",0,"Waterford",0,"Dublin",1,"Kilkenny",0
data "Israel",4,"Jerusalem",1,"Tel Aviv Yafo",0,"Rishon Leziyyon",0,"Petah Tikva",0
data "Italy",4,"Milan",0,"Turin",0,"Rome",1,"Genoa",0
data "Jamaica",4,"Portmore",0,"Kingston",1,"Spanish Town",0,"Montego Bay",0
data "Japan",4,"Yokohama",0,"Sapporo",0,"Osaka",0,"Tokyo",1
data "Jordan",4,"Amman",1,"Irbid",0,"Russiefa",0,"Zarqa",0
data "Kazakhstan",4,"Almaty",0,"Shimkent",0,"Nur Sultan",1,"Karaganda",0
data "Kenya",4,"Nakuru",0,"Nairobi",1,"Mombasa",0,"Kisumu",0
data "Kiribati",4,"Betio",0,"Bon Riki",0,"Tarawa Atoll",1,"South Tarawa",0
data "Kosovo",4,"Pristina",1,"Zubin Poroc",0,"Mitrovica",0,"Malshava",0
data "Kuwait",4,"Hawally",0,"Kuwait City",1,"Farwaniya",0,"Fintas",0
data "Kyrgyzstan",4,"Osh",0,"Jalel Abad",0,"Tokmok",0,"Bishkek",1
data "Laos",4,"Champhone",0,"Vientiane",1,"Kaysone Phomvihane",0,"Salavan",0
data "Latvia",4,"Riga",1,"Rezekne",0,"Jelgava",0,"Liepaja",0
data "Lebanon",4,"Tripoli",0,"Zgharta",0,"Beirut",1,"Gharziyeh",0
data "Lesotho",4,"Maseru",1,"Pitseng",0,"Mafeteng",0,"Mokhotlong",0
data "Liberia",4,"Tubmanburg",0,"Buchanan",0,"Greenville",0,"Monrovia",1
data "Libya",4,"Benghazi",0,"Misrata",0,"Tripoli",1,"Sabha",0
data "Liechtenstein",4,"Triesenberg",0,"Vaduz",1,"Balzers",0,"Ruggell",0
data "Lithuania",4,"Vilnius",1,"Kaunas",0,"Klaipeda",0,"Siauliai",0
data "Luxembourg",4,"Petange",0,"Esch",0,"Remich",0,"Luxembourg",1
data "Madagascar",4,"Toamasina",0,"Antananarivo",1,"Antsirabe",0,"Mahajanga",0
data "Malawi",4,"Blantyre",0,"Mzuzu",0,"Lilongwe",1,"Zomba",0
data "Malaysia",4,"Kuala Lumpur",1,"Kajang",0,"Seberang Jaya",0,"Shah Alam",0
data "Maldives",4,"Ari",0,"Male",1,"Malaku",0,"Goidhoo",0
data "Mali",4,"Bamako",1,"Kayes",0,"Koutiala",0,"Segou",0
data "Malta",4,"Harurun",0,"Bormia",0,"Birkirkara",0,"Valetta",1
data "Marshall Islands",4,"Bikini",0,"Maloelap",0,"Jemo",0,"Majuro",1
data "Mauritania",4,"Boutlimit",0,"Nouakchott",1,"Nouadhibou",0,"Chinguetti",0
data "Mauritius",4,"Quatre Bornes",0,"Vacoas Phoenix",0,"Port Louis",1,"Curepipe",0
data "Mexico",4,"Tijuana",0,"Mexico City",1,"Puebla",0,"Leon",0
data "Micronesia",4,"Palikir",1,"Gaferut",0,"Ponape",0,"Faraulep",0
data "Moldova",4,"Chisinau",1,"Tiraspol",0,"Dubasari",0,"Comrat",0
data "Monaco",4,"Monte Carlo",0,"Larvotto",0,"Eze",0,"Monaco",1
data "Mongolia",4,"Urdenet",0,"Ulaanbaatar",1,"Arhangay",0,"Selenge",0
data "Montenegro",4,"Niksic",0,"Bijela",0,"Podgorica",1,"Kolasin",0
data "Morocco",4,"Fes",0,"Rabat",1,"Tanger",0,"Casablanca",0
data "Mozambique",4,"Nampula",0,"Beira",0,"Matola",0,"Maputo",1
data "Myanmar",4,"Naypyidaw",1,"Mandalay",0,"Yangon",0,"Bago",0
data "Namibia",4,"Rundu",0,"Walvis Bay",0,"Windhoek",1,"Ondangwa",0
data "Nauru",4,"Ronave",0,"Anibare",0,"Anabar",0,"Yaren",1
data "Nepal",4,"Biratnagar",0,"Kathmandu",1,"Pokhara",0,"Lalitpur",0
data "Netherlands",4,"Amsterdam",1,"Rotterdam",0,"Hague",0,"Utecht",0
data "New Zealand",4,"Auckland",0,"Wellington",1,"Christchurch",0,"Dunedin",0
data "Nicaragua",4,"Chinandiga",0,"Leon",0,"Managua",1,"Masaya",0
data "Niger",4,"Maradi",0,"Zinder",0,"Tahoua",0,"Niamey",1
data "Nigeria",4,"Benin City",0,"Abuja",1,"Ibadan",0,"Lagos",0
data "North Korea",4,"Pyongyang",1,"Chongjin",0,"Hamhung",0,"Kaechon",0
data "North Macedonia",4,"Vinica",0,"Veles",0,"Skopje",1,"Gostivar",0
data "Norway",4,"Bergen",0,"Trondheim",0,"Stavanger",0,"Oslo",1
data "Oman",4,"Seeb",0,"Muscat",1,"Salalah",0,"Sohar",0
data "Pakistan",4,"Islamabad",1,"Hyderabad",0,"Karachi",0,"Lahore",0
data "Palau",4,"Melekeok",1,"Aimeliik",0,"Ngerulmud",0,"Airai",0
data "Palestine",4,"Gaza",0,"Khan Yunis",0,"Hebron",0,"Jerusalem",1
data "Panama",4,"San Miguelito",0,"Panama City",1,"La Chorrera",0,"Colon",0
data "Papua New Guinea",4,"Port Moresby",1,"Lae",0,"Wonehara",0,"Morehead",0
data "Paraguay",4,"Ciudad Del Este",0,"Luque",0,"Asuncion",1,"Capiata",0
data "Peru",4,"Trujillo",0,"Arequipa",0,"Chiclayo",0,"Lima",1
data "Philippines",4,"Davao City",0,"Manila",1,"Quezon City",0,"Caloocan",0
data "Poland",4,"Warsaw",1,"Krakow",0,"Wroclaw",0,"Gdansk",0
data "Porto Rico",4,"Bayamon",0,"Carolina",0,"Ponce",0,"San Juan",1
data "Portugal",4,"Sintra",0,"Vila Nova De Gaia",0,"Lisbon",1,"Braga",0
data "Qatar",4,"Al Sawa",0,"Dukhan",0,"Ar Rayyan",0,"Doha",1
data "Romania",4,"Constanta",0,"Bucharest",1,"Lasi",0,"Cluj Napoca",0
data "Russia",4,"Volgograd",0,"Saint Petersburg",0,"Yekaterinburg",0,"Moscow",1
data "Rwanda",4,"Gisenyi",0,"Ruhengeri",0,"Kigali",1,"Byumba",0
data "Saint Kitts",4,"Basseterre",1,"Tabernacle",0,"Trinity",0,"Frigate Bay",0
data "Saint Lucia",4,"Castries",1,"San Soucis",0,"Roseau",0,"Micoud",0
data "Saint Vincent",4,"Kingstown",1,"Georgetown",0,"Saine George",0,"Saine David",0
data "Samoa",4,"Asau",0,"Apia",1,"Satapuala",0,"Lalomanu",0
data "San Marino",4,"San Giovanni",0,"Fiorentino",0,"Faetano",0,"San Marino",1
data "Sao Tome",4,"Guadelupe",0,"Samhana",0,"Sao Tome",1,"Neves",0
data "Saudi Arabia",4,"Bahrain",0,"Riyadh",1,"Mecca",0,"Halaban",0
data "Senegal",4,"Dakar",1,"Touba",0,"Thies",0,"Kaolack",0
data "Serbia",4,"Novisad",0,"Nis",0,"Belgrade",1,"Kragujevac",0
data "Seychelles",4,"Port Gloud",0,"Victoria",1,"Takamaka",0,"Aryse Royale",0
data "Sierra Leone",4,"Kenema",0,"Bo",0,"Koidu",0,"Freetown",1
data "Singapore",4,"Singapore",1,"Choa Chu Kang",0,"Toa Payoh",0,"Kranji",0
data "Slovakia",4,"Kosice",0,"Nitra",0,"Presnov",0,"Bratislava",1
data "Slovenia",4,"Ljubljana",1,"Maribor",0,"Bistrica",0,"Brezice",0
data "Solomon Islands",4,"Kirakira",0,"Buala",0,"Honiara",1,"Gizo",0
data "Somalia",4,"Hargeysa",0,"Mogadishu",1,"Jowhar",0,"Baydhaba",0
data "South Africa",4,"Pretoria",1,"Durbin",0,"Johannesburg",0,"Cape Town",1
data "South Korea",4,"Busan",0,"Daegu",0,"Seoul",1,"Incheon",0
data "South Sudan",4,"Wau",0,"Juba",1,"Malakal",0,"Yambio",0
data "Spain",4,"Madrid",1,"Valencia",0,"Zaragoza",0,"Barcelona",0
data "Sri Lanka",4,"Colombo",1,"Dehiwala Mt Lavinia",0,"Jayawardenepura",1,"Moratuwa",0
data "Sudan",4,"Nyala",0,"Umm Durman",0,"Al Khartum Bahri",0,"Khartoum",1
data "Suriname",4,"Brokopondo",0,"Paramaribo",1,"Groningen",0,"Onverwacht",0
data "Swaziland",4,"Mankanyane",0,"Sidvokodvo",0,"Mbabane",1,"Bhunya",0
data "Sweden",4,"Stockholm",1,"Gothenburg",0,"Malmo",0,"Uppsala",0
data "Switzerland",4,"Geneva",0,"Zurich",0,"Basel",0,"Bern",1
data "Syria",4,"Aleppo",0,"Homs",0,"Damascus",1,"Idleb",0
data "Taiwan",4,"Taipei",1,"Kaohsiung",0,"Taichung",0,"Taoyuan",0
data "Tajikistan",4,"Bokhtar",0,"Dushanbe",1,"Khujand",0,"Kulob",0
data "Tanzania",4,"Dodoma",1,"Arusha",0,"Mwanza",0,"Dar Es Salaam",1
data "Thailand",4,"Nonthaburi",0,"Pah Kret",0,"Hat Yai",0,"Bangkok",1
data "Timor-Leste",4,"Los Palos",0,"Maliana",0,"Dili",1,"Viqueque",0
data "Togo",4,"Notse",0,"Lome",1,"Kpalime",0,"Atakpame",0
data "Tonga",4,"Nuku'alofa",1,"Kolonga",0,"Nukunuku",0,"Fatuma",0
data "Trinidad & Tobago",4,"Arima",0,"Mayaro",0,"San Fernando",0,"Port Of Spain",1
data "Tunisia",4,"Sfax",0,"Sousse",0,"Tunis",1,"La Soukra",0
data "Turkey",4,"Istanbul",0,"Ankara",1,"Bursa",0,"Adana",0
data "Turkmenistan",4,"Ashgabat",1,"Dasoguz",0,"Mary",0,"Turkmenabat",0
data "Tuvalu",4,"Nauru",0,"Kiribati",0,"Vaiaku",1,"Funafuti",1
data "Uganda",4,"Nansana",0,"Kira",1,"Kampala",1,"Ssabagabo",0
data "Ukraine",4,"Kharkiv",0,"Kyiv",1,"Odesa",0,"Donetsk",0
data "United Arab Emirates",4,"Abu Dhabi",1,"Dubai",0,"Sharjah",0,"Al Ain",0
data "United Kingdom",4,"Birmingham",0,"Glasgow",0,"Manchester",0,"London",1
data "United States Of America",4,"New York",0,"Los Angeles",0,"Washington DC",1,"Chicago",0
data "Uruguay",4,"Salto",0,"Montevideo",1,"Tacuarembo",0,"Colonia",0
data "Uzbekistan",4,"Tashkent",1,"Andijan",0,"Namangan",0,"Bukhara",0
data "Vanuatu",4,"Norsap",0,"Luganville",0,"Tabwemanasana",0,"Port Vila",1
data "Vatican City",4,"Musei Vaticani",0,"Palazzo Apostolico",0,"Vatican City",1,"Casa Bonus Pastor",0
data "Venezuela",4,"San Cristobal",0,"Caracas",1,"Puerto La Cruz",0,"Petare",0
data "Vietnam",4,"Hanoi",1,"Ho Chi Minh",0,"Hai Phong",0,"Da Nang",0
data "Yemen",4,"Aden",0,"Al Hudayda",0,"Taiz",0,"Sanaa",1
data "Zambia",4,"Chipata",0,"Kitwe",0,"Lusaka",1,"Ndola",0
data "Zimbabwe",4,"Bulawayo",0,"Harare",1,"Citungwiza",0,"Mutare",0
'data " menu ",4,"Use D-Pad,",2,"'up' or 'down'",2,"to select your answer",2,"and then 'right'",2
data " menu ",2,"use letter keys",2,"to select your answer",2,"and then 'enter'",2,"questions are randomly selected",2
