Changeset View
Changeset View
Standalone View
Standalone View
stand/forth/loader.4th
Show First 20 Lines • Show All 66 Lines • ▼ Show 20 Lines | |||||
include /boot/support.4th | include /boot/support.4th | ||||
include /boot/color.4th | include /boot/color.4th | ||||
include /boot/delay.4th | include /boot/delay.4th | ||||
include /boot/check-password.4th | include /boot/check-password.4th | ||||
only forth definitions | only forth definitions | ||||
: maybe-resetcons ( -- ) | |||||
loader_color? if | |||||
ris | |||||
then | |||||
; | |||||
: bootmsg ( -- ) | : bootmsg ( -- ) | ||||
loader_color? dup ( -- bool bool ) | loader_color? dup ( -- bool bool ) | ||||
if 7 fg 4 bg then | if 7 fg 4 bg then | ||||
." Booting..." | ." Booting..." | ||||
if me then | if me then | ||||
cr | cr | ||||
; | ; | ||||
▲ Show 20 Lines • Show All 204 Lines • Show Last 20 Lines |