share/examples/bootforth/boot.4th

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