d $!{DO}	HELP {topic or .topic or ?}
È $!		Retains the topic text for obtaining HELP on various levels.
,$!
$!	topic	Append the new topic to the already shown topics,
ô$!			and obtain HELP on this new set of topics.
X$!	.topic	Replace the lowest level of the current topics with
¼$!			the new topic.
 $!	(ret)	Delete the lowest level topic and prompt again.
„$!
è$!	?	Obtain the HELP information on the current set of
L$!			topics.
°$!	EXIT	Exit from the procedure.
$!
x$!	HELP	Print this DOHELP file.
Ü$!
@$!-end.of.info-
¤$
$ LEV = 8
l$
Ð$CYCLEV:
4$ IF( P'LEV .NES."" ) THEN GOTO SHOW
˜$ LEV = LEV-1
ü$ IF( LEV .GT. 0 ) THEN GOTO CYCLEV
`	$
Ä	$DOHELP:
(
$ info help
Œ
$
ð
$GETINP:
T$ WRITE SYS$OUTPUT ""
¸$ INQUIRE PIN "Do help " 'P1 'P2 'P3 'P4 'P5 'P6 'P7 'P8
$ IF( PIN .EQS. "?" ) THEN GOTO SHOW
€$ IF( PIN .EQS. " " ) THEN GOTO REDUCE
ä$ IF( PIN .EQS. "EXIT" ) THEN GOTO FINI
H$ IF( 'F$LOCATE( ".", PIN ) .EQ. 0 ) THEN GOTO REPLACE
¬$
$ LEV = LEV+1
t$ P'LEV := 'PIN'
Ø$ GOTO SHOW
<$
 $REDUCE:
$ IF( LEV.LE.0 ) THEN GOTO GETINP
h$  P'LEV := " "
Ì$  LEV = LEV-1
0$  GOTO GETINP
”$
ø$REPLACE:
\$ IF( LEV.LE.0 ) THEN GOTO GETINP
À$  P'LEV := 'F$EXTRACT(1,100,PIN)
$$  GOTO SHOW
ˆ$
ì$SHOW:
P$ HELP 'P1 'P2 'P3 'P4 'P5 'P6 'P7 'P8
´$ GOTO GETINP
$
|$FINI: