uefi.f

   1 : ConOut SystemTable 64 + @ ;
   2 : ConOut.OutputString ConOut 8 + @ ;
   3 : ConOut.OutputString() ConOut SWAP ConOut.OutputString EFICALL2 ;
   4
   5 \ Store a null-terminated UTF-16 string HERE, and return a pointer to its buffer
   6 \ at runtime.
   7 : UTF16"
   8   HERE @
   9   BEGIN
  10     KEY DUP C,
  11     0 C,
  12   34 = UNTIL
  13   HERE @ 2 - HERE ! \ Remove final "
  14   0 C, 0 C, \ Null terminator
  15   ;
  16
  17 UTF16" Hello UEFI!" ConOut.OutputString()