/share/examples/bootforth/boot.4th

 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