Sorry your browser is not supported!

repeat
If keystate(14) = 1
    If Input$ = ""
    Else
        Input$ = left$(Input$, len(Input$) - 1)
        Wait 75
    Endif
Else
    If inkey$() = right$(Input$, 1)
        Wait 75
    Endif
    Input$ = Input$ + inkey$()
Endif

vtp = 1
cls
D3D_StartText
D3D_Text 1, 1, vtp, 0, "Enter target IP Adddress:" : vtp = vtp + 14
D3D_Text 1, 1, vtp, 0, Input$ : vtp = vtp + 14
D3D_EndText
sync

until keystate(28)

rem Text Input
rem by TheComet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse
disable escapekey

rem global variables
global ME_CC            as integer
global ME_CC$           as string
global ME_K$            as string
global ME_Y$            as string
global ME_x             as integer
global ME_y             as integer
global ME_ThisEntry$    as string

rem position text
ME_x = 512
ME_y = 200

rem main loop
repeat

   rem control cursor
   inc ME_CC
   if ME_CC > 20
      ME_CC$ = "|"
      if ME_CC > 39 then ME_CC = 0
   else
      ME_CC$ = " "
   endif
   
   rem get entry
   ME_K$ = entry$()
   clear entry buffer

   rem process entry
   for r = 1 to len( ME_K$ )
      ME_Y$ = mid$( ME_K$,r )

      rem if backspace is pressed, remove the last character
      if asc( ME_Y$ ) = 8
         ME_ThisEntry$ = left$( ME_ThisEntry$ , len( ME_ThisEntry$ ) - 1 )

      rem add entry to current entry string
      else
         if asc( ME_Y$ ) >= 32 and len( ME_ThisEntry$ ) < 64
            ME_ThisEntry$ = ME_ThisEntry$ + ME_Y$
         endif
      endif
   next r
   
   rem output
   center text ME_x , ME_y , "Enter some text :)"
   center text ME_x , ME_y + 30 , ME_ThisEntry$ + ME_CC$
   
   rem functions
   if controlkey() and keystate( 46 ) then write to clipboard ME_ThisEntry$
   if controlkey() and keystate( 47 ) then ME_ThisEntry$=get clipboard$()
   if returnkey() then ME_ThisEntry$ = ""

   rem refresh screen
   sync
   
rem end of main loop
until escapekey()

rem end
end