00100 '***** 00101 '* 00102 '* GENPARTA.BAS 00103 '* MDJ 2022/03/28 00104 '* 00105 '* A QUIZ TO TEST YOUR 00106 '* KNOWLEDGE OF 00107 '* GENESIS 1-11 00108 '* 00109 '***** 00110 PCLEAR 1 00120 CLEAR 3000 00128 'GO TO THE PROGRAM'S 00129 'EXECUTIVE ROUTINE 00130 GOTO 4220 00200 '***** 00210 '* 00220 '* SELECTION SUBROUTINE: 00230 '* 00240 '* THIS ROUTINE IS UNIFORM 00250 '* AND REMAINS THE SAME FOR 00260 '* EACH AND EVERY QUIZ GAME 00270 '* 00280 '***** 00290 'RANDOM SELECTION OF 00300 'FOUR OF FIVE. 00310 ' SELECTS FOUR ENTRIES 00320 ' FROM FIVE POSSIBILITIES. 00330 ' INPUTS: 00340 ' NONE 00350 ' OUTPUTS (GLOBAL) 00360 ' RR(4) = THE SELECTED FOUR 00370 ' RP = POSITION OF "0" ENTRY 00380 ' (0, 1, 2, OR 3) 00390 ' = 4 IF "0" ENTRY 00400 ' NOT INCLUDED 00490 ' INITIALIZATION 00500 FOR I = 0 TO 4 00510 R1(I) = I 00520 NEXT I 00530 RP = 4 00540 'FIRST PASS 00550 R = RND(5) - 1 00560 J = -1 00570 FOR I = 0 TO 4 00580 IF R = I GOTO 610 00590 J = J + 1 00600 R2(J) = R1(I) 00610 NEXT I 00620 'SCRAMBLE PASS 00630 J = RND(24) - 1 00640 FOR I = 0 TO 3 00650 RR(I) = R2(S(J,I)) 00660 NEXT I 00670 'POSITION PASS 00680 FOR I = 0 TO 3 00690 IF RR(I) <> 0 GOTO 710 00700 RP = I 00710 NEXT I 00720 RETURN 00730 '***** 00740 '* 00750 '* ENDSUB 00760 '* 00770 '***** 04000 '***** 04010 '* 04020 '* EXECUTIVE 04030 '* 04040 '***** 04050 'VARIABLES LIST 04060 ' I, J = INDEXES AND COUNTERS 04070 ' A = RESPONSE CODE 04080 ' A$ = KEY PRESS 04090 ' N = NUMBER OF QUESTIONS 04100 ' Q$ = QUESTION 04110 ' QA$ = QUESTION ANSWERS ARRAY 04120 ' QD$ = QUESTIONS DATA ARRAY 04130 ' QN = QUESTION NUMBER 04140 ' QT = # OF QUESTIONS ASKED 04150 ' QC = # OF CORRECT ANSWERS 04160 ' QP = % CORRECT 04170 ' R, R1, R2, RR, RP 04180 ' = RANDOMIZATION VARIABLES 04190 ' S = SCRAMBLE CODES ARRAY 04200 ' SD$ = SCREEN DISPLAY TEXT 04210 'GO DISPLAY SPLASH SCREEN 04220 GOSUB 29600 04230 'GO INITIALIZE THE SYSTEM 04240 GOSUB 27600 04250 'GO LOAD QUESTIONS DATA 04260 GOSUB 10600 04270 'GO ENTER THE MAIN ROUTINE 04280 GOTO 5110 04290 '***** 04300 '* 04310 '* END EXECUTIVE 04320 '* 04330 '***** 05000 '***** 05010 '* 05020 '* MAIN 05030 '* 05040 '***** 05050 ' QN = QUESTION NUMBER 05060 ' Q1$ = FIRST LINE OF QUESTION 05061 ' Q2$ = SECOND LINE OF QUESTION 05060 ' Q3$ = BIBLE REFERENCE 05070 ' QA$ = QUESTION ANSWERS ARRAY 05080 ' QT = # OF QUESTIONS ASKED 05090 ' QC = # OF CORRECT ANSWERS 05100 ' QP = % CORRECT 05110 DIM QA$(4) 05120 QT = 0 05130 QC = 0 05140 QP = 0 05150 'RANDOMLY SELECT A 05160 'QUESTION 05170 'ADJUST RND FOR TOTAL 05180 'NUMBER OF QUESTIONS 05190 QN = RND(N) - 1 05200 Q1$ = QD$(QN,0) 05201 Q2$ = QD$(QN,1) 05202 Q3$ = QD$(QN,2) 05210 'RANDOMLY SELECT AND 05220 'SCRAMBLE FOUR OF 05230 'THE FIVE ANSWERS 05240 GOSUB 500 05250 FOR I = 0 TO 3 05260 QA$(I) = QD$(QN,RR(I)+3) 05270 NEXT I 05280 'MAIN DISPLAY SCREEN 05290 PRINT@32," "+Q1$ 05300 PRINT@64," "+Q2$+" ?" 05310 PRINT@128, " A. "+QA$(0) 05320 PRINT@160, " B. "+QA$(1) 05330 PRINT@192, " C. "+QA$(2) 05340 PRINT@224, " D. "+QA$(3) 05350 PRINT@256, " E. NONE OF THE ABOVE" 05360 PRINT@320, " PRESS A, B, C, D, OR E" 05370 PRINT@352, " " 05380 PRINT@384, " " 05390 PRINT@416, " " 05400 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 05410 A$ = INKEY$ 05420 IF A$="" GOTO 5410 05430 IF (A$="A" OR A$=CHR$(97)) GOTO 5520 05440 IF (A$="B" OR A$=CHR$(98)) GOTO 5530 05450 IF (A$="C" OR A$=CHR$(99)) GOTO 5540 05460 IF (A$="D" OR A$=CHR$(100)) GOTO 5550 05470 IF (A$="E" OR A$=CHR$(101)) GOTO 5560 05480 SOUND 159,2 05490 SOUND 159,2 05500 PRINT@320, " YOU MUST PRESS ONE OF A TO E" 05510 GOTO 5410 05520 A = 0: GOTO 5570 05530 A = 1: GOTO 5570 05540 A = 2: GOTO 5570 05550 A = 3: GOTO 5570 05560 A = 4: GOTO 5570 05570 IF A = RP GOTO 5710 05580 SOUND 78,1 05590 SOUND 78,1 05600 SOUND 78,1 05610 SOUND 5,3 05620 PRINT@320, " **SORRY: THAT IS INCORRECT." 05630 SD$ = " SEE: " 05640 IF RP=0 THEN SD$ = SD$ + "A. "+QA$(0) 05650 IF RP=1 THEN SD$ = SD$ + "B. "+QA$(1) 05660 IF RP=2 THEN SD$ = SD$ + "C. "+QA$(2) 05670 IF RP=3 THEN SD$ = SD$ + "D. "+QA$(3) 05680 IF RP=4 THEN SD$ = SD$ + "E.NONE OF THE ABOVE" 05685 IF (LEN(SD$)>31) THEN SD$=LEFT$(SD$,28)+"..." 05690 PRINT@352, SD$ 05695 PRINT@384, " REF: "+Q3$ 05700 GOTO 5770 05710 SOUND 204,1 05720 SOUND 204,1 05730 SOUND 204,1 05740 SOUND 218,3 05750 PRINT@320, " *** THAT IS CORRECT! ***" 05760 QC = QC + 1 05765 PRINT@384, " REF: "+Q3$ 05770 QT = QT + 1 05780 QP = INT(100 * (QC/QT)) 05790 PRINT@448, " SCORE = ";QC;" OF ";QT;" = ";QP;"%"; 05800 PRINT@416, " PRESS C TO CONTINUE;Q TO QUIT" 05810 A$ = INKEY$ 05820 IF A$="" GOTO 5810 05830 IF (A$="C" OR A$=CHR$(99)) GOTO 5190 05840 IF (A$="Q" OR A$=CHR$(113)) GOTO 5890 05850 SOUND 159,2 05860 SOUND 159,2 05870 PRINT@384, " YOU MUST PRESS C OR Q" 05880 GOTO 5810 05890 CLS 05900 PRINT:PRINT " FINAL SCORE = ";QP;"%" 05910 PRINT:PRINT " THANKS FOR PLAYING!" 05920 PRINT " COME BACK SOON." 05930 PRINT:PRINT " M. DAVID JOHNSON" 05940 PRINT " INFO@BDS-SOFT.COM" 05950 PRINT:PRINT:PRINT:PRINT:PRINT 05960 GOTO 32767 05970 '***** 05980 '* 05990 '* END MAIN 06000 '* 06010 '***** 10500 '***** 10510 '* 10520 '* STANDARD BASIC QUIZ GAMES 10530 '* DATA LOADING ROUTINE 10540 '* 10550 '***** 10560 'THIS DATA MUST BE 10570 'INDIVIDUALIZED FOR 10580 'EACH SPECIFIC QUIZ 10590 'N = NUMBER OF QUESTIONS 10600 N = 50 10610 'QD$ = QUESTIONS DATA ARRAY 10620 DIM QD$(N,8) 10630 FOR I = 0 TO N-1 10640 FOR J = 0 TO 7 10650 READ QD$(I,J) 10660 NEXT J 10670 NEXT I 10680 PRINT " OKAY -" 10690 PRINT " ALL LOADED AND READY TO GO" 10700 PRINT 10710 PRINT " PRESS ANY KEY TO BEGIN" 10720 PRINT 10730 A$=INKEY$ 10740 IF A$="" GOTO 10730 10750 RETURN 10760 '***** 10770 '* 10780 '* END DATA LOADING 10790 '* 10800 '***** 10810 '***** 10820 '* 10830 '* START OF DATA LIST 10840 '* 10850 '***** 10860 'DATA LIST MASTER LAYOUT 10900 'COMMENT: QUESTION NUMBER 10901 '''' 28-CHARACTER LENGTH COUNTER 10910 'DATA: QUESTION FIRST LINE 10911 '''' 26-CHARACTER LENGTH COUNTER 10920 'DATA: QUESTION SECOND LINE 10921 '''' 23-CHARACTER LENGTH COUNTER 10930 'DATA: BIBLE REFERENCE 10940 'DATA: CORRECT ANSWER 10950 'DATA: INCORRECT ANSWER #1 10960 'DATA: INCORRECT ANSWER #2 10970 'DATA: INCORRECT ANSWER #3 10980 'DATA: INCORRECT ANSWER #4 10990 'BLANK LINE BETWEEN QUESTION BLOCKS 10991 'IF A STRING CONTAINS A COMMA, A 10992 ' SEMICOLON, OR A COLON; YOU MUST 10993 ' ENCLOSE IT IN QUOTES. IF YOU DO, 10994 ' YOU CAN EXCEED THE RESPECTIVE 10995 ' LENGTH COUNTER BY TWO SPACES. 10996 'REMOVE ALL COMMENTS, EXCEPT 10997 ' QUESTION NUMBERS, BEFORE GOING 10998 ' TO PRODUCTION; IN ORDER TO SAVE 10999 ' MEMORY SPACE 11000 'QUESTION NUMBER 00 11001 '''' 0123456789ABCDEF0123456789AB 11010 DATA THE FIRST TIME GOD SPOKE IN 11011 '''' 0123456789ABCDEF0123456789 11020 DATA "THE BIBLE, WHAT DID HE SAY" 11021 '''' 0123456789ABCDEF0123456 11030 DATA "GENESIS 1:3" 11040 DATA LET THERE BE LIGHT 11050 DATA LET US MAKE MAN 11060 DATA LET THE WATERS SWARM 11070 DATA LET THE BIRDS FLY 11080 DATA LET THERE BE STARS 11100 'QUESTION NUMBER 01 11101 '''' 0123456789ABCDEF0123456789AB 11110 DATA WHICH CREATURE WAS MORE 11111 '''' 0123456789ABCDEF0123456789 11120 DATA CRAFTY THAN ANY OTHER 11121 '''' 0123456789ABCDEF0123456 11130 DATA "GENESIS 3:1" 11140 DATA THE SERPENT 11150 DATA THE HAWK 11160 DATA MAN 11170 DATA WOMAN 11180 DATA THE WOLF 11200 'QUESTION NUMBER 02 11201 '''' 0123456789ABCDEF0123456789AB 11210 DATA WHAT TREE DID GOD FORBID 11211 '''' 0123456789ABCDEF0123456789 11220 DATA ADAM AND EVE TO EAT FROM 11221 '''' 0123456789ABCDEF0123456 11230 DATA "GENESIS 2:17" 11240 DATA KNOWLEDGE OF GOOD & EVIL 11250 DATA TREE OF LIFE 11260 DATA APPLE TREE 11270 DATA PEAR TREE 11280 DATA OUTSIDE THE GARDEN 11300 'QUESTION NUMBER 03 11301 '''' 0123456789ABCDEF0123456789AB 11310 DATA WHAT DID ADAM AND EVE DO 11311 '''' 0123456789ABCDEF0123456789 11320 DATA AFTER THEY DISOBEYED GOD 11321 '''' 0123456789ABCDEF0123456 11330 DATA "GENESIS 3:8" 11340 DATA TRIED TO HIDE FROM GOD 11350 DATA RAN OUT OF THE GARDEN 11360 DATA KILLED THE SERPENT 11370 DATA DENIED THEY DISOBEYED 11380 DATA CURSED GOD 11400 'QUESTION NUMBER 04 11401 '''' 0123456789ABCDEF0123456789AB 11410 DATA WHAT WERE THE NAMES OF THE 11411 '''' 0123456789ABCDEF0123456789 11420 DATA THREE SONS OF NOAH 11421 '''' 0123456789ABCDEF0123456 11430 DATA "GENESIS 5:32" 11440 DATA "SHEM, HAM, AND JAPHETH" 11450 DATA "JARED, ENOCH, AND NOD" 11460 DATA "SETH, ENOSH, AND KENAN" 11470 DATA "NIMROD, EBAL, AND OBED" 11480 DATA "ASHER, LUD, AND ARAM" 11500 'QUESTION NUMBER 05 11501 '''' 0123456789ABCDEF0123456789AB 11510 DATA "AFTER THE FLOOD, WHAT WAS" 11511 '''' 0123456789ABCDEF0123456789 11520 DATA BUILT IN LAND OF SHINAR 11521 '''' 0123456789ABCDEF0123456 11530 DATA "GENESIS 11:4" 11540 DATA A CITY AND A TOWER 11550 DATA THE GREAT ARK 11560 DATA AN ALTAR TO GOD 11570 DATA A NEW GARDEN 11580 DATA THE TABERNACLE 11600 'QUESTION NUMBER 06 11601 '''' 0123456789ABCDEF0123456789AB 11610 DATA WHO WAS THE FIRST CHILD OF 11611 '''' 0123456789ABCDEF0123456789 11620 DATA ADAM AND EVE 11621 '''' 0123456789ABCDEF0123456 11630 DATA "GENESIS 4:1" 11640 DATA THEIR SON CAIN 11650 DATA THEIR SON ABEL 11660 DATA THEIR SON SETH 11670 DATA THEIR DAUGHTER DINAH 11680 DATA THEIR SON NOAH 11700 'QUESTION NUMBER 07 11701 '''' 0123456789ABCDEF0123456789AB 11710 DATA WHAT DID GOD MAKE FOR ADAM 11711 '''' 0123456789ABCDEF0123456789 11720 DATA "& EVE WHEN THEY DISOBEYED" 11721 '''' 0123456789ABCDEF0123456 11730 DATA "GENESIS 3:21" 11740 DATA GARMENTS OF SKINS 11750 DATA COATS OF FINE CLOTH 11760 DATA A NEW HOUSE 11770 DATA GARDENING TOOLS 11780 DATA SHOES 11800 'QUESTION NUMBER 08 11801 '''' 0123456789ABCDEF0123456789AB 11810 DATA "WHAT DID GOD SAY EVE'S OFF-" 11811 '''' 0123456789ABCDEF0123456789 11820 DATA SPRING WILL DO TO SERPENT 11821 '''' 0123456789ABCDEF0123456 11830 DATA "GENESIS 3:15" 11840 DATA "CRUSH IT'S HEAD" 11850 DATA "CRUSH IT'S TAIL" 11860 DATA KILL IT AND SKIN IT 11870 DATA KILL IT AND EAT IT 11880 DATA CHASE IT FROM GARDEN 11900 'QUESTION NUMBER 09 11901 '''' 0123456789ABCDEF0123456789AB 11910 DATA WHAT DID GOD SAY THE SERPENT 11911 '''' 0123456789ABCDEF0123456789 11920 DATA "WILL DO TO EVE'S OFFSPRING" 11921 '''' 0123456789ABCDEF0123456 11930 DATA "GENESIS 3:15" 11940 DATA BRUISE HIS HEEL 11950 DATA BRUISE HIS FACE 11960 DATA KILL HIM 11970 DATA TRICK HIM 11980 DATA MAKE HIM RUN AWAY 12000 'QUESTION NUMBER 10 12001 '''' 0123456789ABCDEF0123456789AB 12010 DATA "AT THE VERY BEGINING, WHERE" 12011 '''' 0123456789ABCDEF0123456789 12020 DATA WAS THE SPIRIT OF GOD 12021 '''' 0123456789ABCDEF0123456 12030 DATA "GENESIS 1:2" 12040 DATA HOVERING OVER THE WATER 12050 DATA IN HEAVEN 12060 DATA BY THE SUN 12070 DATA LIVING IN THE WATER 12080 DATA HIGH ABOVE THE EARTH 12100 'QUESTION NUMBER 11 12101 '''' 0123456789ABCDEF0123456789AB 12110 DATA ON WHICH DAY OF CREATION DID 12111 '''' 0123456789ABCDEF0123456789 12120 DATA GOD CREATE VEGETATION 12121 '''' 0123456789ABCDEF0123456 12130 DATA "GENESIS 1:13" 12140 DATA ON THE THIRD DAY 12150 DATA ON THE SECOND DAY 12160 DATA ON THE FOURTH DAY 12170 DATA ON THE FIFTH DAY 12180 DATA ON THE SIXTH DAY 12200 'QUESTION NUMBER 12 12201 '''' 0123456789ABCDEF0123456789AB 12210 DATA ON WHICH DAY OF CREATION DID 12211 '''' 0123456789ABCDEF0123456789 12220 DATA GOD CREATE THE SUN 12221 '''' 0123456789ABCDEF0123456 12230 DATA "GENESIS 1:19" 12240 DATA ON THE FOURTH DAY 12250 DATA ON THE THIRD DAY 12260 DATA ON THE SECOND DAY 12270 DATA ON THE FIFTH DAY 12280 DATA ON THE SIXTH DAY 12300 'QUESTION NUMBER 13 12301 '''' 0123456789ABCDEF0123456789AB 12310 DATA WHAT DID GOD ASSIGN AS 12311 '''' 0123456789ABCDEF0123456789 12320 DATA "MAN'S 1ST RESPONSIBILITY" 12321 '''' 0123456789ABCDEF0123456 12330 DATA "GENESIS 1:28" 12340 DATA DOMINION OVER THE EARTH 12350 DATA USE ANIMALS FOR FOOD 12360 DATA NAME THE ANIMALS 12370 DATA USE FISH FOR FOOD 12380 DATA MAKE FRIENDS OF ANIMALS 12400 'QUESTION NUMBER 14 12401 '''' 0123456789ABCDEF0123456789AB 12410 DATA "AT CREATION, WHAT DID GOD" 12411 '''' 0123456789ABCDEF0123456789 12420 DATA DO ON THE SEVENTH DAY 12421 '''' 0123456789ABCDEF0123456 12430 DATA "GENESIS 2:2" 12440 DATA HE RESTED 12450 DATA HE CREATED MAN 12460 DATA HE CREATED WOMAN 12470 DATA HE CREATED THE WHALES 12480 DATA HE GAVE MOSES THE LAW 12500 'QUESTION NUMBER 15 12501 '''' 0123456789ABCDEF0123456789AB 12510 DATA WHAT TWO MODERN RIVERS CAME 12511 '''' 0123456789ABCDEF0123456789 12520 DATA OUT OF THE GARDEN OF EDEN 12521 '''' 0123456789ABCDEF0123456 12530 DATA "GENESIS 2:10-14" 12540 DATA TIGRIS AND EUPHRATES 12550 DATA JORDAN AND TIGRIS 12560 DATA JORDAN AND NILE 12570 DATA NILE AND EUPHRATES 12580 DATA JORDAN AND EUPHRATES 12600 'QUESTION NUMBER 16 12601 '''' 0123456789ABCDEF0123456789AB 12610 DATA "WHAT WAS ADAM'S FIRST JOB" 12611 '''' 0123456789ABCDEF0123456789 12620 DATA AFTER GOD CREATED HIM 12621 '''' 0123456789ABCDEF0123456 12630 DATA "GENESIS 2:15" 12640 DATA CULTIVATE THE GARDEN 12650 DATA NAME THE ANIMALS 12660 DATA CATCH SOME FISH 12670 DATA STUDY THE BIBLE 12680 DATA MAKE SOME CLOTHES 12700 'QUESTION NUMBER 17 12701 '''' 0123456789ABCDEF0123456789AB 12710 DATA ADAM WAS MADE FROM DUST. 12711 '''' 0123456789ABCDEF0123456789 12720 DATA WHAT WAS EVE MADE FROM 12721 '''' 0123456789ABCDEF0123456 12730 DATA "GENESIS 2:21-22" 12740 DATA "FROM ONE OF ADAM'S RIBS" 12750 DATA ALSO FROM DUST 12760 DATA FROM ONE OF THE ANIMALS 12770 DATA FROM PART OF A TREE 12780 DATA FROM SOME FIELD GRASS 12800 'QUESTION NUMBER 18 12801 '''' 0123456789ABCDEF0123456789AB 12810 DATA WHAT DID GOD DO WHEN ADAM 12811 '''' 0123456789ABCDEF0123456789 12820 DATA AND EVE HID FROM HIM 12821 '''' 0123456789ABCDEF0123456 12830 DATA "GENESIS 3:9" 12840 DATA GOD CALLED OUT TO ADAM 12850 DATA GOD LOOKED IN THE TREES 12860 DATA GOD LOOKED IN THE GRASS 12870 DATA GOD DID NOTHING 12880 DATA GOD ASKED THE SERPENT 12900 'QUESTION NUMBER 19 12901 '''' 0123456789ABCDEF0123456789AB 12910 DATA "WHAT DID ADAM SAY TO GOD'S-" 12911 '''' 0123456789ABCDEF0123456789 12920 DATA DID YOU EAT FROM THE TREE 12921 '''' 0123456789ABCDEF0123456 12930 DATA "GENESIS 3:12" 12940 DATA ADAM BLAMED EVE 12950 DATA ADAM BLAMED THE SERPENT 12960 DATA ADAM SAID YES 12970 DATA ADAM SAID NO 12980 DATA ADAM SAID NOTHING 13000 'QUESTION NUMBER 20 13001 '''' 0123456789ABCDEF0123456789AB 13010 DATA WHAT DID ABEL DO FOR A 13011 '''' 0123456789ABCDEF0123456789 13020 DATA LIVING 13021 '''' 0123456789ABCDEF0123456 13030 DATA "GENESIS 4:2" 13040 DATA HE WAS A SHEPHERD 13050 DATA HE WAS A FARMER 13060 DATA HE WAS A CARPENTER 13070 DATA HE WAS A STONEMASON 13080 DATA HE WAS A PRIEST 13100 'QUESTION NUMBER 21 13101 '''' 0123456789ABCDEF0123456789AB 13110 DATA WHAT DID CAIN DO FOR A 13111 '''' 0123456789ABCDEF0123456789 13120 DATA LIVING 13121 '''' 0123456789ABCDEF0123456 13130 DATA "GENESIS 4:2" 13140 DATA HE WAS A FARMER 13150 DATA HE WAS A SHEPHERD 13160 DATA HE WAS A CARPENTER 13170 DATA HE WAS A STONEMASON 13180 DATA HE WAS A PRIEST 13200 'QUESTION NUMBER 22 13201 '''' 0123456789ABCDEF0123456789AB 13210 DATA WHAT DID CAIN DO TO ABEL 13211 '''' 0123456789ABCDEF0123456789 13220 DATA IN THE FIELD 13221 '''' 0123456789ABCDEF0123456 13230 DATA "GENESIS 4:8" 13240 DATA HE KILLED ABEL 13250 DATA HE HIT ABEL IN THE FACE 13260 DATA HE THREW DIRT AT ABEL 13270 DATA HE CURSED ABEL 13280 DATA HE LAUGHED AT ABEL 13300 'QUESTION NUMBER 23 13301 '''' 0123456789ABCDEF0123456789AB 13310 DATA WHO WAS THE SECOND CHILD OF 13311 '''' 0123456789ABCDEF0123456789 13320 DATA ADAM AND EVE 13321 '''' 0123456789ABCDEF0123456 13330 DATA "GENESIS 4:2" 13340 DATA THEIR SON ABEL 13350 DATA THEIR SON CAIN 13360 DATA THEIR SON SETH 13370 DATA THEIR DAUGHTER DINAH 13380 DATA THEIR SON NOAH 13400 'QUESTION NUMBER 24 13401 '''' 0123456789ABCDEF0123456789AB 13410 DATA WHO WAS THE THIRD CHILD OF 13411 '''' 0123456789ABCDEF0123456789 13420 DATA ADAM AND EVE 13421 '''' 0123456789ABCDEF0123456 13430 DATA "GENESIS 4:25" 13440 DATA THEIR SON SETH 13450 DATA THEIR SON CAIN 13460 DATA THEIR SON ABEL 13470 DATA THEIR DAUGHTER DINAH 13480 DATA THEIR SON NOAH 13500 'QUESTION NUMBER 25 13501 '''' 0123456789ABCDEF0123456789AB 13510 DATA WHO LIVED TO BE THE OLDEST 13511 '''' 0123456789ABCDEF0123456789 13520 DATA MAN IN THE BIBLE? HOW OLD 13521 '''' 0123456789ABCDEF0123456 13530 DATA "GENESIS 5:27" 13540 DATA "METHUSELAH, 969 YEARS" 13550 DATA "METHUSELAH. 435 YEARS" 13560 DATA "ENOCH. 365 YEARS" 13570 DATA "ADAM, 930 YEARS" 13580 DATA "ADAM, 440 YEARS" 13600 'QUESTION NUMBER 26 13601 '''' 0123456789ABCDEF0123456789AB 13610 DATA WHO WAS THE FIRST MAN IN THE 13611 '''' 0123456789ABCDEF0123456789 13620 DATA BIBLE WHO NEVER DIED 13621 '''' 0123456789ABCDEF0123456 13630 DATA "GENESIS 5:24" 13640 DATA "ENOCH, SON OF JARED" 13650 DATA "ENOCH, SON OF CAIN" 13660 DATA "MAHALALEL, SON OF KENAN" 13670 DATA "ENOSH, SON OF SETH" 13680 DATA "SETH, SON OF ADAM" 13700 'QUESTION NUMBER 27 13701 '''' 0123456789ABCDEF0123456789AB 13710 DATA WHAT DID LAMECH PREDICT 13711 '''' 0123456789ABCDEF0123456789 13720 DATA ABOUT HIS SON NOAH 13721 '''' 0123456789ABCDEF0123456 13730 DATA "GENESIS 5:29" 13740 DATA HE WILL GIVE US REST 13750 DATA HE WILL BUILD AN ARK 13760 DATA HE WILL LOVE ANIMALS 13770 DATA HE WILL OBEY GOD 13780 DATA HE WILL HAVE THREE SONS 13800 'QUESTION NUMBER 28 13801 '''' 0123456789ABCDEF0123456789AB 13810 DATA HOW OLD WAS NOAH WHEN HIS 13811 '''' 0123456789ABCDEF0123456789 13820 DATA FIRST SON WAS BORN 13821 '''' 0123456789ABCDEF0123456 13830 DATA "GENESIS 5:32" 13840 DATA 500 YEARS OLD 13850 DATA 130 YEARS OLD 13860 DATA 200 YEARS OLD 13870 DATA 214 YEARS OLD 13880 DATA 836 YEARS OLD 13900 'QUESTION NUMBER 29 13901 '''' 0123456789ABCDEF0123456789AB 13910 DATA "IN NOAH'S DAY, WHAT DID GOD" 13911 '''' 0123456789ABCDEF0123456789 13920 DATA "SEE IN MAN'S SOCIETY" 13921 '''' 0123456789ABCDEF0123456 13930 DATA "GENESIS 6:5" 13940 DATA "MAN'S EVIL WAS GREAT" 13950 DATA MAN HAD TOO MUCH MONEY 13960 DATA MAN DAMAGED HIS WORLD 13970 DATA MAN DIED TOO YOUNG 13980 DATA "MAN'S LOVE WAS GREAT" 14000 'QUESTION NUMBER 30 14001 '''' 0123456789ABCDEF0123456789AB 14010 DATA WHAT DID GOD TELL NOAH HE 14011 '''' 0123456789ABCDEF0123456789 14020 DATA WAS GOING TO DO ON EARTH 14021 '''' 0123456789ABCDEF0123456 14030 DATA "GENESIS 6:17" 14040 DATA FLOOD IT WITH WATER 14050 DATA BURN IT WITH FIRE 14060 DATA TAKE AWAY ALL ITS AIR 14070 DATA FILL IT WITH DISEASE 14080 DATA KILL ALL ITS VEGETATION 14100 'QUESTION NUMBER 31 14101 '''' 0123456789ABCDEF0123456789AB 14110 DATA HOW MANY PEOPLE WERE SAVED 14111 '''' 0123456789ABCDEF0123456789 14120 DATA "IN NOAH'S ARK" 14121 '''' 0123456789ABCDEF0123456 14130 DATA "GENESIS 6:18; 7:13" 14140 DATA EIGHT 14150 DATA ONE 14160 DATA TWO 14170 DATA FIVE 14180 DATA SIX 14200 'QUESTION NUMBER 32 14201 '''' 0123456789ABCDEF0123456789AB 14210 DATA HOW LONG DID IT RAIN AFTER 14211 '''' 0123456789ABCDEF0123456789 14220 DATA NOAH WENT INTO THE ARK 14221 '''' 0123456789ABCDEF0123456 14230 DATA "GENESIS 7:12" 14240 DATA 40 DAYS AND 40 NIGHTS 14250 DATA 10 DAYS AND 10 NIGHTS 14260 DATA 20 DAYS AND 20 NIGHTS 14270 DATA 30 DAYS AND 30 NIGHTS 14280 DATA 31 DAYS AND 30 NIGHTS 14300 'QUESTION NUMBER 33 14331 '''' 0123456789ABCDEF0123456789AB 14310 DATA "IN NOAH'S FLOOD, HOW HIGH" 14311 '''' 0123456789ABCDEF0123456789 14320 DATA DID THE WATER GET 14321 '''' 0123456789ABCDEF0123456 14330 DATA "GENESIS 7;20" 14340 DATA ABOVE ALL THE MOUNTAINS 14350 DATA ABOVE ALL THE TREES 14360 DATA "ABOVE MEN'S HEADS" 14370 DATA ABOVE ALL THE BUILDINGS 14380 DATA ABOVE MOST OF THE HILLS 14400 'QUESTION NUMBER 34 14401 '''' 0123456789ABCDEF0123456789AB 14410 DATA "OUTSIDE NOAH'S ARK, WHAT" 14411 '''' 0123456789ABCDEF0123456789 14420 DATA HAPPENED ON EARTH 14421 '''' 0123456789ABCDEF0123456 14430 DATA "GENESIS 7:21-22" 14440 DATA ALL LIFE ON LAND DIED 14450 DATA ALL LIFE DIED 14460 DATA ALL LIFE BUT BIRDS DIED 14470 DATA ONLY HUMAN BEINGS DIED 14480 DATA ONLY FALSE PRIESTS DIED 14500 'QUESTION NUMBER 35 14501 '''' 0123456789ABCDEF0123456789AB 14510 DATA "WHERE DID NOAH'S ARK MAKE" 14511 '''' 0123456789ABCDEF0123456789 14520 DATA LANDFALL AFTER THE FLOOD 14521 '''' 0123456789ABCDEF0123456 14530 DATA "GENESIS 8:4" 14540 DATA THE MOUNTAINS OF ARARAT 14550 DATA MOUNT SINAI 14560 DATA MOUNT EBAL 14570 DATA THE MOUNTAINS OF SYRIA 14580 DATA THE MOUNTAINS OF ISRAEL 14600 'QUESTION NUMBER 36 14601 '''' 0123456789ABCDEF0123456789AB 14610 DATA HOW LONG DID THE WATERS OF 14611 '''' 0123456789ABCDEF0123456789 14620 DATA THE FLOOD REMAIN ON EARTH 14621 '''' 0123456789ABCDEF0123456 14630 DATA "GENESIS 7:11; 8:13" 14640 DATA "TEN AND ONE-HALF MONTHS" 14650 DATA "SIX AND ONE-HALF MONTHS" 14660 DATA "TWO AND ONE-HALF MONTHS" 14670 DATA "NINE MONTHS" 14680 DATA "SEVEN MONTHS" 14700 'QUESTION NUMBER 37 14701 '''' 0123456789ABCDEF0123456789AB 14710 DATA WHICH ANIMALS DID GOD SAY 14711 '''' 0123456789ABCDEF0123456789 14720 DATA NOAH COULD USE FOR FOOD 14721 '''' 0123456789ABCDEF0123456 14730 DATA "GENESIS 9:3" 14740 DATA ALL ANIMALS 14750 DATA ALL ANIMALS EXCEPT PIGS 14760 DATA ONLY FISH 14770 DATA "NO ANIMALS, JUST PLANTS" 14780 DATA ONLY FISH AND BIRDS 14800 'QUESTION NUMBER 38 14801 '''' 0123456789ABCDEF0123456789AB 14810 DATA "AFTER THE FLOOD, WHAT WAS" 14811 '''' 0123456789ABCDEF0123456789 14820 DATA THE PENALTY FOR MURDER 14821 '''' 0123456789ABCDEF0123456 14830 DATA "GENESIS 9:6" 14840 DATA DEATH 14850 DATA LIFE IMPRISONMENT 14860 DATA 20 YEARS HARD LABOR 14870 DATA SLAVERY 14880 DATA A LARGE FINE 14900 'QUESTION NUMBER 39 14901 '''' 0123456789ABCDEF0123456789AB 14910 DATA "WHAT IS GOD'S SIGN THAT HE" 14911 '''' 0123456789ABCDEF0123456789 14920 DATA "WON'T REPEAT THE FLOOD" 14921 '''' 0123456789ABCDEF0123456 14930 DATA "GENESIS 9:12-17" 14940 DATA THE RAINBOW 14950 DATA THE CLOUDS 14960 DATA "THE SUN, MOON, & STARS" 14970 DATA THE TABLETS OF THE LAW 14980 DATA THE SNOW OF WINTER 15000 'QUESTION NUMBER 40 15001 '''' 0123456789ABCDEF0123456789AB 15010 DATA WHAT DID HAM DO WHEN HE 15011 '''' 0123456789ABCDEF0123456789 15020 DATA SAW HIS FATHER NOAH NAKED 15021 '''' 0123456789ABCDEF0123456 15030 DATA "GENESIS 9:22" 15040 DATA TOLD HIS BROTHERS 15050 DATA COVERED HIS FATHER 15060 DATA TOLD HIS WIFE 15070 DATA TOLD HIS MOTHER 15080 DATA CURSED HIS FATHER 15100 'QUESTION NUMBER 41 15101 '''' 0123456789ABCDEF0123456789AB 15110 DATA "IN THE BEGINNING, HOW DID" 15111 '''' 0123456789ABCDEF0123456789 15120 DATA THE EARTH COME TO EXIST 15121 '''' 0123456789ABCDEF0123456 15130 DATA "GENESIS 1:1" 15140 DATA GOD CREATED IT 15150 DATA EVOLUTION CAUSED IT 15160 DATA THE SUN CAPTURED IT 15170 DATA IT COOLED FROM HOT GAS 15180 DATA NATURE FORMED IT 15200 'QUESTION NUMBER 42 15201 '''' 0123456789ABCDEF0123456789AB 15210 DATA WHAT DID GOD ORIGINALLY 15211 '''' 0123456789ABCDEF0123456789 15220 DATA THINK OF HIS CREATION 15221 '''' 0123456789ABCDEF0123456 15230 DATA "GENESIS 1:31" 15240 DATA IT WAS VERY GOOD 15250 DATA IT WOULD GET BETTER 15260 DATA IT NEEDED MAN'S TOUCH 15270 DATA LUCIFER SHOULD RUN IT 15280 DATA EVE WOULD IMPROVE IT 15300 'QUESTION NUMBER 43 15301 '''' 0123456789ABCDEF0123456789AB 15310 DATA "WHAT'S THE FIRST THING NOAH" 15311 '''' 0123456789ABCDEF0123456789 15320 DATA BUILT AFTER THE FLOOD 15321 '''' 0123456789ABCDEF0123456 15330 DATA "GENESIS 8:20" 15340 DATA AN ALTAR 15350 DATA A HOUSE 15360 DATA "A LEAN-TO" 15370 DATA A PEN FOR THE ANIMALS 15380 DATA A SMALLER BOAT 15400 'QUESTION NUMBER 44 15401 '''' 0123456789ABCDEF0123456789AB 15410 DATA "AFTER THE FLOOD, GOD BLESSED" 15411 '''' 0123456789ABCDEF0123456789 15420 DATA "THEM & SAID TO DO WHAT" 15421 '''' 0123456789ABCDEF0123456 15430 DATA "GENESIS 9:1" 15440 DATA "BE FRUITFUL & MULTIPLY" 15450 DATA PLANT SOME SEED 15460 DATA HARVEST THE GROUND 15470 DATA CLEAN UP THE DEBRIS 15480 DATA BUILD NEW HOUSES 15500 'QUESTION NUMBER 45 15501 '''' 0123456789ABCDEF0123456789AB 15510 DATA "AFTER THE FLOOD, WHAT STAYED" 15511 '''' 0123456789ABCDEF0123456789 15520 DATA THE SAME FOR GENERATIONS 15521 '''' 0123456789ABCDEF0123456 15530 DATA "GENESIS 11:1" 15540 DATA THEIR COMMON LANGUAGE 15550 DATA THEIR FARMING METHODS 15560 DATA THEIR USE OF THE LAND 15570 DATA THEIR REVERENCE FOR GOD 15580 DATA THEIR OBEDIENCE 15600 'QUESTION NUMBER 46 15601 '''' 0123456789ABCDEF0123456789AB 15610 DATA HOW DID GOD REACT TO THE 15611 '''' 0123456789ABCDEF0123456789 15620 DATA THE TOWER OF BABEL 15621 '''' 0123456789ABCDEF0123456 15630 DATA "GENESIS 11:7" 15640 DATA CONFUSED THEIR LANGUAGE 15650 DATA KILLED THE BUILDERS 15660 DATA BURNED THE TOWER 15670 DATA CAUSED A LABOR STRIKE 15680 DATA STRUCK THEM BLIND 15700 'QUESTION NUMBER 47 15701 '''' 0123456789ABCDEF0123456789AB 15710 DATA WHERE DID THE PEOPLE GO WHEN 15711 '''' 0123456789ABCDEF0123456789 15720 DATA TOWER OF BABEL WORK ENDED 15721 '''' 0123456789ABCDEF0123456 15730 DATA "GENESIS 11:8" 15740 DATA SCATTERED ON THE EARTH 15750 DATA TO JERUSALEM 15760 DATA TO EGYPT 15770 DATA TO THEIR HOMES 15780 DATA TO THE SEASIDE 15800 'QUESTION NUMBER 48 15801 '''' 0123456789ABCDEF0123456789AB 15810 DATA HOW MANY OF EACH ANIMAL DID 15811 '''' 0123456789ABCDEF0123456789 15820 DATA NOAH BRING INTO THE ARK 15821 '''' 0123456789ABCDEF0123456 15830 DATA "GENESIS 6:19" 15840 DATA TWO 15850 DATA ONE 15860 DATA THREE 15870 DATA FOUR 15880 DATA FIVE 15900 'QUESTION NUMBER 49 15901 '''' 0123456789ABCDEF0123456789AB 15910 DATA "WHO WAS ABRAHAM'S (ABRAM'S)" 15911 '''' 0123456789ABCDEF0123456789 15920 DATA FATHER 15921 '''' 0123456789ABCDEF0123456 15930 DATA "GENESIS 11:26" 15940 DATA TERAH 15950 DATA NOAH 15960 DATA SHEM 15970 DATA NAHOR 15980 DATA PELEG 25400 '***** 25410 '* 25420 '* END OF DATA LIST 25430 '* 25440 '***** 27500 '***** 27510 '* 27520 '* STANDARD BASIC QUIZ GAMES 27530 '* INITIALIZATION ROUTINE 27540 '* 27550 '***** 27600 CLS 27610 PRINT 27620 PRINT " LOADING THE SYSTEM" 27630 PRINT " PLEASE WAIT" 27640 PRINT 27650 'RANDOMIZATION ARRAYS 27660 DIM R1(5) 27670 DIM R2(4) 27680 DIM RR(4) 27690 'SCRAMBLE CODES ARRAY 27700 DIM S(24,4) 27710 'RANDOMIZE THE RND FUNCTION 27720 R = RND(-TIMER) 27800 'INITIALIZE THE SCRAMBLE CODES 27810 S(0,0) = 0 27820 S(0,1) = 1 27830 S(0,2) = 2 27840 S(0,3) = 3 27850 S(1,0) = 0 27860 S(1,1) = 1 27870 S(1,2) = 3 27880 S(1,3) = 2 27890 S(2,0) = 0 27900 S(2,1) = 2 27910 S(2,2) = 1 27920 S(2,3) = 3 27930 S(3,0) = 0 27940 S(3,1) = 2 27950 S(3,2) = 3 27960 S(3,3) = 1 27970 S(4,0) = 0 27980 S(4,1) = 3 27990 S(4,2) = 1 28000 S(4,3) = 2 28010 S(5,0) = 0 28020 S(5,1) = 3 28030 S(5,2) = 2 28040 S(5,3) = 1 28050 S(6,0) = 1 28060 S(6,1) = 0 28070 S(6,2) = 2 28080 S(6,3) = 3 28090 S(7,0) = 1 28100 S(7,1) = 0 28110 S(7,2) = 3 28120 S(7,3) = 2 28130 S(8,0) = 1 28140 S(8,1) = 2 28150 S(8,2) = 0 28160 S(8,3) = 3 28170 S(9,0) = 1 28180 S(9,1) = 2 28190 S(9,2) = 3 28200 S(9,3) = 0 28210 S(10,0) = 1 28220 S(10,1) = 3 28230 S(10,2) = 0 28240 S(10,3) = 2 28250 S(11,0) = 1 28260 S(11,1) = 3 28270 S(11,2) = 2 28280 S(11,3) = 0 28290 S(12,0) = 2 28300 S(12,1) = 0 28310 S(12,2) = 1 28320 S(12,3) = 3 28330 S(13,0) = 2 28340 S(13,1) = 0 28350 S(13,2) = 3 28360 S(13,3) = 1 28370 S(14,0) = 2 28380 S(14,1) = 1 28390 S(14,2) = 0 28400 S(14,3) = 3 28410 S(15,0) = 2 28420 S(15,1) = 1 28430 S(15,2) = 3 28440 S(15,3) = 0 28450 S(16,0) = 2 28460 S(16,1) = 3 28470 S(16,2) = 0 28480 S(16,3) = 1 28490 S(17,0) = 2 28500 S(17,1) = 3 28510 S(17,2) = 1 28520 S(17,3) = 0 28530 S(18,0) = 3 28540 S(18,1) = 0 28550 S(18,2) = 1 28560 S(18,3) = 2 28570 S(19,0) = 3 28580 S(19,1) = 0 28590 S(19,2) = 2 28600 S(19,3) = 1 28610 S(20,0) = 3 28620 S(20,1) = 1 28630 S(20,2) = 0 28640 S(20,3) = 2 28650 S(21,0) = 3 28660 S(21,1) = 1 28670 S(21,2) = 2 28680 S(21,3) = 0 28690 S(22,0) = 3 28700 S(22,1) = 2 28710 S(22,2) = 0 28720 S(22,3) = 1 28730 S(23,0) = 3 28740 S(23,1) = 2 28750 S(23,2) = 1 28760 S(23,3) = 0 28770 RETURN 28780 '***** 28790 '* 28800 '* END INITIALIZATION 28810 '* 28820 '***** 29500 '***** 29510 '* 29520 '* DISPLAY THE STANDARD 29530 '* BASIC QUIZ GAMES 29540 '* SPLASH SCREEN 29550 '* 29560 '***** 29600 CLS 29610 'LINES 0 AND 1 ARE BLANK GREEN 29620 'DISPLAY UNIFORM STANDARD LINE 2 29630 SD$ = CHR$(32) + CHR$(158) 29640 FOR I = 0 TO 27 29650 SD$ = SD$ + CHR$(156) 29660 NEXT I 29670 SD$ = SD$ + CHR$(157) + CHR$(32) 29680 PRINT@64, SD$ 29690 'DISPLAY UNIFORM STANDARD LINE 3 29700 SD$ = CHR$(32) + CHR$(154) + CHR$(206) 29710 FOR I = 0 TO 25 29720 SD$ = SD$ + CHR$(204) 29730 NEXT I 29740 SD$ = SD$ + CHR$(205) + CHR$(149) + CHR$(32) 29750 PRINT@96, SD$ 29760 'DISPLAY UNIFORM STANDARD LINE 4 29770 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29780 FOR I = 0 TO 25 29790 SD$ = SD$ + CHR$(32) 29800 NEXT I 29810 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29820 PRINT@128, SD$ 29830 'DISPLAY SPECIFIC STANDARD LINE 5 29840 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29850 ' *** CHANGE NEXT LINE AS REQUIRED: 29860 SD$ = SD$ + " GENESIS 1-11 " 29870 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29880 PRINT@160, SD$ 29890 'DISPLAY SPECIFIC STANDARD LINE 6 29900 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29910 ' *** CHANGE NEXT LINE AS REQUIRED: 29920 SD$ = SD$ + " QUIZ GAME " 29930 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 29940 PRINT@192, SD$ 29950 'DISPLAY UNIFORM STANDARD LINE 7 29960 SD$ = CHR$(32) + CHR$(154) + CHR$(202) 29970 FOR I = 0 TO 25 29980 SD$ = SD$ + CHR$(32) 29990 NEXT I 30000 SD$ = SD$ + CHR$(197) + CHR$(149) + CHR$(32) 30010 PRINT@224, SD$ 30020 'DISPLAY UNIFORM STANDARD LINE 8 30030 SD$ = CHR$(32) + CHR$(154) + CHR$(203) 30040 FOR I = 0 TO 25 30050 SD$ = SD$ + CHR$(195) 30060 NEXT I 30070 SD$ = SD$ + CHR$(199) + CHR$(149) + CHR$(32) 30080 PRINT@256, SD$ 30090 'DISPLAY UNIFORM STANDARD LINE 9 30100 SD$ = CHR$(32) + CHR$(155) 30110 FOR I = 0 TO 27 30120 SD$ = SD$ + CHR$(147) 30130 NEXT I 30140 SD$ = SD$ + CHR$(151) + CHR$(32) 30150 PRINT@288, SD$ 30160 'LINE 10 IS BLANK GREEN 30170 'DISPLAY UNIFORM STANDARD LINE 11 30180 PRINT@352, " PRESS ANY KEY TO CONTINUE " 30190 'LINES 12 AND 13 ARE BLANK GREEN 30200 'DISPLAY SPECIFIC STANDARD LINE 14 30210 ' *** CHANGE THE YEAR AS REQUIRED 30220 PRINT@448, " BDS SOFTWARE 2022 "; 30230 'LINE 15 IS BLANK GREEN 30240 A$ = INKEY$ 30250 IF A$="" GOTO 30240 30260 RETURN 30270 '***** 30280 '* 30290 '* END SPLASH SCREEN 30300 '* 30310 '***** 32767 END