Lines Matching refs:read

38 variable read-tick           \ Twiddle position (used by read)
39 variable read-start          \ Starting X offset (column)(used by read)
49 \ called by the read function. You need not call it directly. NOTE: arrow keys
62 				read-tick @ dup 1+ 4 mod read-tick !
70 				read-start @ sr at-xy
89 : read-reset ( -- )
94 : read ( c-addr/u -- ) \ Expects string prompt as stack input
97 	dup 1+ read-start !  \ Store X offset after the prompt
98 	0 readlen !          \ Initialize the read length
115 			3 spaces read-start @ sr at-xy \ Erase the twiddle
120 			0= if 3 spaces read-start @ sr at-xy then \ Twiddle
140 			s" Boot Password: " read ( prompt -- )
145 		2drop read-reset
151 			s" GELI Passphrase: " read ( prompt -- )
153 			read-reset
170 		s" Password: " read ( prompt -- )
172 			2drop read-reset exit