Sorry your browser is not supported!

   If  Letter$ <> OldLetter$
        print "they selected a new key"

        OldLetter$= Letter$
   else
        print "they pressed the same key"
   endif

 

dim usedletter$(26)

rem your choose letter routine goes here
...

rem use the ascii value of the choice so it's easy to store
rem and retrieve

index = asc(upper$(choice$))-64

rem if the value is in the list, it can't be used again, if not
rem add it to the list
if usedletter$(index)=choice$
   rem handle already used letter
else
   usedletter$(index)=upper$(choice$)
endif

for n=1 to 26
    usedletter$(n)=chr$(0)
next n

do

 ` Show the letters picked
 text 0,0,"Letters Picked: "+Letter$
 
 ` Get a character
 a$=entry$()
 ` Change it to upper case
 a$=upper$(a$)
 ` Clear the buffer
 clear entry buffer
 
 ` Check if the user has typed a key and check if the character is not in Letter$
 if a$<>"" and find char(Letter$,a$)=0
  ` Add chracter to Letter$
  Letter$=Letter$+a$
 endif

loop