diff options
Diffstat (limited to 'share/examples/bootforth/boot.4th')
| -rw-r--r-- | share/examples/bootforth/boot.4th | 22 |
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 0000000..467e968 --- /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 |
