diff options
author | Jordan K. Hubbard <jkh@FreeBSD.org> | 1999-01-28 10:51:49 +0000 |
---|---|---|
committer | Jordan K. Hubbard <jkh@FreeBSD.org> | 1999-01-28 10:51:49 +0000 |
commit | 9c6886da07b7d4be55db98835065b6b8ad0dfe73 (patch) | |
tree | 51d34f91ed2064ca30a867995401e78d25b633f0 /share/examples/bootforth | |
parent | 857df7d4289b9628995c5178c15e1000860955f1 (diff) | |
download | src-9c6886da07b7d4be55db98835065b6b8ad0dfe73.tar.gz src-9c6886da07b7d4be55db98835065b6b8ad0dfe73.zip |
Update example to match new builtin behavior.
Submitted by: Daniel C. Sobral <dcs@newsguy.com>
PR: 9744
Notes
Notes:
svn path=/head/; revision=43336
Diffstat (limited to 'share/examples/bootforth')
-rw-r--r-- | share/examples/bootforth/menu.4th | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/share/examples/bootforth/menu.4th b/share/examples/bootforth/menu.4th index 06493c53f14b..55359dc0d0b7 100644 --- a/share/examples/bootforth/menu.4th +++ b/share/examples/bootforth/menu.4th @@ -1,7 +1,7 @@ \ Simple greeting screen, presenting basic options. \ XXX This is far too trivial - I don't have time now to think \ XXX about something more fancy... :-/ -\ $Id: menu.4th,v 1.1 1998/12/22 12:15:45 abial Exp $ +\ $Id: menu.4th,v 1.2 1998/12/31 14:06:30 abial Exp $ : title f_single @@ -61,6 +61,9 @@ 10 22 at-xy ." * Choose 3 in order to warm boot your machine." ; +: (boot) 0 boot ; +: (reboot) 0 reboot ; + : main_menu begin 1 while clear @@ -75,7 +78,7 @@ drop 1 25 at-xy cr ." Loading kernel. Please wait..." cr - boot + ['] (boot) catch abort" Error booting" then dup 50 = if drop @@ -85,7 +88,7 @@ dup 51 = if drop 1 25 at-xy cr - reboot + ['] (reboot) catch abort" Error rebooting" then 20 12 at-xy ." Key " emit ." is not a valid option!" |