/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

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