xref: /freebsd/share/examples/bootforth/boot.4th (revision d9a9f23d0b3f1676d5656b76301341c0037d15b7)
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