1 D> \listF\listLIB\5TH_GFX include
\r
2 D> \listF\5TH_LOGO include
\r
4 : tmpmsg 200000 100 do
\r
5 dup c@ dup FC = if drop doexit else emit 1+ then
\r
7 .( Messages from core: )
\r
14 D> \listF\listLIB\5TH_DRVKBD include
\r
15 D> \listF\listLIB\5TH_UICMD include
\r
16 D> \listF\5TH_QUICKPATH include
\r
18 Dstr \listF\5TH_ET" tmpstr
\r
19 : lde tmpstr include ; rh tmpstr
\r
21 Dstr \listF\TXT_HELP" tmpstr
\r
22 : help tmpstr fs. ; rh tmpstr
\r
24 Dstr \listF\5TH_BOOT" tmpstr
\r
27 dup dynp [ 400 4 * ] [ 400 20 * ] disksave
\r
32 .( type 'help' to get help )
\r