home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
LEXMPSRC.RAR
/
INFO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
980b
|
36 lines
{█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
{█ █}
{█ Virtual Pascal for Linux █}
{█ Test example for parameters and environment █}
{█ ─────────────────────────────────────────────────█}
{█ Copyright (C) 1999 Joerg Pleumann █}
{█ █}
{▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
program Info;
uses
Dos;
var
I: Integer;
begin
WriteLn('Linux version : ', DosVersion and 255, '.', DosVersion shr 8);
WriteLn;
WriteLn('Executable is : ', ParamStr(0));
WriteLn;
WriteLn('Parameters : ', ParamCount);
for I := 1 to ParamCount do
WriteLn(' #', I:2, ' : ', ParamStr(i));
WriteLn;
WriteLn('Environment : ', EnvCount);
for I := 1 to EnvCount do
WriteLn(' #', I:2, ' : ', EnvStr(i));
end.