blob: b0fd9ca3035ec958b6b91e5c3f96148d07ec551b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
\ Example of the file which is automatically loaded by /boot/loader
\ on startup.
\ $Id: boot.4th,v 1.1 1998/12/22 12:15:45 abial Exp $
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...)
initialize
\ Show the menu
cr
main_menu
|