D> \listF\listLIB\5TH_GFX include
D> \listF\5TH_LOGO include

: tmpmsg 200000	100 do
	dup c@ dup FC =	if drop	doexit else emit 1+ then
loop drop ;
.( Messages from core: )
colhigh
tmpmsg
colnorm
forget tmpmsg


D> \listF\listLIB\5TH_DRVKBD include
D> \listF\listLIB\5TH_UICMD include
D> \listF\5TH_QUICKPATH	include

Dstr \listF\5TH_ET" tmpstr
: lde tmpstr include ; rh tmpstr

Dstr \listF\TXT_HELP" tmpstr
: help tmpstr fs. ; rh tmpstr

Dstr \listF\5TH_BOOT" tmpstr
: putboot
tmpstr fsDloadnew
dup dynp [ 400 4 * ] [ 400 20 *	] disksave
dynde ;	rh tmpstr

fslsr

.( type	'help' to get help )