1 files changed, 22 insertions, 0 deletions

diff --git a/share/examples/bootforth/boot.4th b/share/examples/bootforth/boot.4th
new file mode 100644
index 000000000000..467e968f962a
--- /dev/null
+++ b/share/examples/bootforth/boot.4th
@@ -0,0 +1,22 @@
+\ Example of the file which is automatically loaded by /boot/loader
+\ on startup.
+\ $Id$
+
+\ Load the screen manipulation words
+
+cr .( Loading Forth extensions:)
+
+cr .( - screen.4th...)
+s" /boot/screen.4th" fopen dup fload fclose
+
+\ Load frame support
+cr .( - frames.4th...)
+s" /boot/frames.4th" fopen dup fload fclose
+
+\ Load our little menu
+cr .( - menu.4th...)
+s" /boot/menu.4th" fopen dup fload fclose
+
+\ Show it
+cr
+main_menu