share/examples/bootforth/loader.rc

   1 \ Example of the file which is automatically loaded by /boot/loader
   2 \ on startup.
   3 \ $FreeBSD: src/share/examples/bootforth/loader.rc,v 1.3 1999/08/28 00:19:09 peter Exp $
   4 \ $DragonFly: src/share/examples/bootforth/loader.rc,v 1.2 2003/06/17 04:36:57 dillon Exp $
   5
   6 cr .( Loading Forth extensions:)
   7
   8 \ Load configuration file words
   9
  10 cr .( - loader.4th...)
  11
  12 include /boot/loader.4th
  13
  14 \ Load the screen manipulation words
  15
  16 cr .( - screen.4th...)
  17 s" /boot/screen.4th" fopen dup fload fclose
  18
  19 \ Load frame support
  20 cr .( - frames.4th...)
  21 s" /boot/frames.4th" fopen dup fload fclose
  22
  23 \ Load our little menu
  24 cr .( - menuconf.4th...)
  25 s" /boot/menuconf.4th" fopen dup fload fclose
  26
  27 \ Initialize loader.4th stuff
  28
  29 cr cr .( Initializing loader.4th...)
  30 initialize drop
  31
  32 \ Show the menu
  33 cr
  34 main_menu
  35