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
   7 cr .( Loading Forth extensions:)
   8
   9 cr .( - screen.4th...)
  10 s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
  11
  12 \ Load frame support
  13 cr .( - frames.4th...)
  14 s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
  15
  16 \ Load our little menu
  17 cr .( - menu.4th...)
  18 s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
  19
  20 \ Show it
  21 cr
  22 main_menu