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;