Revert support for Linux backend

[rrq/jonasforth.git] / example.f

diff --git a/example.f b/example.f
index f5215db9b4a08a45562910328f6831578fe25c8a..499f468773c06f4163b393900b4a70b1f6143662 100644 (file)
--- a/example.f
+++ b/example.f
@@ -1,6 +1,3 @@
-( vim: syntax=forth
-)
-
 : FIB ( n -- Fn )
   0 1                            ( n a b )
   0                              ( n a b i )
@@ -13,24 +10,24 @@
   DUP 4 PICK = UNTIL
   DROP SWAP DROP SWAP DROP ;     ( a+b )
 
-S" HELLO-ADDR" CREATE
-S" Hello!" DUP ROT
-STORE-STRING
-: HELLO
-  ' HELLO-ADDR LIT, TELL NEWLINE ;
-
-HELLO
+: HELLO S" Hello!" TELL NEWLINE ;
 
-S" 10 FIB = " TELL
-10 FIB .U
-SPACE S" (Expected: 59)" TELL NEWLINE
+: TEST-FIB
+  S" 10 FIB = " TELL
+  10 FIB .U
+  SPACE S" (Expected: 59)" TELL NEWLINE ;
 
-SYSCODE
-S" Word: " TELL POP-WORD TELL NEWLINE
-S" Word: " TELL POP-WORD TELL NEWLINE
-S" Word: " TELL POP-WORD TELL NEWLINE
-S" Word: " TELL POP-WORD TELL NEWLINE
-S" Word: " TELL POP-WORD TELL NEWLINE
-S" Word: " TELL POP-WORD 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() ;
 
-TERMINATE
+HELLO
+TEST-FIB
+BLUE-SQUARE