share/examples/bootforth/loader.rc

   1 \ Example of the file which is automatically loaded by /boot/loader
   2 \ on startup.
   3 \ $FreeBSD$
   4
   5 cr .( Loading Forth extensions:)
   6
   7 \ Load configuration file words
   8
   9 cr .( - loader.4th...)
  10
  11 include /boot/loader.4th
  12
  13 \ Load the screen manipulation words
  14
  15 cr .( - screen.4th...)
  16 s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
  17
  18 \ Load frame support
  19 cr .( - frames.4th...)
  20 s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
  21
  22 \ Load our little menu
  23 cr .( - menuconf.4th...)
  24 s" /boot/menuconf.4th" O_RDONLY fopen dup fload fclose
  25
  26 \ Initialize loader.4th stuff
  27
  28 cr cr .( Initializing loader.4th...)
  29 initialize drop
  30
  31 \ Show the menu
  32 cr
  33 main_menu
  34