program ENVINDEX { (c) J R Stockton  www.merlyn.demon.co.uk  >= 2003-10-04
  ENVINDEX P1 P2 sets Env. P1 to the contents of Env. P2 } ;

uses JRS_Envu ;

var S : string ; B : byte ;
const N = 8 ;

BEGIN
Environ(N, Get, ParamStr(2), S, B) ;
Environ(N, Put, ParamStr(1), S, B) ;
END.