xref: /freebsd/share/examples/bootforth/boot.4th (revision 26a58599a09a6181e0f5abe624021865a0c23186)
17b753b61SAndrzej Bialecki\ Example of the file which is automatically loaded by /boot/loader
27b753b61SAndrzej Bialecki\ on startup.
37b753b61SAndrzej Bialecki
47b753b61SAndrzej Bialecki\ Load the screen manipulation words
57b753b61SAndrzej Bialecki
67b753b61SAndrzej Bialeckicr .( Loading Forth extensions:)
77b753b61SAndrzej Bialecki
87b753b61SAndrzej Bialeckicr .( - screen.4th...)
90889b9beSJohn Baldwins" /boot/screen.4th" O_RDONLY fopen dup fload fclose
107b753b61SAndrzej Bialecki
117b753b61SAndrzej Bialecki\ Load frame support
127b753b61SAndrzej Bialeckicr .( - frames.4th...)
130889b9beSJohn Baldwins" /boot/frames.4th" O_RDONLY fopen dup fload fclose
147b753b61SAndrzej Bialecki
157b753b61SAndrzej Bialecki\ Load our little menu
167b753b61SAndrzej Bialeckicr .( - menu.4th...)
170889b9beSJohn Baldwins" /boot/menu.4th" O_RDONLY fopen dup fload fclose
187b753b61SAndrzej Bialecki
197b753b61SAndrzej Bialecki\ Show it
207b753b61SAndrzej Bialeckicr
217b753b61SAndrzej Bialeckimain_menu
22