This is a short program that test your short-term memory.
letters$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
repeats=0
time=1100
print "Test your short term memory!"
wait 800
cls
for test=3 to 20
random=rnd(25)
randomize random
print "Remeber these letters!"
memory$=""
repeat
number=(rnd(25)+1)
print mid$(letters$,number)
memory$=(memory$+(mid$(letters$,number)))
inc repeats
until repeats=test
memory$=upper$(memory$)
repeats=0
wait time
cls
input "Type in the letters you just saw in the correct order: ",guess$
guess$=upper$(guess$)
if guess$=memory$
print "Correct! Hit any key to move on."
wait key
cls
wrong=0
else
wrong=1
print "You are incorrect. You guessed '",guess$,"'. The correct anwer was '",memory$,"'"
if test<5 then print "You have below average short-term memory. You remembered ",test," letters."
if test>4 and test<10 then print "You have an average short term memory. You remebered ",test," letters."
if test>9 and test<13 then print "You have above average short term memory. You remebered ",test," letters."
if test>12 then print "You have excellent short term memory. You remebered ",test," letters."
print "Hit any key to exit."
wait key
endif
if wrong=1 then end
inc time,800
next test
"There are no stupid questions, just a lot of inquisitive idiots."
