home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / COUNTRIES-QUIZ (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  45 lines
  1. 1 REM*****COUNTRIES QUIZ******
  2. 2 REM*****BY BRIAN DOBBS******
  3. 3 REM****TIMMINS, ONTARIO*****
  4. 5 LETZ=0
  5. 10 PRINT"ô":READA$
  6. 20 IFA$="ZAMBIA"THENRESTORE
  7. 30 LETA=INT(RND(1)*50):IFA=12THEN60
  8. 50 GOTO10
  9. 60 PRINT"THE COUNTRY HAS"LEN(A$)"LETTERS IN IT"
  10. 70 LETX=0
  11. 80 B$=LEFT$(A$,X):PRINT""B$"Æ"
  12. 83 PRINT"WHAT IS YOUR GUESS?":INPUTD$
  13. 84 Z=Z+1
  14. 87 IFD$=A$THEN125
  15. 100 X=X+1
  16. 110 IFX=LEN(A$)THEN126
  17. 120 GOTO80
  18. 125 PRINT"":PRINT"YOU'RE ABSOLUTELY RIGHT(TOTAL="Z"MOVES)":PRINT"":GOTO127
  19. 126 PRINT"ANSWER WAS "A$"  TOTAL="Z:PRINT""
  20. 127 W=W+1
  21. 128 PRINT"YOU HAVE DONE "W" COUNTRIES":PRINT""
  22. 130 PRINT"WANT TO CONTINUE (Y/N)?":INPUTE$
  23. 134 IFE$="Y"THEN10
  24. 138 END
  25. 500 DATAALGERIA,AUSTRALIA,AUSTRIA,BAHAMAS,BRAZIL
  26. 510 DATABARBADOS,BELGIUM,BULGARIA,BURMA,BURUNDI,CAMBODIA,CANADA,CEYLON,CHAD
  27. 520 DATACHILE,CHINA,COLOMBIA,COSTA RICA,CUBA,CYPRUS,CZECHOSLOVAKIA,DENMARK
  28. 530 DATAECUADOR,EGYPT,EL SALVADOR,ETHIOPIA,FIJI,FINLAND,FRANCE,GERMANY,GHANA
  29. 540 DATAGIBRALTAR,GREECE,GREENLAND,GUATAMELA,GUINEA,HAITI,HOLLAND
  30. 550 DATAHONDURAS,HUNGARY,ICELAND,INDIA,INDONESIA,IRAN,IRAQ,IRELAND,ISRAEL,ITALY
  31. 560 DATAJAMAICA,JAPAN,JORDAN,KENYA,KOREA,KUWAIT,LAOS,LEBANON,LIBERIA,LIBYA
  32. 570 DATALUXEMBOURG,MALAYSIA,MALTA,MEXICO,MONACO,MONGOLIA,MOROCCO,NEPAL,NIGER
  33. 580 DATANEW ZEALAND,NICARAGUA,NIGERIA,NORWAY,PAKISTAN    
  34. 590 DATAPERU,PHILIPPINES,POLAND,PORTUGAL,RUMANIA,RWANDA,SAUDI ARABIA
  35. 600 DATASCOTLAND,SOUTH AFRICA,SPAIN,SUDAN,SWAZILAND,SWEDEN,SWITZERLAND
  36. 610 DATASYRIA,TANZANIA,THAILAND,TOGO,TUNISIA,TURKEY,UGANDA,CENTRAL AFRICA
  37. 620 DATAUNION OF SOVIET SOCIALIST REPUBLICS,UNITED STATES OF AMERICA,URUGUAY
  38. 621 DATADOMINICAN REPLUBLIC,FRENCH GUANA,BOLIVIA,MALI,MAURITANIA,SENEGAL,GAMBIA
  39. 622 DATASIERRA LEONE,GUINEA BISSAU,IVORY COAST,UPPER VOLTA,BENIN,CAMEROON
  40. 623 DATAGABON,CONGO,CABINDA,ZAIRE,ANGOLIA,NAMIBIA,MALAWI,MOZAMBI    
  41. 624 DATABOTSWANA,LESOTHO,MADAGASCAR,SOMALI REPUBLIC,TRINIDAD AND TOBAGO,GRENADA
  42. 625 DATAPUERTO RICO,SOUTH YEMEN,TONGA,SAMOA ISLANDS,TAIWAN,BANGLADESH,SRI LANKA
  43. 626 DATAOMAN,QUATAR,ALBANIA,ENGLAND,NORTHERN IRELAND
  44. 630 DATAVENEZUELA,VIETNAM,YEMEN,YUGOSLAVIA,ZAMBIA
  45.