diff options
Diffstat (limited to 'share/examples/bootforth/boot.4th')
| -rw-r--r-- | share/examples/bootforth/boot.4th | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/share/examples/bootforth/boot.4th b/share/examples/bootforth/boot.4th new file mode 100644 index 000000000000..3f75424e46c5 --- /dev/null +++ b/share/examples/bootforth/boot.4th @@ -0,0 +1,21 @@ +\ Example of the file which is automatically loaded by /boot/loader +\ on startup. + +\ Load the screen manipulation words + +cr .( Loading Forth extensions:) + +cr .( - screen.4th...) +s" /boot/screen.4th" O_RDONLY fopen dup fload fclose + +\ Load frame support +cr .( - frames.4th...) +s" /boot/frames.4th" O_RDONLY fopen dup fload fclose + +\ Load our little menu +cr .( - menu.4th...) +s" /boot/menu.4th" O_RDONLY fopen dup fload fclose + +\ Show it +cr +main_menu |