100 ' AMERICANS QUIZ 110 ' 120 DEFINT A-Z:GOSUB 1540:RANDOMIZE VAL(RIGHT$(TIME$,2)) 130 CLS:LOCATE 1,33:PRINT "AMERICANS QUIZ" 140 P$="American ":R=40:PT=10:DIM P$(39,5),T1$(38) 150 ' 160 ' RANDOMIZE THE CLUES 170 ' 180 ON INT(6*RND)+1 GOTO 190,200,210,220,230,240 190 A=2:B=3:C=4:GOTO 250 200 A=3:B=4:C=2:GOTO 250 210 A=4:B=3:C=2:GOTO 250 220 A=4:B=2:C=3:GOTO 250 230 A=3:B=2:C=4:GOTO 250 240 A=2:B=4:C=3 250 FOR I=1 TO 39:FOR J=1 TO 4:ON J GOTO 260,270,280,290 260 K=1:GOTO 300 270 K=A:GOTO 300 280 K=B:GOTO 300 290 K=C 300 READ P$(I,K):NEXT J:P$(I,5)=STR$(I):NEXT I 310 ' 320 ' PRINT SCORE BOARD 330 ' 340 X=31:LOCATE 8,X:PRINT "ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿" 350 LOCATE ,X:PRINT "³RIGHT³WRONG³SCORE³" 360 LOCATE ,X:PRINT "³ ³ ³ ³" 370 LOCATE ,X:PRINT "ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ" 380 FOR I=1 TO 12:PRINT USING "## ";I,I+13,I+26:NEXT I 390 I=13:PRINT USING "## ";I,I+13,I+26; 400 LOCATE 4,1:INPUT "Uncle Sam would like to know your first name";N$ 410 ' 420 ' BEGIN QUIZ 430 ' 440 C=0:GOSUB 920:LOCATE 3,10 450 IF R=1 THEN R=0:GOTO 1440 460 ON INT(5*RND(1))+1 GOSUB 1010,1020,1030,1040,1050 470 LOCATE ,10:GOSUB 700 480 : 490 C=C+1:IF C<4 THEN LOCATE 4,50:PRINT "Press RETURN for clue #";C 500 IF C=4 THEN LOCATE 4,50:PRINT "Press RETURN if you give up." 510 ' 520 ' GET REPLY AND TAKE APPROPRIATE ACTION 530 ' 540 LOCATE 5,1:PRINT "ANSWER";SPACE$(43):LOCATE 5,8:INPUT Q$ 550 PRINT SPACE$(159):LOCATE 6,1:IF Q$="" THEN PT=PT-2:GOTO 630 560 IF Q$="END" THEN 1510 570 IF Q$=T1$ THEN 1220 580 PT=PT-2:IF C=4 THEN PT=0 590 GOTO 1370 600 ' 610 ' GIVE A CLUE 620 ' 630 IF C=4 THEN PRINT "The ";P$;"is ";T1$:PT=0:GOTO 1240 640 ON INT(5*RND(1))+1 GOSUB 1060,1070,1080,1090,1100 650 PRINT P$(P,C+1);"." 660 LOCATE 3:GOTO 480 670 ' 680 ' SCRAMBLE PRESIDENT'S NAME 690 ' 700 IF R=1 THEN R=0:GOTO 1430 710 R=R-1:P=INT(R*RND(1))+1:J=0 720 T1$=P$(P,1) 730 FOR I=1 TO LEN(T1$) 740 T2$=MID$(T1$,I,1):IF T2$<>" " THEN J=J+1:T1$(J)=T2$ 750 NEXT I 760 FOR I=J TO 1 STEP -1:N=INT(I*RND(1))+1:T3$=T1$(N):PRINT T3$; 770 FOR K=N TO J:T1$(K)=T1$(K+1):NEXT K:T1$(J)=T3$:NEXT I:RETURN 780 ' 790 ' REARRANGE ARRAYS 800 ' 810 T4$=P$(P,2):T5$=P$(P,3):T6$=P$(P,4):T7$=P$(P,5) 820 FOR I=P TO 38:P$(I,1)=P$((I+1),1):P$(I,2)=P$((I+1),2) 830 P$(I,3)=P$((I+1),3):P$(I,4)=P$((I+1),4) 840 P$(I,5)=P$((I+1),5):NEXT I 850 P$(39,1)=T1$:P$(39,2)=T4$:P$(39,3)=T5$:P$(39,4)=T6$: 860 P$(39,5)=T7$ 870 SC=SC+PT:PT=10:RT$=STR$(RT):W$=STR$(W):SC$=STR$(SC) 880 ' 890 ' KEEP SCORE 900 ' 910 LOCATE 10,33:PRINT USING "### ³ ### ³ ###";RT,W,SC:RETURN 920 ' 930 ' ERASE WINDOW 940 ' 950 LOCATE 3:PRINT SPACE$(79) 960 PRINT SPACE$(159) 970 PRINT SPACE$(159):LOCATE 3:RETURN 980 ' 990 ' PROMPTS AND RESPONSES 1000 ' 1010 PRINT "Can you unscramble this one":RETURN 1020 PRINT "Rearrange these letters":RETURN 1030 PRINT "Can you make sense out of this":RETURN 1040 PRINT "Unmix these letters if you can":RETURN 1050 PRINT "Can you unjumble this":RETURN 1060 PRINT "Do you know which American ";:RETURN 1070 PRINT "Can you tell me who ";:RETURN 1080 PRINT "Name the ";P$;"who ";:RETURN 1090 PRINT "This ";P$;:RETURN 1100 PRINT "Try to think which ";P$;:RETURN 1110 PRINT "You got it right, "N$;".":RETURN 1120 PRINT "That's correct. Keep it up.":RETURN 1130 PRINT USING "& is correct_!";T1$:RETURN 1140 PRINT "That's";RT;"right.":RETURN 1150 PRINT "It sure is ";T1$;".":RETURN 1160 PRINT "Sorry, "N$", that's not it.":RETURN 1170 PRINT "You missed that one.":RETURN 1180 PRINT "No, "Q$" is not the answer.":RETURN 1190 PRINT "You're not right this time.":RETURN 1200 PRINT "You missed that one, ";N$;".":RETURN 1210 ' 1220 ' PUT PRESIDENT'S NAME IN TABLE 1230 ' 1240 X=VAL(P$(P,5))-1:LOCATE (X MOD 13)+12,(X\13)*26+4 1250 PRINT P$(P,1);:IF Q$<>T1$ THEN W=W+1:GOTO 1320 1260 RT=RT+1 1270 ' 1280 ' CORRECT ANSWER 1290 ' 1300 LOCATE 5,50:PRINT SPACE$(29):PRINT:LOCATE 5,50 1310 ON INT(5*RND(1))+1 GOSUB 1110,1120,1130,1140,1150 1320 GOSUB 810:FOR I=1 TO 1000:NEXT I 1330 IF R=0 THEN RETURN ELSE 440 1340 ' 1350 ' INCORRECT ANSWER 1360 ' 1370 LOCATE 5,50:PRINT SPACE$(29):LOCATE 5,50 1380 ON INT(5*RND(1))+1 GOSUB 1160,1170,1180,1190,1200 1390 FOR I=1 TO 1500:NEXT I:GOTO 630 1400 : 1410 ' REMARKS AT END OF QUIZ 1420 ' 1430 GOSUB 920 1440 IF SC=390 THEN PRINT "You did it, ";N$;", a perfect score!" 1450 IF RT=39 THEN PRINT "You got them all right, ";N$;"!":GOTO 1490 1460 IF SC>300 THEN PRINT SC;" is a great score, ";N$:GOTO 1490 1470 IF SC<160 THEN PRINT "Maybe you're better at something else":GOTO 1490 1480 PRINT "That's only fair, ";N$ 1490 PRINT "DO YOU WANT TO PLAY AGAIN Y/N ?" 1500 A$=INKEY$:IF A$="" THEN 1500 ELSE IF A$="y" OR A$="Y" THEN 130 1510 CHAIN "MENU" 1520 : 1530 C=C+1:PRINT "Press RETURN for clue #";C:PRINT CHR$(17); 1540 KEY OFF:WIDTH 80:SCREEN 0,0,0,0:CLS:SCREEN 0,0,1,0:CLS:LOCATE 6,1,0 1550 PRINT " ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍ»" 1560 PRINT " ÌÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎ͹" 1570 PRINT " º º º º" 1580 PRINT " º º ";:COLOR 15:PRINT " AMERICANS QUIZ ";:COLOR 7:PRINT " º º" 1590 PRINT " º º º º" 1600 PRINT " º º ";:COLOR 15:PRINT " COPYRIGHT (C) 1982 BY ENSIGN SOFTWARE ";:COLOR 7:PRINT " º º" 1610 PRINT " º º º º" 1620 PRINT " º º 2312 N. COLE RD, SUITE E º º" 1630 PRINT " º º BOISE, ID 83704 U.S.A. º º" 1640 PRINT " º º DAY (208) 378-8086 EVE (208) 377-1938 º º" 1650 PRINT " º º º º" 1660 PRINT " ÌÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎ͹" 1670 PRINT " ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊͼ" 1675 DEF SEG=0:POKE &H417,PEEK(&H417) OR &H60 1680 SCREEN 0,0,0,1:FOR I=1 TO 15000:NEXT:SCREEN 0,0,0,0:RETURN 1690 DATA GEORGE WASHINGTON 1700 DATA signed Dec. of Ind. and Constitution 1710 DATA is known as 'Father of His Country' 1720 DATA married Martha 1730 DATA JOHN ADAMS 1740 DATA died on July 4th 1750 DATA lived to be 90 1760 DATA was the first one-term president 1770 DATA THOMAS JEFFERSON 1780 DATA sent Lewis and Clark Northwest 1790 DATA signed the Louisiana Purchase 1800 DATA wrote the Declaration of Independence 1810 DATA JAMES MADISON 1820 DATA was in office during the War of 1812 1830 DATA followed Jefferson in office 1840 DATA married Dolly 1850 DATA JAMES MONROE 1860 DATA was re-elected without opposition in electoral votes 1870 DATA bought Florida from Spain 1880 DATA wrote a famous doctrine 1890 DATA ALBERT EINSTEIN 1900 DATA won several Nobel prizes 1910 DATA was a famous physicist 1920 DATA started his career as a patent clerk 1930 DATA ANNE SULLIVAN 1940 DATA worked with handicapped children 1950 DATA helped Helen Keller 1960 DATA overcame a handicap 1970 DATA NEAL ARMSTRONG 1980 DATA was a Purdue University graduate 1990 DATA walked on the moon 2000 DATA took a giant step for mankind 2010 DATA HENRY THOREAU 2020 DATA got away from it all at Walden Pond 2030 DATA is still influencing young people 2040 DATA was one of the first ecologists 2050 DATA BENJAMIN FRANKLIN 2060 DATA was an inventor and a printer 2070 DATA was our ambassador to France 2080 DATA was a scientist and a statesman 2090 DATA THOMAS EDISON 2100 DATA invented the motion picture 2110 DATA was an electrical genius 2120 DATA ivented the phonograph 2130 DATA ELI WHITNEY 2140 DATA invented the cotton gin 2150 DATA was the first to use the principle of interchangeable parts 2160 DATA mass produced rifles 2170 DATA ALEXANDER HAMILTON 2180 DATA was our first Treasurer 2190 DATA often disagreed with Jefferson 2200 DATA died in a duel 2210 DATA DOUGLAS MACARTHUR 2220 DATA said 'old soldiers never die' 2230 DATA vowed to return to the Phillipines 2240 DATA was a famous general who disagreed with presidents 2250 DATA JEFFERSON DAVIS 2260 DATA was a famous Confederate 2270 DATA was once Secretary of War 2280 DATA has his likeness carved in a mountain 2290 DATA ABRAHAM LINCOLN 2300 DATA was the first Republican president 2310 DATA debated Stephen Douglas 2320 DATA wrote Gettysburg Address 2330 DATA MARTIN LUTHER KING 2340 DATA was assassinated 2350 DATA was a civil rights leader 2360 DATA was a proponent of non-violent resistance 2370 DATA ULYSSES GRANT 2380 DATA was a Civil War general 2390 DATA drank heavily 2400 DATA has a famous tomb 2410 DATA ROBERT E LEE 2420 DATA was a graduate of West Point 2430 DATA was probably the best Civil War general 2440 DATA is honored at Stone Mountain 2450 DATA HENRY FORD 2460 DATA made the auto cheap enough for the working man 2470 DATA used mass production techniques 2480 DATA was an inventor and industrialist 2490 DATA ANDREW CARNEGIE 2500 DATA founded the largest steel company in the world 2510 DATA gave millions for libraries 2520 DATA went from rags to riches 2530 DATA GROVER CLEVELAND 2540 DATA was only president to serve 2 non-consecutive terms 2550 DATA was first president married in the White House 2560 DATA wore a big black moustache 2570 DATA EDWARD RICKENBACKER 2580 DATA was one of the first pilots 2590 DATA founded Eastern Airlines 2600 DATA was an air ace 2610 DATA WILLIAM MCKINLEY 2620 DATA was last president assassinated before Kennedy 2630 DATA has the same name as a mountain 2640 DATA was our first 20th century president 2650 DATA THEODORE ROOSEVELT 2660 DATA was a Rough Rider 2670 DATA fought in the Spanish-American War 2680 DATA had a toy bear named after him 2690 DATA CHARLES LINDBERG 2700 DATA flew the Atlantic solo 2710 DATA was the father of a kidnap victim 2720 DATA flew the Spirit of St. Louis 2730 DATA WOODROW WILSON 2740 DATA founded the League of Nations 2750 DATA was in office during 1st World War 2760 DATA was the first president to leave U.S.A. during office 2770 DATA AMELIA EARHART 2780 DATA was a famous flyer 2790 DATA flew solo across the Atlantic 2800 DATA died in a plane crash 2810 DATA HARRIET TUBMAN 2820 DATA helped the slaves 2830 DATA fought for black freedom 2840 DATA was a slave 2850 DATA SUSAN B ANTHONY 2860 DATA fought for women's rights 2870 DATA is on a coin 2880 DATA was early women's libber 2890 DATA FRANKLIN ROOSEVELT 2900 DATA was president during W.W.2 2910 DATA served more terms than any other president 2920 DATA helped bring the U.S.A. out of the Great Depression 2930 DATA HARRY TRUMAN 2940 DATA gave permission to drop first atom bomb 2950 DATA followed Franklin Roosevelt in office 2960 DATA was a Senator from Missouri 2970 DATA DWIGHT EISENHOWER 2980 DATA was commander of all Allied troops in 2nd World War 2990 DATA had an interest in cooking 3000 DATA came from Kansas 3010 DATA JOHN KENNEDY 3020 DATA was first Roman Catholic president 3030 DATA was a hero in 2nd World War 3040 DATA started Civil Rights legislation 3050 DATA FLORENCE NIGHTENGALE 3060 DATA was in the Civil War 3070 DATA helped the wounded 3080 DATA is a famous nurse 3090 DATA HELEN KELLER 3100 DATA overcame handicaps 3110 DATA was loved and respected by all 3120 DATA showed handicapped people that they had hope 3130 DATA JULIETTE LOWE 3140 DATA founded Girl Scouts 3150 DATA served the Boy Scouts 3160 DATA overcame a hearing loss 3170 DATA JIMMY CARTER 3180 DATA was governor of Georgia 3190 DATA was an engineer 3200 DATA restored relations with Peoples Republic of China 3210 DATA SAMUEL CLEMENS 3220 DATA was a famous author 3230 DATA wrote Huckleberry Finn and Tom Sawyer 3240 DATA used the pen name of Mark Twain