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/menuconf.4th,v 1.4.2.1 2000/09/08 17:19:01 dcs Exp $
5 \ $DragonFly: src/share/examples/bootforth/menuconf.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
11 ." Welcome to BootFORTH!"
18 ." 1. Start FreeBSD with /boot/stable.conf."
20 ." 2. Start FreeBSD with /boot/current.conf."
22 ." 3. Start FreeBSD with standard configuration. "
28 : tkey ( d -- flag | char )
47 ." Enter your option (1,2,3,4): "
60 10 18 at-xy ." * Choose 1 or 2 to run special configuration file."
61 10 19 at-xy ." * Choose 3 to proceed with standard bootstrapping."
62 12 20 at-xy ." See '?' for available commands, and 'words' for"
63 12 21 at-xy ." complete list of Forth words."
64 10 22 at-xy ." * Choose 4 in order to warm boot your machine."
82 ." Loading /boot/stable.conf. Please wait..." cr
83 s" /boot/stable.conf" read-conf
89 ." Loading /boot/current.conf. Please wait..." cr
90 s" /boot/current.conf" read-conf
96 ." Proceeding with standard boot. Please wait..." cr
102 ['] (reboot) catch abort" Error rebooting"
105 ." Key " emit ." is not a valid option!"
107 ." Press any key to continue..."