procedure Help;
begin
write('            10/15/87 Joe Fremer');
writeln('     [GEnie mail J.FREMER]');
writeln('A program to type/find ASCII or squeezed files in or out of a library.');
writeln('Syntax:      fq [du:]fname[.ftype] [string to find] [output device]');
writeln('    Command line parameter examples:');
writeln('B7>fq A13:geniecpm.lbr .asm f');
writeln('       /                 |    \  ');
writeln('library or file        string   output to be directed');
writeln('    name               to find    to a file');
writeln;
writeln('B7>fq A13:geniecpm .asm p  [same as above, output to LST: device]');
writeln('B7>fq a13:geniecpm/upd.nqv .asm p  [same, but only search member UPD.NQV]');
writeln('B7>FQ 4:STUBTOE.PQS PROCEDURE  [search non-library file for string "procedure"]');
writeln('B7>fq A:tutorial   [interactive mode, library file named TUTORIAL.LBR in A7:]');
writeln('B7>fq A:tutorial.  [interactive mode, non-library file named TUTORIAL]');
writeln('NOTE: invoking the program with command line parameters causes the program ');
writeln('    to assume you want to search all members of the library.  Including a');
writeln('    string-to-find parameter automatically ignores case.');
halt;
end;