var startTime : int := Time.Elapsed
var ans : string := ""
loop
    if hasch then
        ans += getchar()
    end
    var currentTime : int := Time.Elapsed
    exit when currentTime - startTime > 10000
end loop

var startTime : int := Time.Elapsed
var currentTime : int
get myString : *
currentTime := Time.Elapsed
put "The time it took for you to type is: " + intstr(currentTime - startTime)

%without msdos the fun flickering thing wont appear as a block :)
View.Set ("Graphics,OffscreenOnly, msdos")

const REPEATRATE : int := 100
var enteredString : string := ""

%creates a set type for characters
type letterSet : set of char
var avalibleInputs : letterSet :=
    letterSet (' ')
%adds values in the set
for i : '!' .. '~'
    avalibleInputs += letterSet (i)
end for

%2 vars, one for time and one for flicker rate
var t, flicker : int := 0
loop
    %if the current time is greater or equal to the repeat rate (in ms) then
    if Time.ElapsedCPU - t >= REPEATRATE then
        flicker += 1
        %if you type a key
        if hasch then
            %get the key
            var ch : char := getchar
            %if the key is in the set
            if ch in avalibleInputs then
                %add the key to the variable
                enteredString += ch
                %if the key is backspace
            elsif ch = chr (8) /*BackSpace*/ then
                %if there is a value to delete
                if not (length (enteredString) = 0) then
                    %delete one char
                    enteredString := enteredString (1 .. * -1)
                end if
            end if
            %exits the loop when enter is pressed.
            exit when (ch = chr (10)) = true
        end if
        %removes the stored value
        Input.Flush
        %puts the stored string
        put enteredString ..
        %checks flicker timer
        if flicker = 10 then
            %puts the flicker timer char
            put chr (219) ..
            %resets the flicker timer
            flicker := 0
        end if
        %finish the put line
        put ""
        %update the screen
        View.Update
        %clears the screen
        cls
        %resets the repeat timer
        t := Time.ElapsedCPU
    end if
end loop
%puts the final string
put enteredString
%updates the screen one last time.
View.Update