PageRenderTime 22ms CodeModel.GetById 16ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/share/examples/bootforth/boot.4th

https://bitbucket.org/freebsd/freebsd-head/
Forth | 22 lines | 16 code | 6 blank | 0 comment | 0 complexity | 726fc62695d4069354d016ced0344c9c MD5 | raw file
 1\ Example of the file which is automatically loaded by /boot/loader
 2\ on startup.
 3\ $FreeBSD$
 4
 5\ Load the screen manipulation words
 6
 7cr .( Loading Forth extensions:)
 8
 9cr .( - screen.4th...)
10s" /boot/screen.4th" O_RDONLY fopen dup fload fclose
11
12\ Load frame support
13cr .( - frames.4th...)
14s" /boot/frames.4th" O_RDONLY fopen dup fload fclose
15
16\ Load our little menu
17cr .( - menu.4th...)
18s" /boot/menu.4th" O_RDONLY fopen dup fload fclose
19
20\ Show it
21cr
22main_menu