[net.micro.pc] command line tails in Turbo Pascal

gino@voder.UUCP (Gino Bloch) (09/22/84)

References: <3242@ecsvax.UUCP>, <373@voder.UUCP>, <374@voder.UUCP>

[food for thought]

My office mate, George Smith, has given me this copy of an
article in TUG Lines.  I have run it and it works either in
memory or standalone (it even has a blank Writeln - see #373
referenced above).

BTW, `TUG Lines' is the newsletter of the Turbo Users Group.
If you're interested, mail me & I'll extort their address out of
George.

-------------------- cut here ------------------------------
program params;

(*
** Submitted to TUG Lines by Paul Klarreich, Brooklyn, NY
**
** This program illustrates a method of finding the parameters
** to an MS-DOS command file.  In any MS-DOS program, the parameters
** are found at offset $80 in the program segment prefix -- the first
** $100 bytes of the program segment.  The byte at $80 gives the
** length of the string and the next "length" bytes are the actual
** characters.
*)

var
    CmdTail: string[80] absolute cseg:$0080;

begin
    writeln;
    writeln('The command tail for this program is:');
    writeln('-->', CmdTail, '<--');
end.
-- 
Gene E. Bloch (...!nsc!voder!gino)