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