147195Sdcs\ Example of the file which is automatically loaded by /boot/loader
247195Sdcs\ on startup.
350476Speter\ $FreeBSD$
447195Sdcs
547195Sdcscr .( Loading Forth extensions:)
647195Sdcs
747195Sdcs\ Load configuration file words
847195Sdcs
947195Sdcscr .( - loader.4th...)
1047195Sdcs
1147195Sdcsinclude /boot/loader.4th
1247195Sdcs
1347195Sdcs\ Load the screen manipulation words
1447195Sdcs
1547195Sdcscr .( - screen.4th...)
1687636Sjhbs" /boot/screen.4th" O_RDONLY fopen dup fload fclose
1747195Sdcs
1847195Sdcs\ Load frame support
1947195Sdcscr .( - frames.4th...)
2087636Sjhbs" /boot/frames.4th" O_RDONLY fopen dup fload fclose
2147195Sdcs
2247195Sdcs\ Load our little menu
2347195Sdcscr .( - menuconf.4th...)
2487636Sjhbs" /boot/menuconf.4th" O_RDONLY fopen dup fload fclose
2547195Sdcs
2647195Sdcs\ Initialize loader.4th stuff
2747195Sdcs
2847195Sdcscr cr .( Initializing loader.4th...)
2947199Sdcsinitialize drop
3047195Sdcs
3147195Sdcs\ Show the menu
3247195Sdcscr
3347195Sdcsmain_menu
3447195Sdcs
35