' Alphabet game
' Release 1.2 --  Stores highscore automatically in the file "score.dat"
' Made by Olle Bergkvist

CLS
PRINT "Welcome to my Alphabet game!"
PRINT
PRINT "Press the keys A to Z in order as fast as you can."
PRINT "Press A to start the clock."

DO
LOOP UNTIL INPUT$(1) = "a"
PRINT "A"
time = TIMER

FOR num = 98 TO 122
DO
LOOP UNTIL INPUT$(1) = CHR$(num)
PRINT CHR$(num - 32)
NEXT
score = TIMER - time
PRINT "Time:"; score

SOUND 500, 15

OPEN "score.dat" FOR APPEND AS #1
PRINT #1, "0"
CLOSE

OPEN "score.dat" FOR INPUT AS #1
INPUT #1, high
CLOSE

PRINT "Highscore:"; high

IF high = 0 OR high > score THEN high = score
OPEN "score.dat" FOR OUTPUT AS #1
PRINT #1, high
CLOSE

PRINT
PRINT "Made by Olle Bergkvist"
SLEEP