Google
 

Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/browse/help.pcl
There are no other files named help.pcl in the archive.
!{
!CRC help command running browse
!}!
COMMAND HELP ;
begin
    if $ttype eql 8 then
 	docommand original "help"
    else begin
    guide "with" ;
    parse begin
	keyword (words (list:1)): docommand "type sys:browse.list";
        text (help "subject to be sought
  or carriage return"):		  docommand "sys:browse " + $atom;
	end;
    end;
end;
!
! You may want this if you save an exec with the above help, as you
!  won't get ORIGINAL HELP
!
COMMAND OHELP ;
begin
    if $ttype eql 8 then
	docommand original "help"
    else
	begin
	guide "with" ;
	parse text (help "subject to be sought");
	docommand original "help " + $atom ;
	end
end;
synonym o original;