Pull morse(6) into the new millenium and teach it to use sound(4).
[dragonfly.git] / share / examples / bootforth / boot.4th
blob69c8cbb18b8b572b7cfb05491286bfea49ac328d
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 $
6 \ Load the screen manipulation words
8 cr .( Loading Forth extensions:)
10 cr .( - screen.4th...)
11 s" /boot/screen.4th" fopen dup fload fclose
13 \ Load frame support
14 cr .( - frames.4th...)
15 s" /boot/frames.4th" fopen dup fload fclose
17 \ Load our little menu
18 cr .( - menu.4th...)
19 s" /boot/menu.4th" fopen dup fload fclose
21 \ Show it
23 main_menu