10 cl$ = CHR$(27)+"E"+CHR$(27)+"H" : PRINT cl$
20 DEF FNp$(x,y) = CHR$(27) + "Y" +CHR$(x+32) + CHR$(y+32)
30 INPUT "ENTER WORD TO FIND ";a$ : a$ = UPPER$(a$) : a = LEN(a$) : PRINT cl$
40 FOR L = 1 TO a : PRINT FNp$(16,(35+l))"-" : NEXT
50 PRINT FNp$(2,5)"WORD LENGTH IS "a
60 PRINT FNp$(12,25) "QUESS A LETTER "; : g$ = INPUT$(1) : g$ = UPPER$(g$)
70 FOR z = 1 TO a
80 b$ = MID$(a$,z,1)
90 IF b$ = g$ THEN 170 
100 NEXT
110 PRINT FNp$(12,25)" WRONG             ";
120 FOR t = 1 TO 1111 : NEXT : p = p + 1
130 PRINT FNp$(2,35)"WRONG GUESSES SO FAR = "p
140 PRINT FNp$(6,15)"WRONG LETERS USED:- "
150 PRINT FNp$(6,(35+(p+x)))g$ : x = x + 1
160 IF p >= 10 THEN 230 ELSE PRINT FNp$(7,11)"                   " : GOTO 60
170 FOR z = 1 TO a
180 b$ = MID$(a$,z,1)
190 IF b$ = g$ THEN GOSUB 220
200 NEXT
210 IF c = a THEN 240 ELSE PRINT FNp$(7,11)"                  "  : GOTO 60
220 PRINT FNp$(16,(35+z))g$ : c = c + 1 : RETURN
230 PRINT cl$ : PRINT FNp$(10,15)" YOU LOST THE WORD WAS  *****  "a$"  *****  " : GOTO 250
240 PRINT cl$ : PRINT FNp$(16,33)"*** "a$" ***" FNp$(18,32)"You Are Brilliant"
250 PRINT FNp$(20,33)"PLAY AGAIN  Y/N"
260 an$ = iinkey$ : WHILE an$ = "" :an$ = INKEY$ : WEND
270 IF an$ = "y" OR an$ = "Y" THEN RUN ELSE PRINT cl$
Y AGAIN  Y/N"