1\ Example of the file which is automatically loaded by /boot/loader
2\ on startup.
| 1\ Example of the file which is automatically loaded by /boot/loader
2\ on startup.
|
3\ $FreeBSD: head/share/examples/bootforth/boot.4th 50476 1999-08-28 00:22:10Z peter $
| 3\ $FreeBSD: head/share/examples/bootforth/boot.4th 87636 2001-12-11 00:49:34Z jhb $
|
4
5\ Load the screen manipulation words
6
7cr .( Loading Forth extensions:)
8
9cr .( - screen.4th...)
| 4
5\ Load the screen manipulation words
6
7cr .( Loading Forth extensions:)
8
9cr .( - screen.4th...)
|
10s" /boot/screen.4th" fopen dup fload fclose
| 10s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
|
11
12\ Load frame support
13cr .( - frames.4th...)
| 11
12\ Load frame support
13cr .( - frames.4th...)
|
14s" /boot/frames.4th" fopen dup fload fclose
| 14s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
|
15
16\ Load our little menu
17cr .( - menu.4th...)
| 15
16\ Load our little menu
17cr .( - menu.4th...)
|
18s" /boot/menu.4th" fopen dup fload fclose
| 18s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
|
19
20\ Show it
21cr
22main_menu
| 19
20\ Show it
21cr
22main_menu
|