xref: /freebsd/share/examples/bootforth/boot.4th (revision a64729f5077d77e13b9497cb33ecb3c82e606ee8)
1\ Example of the file which is automatically loaded by /boot/loader
2\ on startup.
3
4\ Load the screen manipulation words
5
6cr .( Loading Forth extensions:)
7
8cr .( - screen.4th...)
9s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
10
11\ Load frame support
12cr .( - frames.4th...)
13s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
14
15\ Load our little menu
16cr .( - menu.4th...)
17s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
18
19\ Show it
20cr
21main_menu
22