Lines Matching +full:drop +full:- +full:out
3 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
24 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 marker task-beastie.4th
43 \ NOTE: Each is defined as a logo function in /boot/logo-${loader_logo}.4th
44 \ NOTE: If `/boot/logo-${loader_logo}.4th' does not exist or does not define
47 : draw-beastie ( -- ) \ at (loader_logo_x,loader_logo_y), else (46,4)
49 s" loader_logo_x" getenv dup -1 <> if
51 else drop then
52 s" loader_logo_y" getenv dup -1 <> if
54 else drop then
58 s" logo" sfind ( -- xt|0 bool ) if
61 \ Not defined; try-include desired logo file
62 drop ( xt = 0 ) \ cruft
63 s" loader_logo" getenv dup -1 = over 0= or if
64 dup 0= if 2drop else drop then \ getenv result unused
66 s" try-include /boot/logo-orb.4th"
68 s" try-include /boot/logo-orbbw.4th"
71 2drop ( c-addr/u -- ) \ getenv result unused
72 s" try-include /boot/logo-${loader_logo}.4th"
80 else drop then
84 : draw-beastie
85 ['] draw-beastie console-iterate
88 also support-functions
90 : beastie-start ( -- ) \ starts the menu
91 s" beastie_disable" getenv dup -1 <> if
92 s" YES" compare-insensitive 0= if
100 else drop then
102 s" loader_delay" getenv -1 = if
105 drop
106 ." Loading Menu (Ctrl-C to Abort)" cr