config root man

Current Path : /compat/linux/proc/68247/root/usr/src/share/examples/bootforth/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //compat/linux/proc/68247/root/usr/src/share/examples/bootforth/loader.rc

\ Example of the file which is automatically loaded by /boot/loader
\ on startup.
\ $FreeBSD: release/9.1.0/share/examples/bootforth/loader.rc 87636 2001-12-11 00:49:34Z jhb $

cr .( Loading Forth extensions:)

\ Load configuration file words

cr .( - loader.4th...)

include /boot/loader.4th

\ Load the screen manipulation words

cr .( - screen.4th...)
s" /boot/screen.4th" O_RDONLY fopen dup fload fclose

\ Load frame support
cr .( - frames.4th...)
s" /boot/frames.4th" O_RDONLY fopen dup fload fclose

\ Load our little menu
cr .( - menuconf.4th...)
s" /boot/menuconf.4th" O_RDONLY fopen dup fload fclose

\ Initialize loader.4th stuff

cr cr .( Initializing loader.4th...)
initialize drop

\ Show the menu
cr
main_menu


Man Man