X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=example.f;h=499f468773c06f4163b393900b4a70b1f6143662;hb=c6c2c1941a030ebda811db613262d317e6041137;hp=38cd6e4e69921d16fb6e9171b3129796161e085f;hpb=afb6afb35d212499a691c0168ad3f1e479792e18;p=rrq%2Fjonasforth.git

diff --git a/example.f b/example.f
index 38cd6e4..499f468 100644
--- a/example.f
+++ b/example.f
@@ -17,5 +17,17 @@
   10 FIB .U
   SPACE S" (Expected: 59)" TELL NEWLINE ;
 
+\ This example calls the Blt() function on UEFI's Graphics Output Protocol. See
+\ the UEFI specification and uefi.f for more information.
+: BLUE-SQUARE
+  GraphicsOutputProtocol
+  HERE @ 255 C, 0 C, 0 C, 0 C, \ Buffer with single blue pixel
+  EfiBltVideoFill
+  0 0 \ Source
+  100 100 20 20 \ Destination
+  0
+  GOP.Blt() ;
+
 HELLO
 TEST-FIB
+BLUE-SQUARE