DEFINT A-Z REM $FORM Bq1 REM $FORM Bq2 REM $FORM Bq3 COMMON SHARED Score() AS INTEGER COMM

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

DEFINT A-Z REM $FORM Bq1 REM $FORM Bq2 REM $FORM Bq3 ' COMMON SHARED Score() AS INTEGER COMMON SHARED Question$(), Quest AS INTEGER, Answer1$(), Answer2$() DIM Score(1 TO 49) AS INTEGER DIM Question$(1 TO 49), Answer1$(1 TO 49), Answer2$(1 TO 49) Quest = 0 ' LOAD Bq2 LOAD Bq3 ' FileNum% = FREEFILE ' OPEN "ControlP.ini" FOR RANDOM AS FileNum% Size& = LOF(FileNum%) CLOSE FileNum% ' IF Size& < 5 THEN KILL "ControlP.INI" ELSE OPEN "ControlP.ini" FOR INPUT AS FileNum% FOR i% = 0 TO 17 INPUT #FileNum%, Num% Screen.ControlPanel(i%) = Num% NEXT INPUT #FileNum%, Num% cboWallpaper.ListIndex = Num% CLOSE FileNum% END IF ' FOR A% = 1 TO 49 READ Question$(A%), Answer1$(A%), Answer2$(A%) NEXT ' Bq1.SHOW ' DATA "Is God Jehovah a God of War, or a God of peace?" DATA "War. EXO 15:3","Peace. ROM 15:33" ' DATA "Who was the father of Joseph?" DATA "Jacob. MAT 1:16","Heli. LUK 3:23" ' DATA "Was Jesus equal to or lesser than God?" DATA "Equal. JOH 10:30","Less than. JOH 14:28" ' DATA "In Genesis, which came first: beasts or humans?" DATA "Beasts. GEN 1:25, GEN 1:26","Humans. GEN 2:18, GEN 2:19" ' DATA "How many stalls did Solomon have?" DATA "Forty thousand stalls. KI1 4:26","Four thousand stalls. CH2 9:25" ' DATA "Should one seek wisdom?" DATA "Yes. PRO 4:7" ,"No. ECC 1:18" ' DATA "Will the sins of the father be visited upon his children?" DATA "Yes. ISA 14:21","No. DEU 24:16" ' DATA "Is the bat a bird?" DATA "Yes. LEV 11:19","No. Encyclopeda Britanica" ' DATA "How many legs do grasshoppers have?" DATA "Four. LEV 11:23","Six. Go look." ' DATA "Is Earth shaped as a dinner plate, or as a sphereoid?" DATA "Dinner plate. ISA 40:22, MAT 4:8","Sphereoid. Aristarchus (c. 310 - 230 B.C.)" ' DATA "Do snakes eat dirt?" DATA "Yes. GEN 3:14","No. Ask one." ' DATA "Was Moses meek?" DATA "Yes, very. Num.12:3","No: a butcher. Num.31:14, 17, 18" ' DATA "Will the righteous live or die?" DATA "Live. Ps.92:12","Die. Isa.57:1" ' DATA "Did Judas keep the silver?" DATA "Yes. Acts 1:18","No. Matt. 27:5-7" ' DATA "Did Judas die of hanging, or rupture of the middle?" DATA "Hanging. Matt. 27:5-7","Rupture. Acts 1:18" ' DATA "Did Jesus preach on the Mount or the Plain?" DATA "Mount. Matt.5:1,2","Plain. Luke6:17,20" ' DATA "Did God tell David 7 years or 3 years of famine?" DATA "Seven. II SAMUEL 24:13","Three. I CHRONICLES 21:11" ' DATA "Who moved David to anger and number Isreal?" DATA "God. II SAMUEL 24","Satan. I CHRONICLES 21" ' DATA "Can God be seen?" DATA "Yes. Ex. 33:11, Ex. 33:23, Gen. 32:30","No. Ex. 33:20, John 1:18, 1 Tim. 6:16" ' DATA "Who killed Saul?" DATA "Suicide. SA1 31:4","David's man. SA2 1:15" ' DATA "Should one answer a fool?" DATA "Yes. PRO 26:5","No. PRO 26:4" ' DATA "How many children did Michal, the daughter of Saul, have?" DATA "None. SA2 6:23","Five. SA2 21:8" ' DATA "How old was Jehoiachin when he began to reign?" DATA "Eighteen. KI2 24:8","Eight. CH2 36:9" ' DATA "Did those with Saul/Paul at his conversion hear a voice?" DATA "Yes. ACT 9:7","No. ACT 22:9" ' DATA "How many overseers did Solomon have?" DATA "550. I Kings 9:23.","250. II Chron 8:10" ' DATA "Who was the mother of Abijah?" DATA "Maachah the daughter of Absalom. 2 Chron 9:20","Michaiah the daughter of Uriel. 2 Chron 13:2" ' DATA "When did Baasha die?" DATA "26th year of the reign of Asa. I Kings 16:6-8","36th year of the reign of Asa. I 2 Chron 16:1" ' DATA "How old was Ahaziah when he began to reign?" DATA "22. 2 Kings 8:26","42. 2 Chron 22:2" ' DATA "Who was Josiah's successor?" DATA "Jehoahaz. 2 Chron 36:1","Shallum. Jeremiah 22:11" ' DATA "What was the color of the robe placed on Jesus during his trial?" DATA "Scarlet. Matthew 27:28","Purple. John 19:2" ' DATA "What did they give Jesus to drink on the cross?" DATA "Vinegar. Matthew 27:34","Wine with myrrh. Mark 15:23" ' DATA "Who was Shelah?" DATA "Arpachshad's son. Gen 11:12","Arpachshad's grandson. Luke 3:35-36" ' DATA "How many offspring in Egypt did Jacob have?" DATA "70. GEN 46:26-27","75. Acts 7:14" ' DATA "How long did the Hebrews dwel in Egypt?" DATA "430 years. Ex 2:40","400 years. Acts 7:6" ' DATA "How many did God kill with the plague?" DATA "23,000. Num 25:9","24,000. 1 Cor 10:8" ' DATA "Does God want us to kill, or not to kill?" DATA "No: must not kill. Ex 20:13","Yes: mandates killing. Ex 32:27" ' DATA "Did Saul inquired of God?" DATA "Yes. 1 Sam 28:6","No. 1 Chron 10:13,14" ' DATA "How many children did Jesse have?" DATA "Seven. 1 Sam 16:10-13","Eight. 1 Chron 2:13-15" ' DATA "Who slayed Goliath?" DATA "David. 1 Sam 17:4,7,50","Elhanan. 2 Sam 21:19" ' DATA "Which city did Uzzah die in?" DATA "Nacon. 2 Samuel 6:6","Chidon. 1 Chron 13:9" ' DATA "How many horsemen did David take into battle?" DATA "1700. 2 Sam 8:4","7000. 1 Chron 18:4" ' DATA "How many chariots did David destroy?" DATA "700. 2 Sam 10:18","7000. 1 Chron 19:18" ' DATA "How many soldiers did Job count in Israel's army?" DATA "1,100,00. 1 Chron 21:5"," 800,000. 2 Sam 24:9" ' DATA "How many soldiers did Job count in Judah's army?" DATA "470,000. 1 Chron 21:5"," 500,000. 2 Sam 24:9" ' DATA "Did Jesus start his minister before or after John the Baptist was imprisoned?" DATA "After. Mark 1:14,15,17", "Before. John 1:28-29, 3:25-30" ' DATA "Did Jesus baptise?" DATA "Yes. John 3:22", "No. John 4:2" ' DATA "Has anyone before Jesus ascended into heaven?" DATA "No. John 3:13","Yes. 2 Kings 2:11" ' DATA "Who carried the cross Jesus was nailed to?" DATA "Simon of Cyrene. Matthew 27:32","Jesus. John 19:17,18" ' DATA "Was Abraham justified by faith or works?" DATA "Faith. Rom 4:1-5","Works. James 2:22-24" SUB DoScore () Skipped = 0 Correct = 0 InCorrect = 0 FOR A% = 1 TO 49 IF Score(A%) = 1 THEN InCorrect = InCorrect + 1 IF Score(A%) = 0 THEN Correct = Correct + 1 IF Score(A%) = -2 THEN Skipped = Skipped + 1 NEXT Bq3.Label2(0).Caption = STR$(Correct) Bq3.Label2(1).Caption = STR$(InCorrect) Bq3.Label2(2).Caption = STR$(Skipped) Bq1.HIDE UNLOAD Bq2 Bq3.SHOW END SUB

---

E-Mail Fredric L. Rice / The Skeptic Tank