/share/examples/bootforth/boot.4th
https://bitbucket.org/freebsd/freebsd-head/ · Forth · 22 lines · 16 code · 6 blank · 0 comment · 0 complexity · 726fc62695d4069354d016ced0344c9c MD5 · raw file
- \ Example of the file which is automatically loaded by /boot/loader
- \ on startup.
- \ $FreeBSD$
- \ Load the screen manipulation words
- cr .( Loading Forth extensions:)
- cr .( - screen.4th...)
- s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
- \ Load frame support
- cr .( - frames.4th...)
- s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
- \ Load our little menu
- cr .( - menu.4th...)
- s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
- \ Show it
- cr
- main_menu