5 0 value suppress-banner?
12 builddate s" built on " version s" Welcome to OpenBIOS v" pocket
13 tmpstrcat tmpstrcat tmpstrcat drop
16 : suppress-banner ( -- )
22 stdout @ ?dup 0= if exit then
24 \ draw logo if stdout is a "display" node
25 dup ihandle>phandle " device_type" rot get-package-property if 0 0 then
29 \ draw logo ( ihandle )
30 dup ihandle>phandle " draw-logo" rot find-method if
34 oem-logo? if oem-logo else builtin-logo then
47 oem-banner? if oem-banner else builtin-banner then