blob: 2f6f80a45638d1d631e4d690b20872906cd169f8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
\ Example of the file which is automatically loaded by /boot/loader
\ on startup.
\ $FreeBSD: src/share/examples/bootforth/boot.4th,v 1.3.36.1.6.1 2010/12/21 17:09:25 kensmith Exp $
\ Load the screen manipulation words
cr .( Loading Forth extensions:)
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 .( - menu.4th...)
s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
\ Show it
cr
main_menu
|