\ Example of the file which is automatically loaded by /boot/loader \ on startup. \ $FreeBSD: src/share/examples/bootforth/boot.4th,v 1.2 1999/08/28 00:19:09 peter Exp $ \ $DragonFly: src/share/examples/bootforth/boot.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $ \ Load the screen manipulation words cr .( Loading Forth extensions:) cr .( - screen.4th...) s" /boot/screen.4th" fopen dup fload fclose \ Load frame support cr .( - frames.4th...) s" /boot/frames.4th" fopen dup fload fclose \ Load our little menu cr .( - menu.4th...) s" /boot/menu.4th" fopen dup fload fclose \ Show it cr main_menu