Sorry your browser is not supported!

function inpu()

rem conditions for answer var-
if opp= 1 then rep=table+num1
if opp= 2 then rep=table-num1
if opp= 3 then rep=table*num1
rem --------------------------
r=str$(rep)
repeat
rem input if answer condition good or bad or lenght
T$=Inkey$()
rem if T$<>""
rem wait 50
rem only numbers for input
      if T$ < chr$(48) or T$ > chr$(57) then T$=""
rem if answer more than 2 digit increase input
         if len(r)>1
         answer=answer+T$
            else
            answer=T$
         endif
rem if answer longer then 2 digits decrease
      if len(answer)>2 then answer=left$(answer,2)
rem display answer
set text size 92
text (tx-20),(ty-60), answer
set text size 32
rem quit or menu " not sure about menu ,buggy "
remstart
   if keystate(16)=1:quiter()
endif

if keystate(50)=1
clear entry buffer
      T$=""
      answer=""
      menu()
      prob()
   endif
   remend
rem   if len(answer)<>len(r):t$="":answer=""
rem    endif
 until len(answer)=len(r)
rem endif

endfunction