0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 10 'Bible Book order quiz, M100 version by Russ Hall 30 CLEAR 1000:Y$=STRING$(40,"*") 50 M$=" BIBLE BOOK QUIZ" 60 CLS:PRINTY$;:PRINTM$:PRINTY$ 65 DIM I$(40) 70 FORN=1TO40:READF,I$(N):NEXT 100 PRINT"Strike any key to begin..." 110 K$=INKEY$:TN=RND(1):IFK$=""THEN110 140 TN=INT(RND(1)*40)+1:TN$=I$(TN):Q$(1)=I$(TN+1) 170 C=0:FORN=1TO4 190 Q$(N+1)=I$(INT(RND(1)*40)):C=C+1:IFC<20THEN220 210 PRINT@40,"Please wait ..." 220 IFQ$(N+1)=TN$THEN190 230 FORX=1TON:IFQ$(N+1)=Q$(X)THEN190 250 NEXTX:NEXTN 270 R$(5)="None of the above" 280 FORN=1TO4 290 R$(N)=Q$(INT(RND(1)*4)+1) 300 IFN=1THEN340 310 FORX=1TON-1:IFR$(X)=R$(N)THEN290 330 NEXTX 340 NEXTN:CLS 360 PRINT"Which book immediately follows":PRINT" "TN$"?" 390 FORN=1TO5:PRINTTAB(5);N"- "R$(N):NEXT 430 K$=INKEY$:IFK$=""THEN430 450 NG=NG+1:IFK$<"1"ORK$>"5"THEN430 480 K=VAL(K$):IFR$(K)=Q$(1)THEN520 500 PRINT"That is incorrect. ";:GOSUB 540:GOTO170 520 PRINT"That is correct. ";:NC=NC+1:GOSUB540:GOTO140 540 S=INT(100*NC/NG):PRINT"You have"NC"correct out of"NG; 570 PRINT"for a score of"S"%":PRINT"Strike the SPACE BAR to continue." 600 PRINT"(Or the X key to end this quiz)..."; 610 K$=INKEY$:IFK$=""THEN610 630 IFK$=CHR$(32)THENRETURN 640 IFK$="X"ORK$="x"THENMENU 650 GOTO610 670 DATA 1,GENESIS 680 DATA 2,EXODUS 690 DATA 3,LEVITICUS 700 DATA 4,NUMBERS 710 DATA 5,DEUTERONOMY 720 DATA 6,JOSHUA 730 DATA 7,JUDGES 740 DATA 8,RUTH 750 DATA 9,1 SAMUEL 760 DATA 10,2 SAMUEL 770 DATA 11,1 KINGS 780 DATA 12,2 KINGS 790 DATA 13,1 CHRONICLES 800 DATA 14,2 CHRONICLES 810 DATA 15,EZRA 820 DATA 16,NEHEMIAH 830 DATA 17,ESTHER 840 DATA 18,JOB 850 DATA 19,PSALMS 860 DATA 20,PROVERBS 870 DATA 21,ECCLESIASTES 880 DATA 22,SONG OF SOLOMON 890 DATA 23,ISAIAH 900 DATA 24,JEREMIAH 910 DATA 25,LAMENTATIONS 920 DATA 26,EZEKIEL 930 DATA 27,DANIEL 940 DATA 28,HOSEA 950 DATA 29,JOEL 960 DATA 30,AMOS 970 DATA 31,OBADIAH 980 DATA 32,JONAH 990 DATA 33,MICAH 1000 DATA 34,NAHUM 1010 DATA 35,HABAKKUK 1020 DATA 36,ZEPHANIAH 1030 DATA 37,HAGGAI 1040 DATA 38,ZECHARIAH 1050 DATA 39,MALACHI 1060 DATA 40,MATTHEW