input without input$()

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|522\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

MikeT	Created : 12 December 2006 Edited : 12 December 2006 System : Windows Language : Blitz input without input$() a method of getting users typed input without using input$()
;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; User input without input$() ;; ;;;;;;;;;;;;;;;;;;;;;;;;; mytxt$="" maxCharacters=9 ; maximum number of characters to accept, remember it counts from 0 loop=True chars=0 While loop=True Cls Text 10,10,"type some stuff, use backspace to delete " Text 10,20,"and return to enter" key = GetKey() If key<>0 If key=8; ; BACKSPACE If Len(mytxt$)>0 Then mytxt$ = Left(mytxt$,Len(mytxt$)-1) chars=chars-1 ElseIf key>13 And chars<=maxCharacters mytxt$ = mytxt$ + Chr(key) chars=chars+1 End If End If ;display text Text 40,40,mytxt$ If key=13 Then loop=False End If Flip Wend --v

Comments