reg-ios.spin & input
Verfasst: Di 22. Mär 2016, 18:53
Fragt mann zweimal hintereinander die Routine auf, und gibt man beim zweitenmal nur Enter ein so bekommt man das erste zeichen von der vorhergehenden abfrage.
Retro Style Eigenbau Computer mit Parallax Propeller
https://www.hive-project.de/board/
Code: Alles auswählen
PUB input(stradr,anz) | curpos,i,n 'key: stringeingabe
{{input(stradr,anz) - key: stringeingabe}}
curpos := curgetx 'cursorposition merken
i := 0
byte[stradr][i] := 0 '<<< REV.>>>
repeat
n := keywait 'auf taste warten
if n == $0d
quit
if (n == CHAR_BS)&(i>0) 'backspace
printbs
i--
byte[stradr][i] := 0
elseif i < anz 'normales zeichen
printchar(n)
byte[stradr][i] := n
i++
byte[stradr][i] := 0