colorback (black)
cls
% Question
var text := "Please Enter your Name"

% Outputting Variable
var output := ""

% Maximum Input of chars
var maxinput := 17
var fontnameenter := Font.New ("courier:20")
var fontnametitle := Font.New ("Times New Roman:15")

setscreen ("offscreenonly,nocursor")
var ch : string (1) := ""
loop
    % Draw the Question
    Font.Draw (text, 60, maxy div 2 + 12, fontnametitle, 0)
   
    % Draw the Entereing
    Font.Draw (output, 30, 170, fontnameenter, 0)
   
    % Draw the Outline (input box)
    drawbox (15, 150, maxx - 15, 200, 0)
   
    View.Update
   
    getch (ch)

    % Exit if Enter is pressed
    exit when ch = chr (10)

    % Remove one Character if BackSpace is pressed
    if ch = chr (8) then
        if length (output) not= 0 then
            output := output (1 .. length (output) - 1)
        end if
    end if

    % Add one character if the string is not the illegal keys, and is less than 17
    if length (output) < maxinput and ch not= chr (8) and ch not= chr (200) and
            ch not= chr (203) and ch not= chr (205) and ch not= chr (208) then
        if ch not= chr (10) then
            output += ch
        end if
    end if

    % Clear the Input
    ch := ""

    % Clear the Screen
    cls
end loop