1999-05-14 18:06:27 +00:00
|
|
|
\ Example of the file which is automatically loaded by /boot/loader
|
|
|
|
|
\ on startup.
|
1999-05-14 19:00:38 +00:00
|
|
|
\ $Id: loader.rc,v 1.1 1999/05/14 18:06:27 dcs Exp $
|
1999-05-14 18:06:27 +00:00
|
|
|
|
|
|
|
|
cr .( Loading Forth extensions:)
|
|
|
|
|
|
|
|
|
|
\ Load configuration file words
|
|
|
|
|
|
|
|
|
|
cr .( - loader.4th...)
|
|
|
|
|
|
|
|
|
|
include /boot/loader.4th
|
|
|
|
|
|
|
|
|
|
\ Load the screen manipulation words
|
|
|
|
|
|
|
|
|
|
cr .( - screen.4th...)
|
|
|
|
|
s" /boot/screen.4th" fopen dup fload fclose
|
|
|
|
|
|
|
|
|
|
\ Load frame support
|
|
|
|
|
cr .( - frames.4th...)
|
|
|
|
|
s" /boot/frames.4th" fopen dup fload fclose
|
|
|
|
|
|
|
|
|
|
\ Load our little menu
|
|
|
|
|
cr .( - menuconf.4th...)
|
|
|
|
|
s" /boot/menuconf.4th" fopen dup fload fclose
|
|
|
|
|
|
|
|
|
|
\ Initialize loader.4th stuff
|
|
|
|
|
|
|
|
|
|
cr cr .( Initializing loader.4th...)
|
1999-05-14 19:00:38 +00:00
|
|
|
initialize drop
|
1999-05-14 18:06:27 +00:00
|
|
|
|
|
|
|
|
\ Show the menu
|
|
|
|
|
cr
|
|
|
|
|
main_menu
|
|
|
|
|
|
