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