1 \ Simple greeting screen, presenting basic options.
2 \ XXX This is far too trivial - I don't have time now to think
3 \ XXX about something more fancy... :-/
4 \ $FreeBSD: src/share/examples/bootforth/menu.4th,v 1.4 1999/08/28 00:19:10 peter Exp $
5 \ $DragonFly: src/share/examples/bootforth/menu.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
11 ." Welcome to BootFORTH!"
18 ." 1. Start FreeBSD /kernel."
20 ." 2. Interact with BootFORTH."
26 : tkey ( d -- flag | char )
45 ." Enter your option (1,2,3): "
58 10 18 at-xy ." * Choose 1 if you just want to run FreeBSD."
59 10 19 at-xy ." * Choose 2 if you want to use bootloader facilities."
60 12 20 at-xy ." See '?' for available commands, and 'words' for"
61 12 21 at-xy ." complete list of Forth words."
62 10 22 at-xy ." * Choose 3 in order to warm boot your machine."
81 ." Loading kernel. Please wait..." cr
82 ['] (boot) catch abort" Error booting"
92 ['] (reboot) catch abort" Error rebooting"
95 ." Key " emit ." is not a valid option!"
97 ." Press any key to continue..."