home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / INFO.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  980b  |  36 lines

  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for parameters and environment      █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program Info;
  11.  
  12. uses
  13.   Dos;
  14.  
  15. var
  16.   I: Integer;
  17.  
  18. begin
  19.   WriteLn('Linux version : ', DosVersion and 255, '.', DosVersion shr 8);
  20.   WriteLn;
  21.  
  22.   WriteLn('Executable is : ', ParamStr(0));
  23.   WriteLn;
  24.  
  25.   WriteLn('Parameters    : ', ParamCount);
  26.   for I := 1 to ParamCount do
  27.     WriteLn('          #', I:2, ' : ', ParamStr(i));
  28.  
  29.   WriteLn;
  30.  
  31.   WriteLn('Environment   : ', EnvCount);
  32.   for I := 1 to EnvCount do
  33.     WriteLn('          #', I:2, ' :     ', EnvStr(i));
  34. end.
  35.  
  36.