diff options
| author | jkh <jkh@FreeBSD.org> | 1999-01-28 10:51:49 +0000 |
|---|---|---|
| committer | jkh <jkh@FreeBSD.org> | 1999-01-28 10:51:49 +0000 |
| commit | 7d3a4374a2e7542149d606ae4f30ee92ea70e197 (patch) | |
| tree | 4c3c2db16245c597a23e8910e575df6e95928836 /share/examples/bootforth | |
| parent | 0bb51e8a329e1d4d9adec3e9afb050ecfa4a607f (diff) | |
| download | FreeBSD-src-7d3a4374a2e7542149d606ae4f30ee92ea70e197.zip FreeBSD-src-7d3a4374a2e7542149d606ae4f30ee92ea70e197.tar.gz | |
Update example to match new builtin behavior.
Submitted by: Daniel C. Sobral <dcs@newsguy.com>
PR: 9744
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 06493c5..55359dc 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!" |
