OPEN "I",#1,"words.lst" 
WHILE NOT EOF(1)
    a=a+1
    INPUT #1,inp$
WEND
CLOSE #1

DIM chk(a)
DIM a$(a)
a=0
OPEN "I",#1,"words.lst" 
WHILE NOT EOF(1)
    a=a+1
    INPUT #1,inp$
    a$(a)=inp$
WEND
CLOSE #1
score=0

start:
had$=""
CLS
PRINT


RANDOMIZE TIMER

v=INT(RND*a)+1
d=LEN(a$(v))

FOR c=1 TO d
    PRINT "_ ";
NEXT c

PRINT
PRINT
 
FOR t = 12 TO 1 STEP -1
retry:

    LOCATE 3,1
  
    PRINT
    PRINT "You have";t;"chance(s) to guess the word. "
    LOCATE 5,1
    PRINT "                                          "
    LOCATE 5,1
    INPUT "Choose a letter and press Return: ",h$
    IF LEN(h$)<>1 THEN GOTO retry

    had$=had$+" "+UCASE$(h$)
    LOCATE 15,1
    PRINT had$

    FOR c = 1 TO d
        F=INSTR(c,a$(v),UCASE$(h$))
        IF F<>0 THEN
            score=score+10
            LOCATE 16,1
            PRINT "SCORE:";score
            LOCATE 1,(F*2)-1
            PRINT MID$(a$(v),F,1)
            chk(F)=1
        END IF
    NEXT c
   
    ok=0
    FOR check=1 TO d
        IF chk(check)=1 THEN ok=ok+1
    NEXT check
    IF ok=d THEN JumpOut
  
NEXT t

JumpOut:

LOCATE 10,1

IF ok=d THEN
    PRINT "WELL DONE"
    PRINT
    PRINT "Press any key..."
    WHILE INKEY$=""
    WEND
    FOR check=1 TO d
        chk(check)=0
    NEXT
    GOTO start
END IF

PRINT
PRINT "SORRY. YOU FAILED."
PRINT "THE WORD IS ";a$(v)
PRINT
PRINT "Press any key..."
WHILE INKEY$=""
WEND
score=0
GOTO start

DATA WORDD1,WORDD2,WRODD3,WORDD4,WO5RD5,WORRD6,WORDD7,WORDD8,WORRDD9,WOSRD10