sound1 = 1''Sound on/off
time = TIMER
CLS
SCREEN 12
FOR i = 118 TO 201
 PSET (i, 95), 15
 PSET (i, 112), 8
NEXT
FOR i = 95 TO 112
 PSET (118, i), 15
 PSET (201, i), 8
NEXT
COLOR 7: LOCATE 1, 1: PRINT "Letter:", : COLOR 15: PRINT i$
LOCATE 2, 1: COLOR 7: PRINT "Wordis:", : COLOR 15: PRINT n$
LOCATE 3, 1: COLOR 7: PRINT "Length:", : COLOR 15: PRINT Length
LOCATE 4, 1: COLOR 7: PRINT "Value :", : COLOR 15: PRINT "           "
LOCATE 4, 8: PRINT , Value
LOCATE 7, 16: COLOR 3: PRINT n$

TIMER ON
m$ = ""
Timeee = TIMER
Length = 0
DO
i$ = INKEY$
       kak = kak + 1
       IF kak > 100 THEN kak = 0
      
       IF kak >= 0 AND kak <= 50 THEN
        lx$ = "_"
       ELSE
        lx$ = " "
       END IF
        LOCATE 7, 16 + LEN(n$): PRINT lx$
IF i$ <> "" THEN
 
 IF i$ = CHR$(27) THEN END

IF i$ <> CHR$(13) AND ASC(i$) <> 8 AND ASC(i$) > 0 AND i$ <> CHR$(9) AND ASC(i$) < 126 AND i$ <> CHR$(27) THEN
time = TIMER
Length = Length + 1
IF sound1 = 1 THEN
SOUND 2362, .39
END IF
IF Length < 100 THEN
 m$ = m$ + i$
END IF
END IF

   Value = ASC(i$)
IF Value = 8 THEN
time = TIMER
IF LEN(m$) > 0 THEN
m$ = MID$(m$, 1, LEN(m$) - 1)
IF sound1 = 1 THEN
SOUND 500, .39
END IF
Length = Length - 1
END IF
i$ = " "
END IF
IF ASC(i$) = 0 THEN
time = TIMER
END IF
IF LEN(m$) > 9 THEN
n$ = MID$(m$, LEN(m$) - 8, LEN(m$))
ELSE
n$ = m$
END IF

COLOR 7: LOCATE 1, 1: PRINT "Letter:", : COLOR 15: PRINT i$
LOCATE 3, 1: COLOR 7: PRINT "Length:", : COLOR 15: PRINT Length
LOCATE 2, 8: PRINT "                    "
LOCATE 2, 1: COLOR 7: PRINT "Wordis:", : COLOR 15: PRINT n$
LOCATE 4, 1: COLOR 7: PRINT "Value :", : COLOR 15: PRINT "           "
LOCATE 4, 8: PRINT , Value
LOCATE 7, 16: PRINT "          "
LOCATE 7, 16: COLOR 3: PRINT n$
LOCATE 11: PRINT STRING$(100, " ")
LOCATE 11: PRINT m$
ELSE
Ti = TIMER - time
Tim = TIMER - Timeee
LOCATE 14, 1: COLOR 7: PRINT "Time Idle    :          "
COLOR 11: PRINT INT(Ti); "      "
LOCATE 16, 1: COLOR 7: PRINT "Time (In All):          "
COLOR 11: PRINT INT(Tim); "         "

COLOR 7
END IF
IF i$ = CHR$(13) THEN END
LOOP