% Ricky

View.Set ("graphics:650;650")

% For the location of next letter and the starting/ending x
var x, y, startX, endX : int := 0

% Font size
var fontSize : int := 20

% The font
var font : int := Font.New ("arial:" + intstr (fontSize))

% The entered character and word
var key : string (1) := ""
var sentence : string := ""

% Extra spacing between the numbers. Varies depending on font size
var spacing : int := fontSize div 4

startX := 30
endX := 500
x := startX
y := 550

loop
    % This does the cursor blink
    if Time.Elapsed div 500 mod 2 = 0 then
        Draw.Line (x, y - 3, x, y + fontSize + 3, 7)
    elsif Time.Elapsed div 500 mod 2 = 1 then
        Draw.Line (x, y - 3, x, y + fontSize + 3, 0)
    end if

    if hasch = true then
        getch (key)
        if key = KEY_BACKSPACE and sentence not= "" then
            % Erases cursor blinker
            Draw.Line (x, y - 3, x, y + fontSize + 3, 0)
            % Check if it needs to go back to previous row
            if x - (Font.Width (sentence (length (sentence)), font) + spacing) < startX - 1 then

                % ---------------------------------- Here -----------------------------------------------------------
                x := (spacing * (length (sentence))) + startX + (Font.Width (sentence (1 .. length (sentence)), font))
                % ---------------------------------------------------------------------------------------------------

                y += 50
            end if
            % Sets the coordinates
            x -= Font.Width (sentence (length (sentence)), font) + spacing
            % Draws the fillbox to erase the letter
            Draw.FillBox (x - (fontSize div 5), y - (fontSize div 3), x + Font.Width (sentence (length (sentence)), font) + 1, y + fontSize, 0)
            % sentence = sentence - 1 character
            sentence := sentence (1 .. length (sentence) - 1)
        elsif key not= KEY_BACKSPACE then
            % Erases cursor blinker
            Draw.Line (x, y - 3, x, y + fontSize + 3, 0)
            % Check if it needs to go to next row
            if x + Font.Width (key, font) > endX + 1 then
                x := startX
                y -= 50
            end if
            % Print the key
            Draw.Text (key, x, y, font, 7)
            % sentence = sentence + key
            sentence += key
            % Sets new coords
            x += Font.Width (key, font) + spacing
        end if
        exit when key = KEY_ENTER or length (sentence) >= 255
    end if
end loop
put sentence