🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.micro.pc
Article #8501

Re: Argv[0] in TURBO PASCAL

#8501
From: Timothy D Margeson
Date: Fri, 24 Oct 1986 03:17
31 lines
1657 bytes
Hi,

About Turbo Pascal command lines.... YOU CAN GET AT THEM EASILY IN 3.01A.


The function is PARAMCOUNT and PARAMSTR(). 

PARAMCOUNT returns the number of arguments, PARAMSTR() with an integer index
returns the passed parameter. You can even pass dummy variables when compiling
to memory by using the P option from the option menu.

ANYBODY ELSE IS WRONG!

I don't know right off if PARAMSTR(0) works, I've never had occasion to use it.
I have used PARAMSTR(X) where X>0 and X<10 and it works fine.

You can find more info (not much though) from the Turbo Pascal Reference Manual
page 144, top two entries.

The entries returned are direct copies of the PMC-DOS command line buffer, so I
presume (something about an ass out of you and an ass out of me) that the (0)
index will return the called command.

By, good luck....


-- 
Tim Margeson (206)253-5240
PO Box 3500  d/s C1-937                          @@   'Who said that?'  
Vancouver, WA. 98668
{allegra..inhp4..decvax..ucbvax}!tektronix!tekigm2!timothym 
Technical Details
Message-ID: <1134@tekigm2.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!sri-spam!sri-unix!hplabs!tektronix!tekgen!tekigm!tekigm2!timothym
References: <623@A60.UUCP> <2444@gitpyr.gatech.EDU>

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!sri-spam!sri-unix!hplabs!tektronix!tekgen!tekigm!tekigm2!timothym
From: timothym@tekigm2.UUCP (Timothy D Margeson)
Newsgroups: net.micro.pc
Subject: Re: Argv[0] in TURBO PASCAL
Message-ID: <1134@tekigm2.UUCP>
Date: Thu, 23-Oct-86 23:17:45 EDT
Article-I.D.: tekigm2.1134
Posted: Thu Oct 23 23:17:45 1986
Date-Received: Sat, 25-Oct-86 06:38:36 EDT
References: <623@A60.UUCP> <2444@gitpyr.gatech.EDU>
Reply-To: timothym@tekigm2.UUCP (Timothy D Margeson)
Organization: Tektronix, Inc., Beaverton, OR.
Lines: 31