var txt : string := ""
 
var temp : string (1) := "@"
 
loop
 
    setscreen ("offscreenonly")
 
    View.Update
 
    Draw.FillBox (0, 0, maxx, maxy, 0)
 
    Draw.Box (150, 260, 240, 235, 255)
 
    Draw.FillBox (245, 235, 295, 260, 21)
 
    Draw.Box (245, 235, 295, 260, 255)
 
    colorback (21)
 
    color (12)
 
    locate (10, 32)
 
    put "Submit" ..
 
    locate (10, 20)
 
    colorback (0)
 
    color (255)
 
    put txt, "|" ..
 
    if hasch then
 
        getch (temp)
 
    end if
 
    if (temp not= "@") and (ord (temp) > 64 and ord (temp) < 123) then
 
        txt := txt + temp
 
        temp := "@"
 
    end if
 
end loop
 
  |