REM _______________
REM Jonathan's Game
REM ---------------


DECLARE FUNCTION dir$ (filename$)
DECLARE SUB scorekey ()
CLS

DIM score AS INTEGER
DIM highscore%
DIM c AS INTEGER


INPUT "press ENTER to begin", h
PRINT
PRINT
PRINT
PRINT "You will have 20 seconds to answer as many math problems as possible."
SLEEP 1
PRINT
PRINT "Type in your answer and then press ENTER."
PRINT
SLEEP 1
PRINT "Good luck."
SLEEP 1
PRINT
PRINT "Press SPACEBAR to start"
PRINT
SLEEP
RANDOMIZE TIMER
StartTime = TIMER
start:
a = INT(RND * 9)
b = INT(RND * 9)
PRINT "what is"; a; "+"; b; "?"

INPUT "answer: ", c

IF a + b = c THEN
  PRINT "correct"
  score = score + 20
ELSE
  PRINT "INCORRECT!"
  score = score - 15
END IF
PRINT (20 + (StartTime - TIMER)); "seconds left"
PRINT
PRINT
IF TIMER - StartTime > 20 THEN
  PRINT "TIME'S UP!"
  PRINT
  GOTO GameOver
END IF
GOTO start
GameOver:

score = score + 560

IF dir$("filename.dat") <> "" THEN

  OPEN "filename.dat" FOR INPUT AS #2
  INPUT #2, highscore%
  CLOSE #2
END IF
  
IF dir$("filename.dat") = "" OR score > highscore% THEN

  OPEN "filename.dat" FOR OUTPUT AS #1
  PRINT #1, score
  CLOSE #1
  PRINT "NEW HIGH SCORE:"; score

ELSE
  PRINT "YOUR SCORE:"; score
  PRINT "HIGH SCORE:"; highscore%

END IF

PRINT
PRINT
PRINT
scorekey







FUNCTION dir$ (filename$)
  ff = FREEFILE
  OPEN filename$ FOR BINARY AS #ff
    IF LOF(ff) = 0 THEN
      dir$ = ""
    ELSE
      dir$ = filename$
    END IF
  CLOSE #ff
END FUNCTION

SUB scorekey
PRINT "  0-599 Monkey"
PRINT "600-699 Less than Average"
PRINT "700-799 Average"
PRINT "800-899 Above Average"
PRINT "900-949 Smart"
PRINT "950-999 Extremely Smart"
PRINT "1000    Genius"
PRINT "1020+   Super Genius"


END SUB