: help - help command

if $1x != x goto havarg

cat /hlp/help.hlp
goto topics

: havarg
if ! -r /hlp/$1.hlp goto nope

cat /hlp/$1.hlp
exit

: nope
echo ""
echo 'No help available for "' $1 '".'
echo ""

: topics
echo "Help is available for:"
echo ""

ls /hlp >/tmp/hlp$$
ed - /tmp/hlp$$
v+\.hlp$+d
g+\.hlp+s+++
w
q
pr -6 -w80 -l1 -t /tmp/hlp$$
rm /tmp/hlp$$
echo ""
