Add a cvsup example to track the 1.4 release.
[dragonfly.git] / share / examples / bootforth / boot.4th
1 \ Example of the file which is automatically loaded by /boot/loader
2 \ on startup.
3 \ $FreeBSD: src/share/examples/bootforth/boot.4th,v 1.2 1999/08/28 00:19:09 peter Exp $
4 \ $DragonFly: src/share/examples/bootforth/boot.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
5
6 \ Load the screen manipulation words
7
8 cr .( Loading Forth extensions:)
9
10 cr .( - screen.4th...)
11 s" /boot/screen.4th" fopen dup fload fclose
12
13 \ Load frame support
14 cr .( - frames.4th...)
15 s" /boot/frames.4th" fopen dup fload fclose
16
17 \ Load our little menu
18 cr .( - menu.4th...)
19 s" /boot/menu.4th" fopen dup fload fclose
20
21 \ Show it
22 cr
23 main_menu