k	Hrum: pack
	start=%{Hrum -start: block address (- = #6000)}
	to=%{Hrum -depackto: unpack to (- = #6000)}
	jp=%{Hrum -jp: jump to when done (- = RET)}
	pad=%{Hrum -pad: zeros to add (- = none, auto = if needed)}
	start=${start#./} to=${to#./} jp=${jp#./} pad=${pad#./}
	[ "$start" = - ] && start=
	[ "$to" = - ] && to=
	[ "$jp" = - ] && jp=
	[ "$pad" = - ] && pad=
	stop=
	for f in %s; do
		[ -f "$f" ] || continue
		r=$("@BIN@/hrum" ${start:+-start "$start"} ${to:+-depackto "$to"} ${jp:+-jp "$jp"} ${pad:+-pad "$pad"} -- "$f" 2>&1) || stop=$?
		printf '%%s\n' "$r"
		case $r in "hrum: warning: $f: "*) stop=1 ;; esac
		[ "$stop" != 2 ] || break
	done
	[ -z "$stop" ] || { printf 'Enter...'; read stop; }

K	Hrum: unpack
	stop=
	for f in %s; do
		[ -f "$f" ] || continue
		r=$("@BIN@/hrum" -d -- "$f" 2>&1) || stop=$?
		printf '%%s\n' "$r"
		case $r in "hrum: warning: $f: "*) stop=1 ;; esac
	done
	[ -z "$stop" ] || { printf 'Enter...'; read stop; }
