Sorry your browser is not supported!

INPUT text$,text$

a=input
b=a+input

sync rate 0
sync on

waitamount = 250

do

if (timer() - lastkey) > waitamount and inkey$()<>"" then t$ = t$ + inkey$(): lastkey = timer()

set cursor 0,0
print t$
sync

loop

s$ = textbox(100,100)
cls

print s$
wait key


function textbox(x as integer,y as integer)
local out as string : local last_key as integer
clear entry buffer
repeat
  cls
  out = out + strip(entry$())
  clear entry buffer
  `backspace
  if scancode() = 14 and last_key <> 14
    if len(out) > 0
      out = left$(out,len(out)-1)
    endif
  else
  endif
  last_key = scancode()
  text x,y,out
  text 0,0,str$(len(out))
until returnkey()
repeat : until returnkey() = 0
endfunction out

function strip(in as string)
  `removes backspaces (chr$(8)) from in
  local out as string : local i as integer
  for i = 1 to len(in)
    if asc(mid$(in, i)) <> 8 then out = out + mid$(in, i)
  next i
endfunction out

FUNCTION InputString(X AS INTEGER,Y AS INTEGER,InputLength AS INTEGER, Prompt$ AS STRING, PreviousString$ AS STRING)
   ` This routine will be the main input routine
   `
   ` X,Y Will be the coordinates on screen
   ` Prompt is a prompt on screen if Required
   ` Previous String if needed
   `
   ` Setup Font and Characteristics
   `
   SET TEXT FONT "Courier New"
   SET TEXT SIZE 15
   SET TEXT OPAQUE
   `
   ` Setup Temporary Veriables
   `
   PromptWidth=TEXT WIDTH(Prompt$)
   InputX=X+PromptWidth+2
   Res$=PreviousString$
   CurrentPos=LEN(Res$)
   IF InputLength<0
      Numeric=1
      InputLength=ABS(InputLength)
   ELSE
      Numeric=0
   ENDIF
   `
   ` Display the Prompt
   `
   SET CURSOR X,Y
   PRINT Prompt$;
   `
   ` Display Previous string
   `
   SET CURSOR InputX,Y
   IF PreviousString$<>""
      PRINT PreviousString$;
   ENDIF
   PRINT "_";
   `
   ` Main Input Loop
   `
   DO
      IF RETURNKEY()
         WHILE RETURNKEY()
         ENDWHILE
         SET CURSOR InputX,Y
         PRINT Res$;" ";
         EXIT
      ENDIF
      Key$=ENTRY$()
      IF Res$<>"" AND ASC(Key$)=8
         Res$=LEFT$(Res$,LEN(Res$)-1)
         Key$=""
         SET CURSOR InputX,Y
         PRINT Res$;"_ ";
      ENDIF
      IF Key$<>"" AND LEN(Res$)<=InputLength AND ASC(Key$)>31
         IF ASC(Key$)>=48 AND ASC(Key$)<=57 THEN IsNumber=1 ELSE IsNumber=0
         IF (Numeric AND IsNumber) OR Numeric=0
            Res$=Res$+Key$
            SET CURSOR InputX,Y
            PRINT Res$;"_";
         ENDIF
      ENDIF
      CLEAR ENTRY BUFFER
   LOOP
ENDFUNCTION Res$