Home
Products
Community
Manuals
Contact
Login or Signup

Code archives/User Input/rInput

This code has not been declared by its author to be Public Domain code, and therefore should not be assumed to be so.

Download source code

rInput by Darkmaster(Posted 1+ years ago)
This code is like the input$, but the programm donīt stops
Function rInput$(aString$)
value = GetKey()
length = Len(aString$)
If value = 8 Then value = 0 :If length > 0 Then aString$ = Left$(aString,Length-1)
If value = 13 Then Goto ende
If value = 0 Then Goto ende
If value>0 And value<7 Or value>26 And value<32 Or value=9 Then Goto ende
aString$=aString$ + Chr$(value)
.ende
Return aString$
End Function

framebegrnzung = CreateTimer(30)
Repeat
testa$=test$
test$ = rInput$(test$)
If KeyHit(28) Then ende%=1
If X=0 Then R=0
If X > 100 Then R=1
If R=1 Then X=X-1 Else X=X+1
WaitTimer framebegrnzung
Cls:Text X,X, test$
Until ende%=1
End

Comments

None.

Code Archives Forum