Changeset View
Changeset View
Standalone View
Standalone View
stand/forth/beastie.4th
Show First 20 Lines • Show All 76 Lines • ▼ Show 20 Lines | else | ||||
\ Execute `logo' if defined now | \ Execute `logo' if defined now | ||||
s" logo" sfind if | s" logo" sfind if | ||||
logoX @ logoY @ rot execute | logoX @ logoY @ rot execute | ||||
else drop then | else drop then | ||||
then | then | ||||
; | ; | ||||
: draw-beastie | |||||
['] draw-beastie console-iterate | |||||
; | |||||
also support-functions | also support-functions | ||||
: beastie-start ( -- ) \ starts the menu | : beastie-start ( -- ) \ starts the menu | ||||
s" beastie_disable" getenv dup -1 <> if | s" beastie_disable" getenv dup -1 <> if | ||||
s" YES" compare-insensitive 0= if | s" YES" compare-insensitive 0= if | ||||
any_conf_read? if | any_conf_read? if | ||||
load_xen_throw | load_xen_throw | ||||
load_kernel | load_kernel | ||||
Show All 18 Lines |