Deleted Added
sdiff udiff text old ( 116175 ) new ( 120031 )
full compact
beastie.4th (116175) beastie.4th (120031)
1\ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
1\ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
2\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\ notice, this list of conditions and the following disclaimer.
9\ 2. Redistributions in binary form must reproduce the above copyright

--- 7 unchanged lines hidden (view full) ---

17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
3\ All rights reserved.
4\
5\ Redistribution and use in source and binary forms, with or without
6\ modification, are permitted provided that the following conditions
7\ are met:
8\ 1. Redistributions of source code must retain the above copyright
9\ notice, this list of conditions and the following disclaimer.
10\ 2. Redistributions in binary form must reproduce the above copyright

--- 7 unchanged lines hidden (view full) ---

18\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24\ SUCH DAMAGE.
25\
25\ $FreeBSD: head/sys/boot/forth/beastie.4th 116175 2003-06-10 22:04:09Z scottl $
26\ $FreeBSD: head/sys/boot/forth/beastie.4th 120031 2003-09-13 18:35:01Z scottl $
26
27marker task-beastie.4th
28
29include /boot/screen.4th
30include /boot/frames.4th
31
32hide
33

--- 9 unchanged lines hidden (view full) ---

43variable bootverbosekey
44variable bootsinglekey
45variable escapekey
46variable rebootkey
47
4846 constant dot
49
50\ The BSD Daemon. He is 19 rows high and 34 columns wide
27
28marker task-beastie.4th
29
30include /boot/screen.4th
31include /boot/frames.4th
32
33hide
34

--- 9 unchanged lines hidden (view full) ---

44variable bootverbosekey
45variable bootsinglekey
46variable escapekey
47variable rebootkey
48
4946 constant dot
50
51\ The BSD Daemon. He is 19 rows high and 34 columns wide
51: print-beastie ( x y -- )
52: technicolor-beastie ( x y -- )
532dup at-xy ." , ," 1+
542dup at-xy ." /( )`" 1+
552dup at-xy ." \ \___ / |" 1+
562dup at-xy ." /- _ `-/ '" 1+
572dup at-xy ." (/\/ \ \ /\" 1+
582dup at-xy ." / / | ` \" 1+
592dup at-xy ." O O ) / |" 1+
602dup at-xy ." `-^--'`< '" 1+
612dup at-xy ." (_.) _ ) /" 1+
622dup at-xy ." `.___/` / " 1+
632dup at-xy ." `-----' /" 1+
642dup at-xy ." <----. __ / __ \" 1+
652dup at-xy ." <----|====O)))==) \) /====|" 1+
662dup at-xy ." <----' `--' `.__,' \" 1+
672dup at-xy ." | |" 1+
682dup at-xy ." \ / /\" 1+
692dup at-xy ." ______( (_ / \______/" 1+
702dup at-xy ." ,' ,-----' |" 1+
71at-xy ." `--{__________) " 1+
72;
73
74: boring-beastie ( x y -- )
52 2dup at-xy ." , ," 1+
53 2dup at-xy ." /( )`" 1+
54 2dup at-xy ." \ \___ / |" 1+
55 2dup at-xy ." /- _ `-/ '" 1+
56 2dup at-xy ." (/\/ \ \ /\" 1+
57 2dup at-xy ." / / | ` \" 1+
58 2dup at-xy ." O O ) / |" 1+
59 2dup at-xy ." `-^--'`< '" 1+

--- 5 unchanged lines hidden (view full) ---

65 2dup at-xy ." <----' `--' `.__,' \" 1+
66 2dup at-xy ." | |" 1+
67 2dup at-xy ." \ / /\" 1+
68 2dup at-xy ." ______( (_ / \______/" 1+
69 2dup at-xy ." ,' ,-----' |" 1+
70 at-xy ." `--{__________)"
71;
72
75 2dup at-xy ." , ," 1+
76 2dup at-xy ." /( )`" 1+
77 2dup at-xy ." \ \___ / |" 1+
78 2dup at-xy ." /- _ `-/ '" 1+
79 2dup at-xy ." (/\/ \ \ /\" 1+
80 2dup at-xy ." / / | ` \" 1+
81 2dup at-xy ." O O ) / |" 1+
82 2dup at-xy ." `-^--'`< '" 1+

--- 5 unchanged lines hidden (view full) ---

88 2dup at-xy ." <----' `--' `.__,' \" 1+
89 2dup at-xy ." | |" 1+
90 2dup at-xy ." \ / /\" 1+
91 2dup at-xy ." ______( (_ / \______/" 1+
92 2dup at-xy ." ,' ,-----' |" 1+
93 at-xy ." `--{__________)"
94;
95
96: print-beastie ( x y -- )
97 s" loader_color" getenv
98 dup -1 = if
99 drop
100 boring-beastie
101 exit
102 then
103 s" YES" compare-insensitive 0<> if
104 boring-beastie
105 exit
106 then
107 technicolor-beastie
108;
109
73: acpienabled? ( -- flag )
74 s" acpi_load" getenv
75 dup -1 = if
76 drop false exit
77 then
78 s" YES" compare-insensitive 0<> if
79 false exit
80 then

--- 138 unchanged lines hidden --- 		110: acpienabled? ( -- flag )
111 s" acpi_load" getenv
112 dup -1 = if
113 drop false exit
114 then
115 s" YES" compare-insensitive 0<> if
116 false exit
117 then

--- 138 unchanged lines hidden ---