setscreen ("graphics: max; max, nocursor, noecho")

colourback (black)
cls

var name : string (1)
var namex : int := 270
var font1 : int := Font.New ("Impact:30")
var fullname : string := ""
var num : int := 1

Font.Draw ("Enter your name: ", 10, 500, font1, 14)
    loop
        getch (name)
        exit when name = (KEY_ENTER)
        if name = (KEY_BACKSPACE) and namex > 270 then
            Draw.FillBox (namex, 450, namex + 30, 600, 7)
            namex := namex - 30
            fullname :=fullname(1..num-2)+" "
        elsif name = "q" or name = "Q" or name = "w" or name = "W" or name = "e" or name = "E" or name = "r" or name = "R" or name = "t" or name = "T" or name = "y" or name = "Y" or name = "u" or name = "U" or name = "i" or name = "I" or name = "O" or name = "o" or name = "p" or name = "P" or name = "a" or name = "A" or name = "s" or name = "S" or name = "d" or name = "D" or name = "f" or name = "F" or name = "W" or name = "g" or name = "G" or name = "h" or name = "H"  or name = "j" or name = "J" or name = "k" or name = "K" or name = "l" or name = "L" or name = "z" or name = "Z" or name = "x" or name = "X" or name = "c" or name = "C" or name = "v" or name = "V" or name = "b" or name = "B" or name = "n" or name = "N" or name = "m" or name = "M" or name = " " then
            namex := namex + 30   
            Font.Draw (name, namex, 500, font1, 14)
            fullname := fullname + name
        end if
            num := num + 1
    end loop
    cls
   
    Font.Draw ("Player : ", maxx - 375, maxy - 75, font1, 14)
    Font.Draw (fullname, maxx - 250, maxy - 75, font1, 92)