opnsense-src/share/examples/bootforth/boot.4th

\ Example of the file which is automatically loaded by /boot/loader
\ on startup.
\ $FreeBSD$

\ 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
Add examples how to use the terminal emulation code in /boot/loader to create nice startup menus. Improvements are warmly welcome. :-) 1998-12-22 07:15:45 -05:00			`\ Example of the file which is automatically loaded by /boot/loader`
			`\ on startup.`
$Id$ -> $FreeBSD$ 1999-08-27 20:22:10 -04:00			`\ $FreeBSD$`
Add examples how to use the terminal emulation code in /boot/loader to create nice startup menus. Improvements are warmly welcome. :-) 1998-12-22 07:15:45 -05:00
			`\ 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`