' DEFAULT SETTINGS
AT = 500: C$ = "SPORTS" ' AT IS AMOUNT PLAYING FOR
C = 1
' C$ IS CATEGORY CHOSEN  C IS VARIABLE FOR CATEGORY CHOSEN
' SC IS YOUR SCORE
' Q$ IS QUESTION  AN$ IS ANSWER
' RD IS WHAT QUESTION YOU PICKED TO DETERMINE WHAT TO READ
' AN(RD) CHECKS IF YOU ANSWERED QUESTION ALREADY
' 0 IF YOU ANSWERED, 1 IF YOU HAVEN'T ANSWERED
' FH IS TO SEE IF YOU FINISHED
' T IS FINAL JEP CATERGORY
W = 0
' W IS WAGER VARIABLE
CLS
DO
RD = INT(RND(1) * 15 + 1): COLOR RD
LOCATE 5, 19: PRINT "  Û ÛÛÛ ÛÛÛ ÛÛÛ ÛÛ   Û  ÛÛÛ Û Û"
LOCATE 6, 19: PRINT "  Û Û   Û Û Û Û Û Û Û Û Û Û Û Û"
LOCATE 7, 19: PRINT "  Û ÛÛ  ÛÛÛ Û Û Û Û ÛÛÛ ÛÛ  ÛÛÛ"
LOCATE 8, 19: PRINT "  Û Û   Û   Û Û Û Û Û Û Û Û  Û "
LOCATE 9, 19: PRINT "ÛÛÛ ÛÛÛ Û   ÛÛÛ ÛÛ  Û Û Û Û  Û "
COLOR 14
LOCATE 11, 1: PRINT "PRESS ANYKEY WHEN READY (MAKE SURE CAPS LOCK IS ON)"
LOCATE 12, 1: PRINT "PRESS 'E' DURING THE GAME TO END"
G$ = INKEY$: LOOP UNTIL G$ <> ""

RANDOMIZE TIMER
DD = INT(RND(1) * 30 + 1)
DIM AN(30)
FOR I = 1 TO 30: AN(I) = 1: NEXT I

START:
 GOSUB BOARD: GOSUB CHECKT
 COLOR 2
 LOCATE 19, 1: PRINT "USE ENTER KEY"
 LOCATE 18, 1: PRINT "LEFT/RIGHT - CATERGORY SELECT || UP/DOWN - VALUE SELECT"
 LOCATE 16, 1: PRINT "CATEGORY: ";
 COLOR 7: PRINT C$: COLOR 2
 LOCATE 17, 1: PRINT "AMOUNT: ";
 COLOR 7: PRINT AT
 LOCATE 20, 1: PRINT "SCORE: "; SC
10 DO
 G$ = INKEY$: LOOP UNTIL G$ <> ""
 IF G$ = "E" THEN END
 IF G$ = CHR$(0) + "H" AND AT > 500 THEN AT = AT - 100
 IF G$ = CHR$(0) + "P" AND AT < 1000 THEN AT = AT + 100
 IF G$ = CHR$(0) + "K" AND C > 1 THEN C = C - 1: GOSUB CHECK
 IF G$ = CHR$(0) + "M" AND C < 5 THEN C = C + 1: GOSUB CHECK
 IF G$ = CHR$(13) THEN GOTO QUESTION
GOTO START

QUESTION:
 RESTORE
 IF C = 1 AND AT = 500 THEN RD = 1
 IF C = 1 AND AT = 600 THEN RD = 2
 IF C = 1 AND AT = 700 THEN RD = 3
 IF C = 1 AND AT = 800 THEN RD = 4
 IF C = 1 AND AT = 900 THEN RD = 5
 IF C = 1 AND AT = 1000 THEN RD = 6
 IF C = 2 AND AT = 500 THEN RD = 7
 IF C = 2 AND AT = 600 THEN RD = 8
 IF C = 2 AND AT = 700 THEN RD = 9
 IF C = 2 AND AT = 800 THEN RD = 10
 IF C = 2 AND AT = 900 THEN RD = 11
 IF C = 2 AND AT = 1000 THEN RD = 12
 IF C = 3 AND AT = 500 THEN RD = 13
 IF C = 3 AND AT = 600 THEN RD = 14
 IF C = 3 AND AT = 700 THEN RD = 15
 IF C = 3 AND AT = 800 THEN RD = 16
 IF C = 3 AND AT = 900 THEN RD = 17
 IF C = 3 AND AT = 1000 THEN RD = 18
 IF C = 4 AND AT = 500 THEN RD = 19
 IF C = 4 AND AT = 600 THEN RD = 20
 IF C = 4 AND AT = 700 THEN RD = 21
 IF C = 4 AND AT = 800 THEN RD = 22
 IF C = 4 AND AT = 900 THEN RD = 23
 IF C = 4 AND AT = 1000 THEN RD = 24
 IF C = 5 AND AT = 500 THEN RD = 25
 IF C = 5 AND AT = 600 THEN RD = 26
 IF C = 5 AND AT = 700 THEN RD = 27
 IF C = 5 AND AT = 800 THEN RD = 28
 IF C = 5 AND AT = 900 THEN RD = 29
 IF C = 5 AND AT = 1000 THEN RD = 30
 IF AN(RD) = 0 THEN
   CLS : PRINT "ALREADY ANSWERED."
   FOR Z = 1 TO 50000: NEXT Z
   GOTO START
 END IF
 AN(RD) = 0
 IF RD = DD THEN
   CLS : PRINT "DAILY DOUBLE"
   FOR Z = 1 TO 50000: NEXT Z: GOSUB WAGE
 END IF
 FOR A = 1 TO RD
 READ Q$, AN$
 NEXT A
 CLS
 PRINT Q$
 INPUT X$
 IF LEFT$(X$, LEN(AN$)) <> AN$ AND DD = RD THEN
   SC = SC - W
   PRINT "WRONG!"
   PRINT AN$
   FOR Z = 1 TO 50000: NEXT Z: GOTO START
 END IF
 IF LEFT$(X$, LEN(AN$)) = AN$ AND DD = RD THEN
   SC = SC + W
   PRINT "CORRECT!"
   FOR Z = 1 TO 50000: NEXT Z: GOTO START
 END IF
 IF LEFT$(X$, LEN(AN$)) = AN$ THEN
   SC = SC + AT
   PRINT "CORRECT!"
   FOR Z = 1 TO 50000: NEXT Z: GOTO START
 END IF
 PRINT "WRONG!": SC = SC - AT
 PRINT AN$

GOTO START

CHECK:
 IF C = 1 THEN C$ = "SPORTS"
 IF C = 2 THEN C$ = "BIBLE"
 IF C = 3 THEN C$ = "MATH"
 IF C = 4 THEN C$ = "ARTS"
 IF C = 5 THEN C$ = "TRUTH"
RETURN

BOARD:
 CLS
 COLOR 13: PRINT "*********************************************"
 COLOR 13: PRINT "*"; : COLOR 15: PRINT " SPORTS ";
 COLOR 13: PRINT "*"; : COLOR 15: PRINT " BIBLE ";
 COLOR 13: PRINT "*"; : COLOR 15: PRINT " MATH ";
 COLOR 13: PRINT "*"; : COLOR 15: PRINT " ARTS ";
 COLOR 13: PRINT "*"; : COLOR 15: PRINT "   TRUTH    ";
 COLOR 13: PRINT "*"
 COLOR 13: PRINT "*********************************************": COLOR 7
 PRINT "*  500   *  500  * 500  * 500  *    500     *"
 PRINT "*********************************************"
 PRINT "*  600   *  600  * 600  * 600  *    600     *"
 PRINT "*********************************************"
 PRINT "*  700   *  700  * 700  * 700  *    700     *"
 PRINT "*********************************************"
 PRINT "*  800   *  800  * 800  * 800  *    800     *"
 PRINT "*********************************************"
 PRINT "*  900   *  900  * 900  * 900  *    900     *"
 PRINT "*********************************************"
 PRINT "*  1000  *  1000 * 1000 * 1000 *    1000    *"
 PRINT "*********************************************"
RETURN

CHECKT:
 FH = 0
 FOR I = 1 TO 30
  IF AN(I) = 0 THEN FH = FH + 1
 NEXT I
 IF FH = 30 THEN
   CLS
   PRINT "TIME FOR FINAL JEP."
   FOR Z = 1 TO 50000: NEXT Z
   GOTO FINAL
 END IF
RETURN

WAGE:
 CLS
 PRINT "WAGER HOWMUCH (1-1500/"; SC; ")"
 INPUT W
 IF W < 1 OR (W > 1500 AND SC <= 1500) THEN GOTO WAGE
 IF W > SC AND SC < 1500 AND SC <> 0 THEN GOTO WAGE
RETURN

FINAL:
 IF SC = 0 THEN
   PRINT "GAME OVER!": FOR Z = 1 TO 60000: NEXT Z
   END
 END IF
 CLS
 RD = INT(RND(1) * 20 + 30)
 RESTORE
 FOR I = 1 TO 30
 READ Q$, AN$: NEXT I
 FOR I = 30 TO RD
 READ T$, Q$, AN$: NEXT I
 PRINT "CATERGORY: "; T$
 PRINT "MONEY: "; SC
 INPUT "HOW MUCH OF YOUR MONEY WILL YOU WAGER?"; W
 IF W < 1 OR W > SC THEN GOTO FINAL
 PRINT Q$
 INPUT X$
 IF LEFT$(X$, LEN(AN$)) = AN$ THEN SC = SC + W
 IF LEFT$(X$, LEN(AN$)) <> AN$ THEN SC = SC - W
 CLS
 PRINT "YOUR FINAL SCORE IS: "; SC
 FOR Z = 1 TO 60000: NEXT Z
GOTO SCORE

SCORE:
 COLOR 7
  OPEN "I", #1, "C:\FIRSTB\GAMESS\JEPD"
  FOR I = 1 TO 5
  INPUT #1, SS(I)
  INPUT #1, N$(I)
  NEXT I
  CLOSE #1
 FOR I = 1 TO 5
 IF SC > SS(I) THEN
   GOSUB 300
   GOTO 200
 END IF
 NEXT I
200 CLS
 PRINT "HIGHSCORES"
 PRINT "NAME", "SCORE"
 FOR A = 1 TO 5
 PRINT A; N$(A), SS(A)
 NEXT A
  OPEN "O", #1, "C:\FIRSTB\GAMESS\JEPD"
  FOR I = 1 TO 5
  PRINT #1, SS(I)
  PRINT #1, N$(I)
  NEXT I
  CLOSE #1
 PRINT : PRINT "PRESS ANYKEY WHEN READY."
 DO: G$ = INKEY$: LOOP UNTIL G$ <> ""
 CLS
 PRINT "1) GO AGAIN"
 PRINT "2) END"
 INPUT X
 IF X = 1 THEN RUN
 IF X = 2 THEN END
END

300 REM INPUT NAME
 CLS : PRINT "YOU GOT A HIGHSCORE"
 INPUT "ENTER NAME (10 LETTERS MAX)"; NA$
 IF LEN(NA$) > 10 THEN GOTO 300
 FOR A = I TO 5
 TT = SS(A): SS(A) = SC: SC = TT
 T$ = N$(A): N$(A) = NA$: NA$ = T$
 NEXT A
RETURN

'SPORTS
DATA "WHO DRIVES CAR #3 IN NASCAR?", "DALE EARNHARDT"
DATA "WHO WON THE NBA FINALS IN 2002? (ONE WORD)", "LAKERS"
DATA "WHAT IS KOREAN KARATE ALSO KNOWN AS?", "TAE KWON DO"
DATA "COWBOYS (FOOTBALL) ARE FROM WHAT CITY?", "DALLAS"
DATA "WHAT TEAM IN THE NBA HAS THE BEST RECORD? (ONE WORD)", "KINGS"
DATA "WHAT DOES NASCAR STAND FOR?", "NATIONAL ASSOCIATION STOCKCAR AUTO RACING"
'BIBLE
DATA "WHERE WAS JESUS' FIRST MIRACLE PERFORMED?", "CANA OF GALILEE"
DATA "BLESSED ARE THE MEEK FOR THEY SHALL INHERIT WHAT? (ONE WORD)", "EARTH"
DATA "MOSES GOT THE 10 COMMENDMENTS FROM WHAT MT?", "SINAI"
DATA "WHAT'S THE FIRST BOOK IN THE OLD TESTAMENT?", "GENESIS"
DATA "WHO WAS FIRST KING OF ISREAL?", "DAVID"
DATA "WHAT IS THE HOMELAND OF ABRAHAM?", "UR"
'MATH
DATA "WHAT IS 14 * 6", "84"
DATA "WHAT IS 54/6","9"
DATA "WHAT IS 10 + 9 * 0", "0"
DATA "THIS IS THE FORMULA FOR WHAT? y=mx + b (ONE WORD)", "SLOPE"
DATA "WHAT'S YOUR SHOT PERCENTAGE IF YOU SHOOT 10 AND MISS 8","20"
DATA "WHAT'S THE SUM OF THIS FIRST NOTATION ä(N+1) n=1", "2"
'ARTS
DATA "WHAT IS THE COMPLIMENTARY COLOR OF BLUE?", "ORANGE"
DATA "THERE IS ONE ___ SPACE BETWEEN YOUR EYES IN DRAWING A FACE", "EYE"
DATA "WHAT TYPE OF PAINT IS QUICK DRYING?", "ACRYLIC"
DATA "WHAT TYPES OF COLOR PENCILS BLEND WELL? (ONE WORD)", "PRISMA"
DATA "WHAT IS KNOWN AS A TYPE OF ART ONE DOES, I.E. PAINTING, PENCIL, ETC.?", "MEDIA"
DATA "WHAT PAINTING TECHINQUE INVOLVES USING DOTS AND BRUSH STOKES?","POST IMPRESSIONISM"
'TRUTH
DATA "PEOPLE WHO DO WRONG WILL GO TO WHERE? (ONE WORD)", "HELL"
DATA "FOR ALL HAVE SINNED (DONE WRONG), WHERE WILL THEY GO? (ONE WORD)", "HELL"
DATA "ONE GOES TO HELL BY DOING ___", "WRONG"
DATA "_____ IS THE ONLY WAY TO ESCAPE HELL. (ONE WORD/A PERSON)", "JESUS"
DATA "GOD HATH GIVEN TO US ETERNAL LIFE, THIS LIFE IS IN __. (ONE WORD/PERSON)", "JESUS"
DATA "__ IS THE ONLY WAY TO ESCAPE HELL AND THE ONLY WAY TO HEAVEN. (ONE WORD)", "JESUS"
'FINAL JEP QUESTIONS
DATA "HISTORY", "WHAT YEAR DID ISRAEL BECOME A NATION (REBIRTH)?", "1984"
DATA "MATH", "WHAT IS THE û CALLED IN MATH? (ONE WORD)", "RADICAL"
DATA "BIBLE", "WHAT IS THE PLUARL NAME FOR GOD IN HEBREW?", "ELOHIM"
DATA "SPORTS", "IN WRESTLING, WHAT IS STING'S REAL NAME? (ONE WORD)", "STEVE"
DATA "FOREIGN LANGUAGE", "WHAT IS THE FRENCH WORD FOR STOP","S'ARRETER"
DATA "FOREIGN LANGUAGE", "WHAT IS THE FRENCH WORD FOR ME", "MOI"
DATA "MUSIC", "WHAT GROUP RECORDED THE CD: 'HAVE I EVER TOLD YOU'", "FFH"
DATA "MATH", "WHAT DOES THIS (Á) SYMBOL MEAN IN MATH?", "PERCENDICULAR"
DATA "BIBLE PROPHECY", "WHAT COUNTRY(UNION)WILL THE ANTI-CHRIST RISE OUT OF (DAN.9:26)?", "EUROPEAN UNION"
DATA "TV", "WHO IS THE FONZ'S FAVORITE TV ACTOR?", "JAMES DEAN"
DATA "MUSIC", "WHO SINGS THE SONG, 'ONE VOICE'? (ONE WORD)", "BILLY"
DATA "HISTORY", "IN WWII, WHICH OF THE 6 MILITARY LEADERS NAME STARTS WITH 'C'", "CHURCHILL"
DATA "SPORTS", "IN WRESTLING WHO IS KNOWN AS THE PEOPLE'S CHAMP (PEOPLE'S EYE)? (ONE WORD)", "ROCK"
DATA "TV", "WHAT SWEATHOG FROM 'WELCOME BACK KOTTER' DOES THE OVER 21 WALK? (LAST NAME)", "BARBARINO"
DATA "BIBLE PROPHECY", "WHAT IS THE NUMBER OF THE MARK OF THE BEAST?", "666"
DATA "TV", "WHAT IS THE NAME OF FONZ'S LITTLE COUSIN (NOT CACHY)?", "SPIKE"
DATA "MATH", "WHAT NUMBER IS THE DECIMAL NUMBER FOR THIS BINARY NUMER 1001", "9"
DATA "MUSIC", "WHO WROTE THE SONG 'ON MY KNEES' SONG BY JACI V.?", "NICOLE C. MULLIN"
DATA "SPORTS", "WHO DROVE THE CAR STP CAR BEFORE HE RETIRED? (TWO WORDS)", "RICHARD PETTY"
DATA "FOREIGN LANGUAGE", "WHAT IS THE FRENCH WORD FOR FOOD?", "L'ALIMENTATION"