home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / STATES.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  1.7 KB  |  45 lines
  1. ! State capital quiz.
  2. !
  3. RANDOMIZE
  4. DIM state$(50,2)               ! 50 states, 2 items per state
  5.  
  6. FOR i = 1 to 50                ! Run through states and capitals
  7.    READ state$(i,1)            ! Read state name
  8.    READ state$(i,2)            ! And capital
  9. NEXT i
  10.  
  11. FOR i = 1 to 10                ! Ask 10 questions 
  12.    LET n = Int(50*Rnd)+1       ! Pick a number between 1 and 50
  13.    PRINT "The capital of "; state$(n,1); " is";
  14.    LINE INPUT capital$         ! Get the reply
  15.  
  16.    IF Lcase$(capital$) = Lcase$(state$(n,2)) then    ! Correct?
  17.       PRINT "Right!"
  18.    ELSE
  19.       PRINT "Nope, it's ";state$(n,2);"."
  20.    END IF
  21. NEXT i
  22.  
  23. DATA Alabama,Montgomery, Alaska,Juneau, Arizona,Phoenix
  24. DATA Arkansas,Little Rock, California,Sacramento 
  25. DATA Colorado,Denver, Connecticut,Hartford, Delaware,Dover 
  26. DATA Florida,Tallahassee, Georgia,Atlanta, Hawaii,Honolulu 
  27. DATA Idaho,Boise, Illinois,Springfield, Indiana,Indianapolis 
  28. DATA Iowa,Des Moines, Kansas,Topeka, Kentucky,Frankfort 
  29. DATA Louisiana,Baton Rouge, Maine,Augusta, Maryland,Annapolis 
  30. DATA Massachusetts,Boston, Michigan,Lansing
  31. DATA Minnesota,St. Paul, Mississippi,Jackson
  32. DATA Missouri,Jefferson City, Montana,Helena
  33. DATA Nebraska,Lincoln, Nevada,Carson City
  34. DATA New Hampshire,Concord, New Jersey,Trenton
  35. DATA New Mexico,Santa Fe, New York,Albany
  36. DATA North Carolina,Raleigh, North Dakota,Bismarck
  37. DATA Ohio,Columbus, Oklahoma,Oklahoma City, Oregon,Salem
  38. DATA Pennsylvania,Harrisburg, Rhode Island,Providence
  39. DATA South Carolina,Columbia, South Dakota,Pierre
  40. DATA Tennessee,Nashville, Texas,Austin, Utah,Salt Lake City
  41. DATA Vermont,Montpelier, Virginia,Richmond, Washington,Olympia
  42. DATA West Virginia,Charleston, Wisconsin,Madison
  43. DATA Wyoming,Cheyenne
  44. END
  45.