Lines Matching +full:bootloader +full:- +full:key
2 \ XXX This is far too trivial - I don't have time now to think
3 \ XXX about something more fancy... :-/
8 29 4 at-xy 15 fg 7 bg
15 20 7 at-xy
17 20 8 at-xy
19 20 9 at-xy
24 : tkey ( d -- flag | char )
29 -1
32 key? if
34 key
42 20 11 at-xy
46 drop key
56 10 18 at-xy ." * Choose 1 if you just want to run FreeBSD."
57 10 19 at-xy ." * Choose 2 if you want to use bootloader facilities."
58 12 20 at-xy ." See '?' for available commands, and 'words' for"
59 12 21 at-xy ." complete list of Forth words."
60 10 22 at-xy ." * Choose 3 in order to warm boot your machine."
78 1 25 at-xy cr
84 1 25 at-xy cr
89 1 25 at-xy cr
92 20 12 at-xy
93 ." Key " emit ." is not a valid option!"
94 20 13 at-xy
95 ." Press any key to continue..."
96 key drop