{ GetEnvSt.inc by Kari Lammassaari 1998 }
{ Contains:
 - GetEnvironmentString(EnvString:String255):String255;

   Function returns the value of requested Environment String.
   Rem. Special Env. String 'PARAMETERS' contain the parameters given to
   running program. Env. String 'PROGRAM' contain the complete path of the
   running program.

 - Type String255 = String[255];  }

Type String255 = String[255];
Function GetEnvironmentString(EnvString:String255):String255;
 Var EnvStr:String255;
     Value :String255;
     Error :Byte;
 Begin
    EnvStr := EnvString +CHR(0);
    FillChar(Value,SizeOf(Value),0);
    Inline ($0e/$6b/$21/ EnvStr+1 /$11/ value+1 /$06/255/
            $cd/5/0 /$32 /Error/
            $11/ value+1 /$06/0/$1a/$b7/$28/$04/$04/$13/$18/$f8/$78/
            $32/ value )  ;
    If Error = 0 Then GetEnvironmentString := Value
     Else GetEnvironmentString := '';
 End;